Parkplatz Abrechnung, Fakt div, etc

2024-01-12 14:00:27 +01:00
parent 5e26c9cf22
commit 6b58e32397
12 changed files with 737 additions and 308 deletions
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -1,6 +1,8 @@

 Imports System.Globalization
 Imports awt.ShellApi
+Imports com.sun.org.apache.xerces.internal.impl.dv.xs
+Imports java.awt.geom
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN.TESTJSON

@@ -716,7 +718,7 @@ Public Class cFakturierung

        If Rechnugnsdruck <= 0 Then Rechnugnsdruck = 3 ' Default Mail
        If SPEDBUCH_TMP Is Nothing Then Return False
-        Dim f As New frmFaktEmail(RG_TMP, SPEDBUCH_TMP, Nothing, Rechnugnsdruck)
+        Dim f As New frmFaktEmail(RG_TMP, SPEDBUCH_TMP, Nothing, Rechnugnsdruck, RechnungsDatum)
        f.Show()
        Return True
        '     Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, SammelrechnungAnlagendruck, printStbVdb)
@@ -959,6 +961,7 @@ Public Class cFakturierung
    End Function

    Public Shared Function doRechnungsDruck(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printOriginalRg As Boolean = False, Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean
+        ' MsgBox(Rechnugnsdruck)
        If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False
        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
        Try
@@ -1489,8 +1492,9 @@ Public Class cFakturierung
                    End Try
                End If
                '-------------------------------------------------------------------------------
-
-                Dim RD_DRUCK = If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0)) 'If(AD.Rechnungsdruck, 0)
+                ' MsgBox(Rechnugnsdruck)
+                Dim RD_DRUCK = If(Rechnugnsdruck >= 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0)) 'If(AD.Rechnungsdruck, 0)
+                '   MsgBox(RD_DRUCK)
                Select Case RD_DRUCK
                    Case 0, 1 'DRUCKEN

@@ -1501,6 +1505,11 @@ Public Class cFakturierung
                                printSpedBuchAnhaenge(RECHNUNG, True, True)
                            End If
                        End If
+                        If RECHNUNG.ANHAENGE.Count > 0 Then
+                            If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
+                                printRGAnhaenge(RECHNUNG)
+                            End If
+                        End If

                        Return ret

@@ -1551,7 +1560,11 @@ Public Class cFakturierung
                                        printSpedBuchAnhaenge(RECHNUNG, True, True)
                                    End If
                                End If
-
+                                If RECHNUNG.ANHAENGE.Count > 0 Then
+                                    If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
+                                        printRGAnhaenge(RECHNUNG)
+                                    End If
+                                End If
                            End If

                        Catch ex As Exception
@@ -1567,13 +1580,19 @@ Public Class cFakturierung
                        'rpt.Run(False)
                        'p.NeverEmbedFonts = ""
                        'p.Export(rpt.Document, tmpPath)
+                        If RECHNUNG.ANHAENGE.Count > 0 Then
+                            If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge öffnen?", vbYesNoCancel)) Then
+                                openRgAnhaenge(RECHNUNG)
+                            End If
+                        End If

                        ' rpt.Dispose()
                        Path = tmpPath
                        Process.Start(tmpPath)
+
                        rpt.Dispose()
                        Return True
-                    Case 4 'PDF
+                    Case 4 'PDF  _ für Mail Funktion--> nur PDFpfad benötigt

                        'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
                        'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
@@ -1582,6 +1601,7 @@ Public Class cFakturierung
                        'p.Export(rpt.Document, tmpPath)

                        'rpt.Dispose()
+
                        Path = tmpPath

                        rpt.Dispose()
@@ -1618,6 +1638,38 @@ Public Class cFakturierung

    End Sub

+    Shared Sub printRGAnhaenge(RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
+        Try
+            If RG.ANHAENGE IsNot Nothing AndAlso RG.ANHAENGE.Count > 0 Then
+                For Each ANH In RG.ANHAENGE
+                    If ANH.dsId > 0 Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId)})
+                Next
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+
+    Shared Sub openRgAnhaenge(RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
+        Try
+            Dim list As New List(Of String)
+            If RG.ANHAENGE IsNot Nothing AndAlso RG.ANHAENGE.Count > 0 Then
+                For Each ANH In RG.ANHAENGE
+                    If ANH.dsId > 0 Then list.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId))
+                Next
+            End If
+            Dim pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("RG_Anhänge_" & Now.ToString("ddMMyyyyHHmmss") & ".pdf", ".pdf", False, False)
+
+            If FormularManagerNEU.MergePdfFiles(list, pathPDF) Then
+                Process.Start(pathPDF)
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+
+
+
    Shared Function getSpedBuchAnhaenge_Path(FilialenNr As Integer, AbfertigungsNr As Integer, SpeditionsbuchUnterNr As Integer) As String
        Try
            Dim SPEDBCUH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(FilialenNr, AbfertigungsNr, SpeditionsbuchUnterNr)
@@ -1806,9 +1858,11 @@ Public Class cFakturierung
                    If Not getRgDatInput("", RECHNUNG.[RechnungsDatum]) Then 'Now.ToShortDateString
                        RECHNUNG.[RechnungsDatum] = Now
                    End If
+                    RechnungsDatum = RECHNUNG.[RechnungsDatum]
                    '        RECHNUNG.Buchungsjahr = If(Now.Month = 1, Now.Year - 1, Now.Year)
                End If
-                RECHNUNG.Buchungsjahr = cRKSV.getGJ(RECHNUNG.[RechnungsDatum], RECHNUNG.Firma_ID) ' If(CDate(RECHNUNG.[RechnungsDatum]).Month = 1, CDate(RECHNUNG.[RechnungsDatum]).Year - 1, CDate(RECHNUNG.[RechnungsDatum]).Year)
+
+                RECHNUNG.Buchungsjahr = cRKSV.getGJ(RechnungsDatum, RECHNUNG.Firma_ID) ' If(CDate(RECHNUNG.[RechnungsDatum]).Month = 1, CDate(RECHNUNG.[RechnungsDatum]).Year - 1, CDate(RECHNUNG.[RechnungsDatum]).Year)

                If RECHNUNG.Buchungsjahr < 2000 Then
                    MsgBox("Buchungsjahr im falschen Format!")
--- a/SDL/Fakturierung/frmFaktEmail.Designer.vb
+++ b/SDL/Fakturierung/frmFaktEmail.Designer.vb
@@ -23,6 +23,11 @@ Partial Class frmFaktEmail
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFaktEmail))
        Me.lbl = New System.Windows.Forms.Label()
        Me.txtSubject = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -69,10 +74,18 @@ Partial Class frmFaktEmail
        Me.cbxTransFerry = New System.Windows.Forms.CheckBox()
        Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxRgKopieDrucken = New System.Windows.Forms.CheckBox()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn()
+        Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnDsId = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnAnhId = New System.Windows.Forms.DataGridViewTextBoxColumn()
        CType(Me.dgvEmailBCC, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.dgvEmailCC, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'lbl
@@ -130,9 +143,9 @@ Partial Class frmFaktEmail
        Me.Label5.AutoSize = True
        Me.Label5.Location = New System.Drawing.Point(12, 390)
        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(53, 13)
+        Me.Label5.Size = New System.Drawing.Size(53, 26)
        Me.Label5.TabIndex = 12
-        Me.Label5.Text = "Anhänge:"
+        Me.Label5.Text = "ZOLL-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Anhänge:"
        '
        'dgvEmailBCC
        '
@@ -313,7 +326,7 @@ Partial Class frmFaktEmail
        Me.MyDatagridview1.Name = "MyDatagridview1"
        Me.MyDatagridview1.ReadOnly = True
        Me.MyDatagridview1.RowHeadersVisible = False
-        Me.MyDatagridview1.Size = New System.Drawing.Size(537, 390)
+        Me.MyDatagridview1.Size = New System.Drawing.Size(537, 268)
        Me.MyDatagridview1.TabIndex = 19
        '
        'clmnLKW
@@ -554,12 +567,123 @@ Partial Class frmFaktEmail
        Me.cbxRgKopieDrucken.Text = "RG-Kopie drucken:"
        Me.cbxRgKopieDrucken.UseVisualStyleBackColor = True
        '
+        'dgvAnhaenge
+        '
+        Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAnhaenge.AllowUserToAddRows = False
+        Me.dgvAnhaenge.AllowUserToDeleteRows = False
+        Me.dgvAnhaenge.AllowUserToResizeColumns = False
+        Me.dgvAnhaenge.AllowUserToResizeRows = False
+        Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.optAnhSel, Me.DataGridViewTextBoxColumn3, Me.clmnBezeichnung, Me.clmnDsId, Me.clmnAnhId})
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle4
+        Me.dgvAnhaenge.Location = New System.Drawing.Point(67, 656)
+        Me.dgvAnhaenge.MultiSelect = False
+        Me.dgvAnhaenge.Name = "dgvAnhaenge"
+        Me.dgvAnhaenge.ReadOnly = True
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
+        Me.dgvAnhaenge.RowHeadersVisible = False
+        Me.dgvAnhaenge.RowHeadersWidth = 62
+        Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAnhaenge.Size = New System.Drawing.Size(537, 124)
+        Me.dgvAnhaenge.TabIndex = 91
+        Me.dgvAnhaenge.TabStop = False
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(8, 656)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(53, 13)
+        Me.Label7.TabIndex = 92
+        Me.Label7.Text = "Anhänge:"
+        '
+        'optAnhSel
+        '
+        Me.optAnhSel.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+        Me.optAnhSel.FillWeight = 78.74017!
+        Me.optAnhSel.HeaderText = ""
+        Me.optAnhSel.MinimumWidth = 8
+        Me.optAnhSel.Name = "optAnhSel"
+        Me.optAnhSel.ReadOnly = True
+        Me.optAnhSel.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.optAnhSel.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
+        Me.optAnhSel.Visible = False
+        Me.optAnhSel.Width = 35
+        '
+        'DataGridViewTextBoxColumn3
+        '
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle2.Format = "N0"
+        DataGridViewCellStyle2.NullValue = Nothing
+        Me.DataGridViewTextBoxColumn3.DefaultCellStyle = DataGridViewCellStyle2
+        Me.DataGridViewTextBoxColumn3.HeaderText = "Art"
+        Me.DataGridViewTextBoxColumn3.MinimumWidth = 8
+        Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
+        Me.DataGridViewTextBoxColumn3.ReadOnly = True
+        Me.DataGridViewTextBoxColumn3.Width = 70
+        '
+        'clmnBezeichnung
+        '
+        Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.Format = "c2"
+        Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle3
+        Me.clmnBezeichnung.FillWeight = 121.2598!
+        Me.clmnBezeichnung.HeaderText = "Bezeichnung"
+        Me.clmnBezeichnung.MinimumWidth = 8
+        Me.clmnBezeichnung.Name = "clmnBezeichnung"
+        Me.clmnBezeichnung.ReadOnly = True
+        '
+        'clmnDsId
+        '
+        Me.clmnDsId.HeaderText = "clmnDsId"
+        Me.clmnDsId.MinimumWidth = 8
+        Me.clmnDsId.Name = "clmnDsId"
+        Me.clmnDsId.ReadOnly = True
+        Me.clmnDsId.Visible = False
+        Me.clmnDsId.Width = 150
+        '
+        'clmnAnhId
+        '
+        Me.clmnAnhId.HeaderText = "clmnAnhId"
+        Me.clmnAnhId.MinimumWidth = 8
+        Me.clmnAnhId.Name = "clmnAnhId"
+        Me.clmnAnhId.ReadOnly = True
+        Me.clmnAnhId.Visible = False
+        Me.clmnAnhId.Width = 150
+        '
        'frmFaktEmail
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.WhiteSmoke
        Me.ClientSize = New System.Drawing.Size(750, 850)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.dgvAnhaenge)
        Me.Controls.Add(Me.cbxRgKopieDrucken)
        Me.Controls.Add(Me.cboPrinter)
        Me.Controls.Add(Me.cbxTransFerry)
@@ -603,6 +727,7 @@ Partial Class frmFaktEmail
        CType(Me.dgvEmailCC, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -653,4 +778,11 @@ Partial Class frmFaktEmail
    Friend WithEvents cbxTransFerry As CheckBox
    Friend WithEvents cboPrinter As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents cbxRgKopieDrucken As CheckBox
+    Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Label7 As Label
+    Friend WithEvents optAnhSel As DataGridViewCheckBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
+    Friend WithEvents clmnBezeichnung As DataGridViewTextBoxColumn
+    Friend WithEvents clmnDsId As DataGridViewTextBoxColumn
+    Friend WithEvents clmnAnhId As DataGridViewTextBoxColumn
 End Class
--- a/SDL/Fakturierung/frmFaktEmail.resx
+++ b/SDL/Fakturierung/frmFaktEmail.resx
@@ -147,6 +147,21 @@
  <metadata name="clmnVBD.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
  </metadata>
+  <metadata name="optAnhSel.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="DataGridViewTextBoxColumn3.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnBezeichnung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnDsId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnAnhId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
--- a/SDL/Fakturierung/frmFaktEmail.vb
+++ b/SDL/Fakturierung/frmFaktEmail.vb
@@ -17,7 +17,7 @@ Public Class frmFaktEmail
    Dim SammelrechungArt As Integer
    Dim KdNr As Integer
    Dim DatumBis As Date
-    Dim Rechnungsdatum As Date
+    Dim Rechnungsdatum = Nothing
    Dim SB As String
    Dim Rechnungsdruck As Integer = 3

@@ -32,7 +32,7 @@ Public Class frmFaktEmail
    Dim AvisoIds As List(Of Integer)

    Dim SR = False
-    Sub New(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, printOriginalRg As Object, Rechnungsdruck As Integer)
+    Sub New(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, printOriginalRg As Object, Rechnungsdruck As Integer, Optional Rechnungsdatum As Object = Nothing)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
@@ -43,6 +43,7 @@ Public Class frmFaktEmail
        Me.printOriginalRg = printOriginalRg
        Me.KdNr = RECHNUNG.RechnungsKundenNr
        Me.Rechnungsdruck = Rechnungsdruck
+        If Rechnungsdatum IsNot Nothing Then Me.Rechnungsdatum = CDate(Rechnungsdatum)
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        'McDull.Windows.Forms.HTMLTextBox
    End Sub
@@ -158,6 +159,8 @@ Public Class frmFaktEmail
        Dim EMAILTMPBCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an")
        If EMAILTMPBCC <> "" Then dgvEmailBCC.Rows.Add(EMAILTMPBCC)

+        initDGVAnhaenge()
+
        If FISKAL IsNot Nothing Then
            cbxSteuerberaterEmail.Checked = (If(FISKAL.fisk_schreibenSB_Mail, "") <> "")
            txtSteuerberaterEmail.Text = If(FISKAL.fisk_schreibenSB_Mail, "")
@@ -417,7 +420,8 @@ Public Class frmFaktEmail
                    'Rechnung erstellen:
                    '-----------------------------------------------------------------
                    Dim pathRG = ""
-                    If Not cFakturierung.doRechnungsDruck(RECHNUNG,,, 4, pathRG,, cbxOriginalPrint.Checked) Then
+
+                    If Not cFakturierung.doRechnungsDruck(RECHNUNG, Rechnungsdatum,, 4, pathRG,, cbxOriginalPrint.Checked) Then
                        Exit Sub
                    End If

@@ -779,6 +783,49 @@ Public Class frmFaktEmail
        FISKAL.fisk_schreibenFA_Mail = txtFAEmail.Text
        FISKAL.SAVE()
    End Sub
+
+    Private Sub dgvAnhaenge_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick
+
+        Try
+            If dgvAnhaenge.SelectedRows.Count > 0 Then '  If e.RowIndex > 0 Then
+                dgvAnhaenge.Rows(e.RowIndex).Selected = True
+                Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhaenge.SelectedRows(0).Cells("clmnDsId").Value))
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+
+    End Sub
+
+    Sub initDGVAnhaenge()
+
+        With dgvAnhaenge
+
+            .Rows.Clear()
+            .Enabled = True
+
+            If SR Then
+                .Enabled = False
+                Exit Sub
+            End If
+
+            RECHNUNG.LOAD_ANHAENGE()
+
+            If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ANHAENGE IsNot Nothing Then
+                '-----------------------------
+                'ANHÄNGE  LADEN:
+                '-----------------------------
+                For Each RG_AH In RECHNUNG.ANHAENGE
+                    .Rows.Add(0, "", RG_AH.Bezeichnung, RG_AH.dsId, RG_AH.anhId)
+                Next
+                '-----------------------------
+
+            End If
+
+        End With
+        dgvAnhaenge.ClearSelection()
+    End Sub
 End Class


--- a/SDL/Formulare/KDFormulare/frmFormulare.vb
+++ b/SDL/Formulare/KDFormulare/frmFormulare.vb
@@ -257,7 +257,7 @@ Public Class frmFormulare

            Case Else
                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
-                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht_indirekt))
+                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht (indirekt)", FormularManagerArten.DE_Vollmacht_indirekt))
                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
@@ -1473,17 +1473,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
@@ -1513,17 +1513,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
@@ -1553,22 +1553,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)
@@ -3080,7 +3080,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))

@@ -3100,24 +3100,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)
@@ -3181,19 +3181,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)
@@ -3215,17 +3215,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)
@@ -3245,28 +3245,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)
@@ -3293,18 +3293,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)
@@ -3315,22 +3315,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 ""
@@ -3344,25 +3344,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


@@ -3381,25 +3381,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


@@ -3434,28 +3434,28 @@ 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 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68 + add, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74 + add, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80 + add, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87 + add, 71, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 133, 87 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99 + add, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 99 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87 + add, 71, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 133, 87 + add, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93 + add, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93 + add, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99 + add, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 99 + add, 70, 6, "bold", 10, , 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.cbxZahlungsaufschub.Checked Then
-            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsaufschung.Text, 55, 109 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsaufschung.Text, 55, 109 + add, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        End If

        If usrCntl.cbxPostponed._value = "JA" Then
-            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 70, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 70, 118.5 + add, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        ElseIf usrCntl.cbxPostponed._value = "NEIN" Then
-            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 86, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 86, 118.5 + add, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        End If


@@ -3489,28 +3489,28 @@ 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 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68 + add, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74 + add, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80 + add, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87 + add, 71, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 133, 87 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99 + add, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 99 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87 + add, 71, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 133, 87 + add, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93 + add, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93 + add, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99 + add, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 99 + add, 70, 6, "bold", 10, , 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.cbxZahlungsaufschub.Checked Then
-            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsaufschung.Text, 55, 109 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsaufschung.Text, 55, 109 + add, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        End If

        If usrCntl.cbxPostponed._value = "JA" Then
-            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 70, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 70, 118.5 + add, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        ElseIf usrCntl.cbxPostponed._value = "NEIN" Then
-            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 86, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 86, 118.5 + add, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        End If


@@ -3543,103 +3543,103 @@ 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))



-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("WICHTIGER HINWEIS:", 12, 250, 70, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT, 2))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("WICHTIGER HINWEIS:", 12, 250, 70, 6, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
        Dim cbamTxt = "Ab 01.10.2023 wurde eine Meldepflicht (CBAM) beim Import bestimmter Waren aus Drittländern eingeführt. Sie als Importeur sind für diese Meldung eigenverantwortlich. Informationen unter www.zoll.de oder www.customs-consulting.at Stichwort CBAM"
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(cbamTxt, 12, 258, 180, 30, "bold", 13, , itextsharp.text.Element.ALIGN_LEFT, 2))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(cbamTxt, 12, 258, 180, 30, "bold", 13, , iTextSharp.text.Element.ALIGN_LEFT, 2))



        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
@@ -3724,31 +3724,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))



@@ -3771,7 +3771,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
@@ -3795,23 +3795,23 @@ Public Class FormularManagerNEU
        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
        Dim top = 3

-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 145, 47 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFilialNr.Text & "/" & usrCntl.txtAbfNr.Text, 40, 47 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtT1.Text, 145, 52 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATB.Text, 145, 57 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATC.Text, 145, 62 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVZDatum.Text, 145, 72 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 145, 47 + top, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFilialNr.Text & "/" & usrCntl.txtAbfNr.Text, 40, 47 + top, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtT1.Text, 145, 52 + top, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATB.Text, 145, 57 + top, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATC.Text, 145, 62 + top, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVZDatum.Text, 145, 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.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, 135, 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(usrCntl.txtBeschauDat.Text, 135, 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))

        Dim newTimeZoll1 As DateTime
        If usrCntl.txtDurationZoll1.Text <> "" Then
@@ -3831,15 +3831,15 @@ Public Class FormularManagerNEU
            newTimeZoll2 = newTimeZoll2.AddMinutes(newDuration.ToString("mm"))
        End If

-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll1Date.Text & " ", "") & IIf(usrCntl.txtTimeZoll1.Text <> "" AndAlso usrCntl.txtDurationZoll1.Text <> "", usrCntl.txtTimeZoll1.Text & " - " & newTimeZoll1.ToString("HH:mm"), ""), 135, 98 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll2Date.Text & " ", "") & IIf(usrCntl.txtTimeZoll2.Text <> "" AndAlso usrCntl.txtDurationZoll2.Text <> "", usrCntl.txtTimeZoll2.Text & " - " & newTimeZoll2.ToString("HH:mm"), ""), 135, 103 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInfo.Text, 16, 120 + top, 135, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll1Date.Text & " ", "") & IIf(usrCntl.txtTimeZoll1.Text <> "" AndAlso usrCntl.txtDurationZoll1.Text <> "", usrCntl.txtTimeZoll1.Text & " - " & newTimeZoll1.ToString("HH:mm"), ""), 135, 98 + top, 135, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll2Date.Text & " ", "") & IIf(usrCntl.txtTimeZoll2.Text <> "" AndAlso usrCntl.txtDurationZoll2.Text <> "", usrCntl.txtTimeZoll2.Text & " - " & newTimeZoll2.ToString("HH:mm"), ""), 135, 103 + top, 135, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInfo.Text, 16, 120 + top, 135, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        'Sendungsdaten

-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 132, 136 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGewicht.Text, 157, 136 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 28, 136 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 132, 136 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGewicht.Text, 157, 136 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 28, 136 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))



@@ -3849,16 +3849,16 @@ Public Class FormularManagerNEU
            Dim x = 154
            For i As Integer = 0 To usrCntl.dgvPositionen.Rows.Count() - 1

-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("pos").Value, 17, x + top, 10, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("leistung").Value, 24, x + top, 138, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("stk").Value, 165, x + top, 20, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("preis").Value, 185, x + top, 20, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("pos").Value, 17, x + top, 10, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("leistung").Value, 24, x + top, 138, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("stk").Value, 165, x + top, 20, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("preis").Value, 185, x + top, 20, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                x += 5
            Next

        End If

-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.lblgesamtpreis.Text, 150, 217 + top, 40, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.lblgesamtpreis.Text, 150, 217 + top, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))


        Dim ort As String = ""
@@ -3868,7 +3868,7 @@ Public Class FormularManagerNEU
        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))
+        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
@@ -3888,40 +3888,40 @@ Public Class FormularManagerNEU

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)

-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 53, 82, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 53, 88, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 53, 95, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 53, 82, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 53, 88, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 53, 95, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 53, 102, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 53, 108, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 121, 108, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 53, 115, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEORI.Text, 121, 115, 65, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 53, 102, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 53, 108, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 121, 108, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 53, 115, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEORI.Text, 121, 115, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer1.Text, 72, 123, 33, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer2.Text, 114, 123, 33, 6, "bold", 10, , itextsharp.text.Element.ALIGN_CENTER))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer1.Text, 72, 123, 33, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer2.Text, 114, 123, 33, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))

        Select Case usrCntl.cboSprache._value
            Case "EN"

-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 228, 130, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 237, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 246, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 82, 152, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 228, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 237, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 246, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 82, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_EN", listTowrite)
            Case "FR"

-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 230, 130, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 239, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 247, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 85, 152, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 230, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 239, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 247, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 85, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_FR", listTowrite)
            Case Else

-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 223, 130, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 232, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 242, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
-                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 92, 152, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 223, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 232, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 242, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 92, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_DE", listTowrite)
        End Select

@@ -4245,14 +4245,17 @@ Public Class FormularManagerNEU
        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text15", usrCntl.cboZollstelle.Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text16", usrCntl.cboZollstelle.Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kontrollstelle", usrCntl.cboZollstelle.Text))
-        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CRN", usrCntl.crn))
+        'list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CRN", usrCntl.CRN))
+        Select Case usrCntl.cboZollstelle._value
+            Case "NKD" : list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CRN", Now.ToString("yy") & "AT320300VB"))
+            Case "SFD" : list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CRN", Now.ToString("yy") & "AT700400VB"))
+            Case Else : list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CRN", usrCntl.CRN))
+        End Select
+

        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text17", Now.ToShortDateString)) 'Datum Eintreffen


-
-
-
        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datum_2_030_a", usrCntl.dtpBeschauDat.Value.ToShortDateString))


@@ -4289,10 +4292,11 @@ Public Class FormularManagerNEU
                    'Wenn DGV Ende --> Abbruch:
                    If (dgvVon + ii) >= (usrCntl.dgvPositionen.Rows.Count - 1) Then Exit For
                    'DGV Befüllen:
-                    listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text25." & (ii), usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(0).Value & ". " & usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(1).Value & " " & usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(2).Value))
+                    'listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text25." & (ii), usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(0).Value & ". " & usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(1).Value & " " & usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(2).Value))
+                    listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text25." & (ii), usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(1).Value & " " & usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(2).Value))
                    listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text25a." & (ii), usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(3).Value))
                    'listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text25b." & (ii), usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(3).Value))
-                    listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text25c." & (ii), usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(4).Value))
+                    listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text25c." & (ii), CDbl(usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(4).Value).ToString("N2")))
                    '     list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text25a." & (ii), usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(5).Value))
                    SumPK += usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(1).Value
                    SumKG += usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(4).Value
--- a/SDL/kunden/Vorauskasse/frmVorauskasse.vb
+++ b/SDL/kunden/Vorauskasse/frmVorauskasse.vb
@@ -612,11 +612,9 @@ Public Class cVorauskasseOptions
            myVermerk.Datum = If(DatumTmp, Now)
            myVermerk.VermerkArt = "S"
            myVermerk.VorauskasseId = VorauskasseId
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
-                myVermerk.Mitarbeiter = "VERRECHNUNG (AUTO)"
-            Else
+
            myVermerk.Mitarbeiter = If(If(VERAG_PROG_ALLGEMEIN.cAllgemein.ABW_USRNAME, "") <> "", VERAG_PROG_ALLGEMEIN.cAllgemein.ABW_USRNAME, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) & " (AUTO)"
-            End If
+

            myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
            Dim betragTXT = If(CDbl(vk_Betrag) > 0, " (" & CDbl(vk_Betrag).ToString("C2") & ")", "")
@@ -624,7 +622,9 @@ Public Class cVorauskasseOptions
            Select Case VermerkCodeId
                Case 13 : myVermerk.Hinweis_Vermerk = "Vorauskasse angefordert" & betragTXT
                Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten" : insertBenachrichtigung(myVermerk.Hinweis_Vermerk & betragTXT2, myVermerk.AvisoID, myVermerk.SendungID, vk_QS_SachbearbeiterId)
+                    If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" And (VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ORDU" Or Array.IndexOf(New String() {"VRR", "BH", "GF"}, VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG) > -1) Then myVermerk.Mitarbeiter = "VERRECHNUNG (AUTO)"
                Case 59 : myVermerk.Hinweis_Vermerk = "Vorauskasse freigegeben" : insertBenachrichtigung(myVermerk.Hinweis_Vermerk & betragTXT2, myVermerk.AvisoID, myVermerk.SendungID, vk_QS_SachbearbeiterId)
+                    If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" And (VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ORDU" Or Array.IndexOf(New String() {"VRR", "BH", "GF"}, VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG) > -1) Then myVermerk.Mitarbeiter = "VERRECHNUNG (AUTO)"
                Case Else : Exit Sub
            End Select
            If VermerkCodeId IsNot Nothing Then myVermerk.VermerkCodeId = VermerkCodeId
--- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
+++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
@@ -2360,8 +2360,8 @@ Public Class cAvisoTVDAL
            sql &= " AND Standort='" & Standort & "'"
        End If

-        If Standort <> "" Then
-            sql &= " AND (Special is null or Special='" & Special & "') "
+        If Special <> "" Then
+            sql &= " AND (Special is null or Special='" & Special & "' or Special='" & Now.ToShortDateString & "') "
        End If

        sql &= " ORDER BY Special  desc,TVID "
--- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
@@ -90,6 +90,7 @@ Public Class cMitarbeiter
    Property mit_ATGRNAccessCode_AT52VA6 As Object = Nothing
    Property mit_Sprachkentnisse As Object = Nothing
    Property mit_homeoffice As Boolean = False
+    Property mit_timasNichtStempeln As Boolean = False



@@ -200,6 +201,7 @@ Public Class cMitarbeiter
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATGRNAccessCode_AT52VA6", mit_ATGRNAccessCode_AT52VA6))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Sprachkentnisse", mit_Sprachkentnisse))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_homeoffice", mit_homeoffice))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasNichtStempeln", mit_timasNichtStempeln))


        Return list
@@ -398,6 +400,7 @@ Public Class cMitarbeiter
                            If Not dr.Item("mit_ATGRNAccessCode_AT52VA6") Is DBNull.Value Then Me.mit_ATGRNAccessCode_AT52VA6 = dr.Item("mit_ATGRNAccessCode_AT52VA6")
                            If Not dr.Item("mit_Sprachkentnisse") Is DBNull.Value Then Me.mit_Sprachkentnisse = dr.Item("mit_Sprachkentnisse")
                            Me.mit_homeoffice = dr.Item("mit_homeoffice")
+                            Me.mit_timasNichtStempeln = dr.Item("mit_timasNichtStempeln")


                        Catch ex As Exception
--- a/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb
@@ -0,0 +1,142 @@
+
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+Public Class cOrigianlATR
+    Property atr_id As Integer
+
+    Property atr_documentNr As Object = Nothing
+    Property atr_erfassungsdatum As Date
+    Property atr_Sachbearbeiter As String
+    Property atr_mitId As Integer
+    Property atr_absender As Object = Nothing
+    Property atr_empfaenger As Object = Nothing
+    Property atr_austellungsdatum As Object = Nothing
+    Property atr_AvisoId As Object = Nothing
+    Property atr_SendungsId As Object = Nothing
+    Property atr_LKW As Object = Nothing
+    Property atr_dsId As Object = Nothing
+    Property atr_DHL_ReferenzNr As Object = Nothing
+    Property atr_location As Object = Nothing
+    Property atr_info As Object = Nothing
+
+
+    Public hasEntry = False
+
+    Dim SQL As New SQL
+
+    Sub New(atr_id)
+        Me.atr_id = atr_id
+        LOAD()
+    End Sub
+    Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_id", atr_id,, True))
+
+
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_documentNr", atr_documentNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_erfassungsdatum", atr_erfassungsdatum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_Sachbearbeiter", atr_Sachbearbeiter))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_mitId", atr_mitId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_absender", atr_absender))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_empfaenger", atr_empfaenger))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_austellungsdatum", atr_austellungsdatum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_AvisoId", atr_AvisoId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_SendungsId", atr_SendungsId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_LKW", atr_LKW))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_dsId", atr_dsId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_DHL_ReferenzNr", atr_DHL_ReferenzNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_location", atr_location))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_info", atr_info))
+
+        Return list
+    End Function
+
+
+
+    Public Function SAVE() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+        Me.atr_mitId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+        Me.atr_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOriginalATR  WHERE atr_id=@atr_id) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+    End Function
+
+    Public Sub LOAD()
+        Try
+            hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblOriginalATR WHERE atr_id=@atr_id  ", conn)
+                    cmd.Parameters.AddWithValue("@atr_id", atr_id)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+
+
+    Public Function getUpdateCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+            Dim str As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            Return (" UPDATE [tblOriginalATR] SET " & str & " WHERE atr_id=@atr_id ")
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ""
+    End Function
+
+
+    Public Function getInsertCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO tblOriginalATR  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ""
+    End Function
+
+End Class
--- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
@@ -15,34 +15,41 @@ Public Class cRechnungsnummern
        Me.SpeditionsbuchNr = SpeditionsbuchNr
        Me.Buchungsjahr = Buchungsjahr

+        Dim BJ_short = Right(Buchungsjahr, 2)
+        Select Case SpeditionsbuchNr
+            Case 1, 3, 4, 7, 11, 15, 19
+                If Now < CDate("01.02.204") Then BJ_short = Now.ToString("yy") ' Bisher wurde das aktuelle Jahr als Angabe für die RgNr verwendet, zukünftig soll es das BJ sein
+        End Select
+
        'Default-Werte:
        '-------------------------------------
+
        Select Case SpeditionsbuchNr
            Case 1
-                VonRechnungsNr = Now.ToString("yy") & "100001"
-                BisRechnungsNr = Now.ToString("yy") & "199999"
+                VonRechnungsNr = BJ_short & "100001"
+                BisRechnungsNr = BJ_short & "199999"
            Case 3
-                VonRechnungsNr = Now.ToString("yy") & "300001"
-                BisRechnungsNr = Now.ToString("yy") & "399999"
+                VonRechnungsNr = BJ_short & "300001"
+                BisRechnungsNr = BJ_short & "399999"
            Case 4 'VERAG AG (DE)
-                VonRechnungsNr = Now.ToString("yy") & "800001"
-                BisRechnungsNr = Now.ToString("yy") & "899999"
+                VonRechnungsNr = BJ_short & "800001"
+                BisRechnungsNr = BJ_short & "899999"

            Case 7
-                VonRechnungsNr = Now.ToString("yy") & "700001"
-                BisRechnungsNr = Now.ToString("yy") & "799999"
+                VonRechnungsNr = BJ_short & "700001"
+                BisRechnungsNr = BJ_short & "799999"
            Case 11
-                VonRechnungsNr = Now.ToString("yy") & "900001"
-                BisRechnungsNr = Now.ToString("yy") & "999999"
+                VonRechnungsNr = BJ_short & "900001"
+                BisRechnungsNr = BJ_short & "999999"
            Case 15, 19 'VERAG 360
-                VonRechnungsNr = Now.ToString("yy") & "200001"
-                BisRechnungsNr = Now.ToString("yy") & "299999"
+                VonRechnungsNr = BJ_short & "200001"
+                BisRechnungsNr = BJ_short & "299999"
            Case 20
-                VonRechnungsNr = Now.ToString("yy") & "400001"
-                BisRechnungsNr = Now.ToString("yy") & "499999"
+                VonRechnungsNr = BJ_short & "400001"
+                BisRechnungsNr = BJ_short & "499999"
            Case 17 'FrontOffice
-                VonRechnungsNr = Now.ToString("yy") & "500001"
-                BisRechnungsNr = Now.ToString("yy") & "599999"
+                VonRechnungsNr = BJ_short & "500001"
+                BisRechnungsNr = BJ_short & "599999"

            Case 21 ' UNISPED AT
                VonRechnungsNr = "7000000"
@@ -57,8 +64,8 @@ Public Class cRechnungsnummern
                VonRechnungsNr = "0000001"
                BisRechnungsNr = "9999999"
            Case 26 ' VERAG-UNISPED
-                VonRechnungsNr = Now.ToString("yy") & "0000001"
-                BisRechnungsNr = Now.ToString("yy") & "9999999"
+                VonRechnungsNr = BJ_short & "0000001"
+                BisRechnungsNr = BJ_short & "9999999"
        End Select
        LfdRechnungsNr = VonRechnungsNr
        '-------------------------------------
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
@@ -1358,6 +1358,30 @@ Public Class cSyska_Interface
                    Return False
                End If
            End If
+            OP_LFD_SALDO_AKTUALISIERN(Firma_ID, KdNr)
+
+            Return True
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+            Return False
+        End Try
+    End Function
+    Public Shared Function OP_LFD_SALDO_AKTUALISIERN(Firma_ID As Integer, Optional KdNr As Integer = -1) As Boolean
+        Try
+
+            Dim sqlStr = " 
+                      UPDATE KUNDEN
+                    SET LfdSaldo=(SELECT TOP 1 [KumSaldoEUR] FROM [Offene Posten] where  Kontonummer=KundenNrZentrale order by [OP_ID] desc )
+
+                      FROM
+                       Kunden   
+	                    WHERE (SELECT COUNT(*) FROM [Offene Posten] WHERE  KundenNrZentrale=Kontonummer " & If(Firma_ID > 0, " AND Firma_ID='" & Firma_ID & "' ", "") & ")>=0  "
+
+            If KdNr > 0 Then sqlStr &= " AND KundenNrZentrale='" & KdNr & "' "
+
+
+            SQL.doSQL(sqlStr, "FMZOLL")
+
            Return True
        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
--- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
+++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
@@ -369,6 +369,7 @@
    <Compile Include="Classes\cNCTS_TR_Nachrichten.vb" />
    <Compile Include="Classes\cOffene_Posten.vb" />
    <Compile Include="Classes\cOffene_Posten_DVO.vb" />
+    <Compile Include="Classes\cOriginalATR.vb" />
    <Compile Include="Classes\cParkzeiten.vb" />
    <Compile Include="frmErrorMeldung.Designer.vb">
      <DependentUpon>frmErrorMeldung.vb</DependentUpon>