edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

IDS RechnungenNachLand, PloseImport, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-03-26 08:07:29 +01:00
parent f538f7fe70
commit 3798fda0b8
4 changed files with 554 additions and 195 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
MDM_Worker/cPLOSE_Inv_Data.vb
View File

@@ -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

157
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -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

401
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -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

185
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -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