Zollbeschau AMBAR
This commit is contained in:
1500
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.Designer.vb
generated
Normal file
1500
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -0,0 +1,198 @@
|
||||
Public Class usrCntlZollbeschau
|
||||
Implements FormualrInterface
|
||||
|
||||
Public Event CHANGED(name, value)
|
||||
Public Event KDNR_CHANGED(kdnr)
|
||||
Public Event DELETE(c As Control)
|
||||
Public Event MOVE_UP(c As Control)
|
||||
Public Event MOVE_DOWN(c As Control)
|
||||
Dim FV_ID = -1
|
||||
Public KdNR As Integer = -1
|
||||
Public KdFirma As String = ""
|
||||
Public SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
||||
Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
|
||||
Public Rolle As String = ""
|
||||
|
||||
|
||||
Sub New()
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(param() As Object)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
If param.Length > 0 AndAlso param(0) IsNot Nothing Then KdNR = param(0)
|
||||
If param.Length > 1 Then KdFirma = param(1)
|
||||
If param.Length > 2 Then SENDUNG = param(2)
|
||||
If param.Length > 3 Then AVISO = param(3)
|
||||
If param.Length > 4 Then Rolle = param(4)
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
Public Sub ChangeKDNr(kdnr As Integer) _
|
||||
Implements FormualrInterface.ChangeKDNr
|
||||
initKdNR(kdnr)
|
||||
End Sub
|
||||
|
||||
'Dim KdNR As Integer = -1
|
||||
Sub initControlsHandler()
|
||||
For Each c In Me.Controls
|
||||
Select Case c.GetType.ToString
|
||||
Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
|
||||
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
|
||||
RaiseEvent CHANGED(c.name, c.text)
|
||||
End Sub
|
||||
Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
|
||||
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
|
||||
RaiseEvent CHANGED(c.name, c._value)
|
||||
End Sub
|
||||
Case GetType(TextBox).ToString
|
||||
AddHandler DirectCast(c, TextBox).Leave, Sub()
|
||||
RaiseEvent CHANGED(c.name, c.text)
|
||||
End Sub
|
||||
End Select
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
Dim kdsrch As New SDL.frmKundenSuche
|
||||
If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
|
||||
If IsNumeric(kdsrch.kundenNrSearch.Text) Then
|
||||
initKdNR(kdsrch.kundenNrSearch.Text)
|
||||
RaiseEvent KDNR_CHANGED(KdNR)
|
||||
End If
|
||||
End If
|
||||
' Panel1.Enabled = True
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub initSND()
|
||||
If SENDUNG IsNot Nothing Then
|
||||
txtFilialNr.Text = SENDUNG.FilialenNr.ToString
|
||||
txtAbfNr.Text = SENDUNG.AbfertigungsNr.ToString
|
||||
txtT1.Text = If(SENDUNG.tblSnd_ATB_T1, "")
|
||||
txtATB.Text = If(SENDUNG.tblSnd_ATB_Nr, "")
|
||||
txtATC.Text = If(SENDUNG.tblSnd_ATCMRN_Fremd, "")
|
||||
txtWarenbez.Text = If(SENDUNG.tblSnd_Warenbezeichnung, "")
|
||||
txtAnzVerp.Text = If(SENDUNG.tblSnd_Colli, "")
|
||||
txtGewicht.Text = If(SENDUNG.tblSnd_Gewicht, "")
|
||||
txtGewicht.Text &= " kg"
|
||||
txtAbsender.Text = If(SENDUNG.tblSnd_Absender, "")
|
||||
txtWarenwert.Text = If(SENDUNG.tblSnd_Warenwert, "")
|
||||
txtFrächter.Text = If(SENDUNG.tblSnd_Frachtfuehrer, "")
|
||||
txtAbsender.Text = If(SENDUNG.tblSnd_Absender, "")
|
||||
txtZollagent.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
|
||||
End If
|
||||
If AVISO IsNot Nothing Then
|
||||
txtLKWKennz.Text = If(AVISO.LKW_Nr, "")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub initKdNR(KdNR)
|
||||
If KdNR > 0 Then
|
||||
Me.KdNR = KdNR
|
||||
|
||||
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
|
||||
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
|
||||
|
||||
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
|
||||
txtAdresse1.Text = If(ADRESSE.Straße, "")
|
||||
txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
|
||||
txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "")
|
||||
txtEori.Text = If(KUNDE.EORITIN, "")
|
||||
txtTel.Text = If(ADRESSE.Telefon, "")
|
||||
txtFax.Text = If(ADRESSE.Telefax, "")
|
||||
txtEmail.Text = If(ADRESSE.E_Mail, "")
|
||||
' txtAnsprechpartnerVERAG.Text = If(ADRESSE.Ansprechpartner, "")
|
||||
Else
|
||||
txtFirma.Text = KdFirma
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
|
||||
RaiseEvent DELETE(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
|
||||
RaiseEvent MOVE_UP(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
|
||||
RaiseEvent MOVE_DOWN(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub usrCntlZollbeschau_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Label16.Text = Rolle.ToString
|
||||
txtTimeZoll1.Text = "00:00"
|
||||
txtTimeZoll2.Text = "00:00"
|
||||
txtTimeZoll1.Enabled = False
|
||||
txtTimeZoll2.Enabled = False
|
||||
initControlsHandler()
|
||||
txtAnsprechpartnerVERAG.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
txtBeschauDat.Text = Date.Today.ToString("dd.MM.yyyy")
|
||||
txtVZDatum.Text = Date.Today.ToString("dd.MM.yyyy")
|
||||
|
||||
If IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl) Then
|
||||
txtDW.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl
|
||||
End If
|
||||
initKdNR(KdNR)
|
||||
initSND()
|
||||
End Sub
|
||||
|
||||
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
|
||||
FormularManagerNEU.genPDF(Me, True)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
If KdNR > 0 Then
|
||||
Dim f As New frmKundenUebersichtZOLL(KdNR)
|
||||
f.ShowDialog(Me)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
|
||||
txtZoll1Date._value = CDate(sender.value).ToShortDateString
|
||||
If txtZoll1Date._value <> "" Then
|
||||
txtTimeZoll1.Enabled = True
|
||||
Else
|
||||
txtTimeZoll1.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
|
||||
txtZoll2Date._value = CDate(sender.value).ToShortDateString
|
||||
If txtZoll2Date._value <> "" Then
|
||||
txtTimeZoll2.Enabled = True
|
||||
Else
|
||||
txtTimeZoll2.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub dtpBeschauDat_ValueChanged(sender As Object, e As EventArgs) Handles dtpBeschauDat.ValueChanged
|
||||
txtBeschauDat._value = CDate(sender.value).ToShortDateString
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub DateTimePicker3_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker3.ValueChanged
|
||||
txtVZDatum._value = CDate(sender.value).ToShortDateString
|
||||
End Sub
|
||||
End Class
|
||||
@@ -11,6 +11,7 @@ Imports Microsoft.VisualBasic.ApplicationServices
|
||||
Imports System.Net.Mail
|
||||
Imports System.Reflection
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports DAKOSY_Worker.NichtAbschliessendeFestsetzung
|
||||
|
||||
Public Class frmFormulare
|
||||
Dim isSingleForm = False
|
||||
@@ -247,6 +248,8 @@ Public Class frmFormulare
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollbeschau Protokoll", FormularManagerArten.Zollbeschau_Protokoll))
|
||||
|
||||
cboVorlage.Items.Clear()
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
|
||||
@@ -720,6 +723,23 @@ Public Class frmFormulare
|
||||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
|
||||
Case FormularManagerArten.Zollbeschau_Protokoll
|
||||
Dim displayName = ""
|
||||
Dim c As usrCntlZollbeschau
|
||||
If param Is Nothing Then
|
||||
c = New usrCntlZollbeschau
|
||||
Else
|
||||
c = New usrCntlZollbeschau(param)
|
||||
End If
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -1305,6 +1325,9 @@ Public Class FormularManagerNEU
|
||||
Case GetType(usrcntlVUB).ToString
|
||||
retStr = FormularManagerNEU.VUB(c)
|
||||
|
||||
Case GetType(usrCntlZollbeschau).ToString
|
||||
retStr = FormularManagerNEU.Zollbeschau(c)
|
||||
|
||||
End Select
|
||||
If retStr <> "" Then
|
||||
striList.Add(retStr)
|
||||
@@ -1376,17 +1399,17 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Dim top = 0
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
@@ -1416,17 +1439,17 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 90, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Dim top = 0
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
@@ -1456,22 +1479,22 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 34, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 34, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 49, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 55, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 61, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 49, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 55, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 61, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 67, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 67, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 67, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 67, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 75, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 75, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 82, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 82, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 88, 65, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, 132, 88, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 75, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 75, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 82, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 82, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 88, 65, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, 132, 88, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
listTowrite = addEinmaligeVM(listTowrite, 0, 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
|
||||
@@ -2949,7 +2972,7 @@ Public Class FormularManagerNEU
|
||||
Case "NKD" : ort = "Nickelsdorf"
|
||||
Case "NEU" : ort = "Neuhaus am Inn"
|
||||
End Select
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ort & ", den " & Now.ToShortDateString, 25, 270, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ort & ", den " & Now.ToShortDateString, 25, 270, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
striList.Add(fm.fillPDFVorhandenesLokalesPDF_Path(path, listTowrite, , , , , bc))
|
||||
|
||||
@@ -2969,24 +2992,24 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 33, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 33, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 45, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 51, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 45, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 51, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "EN" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 50, 62, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 62, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Case "EN" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 50, 62, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 62, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End Select
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 62, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 62, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 70, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 70, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 75, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 75, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 70, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 70, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 75, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 75, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
listTowrite = addEinmaligeVM(listTowrite, 88, 110, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text, True)
|
||||
@@ -3050,19 +3073,19 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Stufe " & stufe, 73, 86.5, 150, 10, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Stufe " & stufe, 73, 86.5, 150, 10, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(abfrageDatum.ToShortDateString & " " & abfrageDatum.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(uidAbfrage, ""), 73, 126, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(firma, ""), 73, 133, 150, 30, If(If(firma, "").ToString.StartsWith("*"), "normal", "bold"), 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(abfrageDatum.ToShortDateString & " " & abfrageDatum.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(uidAbfrage, ""), 73, 126, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(firma, ""), 73, 133, 150, 30, If(If(firma, "").ToString.StartsWith("*"), "normal", "bold"), 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(tid, ""), 73, 163, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(tid, ""), 73, 163, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(SB <> "", SB, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME), 73, 179, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(sessionID, ""), 73, 191, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(SB <> "", SB, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME), 73, 179, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(sessionID, ""), 73, 191, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prüfung", listTowrite)
|
||||
Dim PdfTmp = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2_FO, "", "UID_Prufung", listTowrite)
|
||||
@@ -3084,17 +3107,17 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(txtEORI, 73, 126, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(firma, 73, 133, 150, 30, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(txtEORI, 73, 126, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(firma, 73, 133, 150, 30, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(tid, 73, 163, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 73, 158, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 73, 158, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(sessionID, 73, 191, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prüfung", listTowrite)
|
||||
@@ -3114,28 +3137,28 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 33, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 33, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 47, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 53, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 59, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 47, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 53, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 59, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "EN" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 52, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Case "EN" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 52, 66, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 66, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End Select
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 66, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 80, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 80, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 86, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, If(usrCntl.cboSprache._value = "EN", 135, 129), 86, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 74, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 74, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 80, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 80, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 86, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, If(usrCntl.cboSprache._value = "EN", 135, 129), 86, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxEVVerzollung.Checked, "x", ""), 38, 94, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxKonto.Checked, "x", ""), 38, 98, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxEVVerzollung.Checked, "x", ""), 38, 94, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxKonto.Checked, "x", ""), 38, 98, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
listTowrite = addEinmaligeVM(listTowrite, 0, 225, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
|
||||
@@ -3162,18 +3185,18 @@ Public Class FormularManagerNEU
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 42, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 47, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 42, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 47, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "EN", "FR" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 45, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Case "EN", "FR" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 45, 53, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 53, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End Select
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 61, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 72, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 61, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 66, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 72, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
listTowrite = addEinmaligeVM(listTowrite, 88, 100, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text, True)
|
||||
@@ -3184,22 +3207,22 @@ Public Class FormularManagerNEU
|
||||
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "EN"
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 24, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 140, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 66, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 133, 61, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 24, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 140, 53, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 66, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 133, 61, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_Fiskal_EN", listTowrite)
|
||||
Case "FR"
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 145, 24, 130, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 140, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 66, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 133, 61, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 145, 24, 130, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 140, 53, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 66, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 133, 61, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_Fiskal_FR", listTowrite)
|
||||
Case Else
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 24, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 66, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 61, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 24, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 53, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 66, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 61, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_Fiskal", listTowrite)
|
||||
End Select
|
||||
Return ""
|
||||
@@ -3213,25 +3236,25 @@ Public Class FormularManagerNEU
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87, 71, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87, 71, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
'If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
|
||||
' End If
|
||||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 54, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgNr.Text, 67, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgDat.Text, 134, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 54, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgNr.Text, 67, 54, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgDat.Text, 134, 54, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
Else
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 49, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 49, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
|
||||
|
||||
@@ -3250,25 +3273,25 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87, 71, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87, 71, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
'If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
|
||||
' End If
|
||||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 54, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgNr.Text, 67, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgDat.Text, 134, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 54, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgNr.Text, 67, 54, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgDat.Text, 134, 54, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
Else
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 49, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 49, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
|
||||
|
||||
@@ -3299,98 +3322,98 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 144, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("– " & usrCntl.txtDW.Text, 45, 30.2, 15, 4, "normal", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 144, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("– " & usrCntl.txtDW.Text, 45, 30.2, 15, 4, "normal", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 32, 52, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 60, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 32, 66, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 71, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 32, 52, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 60, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 32, 66, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 71, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechnungsnummern.Text, 83, 106, 110, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechnungsnummern.Text, 83, 106, 110, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 32, 113, 88, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATUEur1.Text, 145, 113, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 43, 120, 45, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUnternehmer.Text, 112, 120, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 32, 126, 32, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 83, 126, 62, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.txtGewicht.Text.Trim.EndsWith("kg"), usrCntl.txtGewicht.Text, usrCntl.txtGewicht.Text & " kg"), 160, 126, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 32, 113, 88, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATUEur1.Text, 145, 113, 40, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 43, 120, 45, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUnternehmer.Text, 112, 120, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 32, 126, 32, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 83, 126, 62, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.txtGewicht.Text.Trim.EndsWith("kg"), usrCntl.txtGewicht.Text, usrCntl.txtGewicht.Text & " kg"), 160, 126, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
|
||||
|
||||
|
||||
Dim top = 208
|
||||
If usrCntl.cboFiliale._value <> "" Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cboFiliale._value & "/" & usrCntl.txtAbfertigungsNr.Text, 60, top + 71.5, 43, 8, "bold", 13, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cboFiliale._value & "/" & usrCntl.txtAbfertigungsNr.Text, 60, top + 71.5, 43, 8, "bold", 13, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
Else
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbfertigungsNr.Text, 60, top + 71.5, 43, 8, "bold", 13, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbfertigungsNr.Text, 60, top + 71.5, 43, 8, "bold", 13, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
End If
|
||||
|
||||
Dim w = ""
|
||||
If usrCntl.cboFirma._value = "26" Then
|
||||
w = "GBP" 'VERAG-UNISPED LTD
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Document-Date: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Document-Date: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
Else
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Vorauskasse-Datum: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Vorauskasse-Datum: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
|
||||
End If
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.lblRechnungsbetrag.Text, w), 70, top + 0, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtFrachtkostenAusl.Text, w), 70, top + 4, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZwischensumme.Text, w), 70, top + 8.5, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZoll.Text, w), 70, top + 12, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollProzent.Text, 40, top + 12, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtFrachtkostenInl.Text, w), 70, top + 16, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEustSonstText.Text, 13, top + 20.8, 40, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEustSonstBetrag.Text, w), 70, top + 20.5, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSumme.Text, w), 70, top + 25, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.lblRechnungsbetrag.Text, w), 70, top + 0, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtFrachtkostenAusl.Text, w), 70, top + 4, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZwischensumme.Text, w), 70, top + 8.5, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZoll.Text, w), 70, top + 12, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollProzent.Text, 40, top + 12, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtFrachtkostenInl.Text, w), 70, top + 16, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEustSonstText.Text, 13, top + 20.8, 40, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEustSonstBetrag.Text, w), 70, top + 20.5, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSumme.Text, w), 70, top + 25, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
Dim eustProz = If(IsNumeric(usrCntl.txtEustProzent._value), CDbl(usrCntl.txtEustProzent._value).ToString("P2"), usrCntl.txtEustProzent._value)
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(eustProz, 40, top + 29, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEUST.Text, w), 70, top + 29, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(eustProz, 40, top + 29, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEUST.Text, w), 70, top + 29, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
|
||||
top = 209
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZoll2.Text, w), 170, top + 0, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEust2.Text, w), 170, top + 4, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAndereAbgabenText.Text, 116.5, top + 8, 40, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtAndereAbgabenBetrag.Text, w), 170, top + 8, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtVerzollungskosten.Text, w), 170, top + 13, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtWeitereTarifPos.Text, w), 170, top + 17, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtATLAS.Text, w), 170, top + 21, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtClearing.Text, w), 170, top + 25, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtKorrRechnung.Text, w), 170, top + 29, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtUebersetzungRg.Text, w), 170, top + 33, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZoll2.Text, w), 170, top + 0, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEust2.Text, w), 170, top + 4, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAndereAbgabenText.Text, 116.5, top + 8, 40, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtAndereAbgabenBetrag.Text, w), 170, top + 8, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtVerzollungskosten.Text, w), 170, top + 13, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtWeitereTarifPos.Text, w), 170, top + 17, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtATLAS.Text, w), 170, top + 21, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtClearing.Text, w), 170, top + 25, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtKorrRechnung.Text, w), 170, top + 29, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtUebersetzungRg.Text, w), 170, top + 33, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtAviso.Text, w), 170, top + 37, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSvs.Text, w), 170, top + 41, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtAviso.Text, w), 170, top + 37, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSvs.Text, w), 170, top + 41, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 56, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtPapierePorti.Text, w), 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSonstigeKosten.Text, w), 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtMWST.Text, w), 170, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtPapierePorti.Text, w), 170, top + 45, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 49, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSonstigeKosten.Text, w), 170, top + 49, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 53, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtMWST.Text, w), 170, top + 53, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.lblWaehrung.Text, w), 140, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtGesamtsumme.Text, w), 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.lblWaehrung.Text, w), 140, top + 61, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtGesamtsumme.Text, w), 170, top + 61, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
|
||||
|
||||
|
||||
|
||||
If usrCntl.cbxLKWWartet.Checked Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 12, 60, 15, "boldRed", 20, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 12, 60, 15, "boldRed", 20, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
|
||||
If usrCntl.cbxBeimErstellenSpeichern.Checked Then
|
||||
@@ -3474,31 +3497,31 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
Dim top = -5
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 144, 38 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("– " & usrCntl.txtDW.Text, 45, 32.8 + top, 15, 4, "normal", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 144, 38 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("– " & usrCntl.txtDW.Text, 45, 32.8 + top, 15, 4, "normal", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 32, 53.5 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 60 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 32, 66 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 71.5 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 32, 53.5 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 60 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 32, 66 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 71.5 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78 + top, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78 + top, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85 + top, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78 + top, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78 + top, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85 + top, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91 + top, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91 + top, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
top = -10
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechnungsnummern.Text, 83, 107.5 + top, 110, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechnungsnummern.Text, 83, 107.5 + top, 110, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 32, 114 + top, 88, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATUEur1.Text, 145, 114 + top, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 43, 120 + top, 45, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUnternehmer.Text, 112, 120 + top, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 32, 127 + top, 32, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 83, 127 + top, 62, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.txtGewicht.Text.Trim.EndsWith("kg"), usrCntl.txtGewicht.Text, usrCntl.txtGewicht.Text & " kg"), 163, 127 + top, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 32, 114 + top, 88, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATUEur1.Text, 145, 114 + top, 40, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 43, 120 + top, 45, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUnternehmer.Text, 112, 120 + top, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 32, 127 + top, 32, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 83, 127 + top, 62, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.txtGewicht.Text.Trim.EndsWith("kg"), usrCntl.txtGewicht.Text, usrCntl.txtGewicht.Text & " kg"), 163, 127 + top, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
|
||||
|
||||
|
||||
|
||||
@@ -3521,7 +3544,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
|
||||
If usrCntl.cbxLKWWartet.Checked Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 11, 60, 15, "boldRed", 20, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 11, 60, 15, "boldRed", 20, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
@@ -3539,6 +3562,65 @@ Public Class FormularManagerNEU
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Shared Function Zollbeschau(usrCntl As usrCntlZollbeschau) As String
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
Dim top = 0
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 145, 50 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFilialNr.Text & "/" & usrCntl.txtAbfNr.Text, 40, 50 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtT1.Text, 145, 55 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATB.Text, 145, 60 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATC.Text, 145, 65 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVZDatum.Text, 120, 72 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollagent.Text, 40, 82 + top, 55, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrächter.Text, 40, 88 + top, 55, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 40, 93 + top, 55, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollb1.Text, 40, 98 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollb2.Text, 40, 103 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBeschauDat.Text, 141, 82 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 135, 88 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 135, 93 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll1Date.Text & " " & usrCntl.txtTimeZoll1.Text, ""), 135, 97 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll2Date.Text <> "", usrCntl.txtZoll2Date.Text & " " & usrCntl.txtTimeZoll2.Text, ""), 135, 102 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
'Sendungsdaten
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 130, 130 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGewicht.Text, 160, 130 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 42, 146 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
'Tabelle
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("60 €", 122, 151 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("60 €", 122, 199 + top, 200, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Dim ort As String = ""
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||
Case "AMB" : ort = "Bad Reichenhall"
|
||||
End Select
|
||||
|
||||
'Signatur
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ort & ", " & Date.Today.ToString("dd.MM.yyyy"), 17, 267 + top, 200, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "AMBAR"
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "ZollbeschauAMBAR", listTowrite)
|
||||
Case Else
|
||||
MsgBox("Funktion für " & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " nicht implementiert! ")
|
||||
|
||||
End Select
|
||||
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function Gestellungsgarantie(usrCntl As usrcntlGestellungsgarantie) As String
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
@@ -5241,6 +5323,7 @@ Public Class FormularManagerArten
|
||||
|
||||
Shared Property Sendungsliste = "Sendungsliste"
|
||||
Shared Property Rechnungsbestaetigung = "Rechnungsbestaetigung"
|
||||
Shared Property Zollbeschau_Protokoll = "Zollbeschau Protokoll"
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -554,6 +554,12 @@
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_DE_indirekt.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrCntlZollbeschau.Designer.vb">
|
||||
<DependentUpon>usrCntlZollbeschau.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrCntlZollbeschau.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="kunden\frmKundenBesonderheiten_Add.Designer.vb">
|
||||
<DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -2792,6 +2798,9 @@
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_DE_indirekt.resx">
|
||||
<DependentUpon>usrcntlVollmacht_DE_indirekt.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrCntlZollbeschau.resx">
|
||||
<DependentUpon>usrCntlZollbeschau.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="kunden\frmKundenBesonderheiten_Add.resx">
|
||||
<DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
@@ -3862,9 +3871,6 @@
|
||||
<None Include="Resources\FA_Graz_EV-Veranlagung_Muster.xlsx">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</None>
|
||||
<None Include="Resources\Flender_Bocholt.xlsx">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</None>
|
||||
<None Include="Resources\LKW_Liste.xlsx" />
|
||||
<None Include="Resources\RG_ZF.xlsx">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
|
||||
Reference in New Issue
Block a user