IDS RechnungenNachLand, PloseImport, etc.

MDM_Worker/cPLOSE_Inv_Data.vb

@@ -204,13 +204,13 @@ Public Class cPLOSE_Inv_Data
 
 
 
-    Public Shared Function setDatenarchivID(jahr As Integer, Optional message As Boolean = False) As Boolean
+    Public Shared Function setDatenarchivID(jahr As Integer, Optional message As Boolean = False, Optional kdNr As Integer = -1) As Boolean
 
         If jahr > Now.Year Then Return False
         If jahr < 2020 Then Return False
 
 
-        Dim REohneDAID As String = "Select plInv_Id, plInv_PdfFileName, plInv_daId  FROM [tblPLOSE_Inv_Data] where plInv_daId Is null And plInv_PdfFileName Is Not null And Year(plInv_SupplierRechnungsDatum) = " & jahr
+        Dim REohneDAID As String = "Select plInv_Id, plInv_PdfFileName, plInv_daId, plInv_PLOSEKundennummer  FROM [tblPLOSE_Inv_Data] where plInv_daId Is null And plInv_PdfFileName Is Not null And Year(plInv_SupplierRechnungsDatum) = " & jahr & IIf(kdNr > 0, " and plInv_PLOSEKundennummer = " & kdNr, "")
 
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
         Dim dtREohneDAID As DataTable = SQL.loadDgvBySql(REohneDAID, "FMZOLL")
@@ -229,6 +229,8 @@ Public Class cPLOSE_Inv_Data
 
                     If filename <> "" Then
 
+
+
                         filename2 = filename.Replace("-", "_")
 
                         If Regex.IsMatch(filename, "^[A-Za-z]") Then

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -302,11 +302,12 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
     End Function
 
-    Private Function createIDSInvoice(Dateiname As String, Optional isMail As Boolean = False)
+    Private Function createIDSInvoice(Dateiname As String, Type As String, Optional isMail As Boolean = False)
 
         Dim Zielpfad = ids.VERARBEITUNG_PFAD
         Dim customerNo = ""
         Dim invoiceNo = ""
+        Dim country = ""
         Dim dateNo = ""
         Dim outputDate = ""
         Dim customerString = "customer"
@@ -314,9 +315,6 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
         Dim dateString = "from"
         Dim filename = ""
 
-
-        '0060003362_20012025_DE00707031
-
         If Dateiname.Contains(customerString) Then
             customerNo = Dateiname.Substring(Dateiname.IndexOf(customerString) + customerString.Length, 10)
         Else
@@ -326,7 +324,51 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
         If Dateiname.Contains(InvoiceString) Then
             invoiceNo = Dateiname.Substring(Dateiname.IndexOf(InvoiceString) + InvoiceString.Length, 10)
         Else
-            invoiceNo = Dateiname.Substring(Dateiname.LastIndexOf("_") + 1, 10)
+            Select Case Type
+                Case "INVOICE"
+                    invoiceNo = Dateiname.Substring(Dateiname.LastIndexOf("_") + 1, 10)
+
+                Case "INVOICEBYCOUNTRY"
+                    Dim i1 = Dateiname.LastIndexOf(".pdf")
+                    Dim i2 = Dateiname.LastIndexOf("_") + 1
+                    invoiceNo = Dateiname.Substring(Dateiname.LastIndexOf("_") + 1, (Dateiname.LastIndexOf(".pdf") - (Dateiname.LastIndexOf("_") + 1)))
+                    country = Dateiname.Substring(Dateiname.LastIndexOf("_") + 1, 2)
+
+                    If IsNumeric(country) Then
+                        country = "SE" 'wenn kein Land angegeben, dann SCHWEDEN!
+
+                    ElseIf country = "IG" Then
+                        'wenn mit IG startet, dann steht das Land am Ende
+                        If invoiceNo.Length > 2 Then
+                            Dim invEndung As String = ""
+                            invEndung = invoiceNo.ToString.Substring(invoiceNo.Length - 2, 2)
+
+                            If invEndung <> "" Then
+
+                                If IsNumeric(invEndung) Then 'wenn am ENde kein Land, dann IT
+                                    country = "IT"
+                                Else
+
+                                    Select Case invEndung
+                                        Case "SP" : country = "ES" 'SPANIEN
+                                        Case "DA" : country = "DK" 'DÄNEMARK
+                                            'Case "RO" : country = "RO" 'RUMÄNIEN
+                                            'Case "PL" : country = "PL" 'POLEN
+                                            'Case "LV" : country = "LV" 'LETTLAND
+
+                                        Case Else
+                                            country = invEndung
+
+                                    End Select
+                                End If
+                            End If
+                            End If
+
+                    End If
+
+
+            End Select
+
         End If
 
         If Dateiname.Contains(dateString) Then
@@ -342,30 +384,67 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
         If outputDate IsNot Nothing AndAlso customerNo <> "" AndAlso invoiceNo <> "" Then
 
-            Dim idsInvoice As New cIDSInvoice(outputDate, customerNo, invoiceNo)
+            Select Case Type
-            If Not idsInvoice.hasEntry Then idsInvoice.SAVE()
+                Case "INVOICE"
 
 
-            Try
+                    Dim idsInvoice As New cIDSInvoice(outputDate, customerNo, invoiceNo)
+                    If Not idsInvoice.hasEntry Then idsInvoice.SAVE()
 
-                'Dim htmlText = File.ReadAllText(pfad)
 
-                'If htmlText IsNot Nothing Then
+                    Try
-                '    If idsInvoice.isMail_IDS(htmlText) Then
-                '        If idsInvoice.getPDF_IDS(htmlText, filename, Zielpfad & invoiceNo & "_" & customerNo & ".pdf") Then
-                '            idsInvoice.DocumentName = filename
-                '        End If
 
-                '    End If
+                        'Dim htmlText = File.ReadAllText(pfad)
 
-                'End If
+                        'If htmlText IsNot Nothing Then
+                        '    If idsInvoice.isMail_IDS(htmlText) Then
+                        '        If idsInvoice.getPDF_IDS(htmlText, filename, Zielpfad & invoiceNo & "_" & customerNo & ".pdf") Then
+                        '            idsInvoice.DocumentName = filename
+                        '        End If
+
+                        '    End If
+
+                        'End If
+
+                        If Not isMail Then idsInvoice.DocumentName = Dateiname
+                        idsInvoice.Zeitstempel = Now()
+                        idsInvoice.SAVE()
+                    Catch ex As Exception
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
+                    End Try
+
+
+                Case "INVOICEBYCOUNTRY"
+
+
+                    Dim idsInvoice As New cIDSInvoiceSplittedByCountry(outputDate, customerNo, invoiceNo, country)
+                    If Not idsInvoice.hasEntry Then idsInvoice.SAVE()
+
+
+                    Try
+
+                        'Dim htmlText = File.ReadAllText(pfad)
+
+                        'If htmlText IsNot Nothing Then
+                        '    If idsInvoice.isMail_IDS(htmlText) Then
+                        '        If idsInvoice.getPDF_IDS(htmlText, filename, Zielpfad & invoiceNo & "_" & customerNo & ".pdf") Then
+                        '            idsInvoice.DocumentName = filename
+                        '        End If
+
+                        '    End If
+
+                        'End If
+
+                        If Not isMail Then idsInvoice.DocumentName = Dateiname
+                        idsInvoice.Zeitstempel = Now()
+                        idsInvoice.SAVE()
+                    Catch ex As Exception
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
+                    End Try
+
+
+            End Select
 
-                If Not isMail Then idsInvoice.DocumentName = Dateiname
-                idsInvoice.Zeitstempel = Now()
-                idsInvoice.SAVE()
-            Catch ex As Exception
-                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
-            End Try
 
         End If
 
@@ -601,7 +680,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                                                     found = True
                                                     If invoiceNr <> "" AndAlso invoiceDate <> "" AndAlso Kundenummer > 0 Then
 
-                                                        If SQL.doSQL("Update [tblUTAImportNew] SET [daId]='" & DS.da_id & "' where [Rechnungsnummer_pro_Lieferland] = '" & invoiceNr & "' AND cast(Rechnungsdatum as Date) = '" & invoiceDate & "' AND Kundennummer =" & Kundenummer, "FMZOLL") Then
+                                                        If SQL.doSQL("Update [tblUTAImportNew] SET [daId]='" & DS.da_id & "' where [Rechnungsnummer_pro_Lieferland] = '" & invoiceNr & "' AND cast(Rechnungsdatum as Date) = '" & invoiceDate & "' AND Kundennummer =" & Kundenummer & " and daId is null ", "FMZOLL") Then
                                                             frmStartOptions.moveFile_DateBack(d, zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
                                                             cntDatenEingelesen += 1
                                                         End If
@@ -691,7 +770,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
                                         If fi.Name.ToString.StartsWith("COPY_INVOICE_") Then
 
-                                            createIDSInvoice(fi.Name.ToString.Replace("COPY_INVOICE_", ""))
+                                            createIDSInvoice(fi.Name.ToString.Replace("COPY_INVOICE_", ""), "INVOICE")
 
                                             Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "IDS", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d))
 
@@ -707,6 +786,36 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                                             Catch ex As System.Exception
                                             End Try
 
+                                        ElseIf fi.Name.ToString.StartsWith("OBO_") Then
+
+                                            createIDSInvoice(fi.Name.ToString.Replace("OBO_", ""), "INVOICEBYCOUNTRY")
+
+                                            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "IDS_COUNTRY", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d))
+
+                                            If DS.uploadDataToDATENSERVER(d,,,,,, True) Then
+                                                If SQL.doSQL("Update [tblIDSInvoicesNewSplittedByCountry] SET [daId]='" & DS.da_id & "' where [DocumentName] = '" & DS.da_name.ToString.Replace("OBO_", "") & "'  ", "FMZOLL") Then
+                                                    frmStartOptions.moveFile_DateBack(d, zielpfad & "Invoice_PDF_Country\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
+                                                    cntDatenEingelesen += 1
+                                                End If
+                                            End If
+
+
+                                        ElseIf fi.Name.ToString.StartsWith("VATR_") Then
+
+                                            createIDSInvoice(fi.Name.ToString.Replace("VATR_", ""), "INVOICEBYCOUNTRY")
+
+                                            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "IDS_COUNTRY", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d))
+
+                                            If DS.uploadDataToDATENSERVER(d,,,,,, True) Then
+                                                If SQL.doSQL("Update [tblIDSInvoicesNewSplittedByCountry] SET [daId]='" & DS.da_id & "' where [DocumentName] = '" & DS.da_name.ToString.Replace("VATR_", "") & "'  ", "FMZOLL") Then
+                                                    frmStartOptions.moveFile_DateBack(d, zielpfad & "Invoice_PDF_Country\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
+                                                    cntDatenEingelesen += 1
+                                                End If
+                                            End If
+
+
+
+
                                         End If
 
                                     End If

initATLASAufschubkonten/frmStartOptions.Designer.vb

@@ -25,7 +25,6 @@ Partial Class frmStartOptions
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
         Me.pnl = New System.Windows.Forms.Panel()
-        Me.LinkLabel69 = New System.Windows.Forms.LinkLabel()
         Me.txtMRNPrefix = New System.Windows.Forms.TextBox()
         Me.LinkLabel66 = New System.Windows.Forms.LinkLabel()
         Me.PictureBox24 = New System.Windows.Forms.PictureBox()
@@ -164,13 +163,10 @@ Partial Class frmStartOptions
         Me.TabPage3 = New System.Windows.Forms.TabPage()
         Me.CheckBox9 = New System.Windows.Forms.CheckBox()
         Me.Label49 = New System.Windows.Forms.Label()
-        Me.MyTextBox5 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Button28 = New System.Windows.Forms.Button()
         Me.LinkLabel71 = New System.Windows.Forms.LinkLabel()
         Me.cbxOverrideNCTSFin = New System.Windows.Forms.CheckBox()
         Me.Label48 = New System.Windows.Forms.Label()
-        Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label47 = New System.Windows.Forms.Label()
         Me.LinkLabel50 = New System.Windows.Forms.LinkLabel()
         Me.Label26 = New System.Windows.Forms.Label()
@@ -187,7 +183,16 @@ Partial Class frmStartOptions
         Me.LinkLabel29 = New System.Windows.Forms.LinkLabel()
         Me.LinkLabel30 = New System.Windows.Forms.LinkLabel()
         Me.Label11 = New System.Windows.Forms.Label()
+        Me.MyTextBox5 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.TabPage4 = New System.Windows.Forms.TabPage()
+        Me.Label51 = New System.Windows.Forms.Label()
+        Me.Label50 = New System.Windows.Forms.Label()
+        Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.LinkLabel74 = New System.Windows.Forms.LinkLabel()
+        Me.LinkLabel73 = New System.Windows.Forms.LinkLabel()
+        Me.LinkLabel69 = New System.Windows.Forms.LinkLabel()
         Me.LinkLabel72 = New System.Windows.Forms.LinkLabel()
         Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.lblUTAPDFvollst = New System.Windows.Forms.LinkLabel()
@@ -197,7 +202,6 @@ Partial Class frmStartOptions
         Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.LinkLabel70 = New System.Windows.Forms.LinkLabel()
         Me.LinkLabel67 = New System.Windows.Forms.LinkLabel()
-        Me.cbxUTATestkunden = New System.Windows.Forms.CheckBox()
         Me.cbxITalt = New System.Windows.Forms.CheckBox()
         Me.cbxPlose = New System.Windows.Forms.CheckBox()
         Me.Label46 = New System.Windows.Forms.Label()
@@ -425,18 +429,9 @@ Partial Class frmStartOptions
         Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnl.Location = New System.Drawing.Point(0, 0)
         Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(1229, 1007)
+        Me.pnl.Size = New System.Drawing.Size(1229, 920)
         Me.pnl.TabIndex = 0
         '
-        'LinkLabel69
-        '
-        Me.LinkLabel69.Location = New System.Drawing.Point(722, 211)
-        Me.LinkLabel69.Name = "LinkLabel69"
-        Me.LinkLabel69.Size = New System.Drawing.Size(132, 23)
-        Me.LinkLabel69.TabIndex = 0
-        Me.LinkLabel69.TabStop = True
-        Me.LinkLabel69.Text = "Land in Steuernr setzen"
-        '
         'txtMRNPrefix
         '
         Me.txtMRNPrefix.Location = New System.Drawing.Point(1036, 48)
@@ -1063,7 +1058,7 @@ Partial Class frmStartOptions
         Me.tbcntr.Controls.Add(Me.TabPage3)
         Me.tbcntr.Controls.Add(Me.TabPage4)
         Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.tbcntr.Location = New System.Drawing.Point(0, 503)
+        Me.tbcntr.Location = New System.Drawing.Point(0, 416)
         Me.tbcntr.Name = "tbcntr"
         Me.tbcntr.SelectedIndex = 0
         Me.tbcntr.Size = New System.Drawing.Size(1227, 502)
@@ -2144,13 +2139,10 @@ Partial Class frmStartOptions
         '
         Me.TabPage3.Controls.Add(Me.CheckBox9)
         Me.TabPage3.Controls.Add(Me.Label49)
-        Me.TabPage3.Controls.Add(Me.MyTextBox5)
         Me.TabPage3.Controls.Add(Me.Button28)
         Me.TabPage3.Controls.Add(Me.LinkLabel71)
         Me.TabPage3.Controls.Add(Me.cbxOverrideNCTSFin)
         Me.TabPage3.Controls.Add(Me.Label48)
-        Me.TabPage3.Controls.Add(Me.datTranscodeBis)
-        Me.TabPage3.Controls.Add(Me.datTranscodeVon)
         Me.TabPage3.Controls.Add(Me.Label47)
         Me.TabPage3.Controls.Add(Me.LinkLabel50)
         Me.TabPage3.Controls.Add(Me.Label26)
@@ -2167,6 +2159,9 @@ Partial Class frmStartOptions
         Me.TabPage3.Controls.Add(Me.LinkLabel29)
         Me.TabPage3.Controls.Add(Me.LinkLabel30)
         Me.TabPage3.Controls.Add(Me.Label11)
+        Me.TabPage3.Controls.Add(Me.MyTextBox5)
+        Me.TabPage3.Controls.Add(Me.datTranscodeBis)
+        Me.TabPage3.Controls.Add(Me.datTranscodeVon)
         Me.TabPage3.Location = New System.Drawing.Point(4, 22)
         Me.TabPage3.Name = "TabPage3"
         Me.TabPage3.Size = New System.Drawing.Size(1219, 476)
@@ -2196,30 +2191,6 @@ Partial Class frmStartOptions
         Me.Label49.TabIndex = 139
         Me.Label49.Text = "-"
         '
-        'MyTextBox5
-        '
-        Me.MyTextBox5._DateTimeOnly = False
-        Me.MyTextBox5._numbersOnly = False
-        Me.MyTextBox5._numbersOnlyKommastellen = ""
-        Me.MyTextBox5._numbersOnlyTrennzeichen = False
-        Me.MyTextBox5._Prozent = False
-        Me.MyTextBox5._ShortDateNew = False
-        Me.MyTextBox5._ShortDateOnly = False
-        Me.MyTextBox5._TimeOnly = False
-        Me.MyTextBox5._TimeOnly_Seconds = False
-        Me.MyTextBox5._value = ""
-        Me.MyTextBox5._Waehrung = False
-        Me.MyTextBox5._WaehrungZeichen = False
-        Me.MyTextBox5.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox5.Location = New System.Drawing.Point(548, 272)
-        Me.MyTextBox5.MaxLength = 18
-        Me.MyTextBox5.MaxLineLength = -1
-        Me.MyTextBox5.MaxLines_Warning = ""
-        Me.MyTextBox5.MaxLines_Warning_Label = Nothing
-        Me.MyTextBox5.Name = "MyTextBox5"
-        Me.MyTextBox5.Size = New System.Drawing.Size(185, 20)
-        Me.MyTextBox5.TabIndex = 139
-        '
         'Button28
         '
         Me.Button28.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -2264,54 +2235,6 @@ Partial Class frmStartOptions
         Me.Label48.TabIndex = 144
         Me.Label48.Text = "-"
         '
-        'datTranscodeBis
-        '
-        Me.datTranscodeBis._DateTimeOnly = False
-        Me.datTranscodeBis._numbersOnly = False
-        Me.datTranscodeBis._numbersOnlyKommastellen = ""
-        Me.datTranscodeBis._numbersOnlyTrennzeichen = True
-        Me.datTranscodeBis._Prozent = False
-        Me.datTranscodeBis._ShortDateNew = True
-        Me.datTranscodeBis._ShortDateOnly = False
-        Me.datTranscodeBis._TimeOnly = False
-        Me.datTranscodeBis._TimeOnly_Seconds = False
-        Me.datTranscodeBis._value = ""
-        Me.datTranscodeBis._Waehrung = False
-        Me.datTranscodeBis._WaehrungZeichen = True
-        Me.datTranscodeBis.ForeColor = System.Drawing.Color.Black
-        Me.datTranscodeBis.Location = New System.Drawing.Point(646, 245)
-        Me.datTranscodeBis.MaxLength = 10
-        Me.datTranscodeBis.MaxLineLength = -1
-        Me.datTranscodeBis.MaxLines_Warning = ""
-        Me.datTranscodeBis.MaxLines_Warning_Label = Nothing
-        Me.datTranscodeBis.Name = "datTranscodeBis"
-        Me.datTranscodeBis.Size = New System.Drawing.Size(87, 20)
-        Me.datTranscodeBis.TabIndex = 143
-        '
-        'datTranscodeVon
-        '
-        Me.datTranscodeVon._DateTimeOnly = False
-        Me.datTranscodeVon._numbersOnly = False
-        Me.datTranscodeVon._numbersOnlyKommastellen = ""
-        Me.datTranscodeVon._numbersOnlyTrennzeichen = True
-        Me.datTranscodeVon._Prozent = False
-        Me.datTranscodeVon._ShortDateNew = True
-        Me.datTranscodeVon._ShortDateOnly = False
-        Me.datTranscodeVon._TimeOnly = False
-        Me.datTranscodeVon._TimeOnly_Seconds = False
-        Me.datTranscodeVon._value = ""
-        Me.datTranscodeVon._Waehrung = False
-        Me.datTranscodeVon._WaehrungZeichen = True
-        Me.datTranscodeVon.ForeColor = System.Drawing.Color.Black
-        Me.datTranscodeVon.Location = New System.Drawing.Point(548, 245)
-        Me.datTranscodeVon.MaxLength = 10
-        Me.datTranscodeVon.MaxLineLength = -1
-        Me.datTranscodeVon.MaxLines_Warning = ""
-        Me.datTranscodeVon.MaxLines_Warning_Label = Nothing
-        Me.datTranscodeVon.Name = "datTranscodeVon"
-        Me.datTranscodeVon.Size = New System.Drawing.Size(87, 20)
-        Me.datTranscodeVon.TabIndex = 142
-        '
         'Label47
         '
         Me.Label47.AutoSize = True
@@ -2482,8 +2405,85 @@ Partial Class frmStartOptions
         Me.Label11.TabIndex = 22
         Me.Label11.Text = "MAVI Nachrichtenverarbeitung (NCTS TR):"
         '
+        'MyTextBox5
+        '
+        Me.MyTextBox5._DateTimeOnly = False
+        Me.MyTextBox5._numbersOnly = False
+        Me.MyTextBox5._numbersOnlyKommastellen = ""
+        Me.MyTextBox5._numbersOnlyTrennzeichen = False
+        Me.MyTextBox5._Prozent = False
+        Me.MyTextBox5._ShortDateNew = False
+        Me.MyTextBox5._ShortDateOnly = False
+        Me.MyTextBox5._TimeOnly = False
+        Me.MyTextBox5._TimeOnly_Seconds = False
+        Me.MyTextBox5._value = ""
+        Me.MyTextBox5._Waehrung = False
+        Me.MyTextBox5._WaehrungZeichen = False
+        Me.MyTextBox5.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox5.Location = New System.Drawing.Point(548, 272)
+        Me.MyTextBox5.MaxLength = 18
+        Me.MyTextBox5.MaxLineLength = -1
+        Me.MyTextBox5.MaxLines_Warning = ""
+        Me.MyTextBox5.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox5.Name = "MyTextBox5"
+        Me.MyTextBox5.Size = New System.Drawing.Size(185, 20)
+        Me.MyTextBox5.TabIndex = 139
+        '
+        'datTranscodeBis
+        '
+        Me.datTranscodeBis._DateTimeOnly = False
+        Me.datTranscodeBis._numbersOnly = False
+        Me.datTranscodeBis._numbersOnlyKommastellen = ""
+        Me.datTranscodeBis._numbersOnlyTrennzeichen = True
+        Me.datTranscodeBis._Prozent = False
+        Me.datTranscodeBis._ShortDateNew = True
+        Me.datTranscodeBis._ShortDateOnly = False
+        Me.datTranscodeBis._TimeOnly = False
+        Me.datTranscodeBis._TimeOnly_Seconds = False
+        Me.datTranscodeBis._value = ""
+        Me.datTranscodeBis._Waehrung = False
+        Me.datTranscodeBis._WaehrungZeichen = True
+        Me.datTranscodeBis.ForeColor = System.Drawing.Color.Black
+        Me.datTranscodeBis.Location = New System.Drawing.Point(646, 245)
+        Me.datTranscodeBis.MaxLength = 10
+        Me.datTranscodeBis.MaxLineLength = -1
+        Me.datTranscodeBis.MaxLines_Warning = ""
+        Me.datTranscodeBis.MaxLines_Warning_Label = Nothing
+        Me.datTranscodeBis.Name = "datTranscodeBis"
+        Me.datTranscodeBis.Size = New System.Drawing.Size(87, 20)
+        Me.datTranscodeBis.TabIndex = 143
+        '
+        'datTranscodeVon
+        '
+        Me.datTranscodeVon._DateTimeOnly = False
+        Me.datTranscodeVon._numbersOnly = False
+        Me.datTranscodeVon._numbersOnlyKommastellen = ""
+        Me.datTranscodeVon._numbersOnlyTrennzeichen = True
+        Me.datTranscodeVon._Prozent = False
+        Me.datTranscodeVon._ShortDateNew = True
+        Me.datTranscodeVon._ShortDateOnly = False
+        Me.datTranscodeVon._TimeOnly = False
+        Me.datTranscodeVon._TimeOnly_Seconds = False
+        Me.datTranscodeVon._value = ""
+        Me.datTranscodeVon._Waehrung = False
+        Me.datTranscodeVon._WaehrungZeichen = True
+        Me.datTranscodeVon.ForeColor = System.Drawing.Color.Black
+        Me.datTranscodeVon.Location = New System.Drawing.Point(548, 245)
+        Me.datTranscodeVon.MaxLength = 10
+        Me.datTranscodeVon.MaxLineLength = -1
+        Me.datTranscodeVon.MaxLines_Warning = ""
+        Me.datTranscodeVon.MaxLines_Warning_Label = Nothing
+        Me.datTranscodeVon.Name = "datTranscodeVon"
+        Me.datTranscodeVon.Size = New System.Drawing.Size(87, 20)
+        Me.datTranscodeVon.TabIndex = 142
+        '
         'TabPage4
         '
+        Me.TabPage4.Controls.Add(Me.Label51)
+        Me.TabPage4.Controls.Add(Me.Label50)
+        Me.TabPage4.Controls.Add(Me.txtPLoseKdNr)
+        Me.TabPage4.Controls.Add(Me.LinkLabel74)
+        Me.TabPage4.Controls.Add(Me.LinkLabel73)
         Me.TabPage4.Controls.Add(Me.LinkLabel69)
         Me.TabPage4.Controls.Add(Me.LinkLabel72)
         Me.TabPage4.Controls.Add(Me.txtPloseJahr)
@@ -2494,7 +2494,6 @@ Partial Class frmStartOptions
         Me.TabPage4.Controls.Add(Me.txtIDSYear)
         Me.TabPage4.Controls.Add(Me.LinkLabel70)
         Me.TabPage4.Controls.Add(Me.LinkLabel67)
-        Me.TabPage4.Controls.Add(Me.cbxUTATestkunden)
         Me.TabPage4.Controls.Add(Me.cbxITalt)
         Me.TabPage4.Controls.Add(Me.cbxPlose)
         Me.TabPage4.Controls.Add(Me.Label46)
@@ -2582,11 +2581,88 @@ Partial Class frmStartOptions
         Me.TabPage4.Text = "VERAG 360"
         Me.TabPage4.UseVisualStyleBackColor = True
         '
+        'Label51
+        '
+        Me.Label51.AutoSize = True
+        Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label51.Location = New System.Drawing.Point(728, 146)
+        Me.Label51.Name = "Label51"
+        Me.Label51.Size = New System.Drawing.Size(55, 13)
+        Me.Label51.TabIndex = 164
+        Me.Label51.Text = "(opt) KdNr"
+        '
+        'Label50
+        '
+        Me.Label50.AutoSize = True
+        Me.Label50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label50.Location = New System.Drawing.Point(728, 124)
+        Me.Label50.Name = "Label50"
+        Me.Label50.Size = New System.Drawing.Size(27, 13)
+        Me.Label50.TabIndex = 163
+        Me.Label50.Text = "Jahr"
+        '
+        'txtPLoseKdNr
+        '
+        Me.txtPLoseKdNr._DateTimeOnly = False
+        Me.txtPLoseKdNr._numbersOnly = True
+        Me.txtPLoseKdNr._numbersOnlyKommastellen = ""
+        Me.txtPLoseKdNr._numbersOnlyTrennzeichen = False
+        Me.txtPLoseKdNr._Prozent = False
+        Me.txtPLoseKdNr._ShortDateNew = False
+        Me.txtPLoseKdNr._ShortDateOnly = False
+        Me.txtPLoseKdNr._TimeOnly = False
+        Me.txtPLoseKdNr._TimeOnly_Seconds = False
+        Me.txtPLoseKdNr._value = ""
+        Me.txtPLoseKdNr._Waehrung = False
+        Me.txtPLoseKdNr._WaehrungZeichen = False
+        Me.txtPLoseKdNr.BackColor = System.Drawing.SystemColors.Window
+        Me.txtPLoseKdNr.ForeColor = System.Drawing.Color.Red
+        Me.txtPLoseKdNr.Location = New System.Drawing.Point(797, 143)
+        Me.txtPLoseKdNr.MaxLength = 10
+        Me.txtPLoseKdNr.MaxLineLength = -1
+        Me.txtPLoseKdNr.MaxLines_Warning = ""
+        Me.txtPLoseKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtPLoseKdNr.Name = "txtPLoseKdNr"
+        Me.txtPLoseKdNr.Size = New System.Drawing.Size(66, 20)
+        Me.txtPLoseKdNr.TabIndex = 162
+        Me.txtPLoseKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'LinkLabel74
+        '
+        Me.LinkLabel74.AutoSize = True
+        Me.LinkLabel74.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel74.Location = New System.Drawing.Point(609, 441)
+        Me.LinkLabel74.Name = "LinkLabel74"
+        Me.LinkLabel74.Size = New System.Drawing.Size(119, 13)
+        Me.LinkLabel74.TabIndex = 161
+        Me.LinkLabel74.TabStop = True
+        Me.LinkLabel74.Text = "PDF mit RE verknüpfen"
+        '
+        'LinkLabel73
+        '
+        Me.LinkLabel73.AutoSize = True
+        Me.LinkLabel73.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel73.Location = New System.Drawing.Point(18, 387)
+        Me.LinkLabel73.Name = "LinkLabel73"
+        Me.LinkLabel73.Size = New System.Drawing.Size(176, 13)
+        Me.LinkLabel73.TabIndex = 160
+        Me.LinkLabel73.TabStop = True
+        Me.LinkLabel73.Text = "Rechnungsdetaildaten aktualisieren"
+        '
+        'LinkLabel69
+        '
+        Me.LinkLabel69.Location = New System.Drawing.Point(722, 211)
+        Me.LinkLabel69.Name = "LinkLabel69"
+        Me.LinkLabel69.Size = New System.Drawing.Size(132, 23)
+        Me.LinkLabel69.TabIndex = 0
+        Me.LinkLabel69.TabStop = True
+        Me.LinkLabel69.Text = "Land in Steuernr setzen"
+        '
         'LinkLabel72
         '
         Me.LinkLabel72.AutoSize = True
         Me.LinkLabel72.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel72.Location = New System.Drawing.Point(797, 114)
+        Me.LinkLabel72.Location = New System.Drawing.Point(728, 166)
         Me.LinkLabel72.Name = "LinkLabel72"
         Me.LinkLabel72.Size = New System.Drawing.Size(119, 13)
         Me.LinkLabel72.TabIndex = 159
@@ -2609,7 +2685,7 @@ Partial Class frmStartOptions
         Me.txtPloseJahr._WaehrungZeichen = False
         Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window
         Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red
-        Me.txtPloseJahr.Location = New System.Drawing.Point(725, 111)
+        Me.txtPloseJahr.Location = New System.Drawing.Point(797, 121)
         Me.txtPloseJahr.MaxLength = 10
         Me.txtPloseJahr.MaxLineLength = -1
         Me.txtPloseJahr.MaxLines_Warning = ""
@@ -2623,7 +2699,7 @@ Partial Class frmStartOptions
         '
         Me.lblUTAPDFvollst.AutoSize = True
         Me.lblUTAPDFvollst.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.lblUTAPDFvollst.Location = New System.Drawing.Point(609, 451)
+        Me.lblUTAPDFvollst.Location = New System.Drawing.Point(609, 418)
         Me.lblUTAPDFvollst.Name = "lblUTAPDFvollst"
         Me.lblUTAPDFvollst.Size = New System.Drawing.Size(113, 13)
         Me.lblUTAPDFvollst.TabIndex = 157
@@ -2646,7 +2722,7 @@ Partial Class frmStartOptions
         Me.txtUTADate._WaehrungZeichen = True
         Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window
         Me.txtUTADate.ForeColor = System.Drawing.Color.Red
-        Me.txtUTADate.Location = New System.Drawing.Point(537, 448)
+        Me.txtUTADate.Location = New System.Drawing.Point(537, 415)
         Me.txtUTADate.MaxLength = 10
         Me.txtUTADate.MaxLineLength = -1
         Me.txtUTADate.MaxLines_Warning = ""
@@ -2659,7 +2735,7 @@ Partial Class frmStartOptions
         'TextBox3
         '
         Me.TextBox3.BackColor = System.Drawing.SystemColors.Menu
-        Me.TextBox3.Location = New System.Drawing.Point(39, 330)
+        Me.TextBox3.Location = New System.Drawing.Point(111, 269)
         Me.TextBox3.Multiline = True
         Me.TextBox3.Name = "TextBox3"
         Me.TextBox3.Size = New System.Drawing.Size(89, 51)
@@ -2672,7 +2748,7 @@ Partial Class frmStartOptions
         Me.cbxIDSUmbenenen.Checked = True
         Me.cbxIDSUmbenenen.CheckState = System.Windows.Forms.CheckState.Checked
         Me.cbxIDSUmbenenen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxIDSUmbenenen.Location = New System.Drawing.Point(21, 344)
+        Me.cbxIDSUmbenenen.Location = New System.Drawing.Point(91, 272)
         Me.cbxIDSUmbenenen.Name = "cbxIDSUmbenenen"
         Me.cbxIDSUmbenenen.Size = New System.Drawing.Size(15, 14)
         Me.cbxIDSUmbenenen.TabIndex = 153
@@ -2694,7 +2770,7 @@ Partial Class frmStartOptions
         Me.txtIDSYear._WaehrungZeichen = True
         Me.txtIDSYear.BackColor = System.Drawing.SystemColors.Window
         Me.txtIDSYear.ForeColor = System.Drawing.Color.Red
-        Me.txtIDSYear.Location = New System.Drawing.Point(24, 387)
+        Me.txtIDSYear.Location = New System.Drawing.Point(24, 301)
         Me.txtIDSYear.MaxLength = 10
         Me.txtIDSYear.MaxLineLength = -1
         Me.txtIDSYear.MaxLines_Warning = ""
@@ -2708,7 +2784,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel70.AutoSize = True
         Me.LinkLabel70.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel70.Location = New System.Drawing.Point(18, 455)
+        Me.LinkLabel70.Location = New System.Drawing.Point(18, 369)
         Me.LinkLabel70.Name = "LinkLabel70"
         Me.LinkLabel70.Size = New System.Drawing.Size(151, 13)
         Me.LinkLabel70.TabIndex = 152
@@ -2719,24 +2795,13 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel67.AutoSize = True
         Me.LinkLabel67.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel67.Location = New System.Drawing.Point(18, 434)
+        Me.LinkLabel67.Location = New System.Drawing.Point(18, 348)
         Me.LinkLabel67.Name = "LinkLabel67"
         Me.LinkLabel67.Size = New System.Drawing.Size(135, 13)
         Me.LinkLabel67.TabIndex = 151
         Me.LinkLabel67.TabStop = True
         Me.LinkLabel67.Text = "Ländercode ISO2 einfügen"
         '
-        'cbxUTATestkunden
-        '
-        Me.cbxUTATestkunden.AutoSize = True
-        Me.cbxUTATestkunden.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxUTATestkunden.Location = New System.Drawing.Point(532, 374)
-        Me.cbxUTATestkunden.Name = "cbxUTATestkunden"
-        Me.cbxUTATestkunden.Size = New System.Drawing.Size(170, 17)
-        Me.cbxUTATestkunden.TabIndex = 150
-        Me.cbxUTATestkunden.Text = "nur Testkunden (2) importieren"
-        Me.cbxUTATestkunden.UseVisualStyleBackColor = True
-        '
         'cbxITalt
         '
         Me.cbxITalt.AutoSize = True
@@ -2836,7 +2901,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel65.AutoSize = True
         Me.LinkLabel65.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel65.Location = New System.Drawing.Point(21, 411)
+        Me.LinkLabel65.Location = New System.Drawing.Point(21, 325)
         Me.LinkLabel65.Name = "LinkLabel65"
         Me.LinkLabel65.Size = New System.Drawing.Size(115, 13)
         Me.LinkLabel65.TabIndex = 132
@@ -2860,7 +2925,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel64.AutoSize = True
         Me.LinkLabel64.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel64.Location = New System.Drawing.Point(534, 425)
+        Me.LinkLabel64.Location = New System.Drawing.Point(534, 392)
         Me.LinkLabel64.Name = "LinkLabel64"
         Me.LinkLabel64.Size = New System.Drawing.Size(135, 13)
         Me.LinkLabel64.TabIndex = 131
@@ -2884,7 +2949,7 @@ Partial Class frmStartOptions
         '
         Me.Label42.AutoSize = True
         Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label42.Location = New System.Drawing.Point(379, 235)
+        Me.Label42.Location = New System.Drawing.Point(379, 223)
         Me.Label42.Name = "Label42"
         Me.Label42.Size = New System.Drawing.Size(40, 13)
         Me.Label42.TabIndex = 130
@@ -2907,7 +2972,7 @@ Partial Class frmStartOptions
         '
         Me.cbxUploadDA.AutoSize = True
         Me.cbxUploadDA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxUploadDA.Location = New System.Drawing.Point(379, 324)
+        Me.cbxUploadDA.Location = New System.Drawing.Point(379, 312)
         Me.cbxUploadDA.Name = "cbxUploadDA"
         Me.cbxUploadDA.Size = New System.Drawing.Size(81, 17)
         Me.cbxUploadDA.TabIndex = 128
@@ -2978,7 +3043,7 @@ Partial Class frmStartOptions
         Me.cbxOnlyBilledTransactions.Checked = True
         Me.cbxOnlyBilledTransactions.CheckState = System.Windows.Forms.CheckState.Checked
         Me.cbxOnlyBilledTransactions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxOnlyBilledTransactions.Location = New System.Drawing.Point(277, 84)
+        Me.cbxOnlyBilledTransactions.Location = New System.Drawing.Point(277, 72)
         Me.cbxOnlyBilledTransactions.Name = "cbxOnlyBilledTransactions"
         Me.cbxOnlyBilledTransactions.Size = New System.Drawing.Size(172, 17)
         Me.cbxOnlyBilledTransactions.TabIndex = 121
@@ -2989,7 +3054,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel62.AutoSize = True
         Me.LinkLabel62.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel62.Location = New System.Drawing.Point(265, 378)
+        Me.LinkLabel62.Location = New System.Drawing.Point(265, 366)
         Me.LinkLabel62.Name = "LinkLabel62"
         Me.LinkLabel62.Size = New System.Drawing.Size(226, 13)
         Me.LinkLabel62.TabIndex = 120
@@ -3013,7 +3078,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel60.AutoSize = True
         Me.LinkLabel60.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel60.Location = New System.Drawing.Point(269, 131)
+        Me.LinkLabel60.Location = New System.Drawing.Point(269, 119)
         Me.LinkLabel60.Name = "LinkLabel60"
         Me.LinkLabel60.Size = New System.Drawing.Size(144, 13)
         Me.LinkLabel60.TabIndex = 119
@@ -3034,7 +3099,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel61.AutoSize = True
         Me.LinkLabel61.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel61.Location = New System.Drawing.Point(264, 351)
+        Me.LinkLabel61.Location = New System.Drawing.Point(264, 339)
         Me.LinkLabel61.Name = "LinkLabel61"
         Me.LinkLabel61.Size = New System.Drawing.Size(158, 13)
         Me.LinkLabel61.TabIndex = 118
@@ -3045,7 +3110,7 @@ Partial Class frmStartOptions
         '
         Me.Label40.AutoSize = True
         Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label40.Location = New System.Drawing.Point(265, 235)
+        Me.Label40.Location = New System.Drawing.Point(265, 223)
         Me.Label40.Name = "Label40"
         Me.Label40.Size = New System.Drawing.Size(20, 13)
         Me.Label40.TabIndex = 116
@@ -3066,7 +3131,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel59.AutoSize = True
         Me.LinkLabel59.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel59.Location = New System.Drawing.Point(277, 255)
+        Me.LinkLabel59.Location = New System.Drawing.Point(277, 243)
         Me.LinkLabel59.Name = "LinkLabel59"
         Me.LinkLabel59.Size = New System.Drawing.Size(149, 13)
         Me.LinkLabel59.TabIndex = 114
@@ -3089,7 +3154,7 @@ Partial Class frmStartOptions
         '
         Me.Label39.AutoSize = True
         Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label39.Location = New System.Drawing.Point(264, 296)
+        Me.Label39.Location = New System.Drawing.Point(264, 284)
         Me.Label39.Name = "Label39"
         Me.Label39.Size = New System.Drawing.Size(28, 13)
         Me.Label39.TabIndex = 113
@@ -3099,7 +3164,7 @@ Partial Class frmStartOptions
         '
         Me.Label38.AutoSize = True
         Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label38.Location = New System.Drawing.Point(263, 439)
+        Me.Label38.Location = New System.Drawing.Point(263, 427)
         Me.Label38.Name = "Label38"
         Me.Label38.Size = New System.Drawing.Size(23, 13)
         Me.Label38.TabIndex = 112
@@ -3109,7 +3174,7 @@ Partial Class frmStartOptions
         '
         Me.Label37.AutoSize = True
         Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label37.Location = New System.Drawing.Point(263, 420)
+        Me.Label37.Location = New System.Drawing.Point(263, 408)
         Me.Label37.Name = "Label37"
         Me.Label37.Size = New System.Drawing.Size(28, 13)
         Me.Label37.TabIndex = 111
@@ -3119,7 +3184,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel58.AutoSize = True
         Me.LinkLabel58.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel58.Location = New System.Drawing.Point(270, 156)
+        Me.LinkLabel58.Location = New System.Drawing.Point(270, 144)
         Me.LinkLabel58.Name = "LinkLabel58"
         Me.LinkLabel58.Size = New System.Drawing.Size(126, 13)
         Me.LinkLabel58.TabIndex = 110
@@ -3130,7 +3195,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel57.AutoSize = True
         Me.LinkLabel57.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel57.Location = New System.Drawing.Point(270, 205)
+        Me.LinkLabel57.Location = New System.Drawing.Point(270, 193)
         Me.LinkLabel57.Name = "LinkLabel57"
         Me.LinkLabel57.Size = New System.Drawing.Size(166, 13)
         Me.LinkLabel57.TabIndex = 108
@@ -3140,7 +3205,7 @@ Partial Class frmStartOptions
         'DateTimePicker2
         '
         Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker2.Location = New System.Drawing.Point(298, 433)
+        Me.DateTimePicker2.Location = New System.Drawing.Point(298, 421)
         Me.DateTimePicker2.Name = "DateTimePicker2"
         Me.DateTimePicker2.Size = New System.Drawing.Size(85, 20)
         Me.DateTimePicker2.TabIndex = 107
@@ -3148,7 +3213,7 @@ Partial Class frmStartOptions
         'DateTimePicker1
         '
         Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker1.Location = New System.Drawing.Point(298, 414)
+        Me.DateTimePicker1.Location = New System.Drawing.Point(298, 402)
         Me.DateTimePicker1.Name = "DateTimePicker1"
         Me.DateTimePicker1.Size = New System.Drawing.Size(85, 20)
         Me.DateTimePicker1.TabIndex = 106
@@ -3157,7 +3222,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel56.AutoSize = True
         Me.LinkLabel56.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel56.Location = New System.Drawing.Point(263, 456)
+        Me.LinkLabel56.Location = New System.Drawing.Point(263, 444)
         Me.LinkLabel56.Name = "LinkLabel56"
         Me.LinkLabel56.Size = New System.Drawing.Size(114, 13)
         Me.LinkLabel56.TabIndex = 105
@@ -3167,7 +3232,7 @@ Partial Class frmStartOptions
         'datVon
         '
         Me.datVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.datVon.Location = New System.Drawing.Point(298, 296)
+        Me.datVon.Location = New System.Drawing.Point(298, 284)
         Me.datVon.Name = "datVon"
         Me.datVon.Size = New System.Drawing.Size(85, 20)
         Me.datVon.TabIndex = 104
@@ -3176,7 +3241,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel55.AutoSize = True
         Me.LinkLabel55.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel55.Location = New System.Drawing.Point(265, 324)
+        Me.LinkLabel55.Location = New System.Drawing.Point(265, 312)
         Me.LinkLabel55.Name = "LinkLabel55"
         Me.LinkLabel55.Size = New System.Drawing.Size(108, 13)
         Me.LinkLabel55.TabIndex = 103
@@ -3187,7 +3252,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel54.AutoSize = True
         Me.LinkLabel54.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel54.Location = New System.Drawing.Point(270, 106)
+        Me.LinkLabel54.Location = New System.Drawing.Point(270, 94)
         Me.LinkLabel54.Name = "LinkLabel54"
         Me.LinkLabel54.Size = New System.Drawing.Size(157, 13)
         Me.LinkLabel54.TabIndex = 102
@@ -3240,18 +3305,18 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel53.AutoSize = True
         Me.LinkLabel53.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel53.Location = New System.Drawing.Point(534, 404)
+        Me.LinkLabel53.Location = New System.Drawing.Point(534, 371)
         Me.LinkLabel53.Name = "LinkLabel53"
-        Me.LinkLabel53.Size = New System.Drawing.Size(82, 13)
+        Me.LinkLabel53.Size = New System.Drawing.Size(119, 13)
         Me.LinkLabel53.TabIndex = 97
         Me.LinkLabel53.TabStop = True
-        Me.LinkLabel53.Text = "CSV importieren"
+        Me.LinkLabel53.Text = ".UTA + PDF importieren"
         '
         'Label36
         '
         Me.Label36.AutoSize = True
         Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label36.Location = New System.Drawing.Point(270, 65)
+        Me.Label36.Location = New System.Drawing.Point(270, 53)
         Me.Label36.Name = "Label36"
         Me.Label36.Size = New System.Drawing.Size(42, 13)
         Me.Label36.TabIndex = 96
@@ -3261,7 +3326,7 @@ Partial Class frmStartOptions
         '
         Me.Label35.AutoSize = True
         Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label35.Location = New System.Drawing.Point(18, 317)
+        Me.Label35.Location = New System.Drawing.Point(18, 264)
         Me.Label35.Name = "Label35"
         Me.Label35.Size = New System.Drawing.Size(42, 13)
         Me.Label35.TabIndex = 95
@@ -3282,7 +3347,7 @@ Partial Class frmStartOptions
         Me.Label33.AutoSize = True
         Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label33.ForeColor = System.Drawing.Color.Red
-        Me.Label33.Location = New System.Drawing.Point(270, 39)
+        Me.Label33.Location = New System.Drawing.Point(270, 27)
         Me.Label33.Name = "Label33"
         Me.Label33.Size = New System.Drawing.Size(39, 16)
         Me.Label33.TabIndex = 93
@@ -3293,7 +3358,7 @@ Partial Class frmStartOptions
         Me.Label32.AutoSize = True
         Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label32.ForeColor = System.Drawing.Color.Red
-        Me.Label32.Location = New System.Drawing.Point(18, 296)
+        Me.Label32.Location = New System.Drawing.Point(18, 243)
         Me.Label32.Name = "Label32"
         Me.Label32.Size = New System.Drawing.Size(32, 16)
         Me.Label32.TabIndex = 92
@@ -3314,12 +3379,12 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel52.AutoSize = True
         Me.LinkLabel52.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel52.Location = New System.Drawing.Point(530, 152)
+        Me.LinkLabel52.Location = New System.Drawing.Point(530, 139)
         Me.LinkLabel52.Name = "LinkLabel52"
-        Me.LinkLabel52.Size = New System.Drawing.Size(109, 13)
+        Me.LinkLabel52.Size = New System.Drawing.Size(115, 13)
         Me.LinkLabel52.TabIndex = 84
         Me.LinkLabel52.TabStop = True
-        Me.LinkLabel52.Text = "CSV+PDF importieren"
+        Me.LinkLabel52.Text = "CSV + PDF importieren"
         '
         'Label30
         '
@@ -3347,7 +3412,7 @@ Partial Class frmStartOptions
         Me.Label28.AutoSize = True
         Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label28.ForeColor = System.Drawing.Color.Red
-        Me.Label28.Location = New System.Drawing.Point(18, 39)
+        Me.Label28.Location = New System.Drawing.Point(18, 28)
         Me.Label28.Name = "Label28"
         Me.Label28.Size = New System.Drawing.Size(72, 16)
         Me.Label28.TabIndex = 81
@@ -3357,7 +3422,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel49.AutoSize = True
         Me.LinkLabel49.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel49.Location = New System.Drawing.Point(16, 272)
+        Me.LinkLabel49.Location = New System.Drawing.Point(16, 224)
         Me.LinkLabel49.Name = "LinkLabel49"
         Me.LinkLabel49.Size = New System.Drawing.Size(136, 13)
         Me.LinkLabel49.TabIndex = 80
@@ -3367,7 +3432,7 @@ Partial Class frmStartOptions
         'Label25
         '
         Me.Label25.AutoSize = True
-        Me.Label25.Location = New System.Drawing.Point(165, 202)
+        Me.Label25.Location = New System.Drawing.Point(165, 154)
         Me.Label25.Name = "Label25"
         Me.Label25.Size = New System.Drawing.Size(32, 13)
         Me.Label25.TabIndex = 78
@@ -3403,7 +3468,7 @@ Partial Class frmStartOptions
         '
         Me.PictureBox21.BackgroundImage = CType(resources.GetObject("PictureBox21.BackgroundImage"), System.Drawing.Image)
         Me.PictureBox21.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox21.Location = New System.Drawing.Point(98, 139)
+        Me.PictureBox21.Location = New System.Drawing.Point(98, 106)
         Me.PictureBox21.Name = "PictureBox21"
         Me.PictureBox21.Size = New System.Drawing.Size(18, 18)
         Me.PictureBox21.TabIndex = 40
@@ -3414,7 +3479,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel47.AutoSize = True
         Me.LinkLabel47.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel47.Location = New System.Drawing.Point(16, 139)
+        Me.LinkLabel47.Location = New System.Drawing.Point(16, 107)
         Me.LinkLabel47.Name = "LinkLabel47"
         Me.LinkLabel47.Size = New System.Drawing.Size(84, 13)
         Me.LinkLabel47.TabIndex = 39
@@ -3425,7 +3490,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel46.AutoSize = True
         Me.LinkLabel46.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel46.Location = New System.Drawing.Point(16, 160)
+        Me.LinkLabel46.Location = New System.Drawing.Point(16, 127)
         Me.LinkLabel46.Name = "LinkLabel46"
         Me.LinkLabel46.Size = New System.Drawing.Size(120, 13)
         Me.LinkLabel46.TabIndex = 38
@@ -3436,7 +3501,7 @@ Partial Class frmStartOptions
         '
         Me.PictureBox19.BackgroundImage = CType(resources.GetObject("PictureBox19.BackgroundImage"), System.Drawing.Image)
         Me.PictureBox19.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox19.Location = New System.Drawing.Point(118, 246)
+        Me.PictureBox19.Location = New System.Drawing.Point(118, 198)
         Me.PictureBox19.Name = "PictureBox19"
         Me.PictureBox19.Size = New System.Drawing.Size(18, 18)
         Me.PictureBox19.TabIndex = 37
@@ -3447,7 +3512,7 @@ Partial Class frmStartOptions
         '
         Me.PictureBox18.BackgroundImage = CType(resources.GetObject("PictureBox18.BackgroundImage"), System.Drawing.Image)
         Me.PictureBox18.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox18.Location = New System.Drawing.Point(118, 216)
+        Me.PictureBox18.Location = New System.Drawing.Point(118, 168)
         Me.PictureBox18.Name = "PictureBox18"
         Me.PictureBox18.Size = New System.Drawing.Size(18, 18)
         Me.PictureBox18.TabIndex = 36
@@ -3458,7 +3523,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel41.AutoSize = True
         Me.LinkLabel41.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel41.Location = New System.Drawing.Point(16, 246)
+        Me.LinkLabel41.Location = New System.Drawing.Point(16, 198)
         Me.LinkLabel41.Name = "LinkLabel41"
         Me.LinkLabel41.Size = New System.Drawing.Size(94, 13)
         Me.LinkLabel41.TabIndex = 35
@@ -3469,7 +3534,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel42.AutoSize = True
         Me.LinkLabel42.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel42.Location = New System.Drawing.Point(16, 221)
+        Me.LinkLabel42.Location = New System.Drawing.Point(16, 173)
         Me.LinkLabel42.Name = "LinkLabel42"
         Me.LinkLabel42.Size = New System.Drawing.Size(99, 13)
         Me.LinkLabel42.TabIndex = 34
@@ -3479,7 +3544,7 @@ Partial Class frmStartOptions
         'Label23
         '
         Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label23.Location = New System.Drawing.Point(16, 194)
+        Me.Label23.Location = New System.Drawing.Point(16, 146)
         Me.Label23.Name = "Label23"
         Me.Label23.Size = New System.Drawing.Size(111, 19)
         Me.Label23.TabIndex = 33
@@ -3489,7 +3554,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel43.AutoSize = True
         Me.LinkLabel43.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel43.Location = New System.Drawing.Point(16, 89)
+        Me.LinkLabel43.Location = New System.Drawing.Point(16, 72)
         Me.LinkLabel43.Name = "LinkLabel43"
         Me.LinkLabel43.Size = New System.Drawing.Size(114, 13)
         Me.LinkLabel43.TabIndex = 32
@@ -3500,7 +3565,7 @@ Partial Class frmStartOptions
         '
         Me.LinkLabel44.AutoSize = True
         Me.LinkLabel44.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel44.Location = New System.Drawing.Point(16, 114)
+        Me.LinkLabel44.Location = New System.Drawing.Point(16, 89)
         Me.LinkLabel44.Name = "LinkLabel44"
         Me.LinkLabel44.Size = New System.Drawing.Size(138, 13)
         Me.LinkLabel44.TabIndex = 31
@@ -3511,7 +3576,7 @@ Partial Class frmStartOptions
         '
         Me.Label24.AutoSize = True
         Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label24.Location = New System.Drawing.Point(16, 65)
+        Me.Label24.Location = New System.Drawing.Point(16, 48)
         Me.Label24.Name = "Label24"
         Me.Label24.Size = New System.Drawing.Size(42, 13)
         Me.Label24.TabIndex = 30
@@ -3583,7 +3648,7 @@ Partial Class frmStartOptions
         Me.txtBatchNrofTransaction._WaehrungZeichen = True
         Me.txtBatchNrofTransaction.BackColor = System.Drawing.SystemColors.Window
         Me.txtBatchNrofTransaction.ForeColor = System.Drawing.Color.Red
-        Me.txtBatchNrofTransaction.Location = New System.Drawing.Point(424, 232)
+        Me.txtBatchNrofTransaction.Location = New System.Drawing.Point(424, 220)
         Me.txtBatchNrofTransaction.MaxLength = 10
         Me.txtBatchNrofTransaction.MaxLineLength = -1
         Me.txtBatchNrofTransaction.MaxLines_Warning = ""
@@ -3609,7 +3674,7 @@ Partial Class frmStartOptions
         Me.txtBatchNr._WaehrungZeichen = True
         Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window
         Me.txtBatchNr.ForeColor = System.Drawing.Color.Red
-        Me.txtBatchNr.Location = New System.Drawing.Point(328, 181)
+        Me.txtBatchNr.Location = New System.Drawing.Point(328, 169)
         Me.txtBatchNr.MaxLength = 10
         Me.txtBatchNr.MaxLineLength = -1
         Me.txtBatchNr.MaxLines_Warning = ""
@@ -3627,7 +3692,7 @@ Partial Class frmStartOptions
         Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cbxMSEBatchNr.DropDownWidth = 20
         Me.cbxMSEBatchNr.FormattingEnabled = True
-        Me.cbxMSEBatchNr.Location = New System.Drawing.Point(277, 181)
+        Me.cbxMSEBatchNr.Location = New System.Drawing.Point(277, 169)
         Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr"
         Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21)
         Me.cbxMSEBatchNr.TabIndex = 122
@@ -3648,7 +3713,7 @@ Partial Class frmStartOptions
         Me.txtTransactionID._WaehrungZeichen = True
         Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window
         Me.txtTransactionID.ForeColor = System.Drawing.Color.Black
-        Me.txtTransactionID.Location = New System.Drawing.Point(288, 232)
+        Me.txtTransactionID.Location = New System.Drawing.Point(288, 220)
         Me.txtTransactionID.MaxLength = 10
         Me.txtTransactionID.MaxLineLength = -1
         Me.txtTransactionID.MaxLines_Warning = ""
@@ -3665,7 +3730,7 @@ Partial Class frmStartOptions
         Me.cbxRMC._allowFreiText = False
         Me.cbxRMC._value = ""
         Me.cbxRMC.FormattingEnabled = True
-        Me.cbxRMC.Location = New System.Drawing.Point(533, 168)
+        Me.cbxRMC.Location = New System.Drawing.Point(533, 155)
         Me.cbxRMC.Name = "cbxRMC"
         Me.cbxRMC.Size = New System.Drawing.Size(80, 21)
         Me.cbxRMC.TabIndex = 90
@@ -3685,7 +3750,7 @@ Partial Class frmStartOptions
         Me.txtTBLNr._Waehrung = False
         Me.txtTBLNr._WaehrungZeichen = True
         Me.txtTBLNr.ForeColor = System.Drawing.Color.Red
-        Me.txtTBLNr.Location = New System.Drawing.Point(165, 246)
+        Me.txtTBLNr.Location = New System.Drawing.Point(165, 198)
         Me.txtTBLNr.MaxLineLength = -1
         Me.txtTBLNr.MaxLines_Warning = ""
         Me.txtTBLNr.MaxLines_Warning_Label = Nothing
@@ -3709,7 +3774,7 @@ Partial Class frmStartOptions
         Me.txtTWLNr._Waehrung = False
         Me.txtTWLNr._WaehrungZeichen = True
         Me.txtTWLNr.ForeColor = System.Drawing.Color.Red
-        Me.txtTWLNr.Location = New System.Drawing.Point(165, 218)
+        Me.txtTWLNr.Location = New System.Drawing.Point(165, 170)
         Me.txtTWLNr.MaxLineLength = -1
         Me.txtTWLNr.MaxLines_Warning = ""
         Me.txtTWLNr.MaxLines_Warning_Label = Nothing
@@ -4036,7 +4101,7 @@ Partial Class frmStartOptions
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(1229, 1007)
+        Me.ClientSize = New System.Drawing.Size(1229, 920)
         Me.Controls.Add(Me.pnl)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -4343,7 +4408,6 @@ Partial Class frmStartOptions
     Friend WithEvents Label45 As Label
     Friend WithEvents cbxITalt As CheckBox
     Friend WithEvents cbxPlose As CheckBox
-    Friend WithEvents cbxUTATestkunden As CheckBox
     Friend WithEvents LinkLabel67 As LinkLabel
     Friend WithEvents LinkLabel68 As LinkLabel
     Friend WithEvents PictureBox26 As PictureBox
@@ -4368,4 +4432,9 @@ Partial Class frmStartOptions
     Friend WithEvents CheckBox9 As CheckBox
     Friend WithEvents LinkLabel72 As LinkLabel
     Friend WithEvents txtPloseJahr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents LinkLabel73 As LinkLabel
+    Friend WithEvents LinkLabel74 As LinkLabel
+    Friend WithEvents txtPLoseKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label51 As Label
+    Friend WithEvents Label50 As Label
 End Class

initATLASAufschubkonten/frmStartOptions.vb

@@ -4,8 +4,8 @@ Imports System.Net
 Imports System.Net.Security
 Imports System.Security.Cryptography.X509Certificates
 Imports System.Text
-Imports System.Text.RegularExpressions
 Imports System.Xml
+Imports io.konik.zugferd
 Imports MDM_Worker
 Imports Renci.SshNet
 Imports VERAG_PROG_ALLGEMEIN
@@ -4965,7 +4965,7 @@ Public Class frmStartOptions
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
         Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, False, cbxDateienlöschenUTA.Checked)
         f.year = txtUTAYear.Text
-        f.UtaTestkunden = cbxUTATestkunden.Checked
+        f.UtaTestkunden = False
         f.ShowDialog()
         Me.Visible = True
     End Sub
@@ -5620,9 +5620,188 @@ Public Class frmStartOptions
 
     Private Sub LinkLabel72_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel72.LinkClicked
         If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub
+        Dim kdNrPlose As Integer = -1
+        If txtPLoseKdNr.Text <> "" AndAlso IsNumeric(txtPLoseKdNr.Text) Then kdNrPlose = txtPLoseKdNr.Text
 
-        cPLOSE_Inv_Data.setDatenarchivID(txtPloseJahr.Text, True)
+        cPLOSE_Inv_Data.setDatenarchivID(txtPloseJahr.Text, True, kdNrPlose)
 
     End Sub
 
+    Private Sub LinkLabel73_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel73.LinkClicked
+
+
+        Dim fehlendeRechungsdatenOhneDVR As String = "select upper([Invoicenumber]) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and [Invoicenumber] not like 'DEVR%'"
+
+        Dim fehlendeRechungsdatenMitDVR As String = "select upper([Invoicenumber]) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and [Invoicenumber] like 'DEVR%'"
+
+        Dim fehlendeRechungsdatenTotalInvoiceID As String = "select CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TotalInvoiceId is null"
+
+
+
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim dtRechnnungsdatenOhneDVR As DataTable = SQL.loadDgvBySql(fehlendeRechungsdatenOhneDVR, "FMZOLL")
+
+        Dim dtRechnnungsdatenMitDVR As DataTable = SQL.loadDgvBySql(fehlendeRechungsdatenMitDVR, "FMZOLL")
+
+        Dim dtRechnnungsdatenTotalInvoiceID As DataTable = SQL.loadDgvBySql(fehlendeRechungsdatenTotalInvoiceID, "FMZOLL")
+
+        If dtRechnnungsdatenOhneDVR.Rows.Count > 0 Then
+            For Each r As DataRow In dtRechnnungsdatenOhneDVR.Rows
+
+
+                SQL.doSQL("
+                  UPDATE 
+                     inv
+                SET 
+                      inv.TransactionVolume = t.calcTrans,
+                	  inv.AmminclVAT = t.calcInclvat,
+                	  inv.TotalNetAmount = t.totalNet,
+                	  inv.VATAmount = t.net
+                FROM 
+                     [VERAG].[dbo].[tblIDSInvoicesNewSplittedByCountry] AS inv
+                INNER JOIN
+                    (
+                        SELECT 
+                             OBONumber,CustomerCode, YearMonthDay,
+                             sum([TransactionVolume]) as calcTrans, sum([AmminclVAT]) as calcInclvat, sum([TotalNetAmount]) as totalNet, sum([VATAmount]) as net
+                        
+                		FROM [VERAG].[dbo].[tblIDSTransactionsNew] 
+                        
+                		WHERE 
+                             Replace([OBONumber],'/','') = '" & r.Item("Invoicenumber") & "' and CustomerCode = '" & r.Item("CustomerCode") & "' and  YearMonthDay = '" & r.Item("YearMonthDay") & "' 
+                        GROUP BY 
+                             OBONumber,CustomerCode, YearMonthDay
+                    ) t
+                ON 
+                     Replace(t.OBONumber,'/','') = inv.Invoicenumber
+                WHERE 
+                     inv.Invoicenumber = '" & r.Item("Invoicenumber") & "' and inv.CustomerCode = '" & r.Item("CustomerCode") & "' and inv.YearMonthDay = '" & r.Item("YearMonthDay") & "' ", "FMZOLL")
+
+
+            Next
+            MsgBox("alle Rechnungspositionsdaten gesetzt!")
+        Else
+            MsgBox("keine fehlenden Rechnungspositionsdaten vorhanden!")
+        End If
+
+
+        If dtRechnnungsdatenMitDVR.Rows.Count > 0 Then
+            For Each r As DataRow In dtRechnnungsdatenMitDVR.Rows
+
+
+                SQL.doSQL("
+                  UPDATE 
+                     inv
+                SET 
+                      inv.TransactionVolume = t.calcTrans,
+                	  inv.AmminclVAT = t.calcInclvat,
+                	  inv.TotalNetAmount = t.totalNet,
+                	  inv.VATAmount = t.net
+                FROM 
+                     [VERAG].[dbo].[tblIDSInvoicesNewSplittedByCountry] AS inv
+                INNER JOIN
+                    (
+                        SELECT 
+                             VRNumber,CustomerCode, YearMonthDay,
+                             sum([TransactionVolume]) as calcTrans, sum([AmminclVAT]) as calcInclvat, sum([TotalNetAmount]) as totalNet, sum([VATAmount]) as net
+                        
+                		FROM [VERAG].[dbo].[tblIDSTransactionsNew] 
+                        
+                		WHERE 
+                             VRNumber = '" & r.Item("Invoicenumber") & "' and CustomerCode = '" & r.Item("CustomerCode") & "' and  YearMonthDay = '" & r.Item("YearMonthDay") & "' 
+                        GROUP BY 
+                             VRNumber,CustomerCode, YearMonthDay
+                    ) t
+                ON 
+                     VRNumber = inv.Invoicenumber
+                WHERE 
+                     inv.Invoicenumber = '" & r.Item("Invoicenumber") & "' and inv.CustomerCode = '" & r.Item("CustomerCode") & "' and inv.YearMonthDay = '" & r.Item("YearMonthDay") & "' ", "FMZOLL")
+
+
+            Next
+            MsgBox("alle Rechnungspositionsdaten gesetzt!")
+        Else
+            MsgBox("keine fehlenden Rechnungspositionsdaten vorhanden!")
+        End If
+
+
+        If dtRechnnungsdatenTotalInvoiceID.Rows.Count > 0 Then
+            For Each r As DataRow In dtRechnnungsdatenTotalInvoiceID.Rows
+
+
+                SQL.doSQL("
+                  UPDATE 
+                     inv
+                SET 
+                      inv.TotalInvoiceId = t.invoice_id
+                	  
+                FROM 
+                     [VERAG].[dbo].[tblIDSInvoicesNewSplittedByCountry] AS inv
+                INNER JOIN
+                    (
+                     
+                SELECT 
+
+                             invoice_id
+                        
+                		FROM [VERAG].[dbo].[tblIDSInvoicesNew] 
+                        
+                		WHERE 
+                             CustomerCode = '" & r.Item("CustomerCode") & "' and  YearMonthDay = '" & r.Item("YearMonthDay") & "' 
+                        
+                    ) t
+                ON 
+                     CustomerCode = inv.CustomerCode and YearMonthDay = inv.YearMonthDay
+                WHERE 
+                     inv.CustomerCode = '" & r.Item("CustomerCode") & "' and inv.YearMonthDay = '" & r.Item("YearMonthDay") & "' ", "FMZOLL")
+
+
+            Next
+            MsgBox("alle TotalInvoiceIDs gesetzt!")
+        Else
+            MsgBox("keine fehlenden TotalInvoiceIDs vorhanden!")
+        End If
+
+
+    End Sub
+
+    Private Sub LinkLabel74_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel74.LinkClicked
+
+        Dim utaDate As New Date
+
+        If IsDate(txtUTADate.Text) Then
+            utaDate = CDate(txtUTADate.Text)
+        Else
+            Exit Sub
+        End If
+
+
+        Dim fehlendePDFzuRE As String = "select Rechnungsnummer_pro_Lieferland, cast([Rechnungsdatum] as Date) as Rechnungsdatum, Kundennummer, Abrechnungsnummer  from tblUTAImportNew  where daId is null and cast([Rechnungsdatum] as Date) = '" & utaDate & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' group by Rechnungsdatum, Kundennummer, Abrechnungsnummer, Rechnungsnummer_pro_Lieferland  "
+
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim dtRechnnungsdaten As DataTable = SQL.loadDgvBySql(fehlendePDFzuRE, "FMZOLL")
+
+        If dtRechnnungsdaten.Rows.Count > 0 Then
+
+            For Each r As DataRow In dtRechnnungsdaten.Rows
+
+
+                Dim daId As Integer = 0
+                daId = CInt(SQL.getValueTxtBySql("Select top(1) isnull(da_id,0) FROM tblDatenarchiv WHERE da_KundenNr = 0  And da_kategorie = 'MDM' AND da_ordner='MDM_DATEN' AND da_uOrdner1= 'UTA' AND da_uOrdner2= '" & utaDate.Year & "'  AND da_name like '%ZUGFERD.pdf' AND da_name like '%" & r.Item("Kundennummer") & "_" & r.Item("Abrechnungsnummer") & "_" & r.Item("Rechnungsnummer_pro_Lieferland") & "%'", "FMZOLL",,, 0))
+                If daId > 0 Then
+                    Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
+                    Dim Path As String = DS.GET_TOP1_PATH()
+                    If Path <> "" And System.IO.File.Exists(Path) Then
+                        SQL.doSQL("Update [tblUTAImportNew] SET [daId]='" & DS.da_id & "', daIdgesetztDatum = getdate()  where [Rechnungsnummer_pro_Lieferland] = '" & r.Item("Rechnungsnummer_pro_Lieferland") & "' AND cast(Rechnungsdatum as Date) = '" & utaDate & "' AND Kundennummer =" & r.Item("Kundennummer") & " and Abrechnungsnummer =" & r.Item("Abrechnungsnummer") & "  and daId is null", "FMZOLL")
+
+                    End If
+                End If
+
+
+            Next
+
+        End If
+
+
+    End Sub
 End Class