From 3798fda0b83e54f13d7ab12c8be0ed894254436b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 26 Mar 2025 08:07:29 +0100 Subject: [PATCH] IDS RechnungenNachLand, PloseImport, etc. --- MDM_Worker/cPLOSE_Inv_Data.vb | 6 +- .../frmNachrichtenVerarbeitung_MDM_divers.vb | 157 +++++-- .../frmStartOptions.Designer.vb | 401 ++++++++++-------- initATLASAufschubkonten/frmStartOptions.vb | 185 +++++++- 4 files changed, 554 insertions(+), 195 deletions(-) diff --git a/MDM_Worker/cPLOSE_Inv_Data.vb b/MDM_Worker/cPLOSE_Inv_Data.vb index 675b65d..1ff62c6 100644 --- a/MDM_Worker/cPLOSE_Inv_Data.vb +++ b/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 diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb index bd83b83..66dfd5e 100644 --- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb +++ b/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) - If Not idsInvoice.hasEntry Then idsInvoice.SAVE() + Select Case Type + 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 - ' If idsInvoice.isMail_IDS(htmlText) Then - ' If idsInvoice.getPDF_IDS(htmlText, filename, Zielpfad & invoiceNo & "_" & customerNo & ".pdf") Then - ' idsInvoice.DocumentName = filename - ' End If + Try - ' 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 diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 2a451d5..29e1f3a 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/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 diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 6ff6c09..24cb73a 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/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 \ No newline at end of file