diff --git a/MDM_Worker/cPLOSE_Inv_Data.vb b/MDM_Worker/cPLOSE_Inv_Data.vb index 0f9d05d..1e50ce2 100644 --- a/MDM_Worker/cPLOSE_Inv_Data.vb +++ b/MDM_Worker/cPLOSE_Inv_Data.vb @@ -211,7 +211,7 @@ Public Class cPLOSE_Inv_Data If jahr < 2020 Then Return False - 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 REohneDAID As String = "Select plInv_Id, plInv_Dateiname,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") @@ -234,56 +234,72 @@ Public Class cPLOSE_Inv_Data filename2 = filename.Replace("-", "_") + 'If r.Item("plInv_Dateiname") = "830850-PSS-MAUT. PLOSE BOX-2025-09-15-000000-999999-00_RGDAT_16.09.2025.csv" Then + + ' filename3 = filename.ToString().Substring(0, 9) + ' 'filename3 &= "%" + ' filename3 &= filename.ToString().Substring(10, filename.Length - 10) + ' filename4 = filename3.Replace("-", "_") + + ' filename3 = filename3.Replace(" ", "") + ' filename4 = filename4.Replace(" ", "") + 'End If + If Regex.IsMatch(filename, "^[A-Za-z]") Then - Dim match As Match = Regex.Match(filename, "\d+") - If match.Success Then - filename3 = filename.Substring(match.Index).Trim - filename4 = filename.Replace("-", "_") - End If + Dim match As Match = Regex.Match(filename, "\d+") + If match.Success Then + filename3 = filename.Substring(match.Index).Trim + filename4 = filename.Replace("-", "_") + End If - ElseIf filename.Contains("_dk") Then 'Sonderlogik Dänemark + ElseIf filename.Contains("_dk") Then 'Sonderlogik Dänemark - filename3 = filename.Replace(jahrEnd & "-", jahrEnd) + filename3 = filename.Replace(jahrEnd & "-", jahrEnd) filename4 = filename.Replace(jahrEnd & "-", jahrEnd) + filename3 = filename3.Replace(" ", "") + filename4 = filename4.Replace(" ", "") + ElseIf filename.Contains("_fy") Then 'Sonderlogik Norwegen - Dim indexOfFirst_ = filename.IndexOf("_fy") - If filename.Length > indexOfFirst_ + 5 Then - Dim month = filename.Substring(indexOfFirst_ + 3, 2) - If IsNumeric(month) Then - Dim test = month.IndexOf(0) - Dim monthWithoutLeadingZero As String = month - If monthWithoutLeadingZero.IndexOf(0) = 0 Then monthWithoutLeadingZero = monthWithoutLeadingZero.Replace("0", "") - filename3 = filename.Replace(jahrEnd & month, jahrEnd & monthWithoutLeadingZero) + Dim indexOfFirst_ = filename.IndexOf("_fy") + If filename.Length > indexOfFirst_ + 5 Then + Dim month = filename.Substring(indexOfFirst_ + 3, 2) + If IsNumeric(month) Then + Dim test = month.IndexOf(0) + Dim monthWithoutLeadingZero As String = month + If monthWithoutLeadingZero.IndexOf(0) = 0 Then monthWithoutLeadingZero = monthWithoutLeadingZero.Replace("0", "") + filename3 = filename.Replace(jahrEnd & month, jahrEnd & monthWithoutLeadingZero) filename4 = filename.Replace(jahrEnd & month, jahrEnd & monthWithoutLeadingZero) + filename3 = filename3.Replace(" ", "") + filename4 = filename4.Replace(" ", "") End If + End If + + + + + End If + + Dim daId As Integer = 0 + If filename3 = "" Then + 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= 'PLOSE' AND da_uOrdner2= '" & jahr & "' AND (da_name like '%" & filename & "' or da_name like '%" & filename2 & "')", "FMZOLL",,, 0)) + Else + 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= 'PLOSE' AND da_uOrdner2= '" & jahr & "' AND (da_name like '%" & filename & "' or da_name like '%" & filename2 & "' or da_name like '%" & filename3 & "' or da_name like '%" & filename4 & "')", "FMZOLL",,, 0)) End If - - End If - - Dim daId As Integer = 0 - If filename3 = "" Then - 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= 'PLOSE' AND da_uOrdner2= '" & jahr & "' AND (da_name like '%" & filename & "' or da_name like '%" & filename2 & "')", "FMZOLL",,, 0)) - Else - 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= 'PLOSE' AND da_uOrdner2= '" & jahr & "' AND (da_name like '%" & filename & "' or da_name like '%" & filename2 & "' or da_name like '%" & filename3 & "' or da_name like '%" & filename4 & "')", "FMZOLL",,, 0)) - End If - - - - 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 [tblPLOSE_Inv_Data] SET plInv_daId = " & DS.da_id & ", plInv_daIdgesetztDatum = getdate() WHERE plInv_Id = " & r.Item("plInv_Id") & " AND plInv_daId is null", "FMZOLL") + 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 [tblPLOSE_Inv_Data] SET plInv_daId = " & DS.da_id & ", plInv_daIdgesetztDatum = getdate() WHERE plInv_Id = " & r.Item("plInv_Id") & " AND plInv_daId is null", "FMZOLL") + End If End If End If - End If Next diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index 379605d..af45b9f 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -3,7 +3,6 @@ Imports System.IO Imports System.Net Imports System.Net.Mail Imports ClosedXML.Excel -Imports com.sun.xml.internal.rngom.digested Imports DAKOSY_Worker Imports VERAG_PROG_ALLGEMEIN @@ -2582,7 +2581,7 @@ Module Mail ,Absender ,Rechnungsbetrag Betrag ,BelegNr - ,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land + ,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land, Speditionsbuch.[LKW Kennzeichen] FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart where EmpfängerKundenNr IN (" & KdNr & ") and VermittlerKundenNr IN (" & KdNr & ") and Abfertigungsdatum BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)", "FMZOLL") @@ -2747,39 +2746,108 @@ Module Mail Datei = .Workbooks.Open(Path) 'Anpassen Blatt = Datei.Worksheets(1) 'Anpassen - Blatt.Range("I1").Value = von.ToShortDateString & "-" & bis.ToShortDateString - Dim cnt = 3 - For Each r In dt.Rows - Blatt.Range("A" & cnt).Value = cnt - 2 - Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer") - ' Blatt.Range("C" & cnt).Value = r("RechnungsNr") - Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum") - Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung") - Blatt.Range("E" & cnt).Value = r("Absender") - Blatt.Range("F" & cnt).Value = "" 'r("Betrag") - Blatt.Range("H" & cnt).Value = r("BelegNr") + If KUNDE.KundenNr = 902452 Then 'KUNDE WILL WIEDER EXZTAWURST!!!!!!! + + Blatt.Range("H1").Value = von.ToShortDateString & "-" & bis.ToShortDateString + + Blatt.Range("A" & 2).Value = "Nr" + Blatt.Range("B" & 2).Value = "Datum" + Blatt.Range("C" & 2).Value = "MRN-Nr." + Blatt.Range("D" & 2).Value = "LKW/Cont." + Blatt.Range("E" & 2).Value = "Rg.-Nr." + Blatt.Range("F" & 2).Value = "EUST" + Blatt.Range("G" & 2).Value = "Anzahl Pos." + Blatt.Range("H" & 2).Value = "" + Blatt.Range("I" & 2).Value = "" + Blatt.Range("J" & 2).Value = "" + Blatt.Range("K" & 2).Value = "" + Blatt.Range("L" & 2).Value = "" + + Dim cnt = 3 + For Each r In dt.Rows + Blatt.Range("A" & cnt).Value = cnt - 2 + Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum") + Blatt.Range("C" & cnt).Value = r("BelegNr") + Blatt.Range("D" & cnt).Value = r("LKW Kennzeichen") + + Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + Try + Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "") + If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then + + + '------------------------------------------------------- + + Dim RechnungsString = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) + Dim rows() As String = RechnungsString.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries) + + For Each row As String In rows + + If IsDate(row) AndAlso row.Length = 10 Then + RechnungsString = RechnungsString.Replace(row.ToString, "") + End If + + Next + + Blatt.Range("E" & cnt).Value = RechnungsString.Trim + + '------------------------------------------------------- + + Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST + Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.ANZ_POS + If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then + Blatt.Range("C" & cnt).Value = ZOLLANMELDUNG.ATCMRN + End If + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + cnt += 1 + Next + + Else + + + Blatt.Range("I1").Value = von.ToShortDateString & "-" & bis.ToShortDateString Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung - Try - Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "") - If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then - Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.RechnungspreisohneWahrung - Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) - Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL - Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS - If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then - Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN + Dim cnt = 3 + For Each r In dt.Rows + Blatt.Range("A" & cnt).Value = cnt - 2 + Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer") + Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum") + Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung") + Blatt.Range("E" & cnt).Value = r("Absender") + Blatt.Range("F" & cnt).Value = "" 'r("Betrag") + Blatt.Range("H" & cnt).Value = r("BelegNr") + + Try + Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "") + If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then + Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.RechnungspreisohneWahrung + Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) + Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL + Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST + Blatt.Range("K" & cnt).Value = ZOLLANMELDUNG.ANZ_POS + + If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then + Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN + End If End If - End If - Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) - End Try + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + cnt += 1 + Next + + End If - cnt += 1 - Next Datei.Save() .DisplayAlerts = False .quit() diff --git a/MailSender/Resources/Auswertung_divers.xlsx b/MailSender/Resources/Auswertung_divers.xlsx index 0230879..8cbc13d 100644 Binary files a/MailSender/Resources/Auswertung_divers.xlsx and b/MailSender/Resources/Auswertung_divers.xlsx differ diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index dd5619b..74acbfd 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -202,7 +202,7 @@ Partial Class frmMitarbDetails Me.cboAdminBer = New System.Windows.Forms.ComboBox() Me.Label7 = New System.Windows.Forms.Label() Me.TabPage8 = New System.Windows.Forms.TabPage() - Me.cbxClient = New System.Windows.Forms.ComboBox() + Me.cbxClientTimas = New System.Windows.Forms.ComboBox() Me.cbxTimasMehrereFirmen = New System.Windows.Forms.CheckBox() Me.clbTimasMehreFirmen = New System.Windows.Forms.CheckedListBox() Me.lblName1 = New System.Windows.Forms.TextBox() @@ -2260,7 +2260,7 @@ Partial Class frmMitarbDetails ' 'TabPage8 ' - Me.TabPage8.Controls.Add(Me.cbxClient) + Me.TabPage8.Controls.Add(Me.cbxClientTimas) Me.TabPage8.Controls.Add(Me.cbxTimasMehrereFirmen) Me.TabPage8.Controls.Add(Me.clbTimasMehreFirmen) Me.TabPage8.Controls.Add(Me.lblName1) @@ -2303,16 +2303,17 @@ Partial Class frmMitarbDetails Me.TabPage8.Text = "Zeiterfassung" Me.TabPage8.UseVisualStyleBackColor = True ' - 'cbxClient + 'cbxClientTimas ' - Me.cbxClient.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cbxClient.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxClient.FormattingEnabled = True - Me.cbxClient.Items.AddRange(New Object() {"", "1", "2", "3", "4", "5"}) - Me.cbxClient.Location = New System.Drawing.Point(253, 144) - Me.cbxClient.Name = "cbxClient" - Me.cbxClient.Size = New System.Drawing.Size(54, 21) - Me.cbxClient.TabIndex = 159 + Me.cbxClientTimas.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxClientTimas.DropDownWidth = 100 + Me.cbxClientTimas.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxClientTimas.FormattingEnabled = True + Me.cbxClientTimas.Items.AddRange(New Object() {"", "1", "2", "3", "4", "5"}) + Me.cbxClientTimas.Location = New System.Drawing.Point(253, 144) + Me.cbxClientTimas.Name = "cbxClientTimas" + Me.cbxClientTimas.Size = New System.Drawing.Size(54, 21) + Me.cbxClientTimas.TabIndex = 159 ' 'cbxTimasMehrereFirmen ' @@ -2937,7 +2938,7 @@ Partial Class frmMitarbDetails Friend WithEvents lblName1 As TextBox Friend WithEvents cbxTimasMehrereFirmen As CheckBox Friend WithEvents clbTimasMehreFirmen As CheckedListBox - Friend WithEvents cbxClient As ComboBox + Friend WithEvents cbxClientTimas As ComboBox Friend WithEvents tabParameter As TabPage Friend WithEvents dgvUserParameter As VERAG_PROG_ALLGEMEIN.MyDatagridview End Class diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index f8d06dd..86b34d6 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -149,15 +149,15 @@ Public Class frmMitarbDetails clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG")) clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR")) - cbxClient.Items.Clear() - cbxClient.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) - cbxClient.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA")) - cbxClient.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FO")) - cbxClient.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX")) - cbxClient.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG AG", "VERAG AG")) - cbxClient.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG GMBH", "VERAG GMBH")) + cbxClientTimas.Items.Clear() + cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA")) + cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FO")) + cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX")) + cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG AG", "VERAG AG")) + cbxClientTimas.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG GMBH", "VERAG GMBH")) - cbxClient.SelectedIndex = 0 + cbxClientTimas.SelectedIndex = 0 cboFirma.Items.Clear() @@ -1287,7 +1287,7 @@ Public Class frmMitarbDetails If checkMandatoryFields() Then - timas.createEmployee(mitarbeiter, rtfInfoTimas.Text, cbxClient.SelectedItem.Text, dtTimas) + timas.createEmployee(mitarbeiter, rtfInfoTimas.Text, cbxClientTimas.SelectedItem.Text, dtTimas) If rtfInfoTimas.Visible = False AndAlso rtfInfoTimas.Text <> "" Then MsgBox(rtfInfoTimas.Text) tbcntr_TabIndexChanged(sender, e) End If @@ -1309,7 +1309,7 @@ Public Class frmMitarbDetails btnMAanlegen.Visible = Not cbxTimasAngelegt.Checked txtLohnNr.Enabled = Not cbxTimasAngelegt.Checked txtClientNr.Enabled = Not cbxTimasAngelegt.Checked - cbxClient.Enabled = Not cbxTimasAngelegt.Checked + cbxClientTimas.Enabled = Not cbxTimasAngelegt.Checked dgvData.Visible = Not cbxTimasAngelegt.Checked rtfInfoTimas.Visible = cbxTimasAngelegt.Checked btngetInfo.Visible = cbxTimasAngelegt.Checked @@ -1331,7 +1331,7 @@ Public Class frmMitarbDetails ' Return False 'End If - If cbxClient.SelectedItem.Text = "" Then + If cbxClientTimas.SelectedItem.Text = "" Then MsgBox("ClientNr prüfen!") Return False End If @@ -1533,7 +1533,7 @@ Public Class frmMitarbDetails btnMAanlegen.Visible = Not cbxTimasAngelegt.Checked txtLohnNr.Enabled = Not cbxTimasAngelegt.Checked txtClientNr.Enabled = Not cbxTimasAngelegt.Checked - cbxClient.Enabled = Not cbxTimasAngelegt.Checked + cbxClientTimas.Enabled = Not cbxTimasAngelegt.Checked dgvData.Visible = Not cbxTimasAngelegt.Checked TabControl3.Visible = Not cbxTimasAngelegt.Checked rtfInfoTimas.Visible = cbxTimasAngelegt.Checked diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb index 44785b1..7e60fad 100644 --- a/UID/usrctlProcedures.vb +++ b/UID/usrctlProcedures.vb @@ -3463,6 +3463,8 @@ Public Class usrctlProcedures VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + Dim savedDY As Boolean = False + Dim fd As New OpenFileDialog If fd.ShowDialog = DialogResult.OK Then If fd.FileName.ToLower.EndsWith(".csv") Then @@ -3678,8 +3680,10 @@ Public Class usrctlProcedures DYIMPORT.UST_ID_Fiskalvertreter = isleernothing((currentRow(137))) DYIMPORT.Shipmentnummer = isleernothing((currentRow(138))) DYIMPORT.Importstatus = isleernothing((currentRow(139))) + DYIMPORT.Importdate = Now() If DYIMPORT.SAVE() Then TextBox10.Text &= DYIMPORT.Id & vbNewLine + If Not savedDY Then savedDY = True Else MsgBox("FEHLER: " & currentRow(2).Trim() & " - " & currentRow(3).Trim()) End If @@ -3691,32 +3695,6 @@ Public Class usrctlProcedures Label10.Text = (cnt + 1) End If - Else - - Dim STDOF As New cStandardofferten(currentRow(0), currentRow(1), currentRow(2), currentRow(3)) - If STDOF.hasEntry Then - - Dim save As Boolean = False - - If isleernothing(currentRow(12)) IsNot Nothing AndAlso isleernothing(currentRow(12)) <> "NULL" Then - save = True - STDOF.LeistungsBez_EN = isleernothing(currentRow(12)) - End If - If isleernothing(currentRow(13)) IsNot Nothing AndAlso isleernothing(currentRow(13)) <> "NULL" Then - save = True - STDOF.LeistungsBez_RO = isleernothing(currentRow(13)) - End If - If isleernothing(currentRow(14)) IsNot Nothing AndAlso isleernothing(currentRow(14)) <> "NULL" Then - save = True - STDOF.LeistungsBez_TR = isleernothing(currentRow(14)) - End If - - If save Then STDOF.SAVE() - - End If - - - 'MsgBox(currentRow(2)) End If End If End If @@ -3728,6 +3706,11 @@ Public Class usrctlProcedures MsgBox(kdnr_tmp & " " & ex.Message & ex.StackTrace) End Try End While + + If savedDY Then + sql.doSQL("EXECUTE dbo.sp_DeleteDuplicateZollmeldungen", "FMZOLL") + End If + End Using End If End If diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb index efc91f4..6cee86f 100644 --- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb +++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb @@ -4,6 +4,7 @@ Imports System.Text Imports System.Text.RegularExpressions Imports System.Web Imports System.Xml +Imports io.konik.zugferd Imports Renci.SshNet Imports Renci.SshNet.Sftp Imports VERAG_PROG_ALLGEMEIN @@ -23,6 +24,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers Dim Dateiname = "" Public year As Integer Public UtaTestkunden As Boolean = False + Public RMCNewFormat As Boolean = True Sub New(programName As String) @@ -526,11 +528,17 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers Exit Sub End If + Dim dt As New DataTable + Dim deleteTable As Boolean = False Dim verarbeitungspfad, zielpfad If programName.Contains("RMC") Then verarbeitungspfad = rmc.VERARBEITUNG_PFAD zielpfad = rmc.ZIEL_PFAD + + dt.Columns.Add("KundenNr", GetType(String)) + dt.Columns.Add("UID", GetType(String)) + ElseIf programName.Contains("UTA") Then verarbeitungspfad = uta.VERARBEITUNG_PFAD zielpfad = uta.ZIEL_PFAD @@ -552,6 +560,8 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers If programName.Contains("RMC") Then + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + Select Case i Case 1 @@ -561,7 +571,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers If fi.Extension.ToLower = ".csv" Then If Not found Then - If readRMC(d) <> "" Then found = True + If readRMC(d, programName) <> "" Then found = True End If If found Then cntDatenEingelesen += 1 End If @@ -580,30 +590,126 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers 'd.breimaier: 2024-06-05 aktuell nur die RMC-Dateien! (später, wenn CSV vollständig, dann alle PDFs importieren! 'd.breimaier: 2024-06-17 laut Christian Schuster von Comcore (EDV-BEtr. von RMC) nicht möglich CSV mit easytrip und sofico Datensätzen zu ergängen! - If fi.Name.ToString.StartsWith("invoice_") Then + 'd.breimaier: 2025-09-15 laut Christian Schuster erhalten wir nun die Rechnungen mit folgenden Aufbau: - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d)) + '• fixwert invoice + '• Kundennummer 26807 (in der CSV enthalten) + '• Abrechnungnummer 5549 (Stimmt mit der Abrechnungsnummer im Dateinamen der CSV überein) + '• RechnungsNr "262014347" (in der CSV enthalten) - nicht verwechseln mit RechngsNrSL + '• Das Land AT, DE, FR... + '• zuletzt steht orig. Das ist für euch nicht wichtig, bedeutet nur das ist das Original und keine Kopie - DS.uploadDataToDATENSERVER(d,,,,,, True) + 'easytrip-Rechnungen sind immer ITALIEN! + + Dim fileNamePath As String = d + + 'If fi.Name.ToString.StartsWith("invoice_") Then + + If RMCNewFormat Then + + Dim destFilename As String = fi.FullName + + destFilename = destFilename.Replace(".pdf", IIf(programName.ToLower.Contains("nto"), "_nto", "_bto") & ".pdf") + + System.IO.File.Move(fi.FullName, destFilename) 'Datei umbenennen + + fileNamePath = destFilename + + End If + + If fi.Name.ToString.StartsWith("invoice_") OrElse (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso Not fi.Name.ToString.Contains("ALL")) Then 'RMC Eigenrechnungen + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(fileNamePath)) + + DS.uploadDataToDATENSERVER(fileNamePath,,,,,, True) + + If fi.Name.ToString.StartsWith("invoice_") Then + + SQL.doSQL("Update [tblRMCImport] SET [rmc_daId]='" & DS.da_id & "' where [rmc_pdfFileName] = '" & DS.da_name & "' and [rmc_importDatum] > DATEADD(DAY,-4,getdate()) ", "FMZOLL") + + ElseIf (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso Not fi.Name.ToString.Contains("ALL")) Then 'EasyTrip IT Rechnungen + + Dim fileNameEasyTrip As String = fi.Name + + fileNameEasyTrip = fileNameEasyTrip.Replace("maut_", "") + fileNameEasyTrip = fileNameEasyTrip.Replace("EGR_con", "") + + 'maut_24952_EGR_con00079883FITFIT2002A25-07993920250908120506AT70DE_341929194_.pdf + + '24952_00079883FITFIT2002A25-07993920250908120506AT70DE_341929194_.pdf + + 'RechnungNr: FIT2002A25-079939 + 'Datum: 08/09/2025 + 'Land: IT + 'VAT: DE_341929194 + + Dim indexOfFIT = fileNameEasyTrip.LastIndexOf("FITFIT") + 3 + + Dim kdNr As String = fileNameEasyTrip.Substring(0, 5) + Dim invoiceNo As String = "" 'FIT2002A25-079939 + Dim invoiceDate As String = "" '20250908 + Dim UID As String = "" 'DE_341929194 + + Dim RMC As New cRMC() 'easytry über Filename anlegen! + + invoiceNo = fileNameEasyTrip.Substring(indexOfFIT, 17) + invoiceDate = fileNameEasyTrip.Substring(indexOfFIT + 17, 8) + Dim parsedDate As DateTime = DateTime.ParseExact(invoiceDate, "yyyyMMdd", System.Globalization.CultureInfo.InvariantCulture) + + UID = fileNameEasyTrip.Substring(fileNameEasyTrip.IndexOf("AT70") + 4, 12) + UID = UID.Replace("_", "") + + RMC.rmc_reDatum = parsedDate.ToString("dd.MM.yyyy") + RMC.rmc_importDatum = Now() + RMC.rmc_kdNr = kdNr + RMC.rmc_UID = UID + RMC.rmc_landKZ = "IT" + RMC.rmc_landBezeichnung = "Italien" + RMC.rmc_reDatum = parsedDate + RMC.rmc_reNr = invoiceNo + RMC.rmc_waehrung = "EUR" + RMC.rmc_daId = DS.da_id + RMC.rmc_pdfFileName = fi.Name + + 'EasyTrip können die Beträge initual nicht ausgelesen werden, dürfen aber nicht 0 sein! + RMC.rmc_betragBrutto = 0.01 + RMC.rmc_betragMWST = 0.01 + RMC.rmc_betragNetto = 0.01 + RMC.rmc_euroBrutto = 0.01 + + + If RMC.SAVE() Then + + + Dim adress As New VERAG_PROG_ALLGEMEIN.cAdressen(RMC.rmc_UID, RMC.rmc_kdNr) + If Not adress.hasEntry Then + Dim R As DataRow = dt.NewRow + R("KundenNr") = RMC.rmc_kdNr + R("UID") = RMC.rmc_UID + dt.Rows.Add(R) + End If + + End If + + End If - SQL.doSQL("Update [tblRMCImport] SET [rmc_daId]='" & DS.da_id & "' where [rmc_pdfFileName] = '" & DS.da_name & "' and [rmc_importDatum] > DATEADD(DAY,-4,getdate()) ", "FMZOLL") End If 'copy file to lydia - - Dim filepathToLydia = IIf(rmc.PDFRECHNUNGEN <> "", rmc.PDFRECHNUNGEN, "\\share01\F\Juricevic Datensicherung\RMC_RECHNUNGEN\") - If Dateiname.ToString.ToLower.Contains("nto") Then - frmStartOptions.copyFile(d, filepathToLydia & "NETTO\") - Else - frmStartOptions.copyFile(d, filepathToLydia & "BRUTTO\") + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Dim filepathToLydia = IIf(rmc.PDFRECHNUNGEN <> "", rmc.PDFRECHNUNGEN, "\\share01\F\Juricevic Datensicherung\RMC_RECHNUNGEN\") + If Dateiname.ToString.ToLower.Contains("nto") Then + frmStartOptions.copyFile(fileNamePath, filepathToLydia & "NETTO\") + Else + frmStartOptions.copyFile(fileNamePath, filepathToLydia & "BRUTTO\") + End If End If - frmStartOptions.moveFile_DateBack(d, zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") + frmStartOptions.moveFile_DateBack(fileNamePath, zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") If fi.Name.ToLower.Contains("pdf") Then addDGVEinarbeitung("PDF", fi.Name) dgvEinarbeitung.Refresh() - End If @@ -955,6 +1061,23 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers If programName.Contains("UTA") Then uta.importUTALeistungen() + If programName.Contains("RMC") Then + + + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + If dt.Rows.Count > 0 Then + Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False,) + If filepath <> "" Then + Dim anhenge As New List(Of String) + anhenge.Add(filepath) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("juricevic@verag.ag", "Wölfl-UIDNr (EASYTRIP)", "Im Anhang die zu prüfenden Kunden von WÖLFL EasyTrip: " & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge) + End If + End If + + End If + + End If + End Sub @@ -979,7 +1102,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers End Sub - Function readRMC(d As String) As String + Function readRMC(d As String, typ As String) As String Try Dim fi As FileInfo = New FileInfo(d) @@ -989,6 +1112,10 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers Dim fileNr = filetimestamp.Substring(0, IIf(filetimestamp.Length > 8, filetimestamp.Length - 8, filetimestamp.Length)) Dim fileType = IIf(fi.Name.ToLower.Contains("nto"), "netto", "brutto") + If RMCNewFormat Then + fileType = IIf(typ.ToLower.Contains("nto"), "netto", "brutto") + End If + Dim dt As New DataTable dt.Columns.Add("KundenNr", GetType(String)) dt.Columns.Add("Kunde", GetType(String)) @@ -1030,13 +1157,14 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers End Using addDGVEinarbeitung("RMC: Detail" & kdNr, readRMC) - - If dt.Rows.Count > 0 Then - Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False,) - If filepath <> "" Then - Dim anhenge As New List(Of String) - anhenge.Add(filepath) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("juricevic@verag.ag", "Wölfl-UIDNr", "Im Anhang die zu prüfenden Kunden von WÖLFL für Importdatei: " & fi.Name & vbNewLine & "Pro Importdatei wird ein Email generiert/gesendet" & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge) + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + If dt.Rows.Count > 0 Then + Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False,) + If filepath <> "" Then + Dim anhenge As New List(Of String) + anhenge.Add(filepath) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("juricevic@verag.ag", "Wölfl-UIDNr", "Im Anhang die zu prüfenden Kunden von WÖLFL für Importdatei: " & fi.Name & vbNewLine & "Pro Importdatei wird ein Email generiert/gesendet" & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge) + End If End If End If @@ -1142,7 +1270,15 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers End If RMC.rmc_euroBrutto = SQL.isleernothing(currentRow(13)) - RMC.rmc_pdfFileName = "invoice_" & RMC.rmc_kdNr & "_" & filenr & "_" & RMC.rmc_sammelReNr & IIf(fileType = "netto", "_nto_e_verag.pdf", "_bto_e_verag.pdf") + + If RMCNewFormat Then + RMC.rmc_pdfFileName = "invoice_" & RMC.rmc_kdNr & "_" & filenr & "_" & RMC.rmc_sammelReNr & "_" & RMC.rmc_landKZ & "_orig" & IIf(fileType = "netto", "_nto", "_bto") & ".pdf" + Else + RMC.rmc_pdfFileName = "invoice_" & RMC.rmc_kdNr & "_" & filenr & "_" & RMC.rmc_sammelReNr & IIf(fileType = "netto", "_nto_e_verag.pdf", "_bto_e_verag.pdf") + End If + + + If RMC.SAVE() Then If kdNr <> RMC.rmc_kdNr Then diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index c78456a..b7868c7 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -33,7 +33,6 @@ Partial Class frmStartOptions Me.LinkLabel63 = New System.Windows.Forms.LinkLabel() Me.PictureBox23 = New System.Windows.Forms.PictureBox() Me.Label27 = New System.Windows.Forms.Label() - Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel51 = New System.Windows.Forms.LinkLabel() Me.PictureBox22 = New System.Windows.Forms.PictureBox() Me.Button22 = New System.Windows.Forms.Button() @@ -51,20 +50,16 @@ Partial Class frmStartOptions Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() - Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel36 = New System.Windows.Forms.LinkLabel() Me.Button13 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() Me.cbxSyskaWdh = New System.Windows.Forms.CheckBox() - Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button10 = New System.Windows.Forms.Button() Me.piceZollAnh = New System.Windows.Forms.PictureBox() - Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblEZOLLDat = New System.Windows.Forms.LinkLabel() Me.Button6 = New System.Windows.Forms.Button() Me.CheckBox6 = New System.Windows.Forms.CheckBox() Me.Button7 = New System.Windows.Forms.Button() - Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox7 = New System.Windows.Forms.CheckBox() Me.Label16 = New System.Windows.Forms.Label() Me.LinkLabel33 = New System.Windows.Forms.LinkLabel() @@ -73,7 +68,6 @@ Partial Class frmStartOptions Me.Button4 = New System.Windows.Forms.Button() Me.CheckBox5 = New System.Windows.Forms.CheckBox() Me.Button3 = New System.Windows.Forms.Button() - Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.Label13 = New System.Windows.Forms.Label() Me.CheckBox3 = New System.Windows.Forms.CheckBox() @@ -82,7 +76,6 @@ Partial Class frmStartOptions Me.LinkLabel68 = New System.Windows.Forms.LinkLabel() Me.PictureBox26 = New System.Windows.Forms.PictureBox() Me.cbxGestellungspeichern = New System.Windows.Forms.CheckBox() - Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label41 = New System.Windows.Forms.Label() Me.LinkLabel99 = New System.Windows.Forms.LinkLabel() Me.PictureBox99 = New System.Windows.Forms.PictureBox() @@ -152,15 +145,6 @@ Partial Class frmStartOptions Me.Label6 = New System.Windows.Forms.Label() Me.PictureBox15 = New System.Windows.Forms.PictureBox() Me.PictureBox14 = New System.Windows.Forms.PictureBox() - Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.btnTesttc = New System.Windows.Forms.Button() Me.cboTCAPI_Call = New System.Windows.Forms.Button() @@ -191,17 +175,10 @@ Partial Class frmStartOptions Me.cbxTCAnhEinlesen = New System.Windows.Forms.CheckBox() Me.cboTCAPI_Files = New System.Windows.Forms.Button() Me.cbxTCVB_Versand = New System.Windows.Forms.CheckBox() - Me.cboTCAPI_Firma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.MyTextBox06 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtCheckATEZMRN = 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.TabControl1 = New System.Windows.Forms.TabControl() Me.Asfinag = New System.Windows.Forms.TabPage() Me.Label28 = New System.Windows.Forms.Label() - Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label24 = New System.Windows.Forms.Label() Me.LinkLabel44 = New System.Windows.Forms.LinkLabel() Me.LinkLabel43 = New System.Windows.Forms.LinkLabel() @@ -226,7 +203,6 @@ Partial Class frmStartOptions Me.IDS_RE = New System.Windows.Forms.LinkLabel() Me.cbxIDSUmbenenen = New System.Windows.Forms.CheckBox() Me.TextBox3 = New System.Windows.Forms.TextBox() - Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MSE = New System.Windows.Forms.TabPage() Me.Label33 = New System.Windows.Forms.Label() Me.Label36 = New System.Windows.Forms.Label() @@ -249,17 +225,12 @@ Partial Class frmStartOptions Me.Label42 = New System.Windows.Forms.Label() Me.cbxOnlyBilledTransactions = New System.Windows.Forms.CheckBox() Me.cbxUploadDA = New System.Windows.Forms.CheckBox() - Me.txtTransactionID = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxMSEBatchNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtBatchNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.RMC = New System.Windows.Forms.TabPage() Me.Label29 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label() Me.RMC_import = New System.Windows.Forms.LinkLabel() Me.cbxDateienlöschenRMC = New System.Windows.Forms.CheckBox() Me.TextBox2 = New System.Windows.Forms.TextBox() - Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.UTA = New System.Windows.Forms.TabPage() Me.Label31 = New System.Windows.Forms.Label() Me.Label34 = New System.Windows.Forms.Label() @@ -270,8 +241,6 @@ Partial Class frmStartOptions Me.TextBox1 = New System.Windows.Forms.TextBox() Me.UTA_Laender = New System.Windows.Forms.LinkLabel() Me.lblUTAPDFvollst = New System.Windows.Forms.LinkLabel() - Me.txtUTAYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUTADate = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PLOSE = New System.Windows.Forms.TabPage() Me.LinkLabel52 = New System.Windows.Forms.LinkLabel() Me.Label5 = New System.Windows.Forms.Label() @@ -281,8 +250,6 @@ Partial Class frmStartOptions Me.LinkLabel23 = New System.Windows.Forms.LinkLabel() Me.Laender_Steuercode = New System.Windows.Forms.LinkLabel() Me.PlosePdfRE = New System.Windows.Forms.LinkLabel() - Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage5 = New System.Windows.Forms.TabPage() Me.cbxPloseNeu = New System.Windows.Forms.CheckBox() Me.Label44 = New System.Windows.Forms.Label() @@ -301,7 +268,6 @@ Partial Class frmStartOptions Me.cbxMSEalt = New System.Windows.Forms.CheckBox() Me.cbxUTAalt = New System.Windows.Forms.CheckBox() Me.cbxUTANeu = New System.Windows.Forms.CheckBox() - Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.KN8_DESTAT = New System.Windows.Forms.LinkLabel() Me.Button24 = New System.Windows.Forms.Button() Me.cbxTestFTP = New System.Windows.Forms.CheckBox() @@ -310,8 +276,11 @@ Partial Class frmStartOptions Me.lblAbDat = New System.Windows.Forms.Label() Me.Button27 = New System.Windows.Forms.Button() Me.lblWartungen = New System.Windows.Forms.Label() - Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.Label50 = New System.Windows.Forms.Label() + Me.Label49 = New System.Windows.Forms.Label() + Me.Label48 = New System.Windows.Forms.Label() + Me.cbxCSsync = New System.Windows.Forms.CheckBox() Me.cbxMailsenden = New System.Windows.Forms.CheckBox() Me.cbxKundenbesonderheitenCS = New System.Windows.Forms.CheckBox() Me.lblCS_DB = New System.Windows.Forms.Label() @@ -323,7 +292,6 @@ Partial Class frmStartOptions Me.lblMissingCS = New System.Windows.Forms.Label() Me.Button28 = New System.Windows.Forms.Button() Me.btnCreditsaveLauf = New System.Windows.Forms.Button() - Me.txtCSDate = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.CheckBox2 = New System.Windows.Forms.CheckBox() Me.LinkLabel25 = New System.Windows.Forms.LinkLabel() Me.CheckBox1 = New System.Windows.Forms.CheckBox() @@ -331,7 +299,6 @@ Partial Class frmStartOptions Me.cbxKd = New System.Windows.Forms.CheckBox() Me.Button9 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox12 = New System.Windows.Forms.PictureBox() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.PictureBox11 = New System.Windows.Forms.PictureBox() @@ -347,11 +314,47 @@ Partial Class frmStartOptions Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() - Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button21 = New System.Windows.Forms.Button() + Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboTCAPI_Firma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyTextBox06 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCheckATEZMRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTransactionID = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxMSEBatchNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtBatchNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtUTAYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUTADate = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCSDate = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.lblMilliSekverz = New System.Windows.Forms.Label() - Me.txtMsVerz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxEventtriggered = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit() @@ -377,7 +380,6 @@ Partial Class frmStartOptions Me.TabPage2.SuspendLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() Me.Panel1.SuspendLayout() Me.TabPage4.SuspendLayout() @@ -399,14 +401,13 @@ Partial Class frmStartOptions CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnl.Controls.Add(Me.lblMilliSekverz) - Me.pnl.Controls.Add(Me.txtMsVerz) Me.pnl.Controls.Add(Me.cbxUseUIDFinanzOnline) Me.pnl.Controls.Add(Me.txtMRNPrefix) Me.pnl.Controls.Add(Me.ATCNRinRE) @@ -573,29 +574,6 @@ Partial Class frmStartOptions Me.Label27.TabIndex = 87 Me.Label27.Text = "älter als Tage" ' - 'MyTextBox3 - ' - Me.MyTextBox3._DateTimeOnly = False - Me.MyTextBox3._numbersOnly = True - Me.MyTextBox3._numbersOnlyKommastellen = "" - Me.MyTextBox3._numbersOnlyTrennzeichen = True - Me.MyTextBox3._Prozent = False - Me.MyTextBox3._ShortDateNew = False - Me.MyTextBox3._ShortDateOnly = False - Me.MyTextBox3._TimeOnly = False - Me.MyTextBox3._TimeOnly_Seconds = False - Me.MyTextBox3._value = "" - Me.MyTextBox3._Waehrung = False - Me.MyTextBox3._WaehrungZeichen = True - Me.MyTextBox3.ForeColor = System.Drawing.Color.Red - Me.MyTextBox3.Location = New System.Drawing.Point(127, 232) - Me.MyTextBox3.MaxLineLength = -1 - Me.MyTextBox3.MaxLines_Warning = "" - Me.MyTextBox3.MaxLines_Warning_Label = Nothing - Me.MyTextBox3.Name = "MyTextBox3" - Me.MyTextBox3.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox3.TabIndex = 86 - ' 'LinkLabel51 ' Me.LinkLabel51.AutoSize = True @@ -785,29 +763,6 @@ Partial Class frmStartOptions Me.Label18.TabIndex = 64 Me.Label18.Text = "Max" ' - 'MyTextBox2 - ' - Me.MyTextBox2._DateTimeOnly = False - Me.MyTextBox2._numbersOnly = True - Me.MyTextBox2._numbersOnlyKommastellen = "" - Me.MyTextBox2._numbersOnlyTrennzeichen = True - Me.MyTextBox2._Prozent = False - Me.MyTextBox2._ShortDateNew = False - Me.MyTextBox2._ShortDateOnly = False - Me.MyTextBox2._TimeOnly = False - Me.MyTextBox2._TimeOnly_Seconds = False - Me.MyTextBox2._value = "" - Me.MyTextBox2._Waehrung = False - Me.MyTextBox2._WaehrungZeichen = True - Me.MyTextBox2.ForeColor = System.Drawing.Color.Red - Me.MyTextBox2.Location = New System.Drawing.Point(151, 176) - Me.MyTextBox2.MaxLineLength = -1 - Me.MyTextBox2.MaxLines_Warning = "" - Me.MyTextBox2.MaxLines_Warning_Label = Nothing - Me.MyTextBox2.Name = "MyTextBox2" - Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox2.TabIndex = 63 - ' 'LinkLabel36 ' Me.LinkLabel36.AutoSize = True @@ -854,30 +809,6 @@ Partial Class frmStartOptions Me.cbxSyskaWdh.Text = "Buchungen wiederh." Me.cbxSyskaWdh.UseVisualStyleBackColor = True ' - 'txtSyskaWdhDateiname - ' - Me.txtSyskaWdhDateiname._DateTimeOnly = False - Me.txtSyskaWdhDateiname._numbersOnly = False - Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" - Me.txtSyskaWdhDateiname._numbersOnlyTrennzeichen = True - Me.txtSyskaWdhDateiname._Prozent = False - Me.txtSyskaWdhDateiname._ShortDateNew = False - Me.txtSyskaWdhDateiname._ShortDateOnly = False - Me.txtSyskaWdhDateiname._TimeOnly = False - Me.txtSyskaWdhDateiname._TimeOnly_Seconds = False - Me.txtSyskaWdhDateiname._value = "" - Me.txtSyskaWdhDateiname._Waehrung = False - Me.txtSyskaWdhDateiname._WaehrungZeichen = True - Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black - Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(692, 318) - Me.txtSyskaWdhDateiname.MaxLength = 50 - Me.txtSyskaWdhDateiname.MaxLineLength = -1 - Me.txtSyskaWdhDateiname.MaxLines_Warning = "" - Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing - Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" - Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) - Me.txtSyskaWdhDateiname.TabIndex = 58 - ' 'Button10 ' Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -902,30 +833,6 @@ Partial Class frmStartOptions Me.piceZollAnh.TabStop = False Me.piceZollAnh.Visible = False ' - 'txtEZOLLAnhDat - ' - Me.txtEZOLLAnhDat._DateTimeOnly = False - Me.txtEZOLLAnhDat._numbersOnly = False - Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" - Me.txtEZOLLAnhDat._numbersOnlyTrennzeichen = True - Me.txtEZOLLAnhDat._Prozent = False - Me.txtEZOLLAnhDat._ShortDateNew = True - Me.txtEZOLLAnhDat._ShortDateOnly = False - Me.txtEZOLLAnhDat._TimeOnly = False - Me.txtEZOLLAnhDat._TimeOnly_Seconds = False - Me.txtEZOLLAnhDat._value = "" - Me.txtEZOLLAnhDat._Waehrung = False - Me.txtEZOLLAnhDat._WaehrungZeichen = True - Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black - Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 214) - Me.txtEZOLLAnhDat.MaxLength = 10 - Me.txtEZOLLAnhDat.MaxLineLength = -1 - Me.txtEZOLLAnhDat.MaxLines_Warning = "" - Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing - Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" - Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) - Me.txtEZOLLAnhDat.TabIndex = 55 - ' 'lblEZOLLDat ' Me.lblEZOLLDat.AutoSize = True @@ -974,17 +881,6 @@ Partial Class frmStartOptions Me.Button7.Text = "Buchungen --> Syska" Me.Button7.UseVisualStyleBackColor = True ' - 'cboSYSKAFirma - ' - Me.cboSYSKAFirma._allowedValuesFreiText = Nothing - Me.cboSYSKAFirma._allowFreiText = False - Me.cboSYSKAFirma._value = "" - Me.cboSYSKAFirma.FormattingEnabled = True - Me.cboSYSKAFirma.Location = New System.Drawing.Point(564, 299) - Me.cboSYSKAFirma.Name = "cboSYSKAFirma" - Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) - Me.cboSYSKAFirma.TabIndex = 51 - ' 'CheckBox7 ' Me.CheckBox7.AutoSize = True @@ -1077,17 +973,6 @@ Partial Class frmStartOptions Me.Button3.Text = "Buchungen --> BMD" Me.Button3.UseVisualStyleBackColor = True ' - 'cboBMDUnispedFirma - ' - Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing - Me.cboBMDUnispedFirma._allowFreiText = False - Me.cboBMDUnispedFirma._value = "" - Me.cboBMDUnispedFirma.FormattingEnabled = True - Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 300) - Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" - Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) - Me.cboBMDUnispedFirma.TabIndex = 42 - ' 'CheckBox4 ' Me.CheckBox4.AutoSize = True @@ -1228,30 +1113,6 @@ Partial Class frmStartOptions Me.cbxGestellungspeichern.Text = "Gestellungen speichern" Me.cbxGestellungspeichern.UseVisualStyleBackColor = True ' - 'MyTextBox4 - ' - Me.MyTextBox4._DateTimeOnly = False - Me.MyTextBox4._numbersOnly = False - Me.MyTextBox4._numbersOnlyKommastellen = "" - Me.MyTextBox4._numbersOnlyTrennzeichen = True - Me.MyTextBox4._Prozent = False - Me.MyTextBox4._ShortDateNew = True - Me.MyTextBox4._ShortDateOnly = False - Me.MyTextBox4._TimeOnly = False - Me.MyTextBox4._TimeOnly_Seconds = False - Me.MyTextBox4._value = "" - Me.MyTextBox4._Waehrung = False - Me.MyTextBox4._WaehrungZeichen = True - Me.MyTextBox4.ForeColor = System.Drawing.Color.Black - Me.MyTextBox4.Location = New System.Drawing.Point(775, 277) - Me.MyTextBox4.MaxLength = 10 - Me.MyTextBox4.MaxLineLength = -1 - Me.MyTextBox4.MaxLines_Warning = "" - Me.MyTextBox4.MaxLines_Warning_Label = Nothing - Me.MyTextBox4.Name = "MyTextBox4" - Me.MyTextBox4.Size = New System.Drawing.Size(80, 20) - Me.MyTextBox4.TabIndex = 90 - ' 'Label41 ' Me.Label41.AutoSize = True @@ -2046,165 +1907,6 @@ Partial Class frmStartOptions Me.PictureBox14.TabStop = False Me.PictureBox14.Visible = False ' - 'dgvMRN - ' - Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) - Me.dgvMRN.Location = New System.Drawing.Point(637, 63) - Me.dgvMRN.Name = "dgvMRN" - Me.dgvMRN.RowHeadersWidth = 62 - Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvMRN.Size = New System.Drawing.Size(207, 134) - Me.dgvMRN.TabIndex = 75 - ' - 'clmnMRN - ' - Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnMRN.HeaderText = "MRN" - Me.clmnMRN.MinimumWidth = 8 - Me.clmnMRN.Name = "clmnMRN" - ' - 'txtVRGOut_MRN - ' - Me.txtVRGOut_MRN._DateTimeOnly = False - Me.txtVRGOut_MRN._numbersOnly = False - Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" - Me.txtVRGOut_MRN._numbersOnlyTrennzeichen = True - Me.txtVRGOut_MRN._Prozent = False - Me.txtVRGOut_MRN._ShortDateNew = False - Me.txtVRGOut_MRN._ShortDateOnly = False - Me.txtVRGOut_MRN._TimeOnly = False - Me.txtVRGOut_MRN._TimeOnly_Seconds = False - Me.txtVRGOut_MRN._value = "" - Me.txtVRGOut_MRN._Waehrung = False - Me.txtVRGOut_MRN._WaehrungZeichen = False - Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) - Me.txtVRGOut_MRN.MaxLineLength = -1 - Me.txtVRGOut_MRN.MaxLines_Warning = "" - Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" - Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_MRN.TabIndex = 73 - ' - 'txtVRGOut_FilialenNr - ' - Me.txtVRGOut_FilialenNr._DateTimeOnly = False - Me.txtVRGOut_FilialenNr._numbersOnly = False - Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_FilialenNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_FilialenNr._Prozent = False - Me.txtVRGOut_FilialenNr._ShortDateNew = False - Me.txtVRGOut_FilialenNr._ShortDateOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = False - Me.txtVRGOut_FilialenNr._value = "" - Me.txtVRGOut_FilialenNr._Waehrung = False - Me.txtVRGOut_FilialenNr._WaehrungZeichen = False - Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) - Me.txtVRGOut_FilialenNr.MaxLineLength = -1 - Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" - Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_FilialenNr.Multiline = True - Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" - Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) - Me.txtVRGOut_FilialenNr.TabIndex = 71 - ' - 'txtVRGOut_AbfertigungsNr - ' - Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_AbfertigungsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_AbfertigungsNr._Prozent = False - Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False - Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = False - Me.txtVRGOut_AbfertigungsNr._value = "" - Me.txtVRGOut_AbfertigungsNr._Waehrung = False - Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False - Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) - Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_AbfertigungsNr.Multiline = True - Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" - Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) - Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 - ' - 'MyComboBox2 - ' - Me.MyComboBox2._allowedValuesFreiText = Nothing - Me.MyComboBox2._allowFreiText = False - Me.MyComboBox2._value = "" - Me.MyComboBox2.FormattingEnabled = True - Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) - Me.MyComboBox2.Name = "MyComboBox2" - Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox2.TabIndex = 64 - ' - 'txtVRGOutEZA_BezugsNr - ' - Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOutEZA_BezugsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOutEZA_BezugsNr._Prozent = False - Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False - Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = False - Me.txtVRGOutEZA_BezugsNr._value = "" - Me.txtVRGOutEZA_BezugsNr._Waehrung = False - Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False - Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) - Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOutEZA_BezugsNr.Multiline = True - Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" - Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) - Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 - ' - 'MyComboBox1 - ' - Me.MyComboBox1._allowedValuesFreiText = Nothing - Me.MyComboBox1._allowFreiText = False - Me.MyComboBox1._value = "" - Me.MyComboBox1.FormattingEnabled = True - Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) - Me.MyComboBox1.Name = "MyComboBox1" - Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox1.TabIndex = 4 - ' - 'txtVRGOut_BezugsNr - ' - Me.txtVRGOut_BezugsNr._DateTimeOnly = False - Me.txtVRGOut_BezugsNr._numbersOnly = False - Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_BezugsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_BezugsNr._Prozent = False - Me.txtVRGOut_BezugsNr._ShortDateNew = False - Me.txtVRGOut_BezugsNr._ShortDateOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = False - Me.txtVRGOut_BezugsNr._value = "" - Me.txtVRGOut_BezugsNr._Waehrung = False - Me.txtVRGOut_BezugsNr._WaehrungZeichen = False - Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) - Me.txtVRGOut_BezugsNr.MaxLineLength = -1 - Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" - Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_BezugsNr.TabIndex = 5 - ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.btnTesttc) @@ -2564,116 +2266,6 @@ Partial Class frmStartOptions Me.cbxTCVB_Versand.Text = "ZB Versand" Me.cbxTCVB_Versand.UseVisualStyleBackColor = True ' - 'cboTCAPI_Firma - ' - Me.cboTCAPI_Firma._allowedValuesFreiText = Nothing - Me.cboTCAPI_Firma._allowFreiText = False - Me.cboTCAPI_Firma._value = "" - Me.cboTCAPI_Firma.FormattingEnabled = True - Me.cboTCAPI_Firma.Items.AddRange(New Object() {"ALLE", "ATILLA", "IMEX", "DURMAZ"}) - Me.cboTCAPI_Firma.Location = New System.Drawing.Point(570, 381) - Me.cboTCAPI_Firma.Name = "cboTCAPI_Firma" - Me.cboTCAPI_Firma.Size = New System.Drawing.Size(88, 21) - Me.cboTCAPI_Firma.TabIndex = 152 - Me.cboTCAPI_Firma.Text = "ALLE" - ' - 'MyTextBox06 - ' - Me.MyTextBox06._DateTimeOnly = False - Me.MyTextBox06._numbersOnly = False - Me.MyTextBox06._numbersOnlyKommastellen = "" - Me.MyTextBox06._numbersOnlyTrennzeichen = False - Me.MyTextBox06._Prozent = False - Me.MyTextBox06._ShortDateNew = False - Me.MyTextBox06._ShortDateOnly = False - Me.MyTextBox06._TimeOnly = False - Me.MyTextBox06._TimeOnly_Seconds = False - Me.MyTextBox06._value = "200" - Me.MyTextBox06._Waehrung = False - Me.MyTextBox06._WaehrungZeichen = False - Me.MyTextBox06.ForeColor = System.Drawing.Color.Black - Me.MyTextBox06.Location = New System.Drawing.Point(583, 302) - Me.MyTextBox06.MaxLength = 18 - Me.MyTextBox06.MaxLineLength = -1 - Me.MyTextBox06.MaxLines_Warning = "" - Me.MyTextBox06.MaxLines_Warning_Label = Nothing - Me.MyTextBox06.Name = "MyTextBox06" - Me.MyTextBox06.Size = New System.Drawing.Size(150, 20) - Me.MyTextBox06.TabIndex = 148 - Me.MyTextBox06.Text = "200" - ' - 'txtCheckATEZMRN - ' - Me.txtCheckATEZMRN._DateTimeOnly = False - Me.txtCheckATEZMRN._numbersOnly = False - Me.txtCheckATEZMRN._numbersOnlyKommastellen = "" - Me.txtCheckATEZMRN._numbersOnlyTrennzeichen = False - Me.txtCheckATEZMRN._Prozent = False - Me.txtCheckATEZMRN._ShortDateNew = False - Me.txtCheckATEZMRN._ShortDateOnly = False - Me.txtCheckATEZMRN._TimeOnly = False - Me.txtCheckATEZMRN._TimeOnly_Seconds = False - Me.txtCheckATEZMRN._value = "" - Me.txtCheckATEZMRN._Waehrung = False - Me.txtCheckATEZMRN._WaehrungZeichen = False - Me.txtCheckATEZMRN.ForeColor = System.Drawing.Color.Black - Me.txtCheckATEZMRN.Location = New System.Drawing.Point(548, 272) - Me.txtCheckATEZMRN.MaxLength = 18 - Me.txtCheckATEZMRN.MaxLineLength = -1 - Me.txtCheckATEZMRN.MaxLines_Warning = "" - Me.txtCheckATEZMRN.MaxLines_Warning_Label = Nothing - Me.txtCheckATEZMRN.Name = "txtCheckATEZMRN" - Me.txtCheckATEZMRN.Size = New System.Drawing.Size(185, 20) - Me.txtCheckATEZMRN.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.TabControl1) @@ -2740,54 +2332,6 @@ Partial Class frmStartOptions Me.Label28.TabIndex = 81 Me.Label28.Text = "ASFINAG" ' - 'txtTWLNr - ' - Me.txtTWLNr._DateTimeOnly = False - Me.txtTWLNr._numbersOnly = True - Me.txtTWLNr._numbersOnlyKommastellen = "" - Me.txtTWLNr._numbersOnlyTrennzeichen = False - Me.txtTWLNr._Prozent = False - Me.txtTWLNr._ShortDateNew = False - Me.txtTWLNr._ShortDateOnly = False - Me.txtTWLNr._TimeOnly = False - Me.txtTWLNr._TimeOnly_Seconds = False - Me.txtTWLNr._value = "" - Me.txtTWLNr._Waehrung = False - Me.txtTWLNr._WaehrungZeichen = True - Me.txtTWLNr.ForeColor = System.Drawing.Color.Red - Me.txtTWLNr.Location = New System.Drawing.Point(168, 152) - Me.txtTWLNr.MaxLineLength = -1 - Me.txtTWLNr.MaxLines_Warning = "" - Me.txtTWLNr.MaxLines_Warning_Label = Nothing - Me.txtTWLNr.Name = "txtTWLNr" - Me.txtTWLNr.ReadOnly = True - Me.txtTWLNr.Size = New System.Drawing.Size(53, 20) - Me.txtTWLNr.TabIndex = 78 - ' - 'txtTBLNr - ' - Me.txtTBLNr._DateTimeOnly = False - Me.txtTBLNr._numbersOnly = True - Me.txtTBLNr._numbersOnlyKommastellen = "" - Me.txtTBLNr._numbersOnlyTrennzeichen = False - Me.txtTBLNr._Prozent = False - Me.txtTBLNr._ShortDateNew = False - Me.txtTBLNr._ShortDateOnly = False - Me.txtTBLNr._TimeOnly = False - Me.txtTBLNr._TimeOnly_Seconds = False - Me.txtTBLNr._value = "" - Me.txtTBLNr._Waehrung = False - Me.txtTBLNr._WaehrungZeichen = True - Me.txtTBLNr.ForeColor = System.Drawing.Color.Red - Me.txtTBLNr.Location = New System.Drawing.Point(168, 180) - Me.txtTBLNr.MaxLineLength = -1 - Me.txtTBLNr.MaxLines_Warning = "" - Me.txtTBLNr.MaxLines_Warning_Label = Nothing - Me.txtTBLNr.Name = "txtTBLNr" - Me.txtTBLNr.ReadOnly = True - Me.txtTBLNr.Size = New System.Drawing.Size(53, 20) - Me.txtTBLNr.TabIndex = 79 - ' 'Label24 ' Me.Label24.AutoSize = True @@ -3056,32 +2600,6 @@ Partial Class frmStartOptions Me.TextBox3.TabIndex = 154 Me.TextBox3.Text = "Dateien nach Import von FTP umbenennen" ' - 'txtIDSYear - ' - Me.txtIDSYear._DateTimeOnly = False - Me.txtIDSYear._numbersOnly = True - Me.txtIDSYear._numbersOnlyKommastellen = "" - Me.txtIDSYear._numbersOnlyTrennzeichen = False - Me.txtIDSYear._Prozent = False - Me.txtIDSYear._ShortDateNew = False - Me.txtIDSYear._ShortDateOnly = False - Me.txtIDSYear._TimeOnly = False - Me.txtIDSYear._TimeOnly_Seconds = False - Me.txtIDSYear._value = "" - Me.txtIDSYear._Waehrung = False - 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(12, 61) - Me.txtIDSYear.MaxLength = 10 - Me.txtIDSYear.MaxLineLength = -1 - Me.txtIDSYear.MaxLines_Warning = "" - Me.txtIDSYear.MaxLines_Warning_Label = Nothing - Me.txtIDSYear.Name = "txtIDSYear" - Me.txtIDSYear.Size = New System.Drawing.Size(66, 20) - Me.txtIDSYear.TabIndex = 155 - Me.txtIDSYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'MSE ' Me.MSE.Controls.Add(Me.Label33) @@ -3334,98 +2852,6 @@ Partial Class frmStartOptions Me.cbxUploadDA.Text = "PDF ins DS" Me.cbxUploadDA.UseVisualStyleBackColor = True ' - 'txtTransactionID - ' - Me.txtTransactionID._DateTimeOnly = False - Me.txtTransactionID._numbersOnly = True - Me.txtTransactionID._numbersOnlyKommastellen = "" - Me.txtTransactionID._numbersOnlyTrennzeichen = False - Me.txtTransactionID._Prozent = False - Me.txtTransactionID._ShortDateNew = False - Me.txtTransactionID._ShortDateOnly = False - Me.txtTransactionID._TimeOnly = False - Me.txtTransactionID._TimeOnly_Seconds = False - Me.txtTransactionID._value = "" - Me.txtTransactionID._Waehrung = False - 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(41, 207) - Me.txtTransactionID.MaxLength = 10 - Me.txtTransactionID.MaxLineLength = -1 - Me.txtTransactionID.MaxLines_Warning = "" - Me.txtTransactionID.MaxLines_Warning_Label = Nothing - Me.txtTransactionID.Name = "txtTransactionID" - Me.txtTransactionID.Size = New System.Drawing.Size(85, 20) - Me.txtTransactionID.TabIndex = 115 - Me.txtTransactionID.Text = "1001723285" - Me.txtTransactionID.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'cbxMSEBatchNr - ' - Me.cbxMSEBatchNr._allowedValuesFreiText = Nothing - Me.cbxMSEBatchNr._allowFreiText = True - Me.cbxMSEBatchNr._value = "" - Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cbxMSEBatchNr.DropDownWidth = 20 - Me.cbxMSEBatchNr.FormattingEnabled = True - Me.cbxMSEBatchNr.Location = New System.Drawing.Point(30, 156) - Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr" - Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21) - Me.cbxMSEBatchNr.TabIndex = 122 - ' - 'txtBatchNr - ' - Me.txtBatchNr._DateTimeOnly = False - Me.txtBatchNr._numbersOnly = True - Me.txtBatchNr._numbersOnlyKommastellen = "" - Me.txtBatchNr._numbersOnlyTrennzeichen = False - Me.txtBatchNr._Prozent = False - Me.txtBatchNr._ShortDateNew = False - Me.txtBatchNr._ShortDateOnly = False - Me.txtBatchNr._TimeOnly = False - Me.txtBatchNr._TimeOnly_Seconds = False - Me.txtBatchNr._value = "" - Me.txtBatchNr._Waehrung = False - 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(81, 156) - Me.txtBatchNr.MaxLength = 10 - Me.txtBatchNr.MaxLineLength = -1 - Me.txtBatchNr.MaxLines_Warning = "" - Me.txtBatchNr.MaxLines_Warning_Label = Nothing - Me.txtBatchNr.Name = "txtBatchNr" - Me.txtBatchNr.Size = New System.Drawing.Size(36, 20) - Me.txtBatchNr.TabIndex = 127 - Me.txtBatchNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtBatchNrofTransaction - ' - Me.txtBatchNrofTransaction._DateTimeOnly = False - Me.txtBatchNrofTransaction._numbersOnly = True - Me.txtBatchNrofTransaction._numbersOnlyKommastellen = "" - Me.txtBatchNrofTransaction._numbersOnlyTrennzeichen = False - Me.txtBatchNrofTransaction._Prozent = False - Me.txtBatchNrofTransaction._ShortDateNew = False - Me.txtBatchNrofTransaction._ShortDateOnly = False - Me.txtBatchNrofTransaction._TimeOnly = False - Me.txtBatchNrofTransaction._TimeOnly_Seconds = False - Me.txtBatchNrofTransaction._value = "" - Me.txtBatchNrofTransaction._Waehrung = False - 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(177, 207) - Me.txtBatchNrofTransaction.MaxLength = 10 - Me.txtBatchNrofTransaction.MaxLineLength = -1 - Me.txtBatchNrofTransaction.MaxLines_Warning = "" - Me.txtBatchNrofTransaction.MaxLines_Warning_Label = Nothing - Me.txtBatchNrofTransaction.Name = "txtBatchNrofTransaction" - Me.txtBatchNrofTransaction.Size = New System.Drawing.Size(36, 20) - Me.txtBatchNrofTransaction.TabIndex = 129 - Me.txtBatchNrofTransaction.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'RMC ' Me.RMC.Controls.Add(Me.Label29) @@ -3493,17 +2919,6 @@ Partial Class frmStartOptions Me.TextBox2.TabIndex = 101 Me.TextBox2.Text = "Dateien nach Import von FTP löschen" ' - 'cbxRMC - ' - Me.cbxRMC._allowedValuesFreiText = Nothing - Me.cbxRMC._allowFreiText = False - Me.cbxRMC._value = "" - Me.cbxRMC.FormattingEnabled = True - Me.cbxRMC.Location = New System.Drawing.Point(14, 142) - Me.cbxRMC.Name = "cbxRMC" - Me.cbxRMC.Size = New System.Drawing.Size(80, 21) - Me.cbxRMC.TabIndex = 90 - ' 'UTA ' Me.UTA.Controls.Add(Me.Label31) @@ -3620,58 +3035,6 @@ Partial Class frmStartOptions Me.lblUTAPDFvollst.TabStop = True Me.lblUTAPDFvollst.Text = "PDF Daten vollständig" ' - 'txtUTAYear - ' - Me.txtUTAYear._DateTimeOnly = False - Me.txtUTAYear._numbersOnly = True - Me.txtUTAYear._numbersOnlyKommastellen = "" - Me.txtUTAYear._numbersOnlyTrennzeichen = False - Me.txtUTAYear._Prozent = False - Me.txtUTAYear._ShortDateNew = False - Me.txtUTAYear._ShortDateOnly = False - Me.txtUTAYear._TimeOnly = False - Me.txtUTAYear._TimeOnly_Seconds = False - Me.txtUTAYear._value = "" - Me.txtUTAYear._Waehrung = False - Me.txtUTAYear._WaehrungZeichen = True - Me.txtUTAYear.BackColor = System.Drawing.SystemColors.Window - Me.txtUTAYear.ForeColor = System.Drawing.Color.Red - Me.txtUTAYear.Location = New System.Drawing.Point(58, 113) - Me.txtUTAYear.MaxLength = 10 - Me.txtUTAYear.MaxLineLength = -1 - Me.txtUTAYear.MaxLines_Warning = "" - Me.txtUTAYear.MaxLines_Warning_Label = Nothing - Me.txtUTAYear.Name = "txtUTAYear" - Me.txtUTAYear.Size = New System.Drawing.Size(66, 20) - Me.txtUTAYear.TabIndex = 133 - Me.txtUTAYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtUTADate - ' - Me.txtUTADate._DateTimeOnly = False - Me.txtUTADate._numbersOnly = False - Me.txtUTADate._numbersOnlyKommastellen = "" - Me.txtUTADate._numbersOnlyTrennzeichen = False - Me.txtUTADate._Prozent = False - Me.txtUTADate._ShortDateNew = False - Me.txtUTADate._ShortDateOnly = True - Me.txtUTADate._TimeOnly = False - Me.txtUTADate._TimeOnly_Seconds = False - Me.txtUTADate._value = "" - Me.txtUTADate._Waehrung = False - 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(17, 183) - Me.txtUTADate.MaxLength = 10 - Me.txtUTADate.MaxLineLength = -1 - Me.txtUTADate.MaxLines_Warning = "" - Me.txtUTADate.MaxLines_Warning_Label = Nothing - Me.txtUTADate.Name = "txtUTADate" - Me.txtUTADate.Size = New System.Drawing.Size(66, 20) - Me.txtUTADate.TabIndex = 156 - Me.txtUTADate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'PLOSE ' Me.PLOSE.Controls.Add(Me.LinkLabel52) @@ -3776,58 +3139,6 @@ Partial Class frmStartOptions Me.PlosePdfRE.TabStop = True Me.PlosePdfRE.Text = "PDF mit RE verknüpfen" ' - 'txtPloseJahr - ' - Me.txtPloseJahr._DateTimeOnly = False - Me.txtPloseJahr._numbersOnly = True - Me.txtPloseJahr._numbersOnlyKommastellen = "" - Me.txtPloseJahr._numbersOnlyTrennzeichen = False - Me.txtPloseJahr._Prozent = False - Me.txtPloseJahr._ShortDateNew = False - Me.txtPloseJahr._ShortDateOnly = False - Me.txtPloseJahr._TimeOnly = False - Me.txtPloseJahr._TimeOnly_Seconds = False - Me.txtPloseJahr._value = "" - Me.txtPloseJahr._Waehrung = False - 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(88, 111) - Me.txtPloseJahr.MaxLength = 10 - Me.txtPloseJahr.MaxLineLength = -1 - Me.txtPloseJahr.MaxLines_Warning = "" - Me.txtPloseJahr.MaxLines_Warning_Label = Nothing - Me.txtPloseJahr.Name = "txtPloseJahr" - Me.txtPloseJahr.Size = New System.Drawing.Size(66, 20) - Me.txtPloseJahr.TabIndex = 158 - Me.txtPloseJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - '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(88, 134) - 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 - ' 'TabPage5 ' Me.TabPage5.Controls.Add(Me.cbxPloseNeu) @@ -4061,30 +3372,6 @@ Partial Class frmStartOptions Me.cbxUTANeu.Text = "UTA" Me.cbxUTANeu.UseVisualStyleBackColor = True ' - 'txtKdNr - ' - Me.txtKdNr._DateTimeOnly = False - Me.txtKdNr._numbersOnly = True - Me.txtKdNr._numbersOnlyKommastellen = "" - Me.txtKdNr._numbersOnlyTrennzeichen = False - Me.txtKdNr._Prozent = False - Me.txtKdNr._ShortDateNew = False - Me.txtKdNr._ShortDateOnly = False - Me.txtKdNr._TimeOnly = False - Me.txtKdNr._TimeOnly_Seconds = False - Me.txtKdNr._value = "" - Me.txtKdNr._Waehrung = False - Me.txtKdNr._WaehrungZeichen = True - Me.txtKdNr.ForeColor = System.Drawing.Color.Black - Me.txtKdNr.Location = New System.Drawing.Point(77, 69) - Me.txtKdNr.MaxLength = 50 - Me.txtKdNr.MaxLineLength = -1 - Me.txtKdNr.MaxLines_Warning = "" - Me.txtKdNr.MaxLines_Warning_Label = Nothing - Me.txtKdNr.Name = "txtKdNr" - Me.txtKdNr.Size = New System.Drawing.Size(136, 20) - Me.txtKdNr.TabIndex = 95 - ' 'KN8_DESTAT ' Me.KN8_DESTAT.AutoSize = True @@ -4179,32 +3466,13 @@ Partial Class frmStartOptions Me.lblWartungen.TabIndex = 15 Me.lblWartungen.Text = "Wartungen" ' - 'txtWartungFaelligkeitAbDat - ' - Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False - Me.txtWartungFaelligkeitAbDat._numbersOnly = False - Me.txtWartungFaelligkeitAbDat._numbersOnlyKommastellen = "" - Me.txtWartungFaelligkeitAbDat._numbersOnlyTrennzeichen = True - Me.txtWartungFaelligkeitAbDat._Prozent = False - Me.txtWartungFaelligkeitAbDat._ShortDateNew = True - Me.txtWartungFaelligkeitAbDat._ShortDateOnly = False - Me.txtWartungFaelligkeitAbDat._TimeOnly = False - Me.txtWartungFaelligkeitAbDat._TimeOnly_Seconds = False - Me.txtWartungFaelligkeitAbDat._value = "" - Me.txtWartungFaelligkeitAbDat._Waehrung = False - Me.txtWartungFaelligkeitAbDat._WaehrungZeichen = True - Me.txtWartungFaelligkeitAbDat.ForeColor = System.Drawing.Color.Red - Me.txtWartungFaelligkeitAbDat.Location = New System.Drawing.Point(75, 76) - Me.txtWartungFaelligkeitAbDat.MaxLength = 10 - Me.txtWartungFaelligkeitAbDat.MaxLineLength = -1 - Me.txtWartungFaelligkeitAbDat.MaxLines_Warning = "" - Me.txtWartungFaelligkeitAbDat.MaxLines_Warning_Label = Nothing - Me.txtWartungFaelligkeitAbDat.Name = "txtWartungFaelligkeitAbDat" - Me.txtWartungFaelligkeitAbDat.Size = New System.Drawing.Size(101, 20) - Me.txtWartungFaelligkeitAbDat.TabIndex = 141 - ' 'TabPage7 ' + Me.TabPage7.Controls.Add(Me.cbxEventtriggered) + Me.TabPage7.Controls.Add(Me.Label50) + Me.TabPage7.Controls.Add(Me.Label49) + Me.TabPage7.Controls.Add(Me.Label48) + Me.TabPage7.Controls.Add(Me.cbxCSsync) Me.TabPage7.Controls.Add(Me.cbxMailsenden) Me.TabPage7.Controls.Add(Me.cbxKundenbesonderheitenCS) Me.TabPage7.Controls.Add(Me.lblCS_DB) @@ -4224,22 +3492,70 @@ Partial Class frmStartOptions Me.TabPage7.Text = "Creditsafe" Me.TabPage7.UseVisualStyleBackColor = True ' + 'Label50 + ' + Me.Label50.AutoSize = True + Me.Label50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label50.ForeColor = System.Drawing.Color.Red + Me.Label50.Location = New System.Drawing.Point(168, 181) + Me.Label50.Name = "Label50" + Me.Label50.Size = New System.Drawing.Size(228, 13) + Me.Label50.TabIndex = 167 + Me.Label50.Text = "*prüfe Kunden, deren Bon-Dat. älter ist" + ' + 'Label49 + ' + Me.Label49.AutoSize = True + Me.Label49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label49.ForeColor = System.Drawing.Color.Red + Me.Label49.Location = New System.Drawing.Point(109, 246) + Me.Label49.Name = "Label49" + Me.Label49.Size = New System.Drawing.Size(234, 13) + Me.Label49.TabIndex = 166 + Me.Label49.Text = "*nur Info bei Kundenrechnung < 2 Jahre" + ' + 'Label48 + ' + Me.Label48.AutoSize = True + Me.Label48.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label48.ForeColor = System.Drawing.Color.Red + Me.Label48.Location = New System.Drawing.Point(14, 84) + Me.Label48.Name = "Label48" + Me.Label48.Size = New System.Drawing.Size(450, 13) + Me.Label48.TabIndex = 165 + Me.Label48.Text = "*bei Sync werden alle gelöscht und neu hochgeladen, sonst nur hochgeladen." + ' + 'cbxCSsync + ' + Me.cbxCSsync.AutoSize = True + Me.cbxCSsync.Checked = True + Me.cbxCSsync.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxCSsync.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxCSsync.Location = New System.Drawing.Point(17, 64) + Me.cbxCSsync.Name = "cbxCSsync" + Me.cbxCSsync.Size = New System.Drawing.Size(54, 17) + Me.cbxCSsync.TabIndex = 164 + Me.cbxCSsync.Text = "Sync*" + Me.cbxCSsync.UseVisualStyleBackColor = True + ' 'cbxMailsenden ' Me.cbxMailsenden.AutoSize = True + Me.cbxMailsenden.Checked = True + Me.cbxMailsenden.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxMailsenden.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxMailsenden.Location = New System.Drawing.Point(14, 193) + Me.cbxMailsenden.Location = New System.Drawing.Point(16, 246) Me.cbxMailsenden.Name = "cbxMailsenden" - Me.cbxMailsenden.Size = New System.Drawing.Size(83, 17) + Me.cbxMailsenden.Size = New System.Drawing.Size(87, 17) Me.cbxMailsenden.TabIndex = 163 - Me.cbxMailsenden.Text = "Mail senden" + Me.cbxMailsenden.Text = "Mail senden*" Me.cbxMailsenden.UseVisualStyleBackColor = True ' 'cbxKundenbesonderheitenCS ' Me.cbxKundenbesonderheitenCS.AutoSize = True Me.cbxKundenbesonderheitenCS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxKundenbesonderheitenCS.Location = New System.Drawing.Point(14, 170) + Me.cbxKundenbesonderheitenCS.Location = New System.Drawing.Point(16, 223) Me.cbxKundenbesonderheitenCS.Name = "cbxKundenbesonderheitenCS" Me.cbxKundenbesonderheitenCS.Size = New System.Drawing.Size(164, 17) Me.cbxKundenbesonderheitenCS.TabIndex = 162 @@ -4288,8 +3604,10 @@ Partial Class frmStartOptions 'bcxKundendatenaktCS ' Me.bcxKundendatenaktCS.AutoSize = True + Me.bcxKundendatenaktCS.Checked = True + Me.bcxKundendatenaktCS.CheckState = System.Windows.Forms.CheckState.Checked Me.bcxKundendatenaktCS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.bcxKundendatenaktCS.Location = New System.Drawing.Point(14, 147) + Me.bcxKundendatenaktCS.Location = New System.Drawing.Point(16, 200) Me.bcxKundendatenaktCS.Name = "bcxKundendatenaktCS" Me.bcxKundendatenaktCS.Size = New System.Drawing.Size(150, 17) Me.bcxKundendatenaktCS.TabIndex = 158 @@ -4299,12 +3617,14 @@ Partial Class frmStartOptions 'cbCheckDate ' Me.cbCheckDate.AutoSize = True + Me.cbCheckDate.Checked = True + Me.cbCheckDate.CheckState = System.Windows.Forms.CheckState.Checked Me.cbCheckDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbCheckDate.Location = New System.Drawing.Point(14, 124) + Me.cbCheckDate.Location = New System.Drawing.Point(16, 177) Me.cbCheckDate.Name = "cbCheckDate" - Me.cbCheckDate.Size = New System.Drawing.Size(74, 17) + Me.cbCheckDate.Size = New System.Drawing.Size(76, 17) Me.cbCheckDate.TabIndex = 140 - Me.cbCheckDate.Text = "AB Datum" + Me.cbCheckDate.Text = "ab-Datum*" Me.cbCheckDate.UseVisualStyleBackColor = True ' 'lblMissingCS @@ -4322,7 +3642,7 @@ Partial Class frmStartOptions Me.Button28.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button28.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button28.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button28.Location = New System.Drawing.Point(10, 216) + Me.Button28.Location = New System.Drawing.Point(12, 269) Me.Button28.Name = "Button28" Me.Button28.Size = New System.Drawing.Size(131, 24) Me.Button28.TabIndex = 141 @@ -4334,40 +3654,13 @@ Partial Class frmStartOptions Me.btnCreditsaveLauf.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCreditsaveLauf.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.btnCreditsaveLauf.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCreditsaveLauf.Location = New System.Drawing.Point(16, 76) + Me.btnCreditsaveLauf.Location = New System.Drawing.Point(14, 103) Me.btnCreditsaveLauf.Name = "btnCreditsaveLauf" Me.btnCreditsaveLauf.Size = New System.Drawing.Size(131, 24) Me.btnCreditsaveLauf.TabIndex = 140 Me.btnCreditsaveLauf.Text = "CS Portfolio-Upload" Me.btnCreditsaveLauf.UseVisualStyleBackColor = True ' - 'txtCSDate - ' - Me.txtCSDate._DateTimeOnly = False - Me.txtCSDate._numbersOnly = False - Me.txtCSDate._numbersOnlyKommastellen = "" - Me.txtCSDate._numbersOnlyTrennzeichen = False - Me.txtCSDate._Prozent = False - Me.txtCSDate._ShortDateNew = False - Me.txtCSDate._ShortDateOnly = True - Me.txtCSDate._TimeOnly = False - Me.txtCSDate._TimeOnly_Seconds = False - Me.txtCSDate._value = "" - Me.txtCSDate._Waehrung = False - Me.txtCSDate._WaehrungZeichen = True - Me.txtCSDate.BackColor = System.Drawing.SystemColors.Window - Me.txtCSDate.Enabled = False - Me.txtCSDate.ForeColor = System.Drawing.Color.Red - Me.txtCSDate.Location = New System.Drawing.Point(94, 121) - Me.txtCSDate.MaxLength = 10 - Me.txtCSDate.MaxLineLength = -1 - Me.txtCSDate.MaxLines_Warning = "" - Me.txtCSDate.MaxLines_Warning_Label = Nothing - Me.txtCSDate.Name = "txtCSDate" - Me.txtCSDate.Size = New System.Drawing.Size(66, 20) - Me.txtCSDate.TabIndex = 157 - Me.txtCSDate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'CheckBox2 ' Me.CheckBox2.AutoSize = True @@ -4446,30 +3739,6 @@ Partial Class frmStartOptions Me.Label3.TabIndex = 14 Me.Label3.Text = "Routine Manager IMEX" ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = True - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._numbersOnlyTrennzeichen = True - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._TimeOnly_Seconds = False - Me.MyTextBox1._value = "100000" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(151, 156) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox1.TabIndex = 11 - Me.MyTextBox1.Text = "100000" - ' 'PictureBox12 ' Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) @@ -4638,6 +3907,807 @@ Partial Class frmStartOptions Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.Text = "Routine Manager" ' + 'Button21 + ' + Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button21.Location = New System.Drawing.Point(581, 346) + Me.Button21.Name = "Button21" + Me.Button21.Size = New System.Drawing.Size(211, 24) + Me.Button21.TabIndex = 81 + Me.Button21.Text = "AAS Sendung 24h" + Me.Button21.UseVisualStyleBackColor = True + ' + 'MyTextBox3 + ' + Me.MyTextBox3._DateTimeOnly = False + Me.MyTextBox3._numbersOnly = True + Me.MyTextBox3._numbersOnlyKommastellen = "" + Me.MyTextBox3._numbersOnlyTrennzeichen = True + Me.MyTextBox3._Prozent = False + Me.MyTextBox3._ShortDateNew = False + Me.MyTextBox3._ShortDateOnly = False + Me.MyTextBox3._TimeOnly = False + Me.MyTextBox3._TimeOnly_Seconds = False + Me.MyTextBox3._value = "" + Me.MyTextBox3._Waehrung = False + Me.MyTextBox3._WaehrungZeichen = True + Me.MyTextBox3.ForeColor = System.Drawing.Color.Red + Me.MyTextBox3.Location = New System.Drawing.Point(127, 232) + Me.MyTextBox3.MaxLineLength = -1 + Me.MyTextBox3.MaxLines_Warning = "" + Me.MyTextBox3.MaxLines_Warning_Label = Nothing + Me.MyTextBox3.Name = "MyTextBox3" + Me.MyTextBox3.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox3.TabIndex = 86 + ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = True + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.ForeColor = System.Drawing.Color.Red + Me.MyTextBox2.Location = New System.Drawing.Point(151, 176) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox2.TabIndex = 63 + ' + 'txtSyskaWdhDateiname + ' + Me.txtSyskaWdhDateiname._DateTimeOnly = False + Me.txtSyskaWdhDateiname._numbersOnly = False + Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" + Me.txtSyskaWdhDateiname._numbersOnlyTrennzeichen = True + Me.txtSyskaWdhDateiname._Prozent = False + Me.txtSyskaWdhDateiname._ShortDateNew = False + Me.txtSyskaWdhDateiname._ShortDateOnly = False + Me.txtSyskaWdhDateiname._TimeOnly = False + Me.txtSyskaWdhDateiname._TimeOnly_Seconds = False + Me.txtSyskaWdhDateiname._value = "" + Me.txtSyskaWdhDateiname._Waehrung = False + Me.txtSyskaWdhDateiname._WaehrungZeichen = True + Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black + Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(692, 318) + Me.txtSyskaWdhDateiname.MaxLength = 50 + Me.txtSyskaWdhDateiname.MaxLineLength = -1 + Me.txtSyskaWdhDateiname.MaxLines_Warning = "" + Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing + Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" + Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) + Me.txtSyskaWdhDateiname.TabIndex = 58 + ' + 'txtEZOLLAnhDat + ' + Me.txtEZOLLAnhDat._DateTimeOnly = False + Me.txtEZOLLAnhDat._numbersOnly = False + Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" + Me.txtEZOLLAnhDat._numbersOnlyTrennzeichen = True + Me.txtEZOLLAnhDat._Prozent = False + Me.txtEZOLLAnhDat._ShortDateNew = True + Me.txtEZOLLAnhDat._ShortDateOnly = False + Me.txtEZOLLAnhDat._TimeOnly = False + Me.txtEZOLLAnhDat._TimeOnly_Seconds = False + Me.txtEZOLLAnhDat._value = "" + Me.txtEZOLLAnhDat._Waehrung = False + Me.txtEZOLLAnhDat._WaehrungZeichen = True + Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black + Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 214) + Me.txtEZOLLAnhDat.MaxLength = 10 + Me.txtEZOLLAnhDat.MaxLineLength = -1 + Me.txtEZOLLAnhDat.MaxLines_Warning = "" + Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing + Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" + Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) + Me.txtEZOLLAnhDat.TabIndex = 55 + ' + 'cboSYSKAFirma + ' + Me.cboSYSKAFirma._allowedValuesFreiText = Nothing + Me.cboSYSKAFirma._allowFreiText = False + Me.cboSYSKAFirma._value = "" + Me.cboSYSKAFirma.FormattingEnabled = True + Me.cboSYSKAFirma.Location = New System.Drawing.Point(564, 299) + Me.cboSYSKAFirma.Name = "cboSYSKAFirma" + Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) + Me.cboSYSKAFirma.TabIndex = 51 + ' + 'cboBMDUnispedFirma + ' + Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing + Me.cboBMDUnispedFirma._allowFreiText = False + Me.cboBMDUnispedFirma._value = "" + Me.cboBMDUnispedFirma.FormattingEnabled = True + Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 300) + Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" + Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) + Me.cboBMDUnispedFirma.TabIndex = 42 + ' + 'MyTextBox4 + ' + Me.MyTextBox4._DateTimeOnly = False + Me.MyTextBox4._numbersOnly = False + Me.MyTextBox4._numbersOnlyKommastellen = "" + Me.MyTextBox4._numbersOnlyTrennzeichen = True + Me.MyTextBox4._Prozent = False + Me.MyTextBox4._ShortDateNew = True + Me.MyTextBox4._ShortDateOnly = False + Me.MyTextBox4._TimeOnly = False + Me.MyTextBox4._TimeOnly_Seconds = False + Me.MyTextBox4._value = "" + Me.MyTextBox4._Waehrung = False + Me.MyTextBox4._WaehrungZeichen = True + Me.MyTextBox4.ForeColor = System.Drawing.Color.Black + Me.MyTextBox4.Location = New System.Drawing.Point(775, 277) + Me.MyTextBox4.MaxLength = 10 + Me.MyTextBox4.MaxLineLength = -1 + Me.MyTextBox4.MaxLines_Warning = "" + Me.MyTextBox4.MaxLines_Warning_Label = Nothing + Me.MyTextBox4.Name = "MyTextBox4" + Me.MyTextBox4.Size = New System.Drawing.Size(80, 20) + Me.MyTextBox4.TabIndex = 90 + ' + 'dgvMRN + ' + Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) + Me.dgvMRN.Location = New System.Drawing.Point(637, 63) + Me.dgvMRN.Name = "dgvMRN" + Me.dgvMRN.RowHeadersWidth = 62 + Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvMRN.Size = New System.Drawing.Size(207, 134) + Me.dgvMRN.TabIndex = 75 + ' + 'clmnMRN + ' + Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnMRN.HeaderText = "MRN" + Me.clmnMRN.MinimumWidth = 8 + Me.clmnMRN.Name = "clmnMRN" + ' + 'txtVRGOut_MRN + ' + Me.txtVRGOut_MRN._DateTimeOnly = False + Me.txtVRGOut_MRN._numbersOnly = False + Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" + Me.txtVRGOut_MRN._numbersOnlyTrennzeichen = True + Me.txtVRGOut_MRN._Prozent = False + Me.txtVRGOut_MRN._ShortDateNew = False + Me.txtVRGOut_MRN._ShortDateOnly = False + Me.txtVRGOut_MRN._TimeOnly = False + Me.txtVRGOut_MRN._TimeOnly_Seconds = False + Me.txtVRGOut_MRN._value = "" + Me.txtVRGOut_MRN._Waehrung = False + Me.txtVRGOut_MRN._WaehrungZeichen = False + Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) + Me.txtVRGOut_MRN.MaxLineLength = -1 + Me.txtVRGOut_MRN.MaxLines_Warning = "" + Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" + Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_MRN.TabIndex = 73 + ' + 'txtVRGOut_FilialenNr + ' + Me.txtVRGOut_FilialenNr._DateTimeOnly = False + Me.txtVRGOut_FilialenNr._numbersOnly = False + Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_FilialenNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_FilialenNr._Prozent = False + Me.txtVRGOut_FilialenNr._ShortDateNew = False + Me.txtVRGOut_FilialenNr._ShortDateOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = False + Me.txtVRGOut_FilialenNr._value = "" + Me.txtVRGOut_FilialenNr._Waehrung = False + Me.txtVRGOut_FilialenNr._WaehrungZeichen = False + Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) + Me.txtVRGOut_FilialenNr.MaxLineLength = -1 + Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" + Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_FilialenNr.Multiline = True + Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" + Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) + Me.txtVRGOut_FilialenNr.TabIndex = 71 + ' + 'txtVRGOut_AbfertigungsNr + ' + Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_AbfertigungsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_AbfertigungsNr._Prozent = False + Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False + Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = False + Me.txtVRGOut_AbfertigungsNr._value = "" + Me.txtVRGOut_AbfertigungsNr._Waehrung = False + Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False + Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) + Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_AbfertigungsNr.Multiline = True + Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" + Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) + Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox2.TabIndex = 64 + ' + 'txtVRGOutEZA_BezugsNr + ' + Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOutEZA_BezugsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOutEZA_BezugsNr._Prozent = False + Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False + Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = False + Me.txtVRGOutEZA_BezugsNr._value = "" + Me.txtVRGOutEZA_BezugsNr._Waehrung = False + Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False + Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) + Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOutEZA_BezugsNr.Multiline = True + Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" + Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) + Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox1.TabIndex = 4 + ' + 'txtVRGOut_BezugsNr + ' + Me.txtVRGOut_BezugsNr._DateTimeOnly = False + Me.txtVRGOut_BezugsNr._numbersOnly = False + Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_BezugsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_BezugsNr._Prozent = False + Me.txtVRGOut_BezugsNr._ShortDateNew = False + Me.txtVRGOut_BezugsNr._ShortDateOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = False + Me.txtVRGOut_BezugsNr._value = "" + Me.txtVRGOut_BezugsNr._Waehrung = False + Me.txtVRGOut_BezugsNr._WaehrungZeichen = False + Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) + Me.txtVRGOut_BezugsNr.MaxLineLength = -1 + Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" + Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_BezugsNr.TabIndex = 5 + ' + 'cboTCAPI_Firma + ' + Me.cboTCAPI_Firma._allowedValuesFreiText = Nothing + Me.cboTCAPI_Firma._allowFreiText = False + Me.cboTCAPI_Firma._value = "" + Me.cboTCAPI_Firma.FormattingEnabled = True + Me.cboTCAPI_Firma.Items.AddRange(New Object() {"ALLE", "ATILLA", "IMEX", "DURMAZ"}) + Me.cboTCAPI_Firma.Location = New System.Drawing.Point(570, 381) + Me.cboTCAPI_Firma.Name = "cboTCAPI_Firma" + Me.cboTCAPI_Firma.Size = New System.Drawing.Size(88, 21) + Me.cboTCAPI_Firma.TabIndex = 152 + Me.cboTCAPI_Firma.Text = "ALLE" + ' + 'MyTextBox06 + ' + Me.MyTextBox06._DateTimeOnly = False + Me.MyTextBox06._numbersOnly = False + Me.MyTextBox06._numbersOnlyKommastellen = "" + Me.MyTextBox06._numbersOnlyTrennzeichen = False + Me.MyTextBox06._Prozent = False + Me.MyTextBox06._ShortDateNew = False + Me.MyTextBox06._ShortDateOnly = False + Me.MyTextBox06._TimeOnly = False + Me.MyTextBox06._TimeOnly_Seconds = False + Me.MyTextBox06._value = "200" + Me.MyTextBox06._Waehrung = False + Me.MyTextBox06._WaehrungZeichen = False + Me.MyTextBox06.ForeColor = System.Drawing.Color.Black + Me.MyTextBox06.Location = New System.Drawing.Point(583, 302) + Me.MyTextBox06.MaxLength = 18 + Me.MyTextBox06.MaxLineLength = -1 + Me.MyTextBox06.MaxLines_Warning = "" + Me.MyTextBox06.MaxLines_Warning_Label = Nothing + Me.MyTextBox06.Name = "MyTextBox06" + Me.MyTextBox06.Size = New System.Drawing.Size(150, 20) + Me.MyTextBox06.TabIndex = 148 + Me.MyTextBox06.Text = "200" + ' + 'txtCheckATEZMRN + ' + Me.txtCheckATEZMRN._DateTimeOnly = False + Me.txtCheckATEZMRN._numbersOnly = False + Me.txtCheckATEZMRN._numbersOnlyKommastellen = "" + Me.txtCheckATEZMRN._numbersOnlyTrennzeichen = False + Me.txtCheckATEZMRN._Prozent = False + Me.txtCheckATEZMRN._ShortDateNew = False + Me.txtCheckATEZMRN._ShortDateOnly = False + Me.txtCheckATEZMRN._TimeOnly = False + Me.txtCheckATEZMRN._TimeOnly_Seconds = False + Me.txtCheckATEZMRN._value = "" + Me.txtCheckATEZMRN._Waehrung = False + Me.txtCheckATEZMRN._WaehrungZeichen = False + Me.txtCheckATEZMRN.ForeColor = System.Drawing.Color.Black + Me.txtCheckATEZMRN.Location = New System.Drawing.Point(548, 272) + Me.txtCheckATEZMRN.MaxLength = 18 + Me.txtCheckATEZMRN.MaxLineLength = -1 + Me.txtCheckATEZMRN.MaxLines_Warning = "" + Me.txtCheckATEZMRN.MaxLines_Warning_Label = Nothing + Me.txtCheckATEZMRN.Name = "txtCheckATEZMRN" + Me.txtCheckATEZMRN.Size = New System.Drawing.Size(185, 20) + Me.txtCheckATEZMRN.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 + ' + 'txtTWLNr + ' + Me.txtTWLNr._DateTimeOnly = False + Me.txtTWLNr._numbersOnly = True + Me.txtTWLNr._numbersOnlyKommastellen = "" + Me.txtTWLNr._numbersOnlyTrennzeichen = False + Me.txtTWLNr._Prozent = False + Me.txtTWLNr._ShortDateNew = False + Me.txtTWLNr._ShortDateOnly = False + Me.txtTWLNr._TimeOnly = False + Me.txtTWLNr._TimeOnly_Seconds = False + Me.txtTWLNr._value = "" + Me.txtTWLNr._Waehrung = False + Me.txtTWLNr._WaehrungZeichen = True + Me.txtTWLNr.ForeColor = System.Drawing.Color.Red + Me.txtTWLNr.Location = New System.Drawing.Point(168, 152) + Me.txtTWLNr.MaxLineLength = -1 + Me.txtTWLNr.MaxLines_Warning = "" + Me.txtTWLNr.MaxLines_Warning_Label = Nothing + Me.txtTWLNr.Name = "txtTWLNr" + Me.txtTWLNr.ReadOnly = True + Me.txtTWLNr.Size = New System.Drawing.Size(53, 20) + Me.txtTWLNr.TabIndex = 78 + ' + 'txtTBLNr + ' + Me.txtTBLNr._DateTimeOnly = False + Me.txtTBLNr._numbersOnly = True + Me.txtTBLNr._numbersOnlyKommastellen = "" + Me.txtTBLNr._numbersOnlyTrennzeichen = False + Me.txtTBLNr._Prozent = False + Me.txtTBLNr._ShortDateNew = False + Me.txtTBLNr._ShortDateOnly = False + Me.txtTBLNr._TimeOnly = False + Me.txtTBLNr._TimeOnly_Seconds = False + Me.txtTBLNr._value = "" + Me.txtTBLNr._Waehrung = False + Me.txtTBLNr._WaehrungZeichen = True + Me.txtTBLNr.ForeColor = System.Drawing.Color.Red + Me.txtTBLNr.Location = New System.Drawing.Point(168, 180) + Me.txtTBLNr.MaxLineLength = -1 + Me.txtTBLNr.MaxLines_Warning = "" + Me.txtTBLNr.MaxLines_Warning_Label = Nothing + Me.txtTBLNr.Name = "txtTBLNr" + Me.txtTBLNr.ReadOnly = True + Me.txtTBLNr.Size = New System.Drawing.Size(53, 20) + Me.txtTBLNr.TabIndex = 79 + ' + 'txtIDSYear + ' + Me.txtIDSYear._DateTimeOnly = False + Me.txtIDSYear._numbersOnly = True + Me.txtIDSYear._numbersOnlyKommastellen = "" + Me.txtIDSYear._numbersOnlyTrennzeichen = False + Me.txtIDSYear._Prozent = False + Me.txtIDSYear._ShortDateNew = False + Me.txtIDSYear._ShortDateOnly = False + Me.txtIDSYear._TimeOnly = False + Me.txtIDSYear._TimeOnly_Seconds = False + Me.txtIDSYear._value = "" + Me.txtIDSYear._Waehrung = False + 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(12, 61) + Me.txtIDSYear.MaxLength = 10 + Me.txtIDSYear.MaxLineLength = -1 + Me.txtIDSYear.MaxLines_Warning = "" + Me.txtIDSYear.MaxLines_Warning_Label = Nothing + Me.txtIDSYear.Name = "txtIDSYear" + Me.txtIDSYear.Size = New System.Drawing.Size(66, 20) + Me.txtIDSYear.TabIndex = 155 + Me.txtIDSYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtTransactionID + ' + Me.txtTransactionID._DateTimeOnly = False + Me.txtTransactionID._numbersOnly = True + Me.txtTransactionID._numbersOnlyKommastellen = "" + Me.txtTransactionID._numbersOnlyTrennzeichen = False + Me.txtTransactionID._Prozent = False + Me.txtTransactionID._ShortDateNew = False + Me.txtTransactionID._ShortDateOnly = False + Me.txtTransactionID._TimeOnly = False + Me.txtTransactionID._TimeOnly_Seconds = False + Me.txtTransactionID._value = "" + Me.txtTransactionID._Waehrung = False + 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(41, 207) + Me.txtTransactionID.MaxLength = 10 + Me.txtTransactionID.MaxLineLength = -1 + Me.txtTransactionID.MaxLines_Warning = "" + Me.txtTransactionID.MaxLines_Warning_Label = Nothing + Me.txtTransactionID.Name = "txtTransactionID" + Me.txtTransactionID.Size = New System.Drawing.Size(85, 20) + Me.txtTransactionID.TabIndex = 115 + Me.txtTransactionID.Text = "1001723285" + Me.txtTransactionID.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cbxMSEBatchNr + ' + Me.cbxMSEBatchNr._allowedValuesFreiText = Nothing + Me.cbxMSEBatchNr._allowFreiText = True + Me.cbxMSEBatchNr._value = "" + Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxMSEBatchNr.DropDownWidth = 20 + Me.cbxMSEBatchNr.FormattingEnabled = True + Me.cbxMSEBatchNr.Location = New System.Drawing.Point(30, 156) + Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr" + Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21) + Me.cbxMSEBatchNr.TabIndex = 122 + ' + 'txtBatchNr + ' + Me.txtBatchNr._DateTimeOnly = False + Me.txtBatchNr._numbersOnly = True + Me.txtBatchNr._numbersOnlyKommastellen = "" + Me.txtBatchNr._numbersOnlyTrennzeichen = False + Me.txtBatchNr._Prozent = False + Me.txtBatchNr._ShortDateNew = False + Me.txtBatchNr._ShortDateOnly = False + Me.txtBatchNr._TimeOnly = False + Me.txtBatchNr._TimeOnly_Seconds = False + Me.txtBatchNr._value = "" + Me.txtBatchNr._Waehrung = False + 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(81, 156) + Me.txtBatchNr.MaxLength = 10 + Me.txtBatchNr.MaxLineLength = -1 + Me.txtBatchNr.MaxLines_Warning = "" + Me.txtBatchNr.MaxLines_Warning_Label = Nothing + Me.txtBatchNr.Name = "txtBatchNr" + Me.txtBatchNr.Size = New System.Drawing.Size(36, 20) + Me.txtBatchNr.TabIndex = 127 + Me.txtBatchNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtBatchNrofTransaction + ' + Me.txtBatchNrofTransaction._DateTimeOnly = False + Me.txtBatchNrofTransaction._numbersOnly = True + Me.txtBatchNrofTransaction._numbersOnlyKommastellen = "" + Me.txtBatchNrofTransaction._numbersOnlyTrennzeichen = False + Me.txtBatchNrofTransaction._Prozent = False + Me.txtBatchNrofTransaction._ShortDateNew = False + Me.txtBatchNrofTransaction._ShortDateOnly = False + Me.txtBatchNrofTransaction._TimeOnly = False + Me.txtBatchNrofTransaction._TimeOnly_Seconds = False + Me.txtBatchNrofTransaction._value = "" + Me.txtBatchNrofTransaction._Waehrung = False + 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(177, 207) + Me.txtBatchNrofTransaction.MaxLength = 10 + Me.txtBatchNrofTransaction.MaxLineLength = -1 + Me.txtBatchNrofTransaction.MaxLines_Warning = "" + Me.txtBatchNrofTransaction.MaxLines_Warning_Label = Nothing + Me.txtBatchNrofTransaction.Name = "txtBatchNrofTransaction" + Me.txtBatchNrofTransaction.Size = New System.Drawing.Size(36, 20) + Me.txtBatchNrofTransaction.TabIndex = 129 + Me.txtBatchNrofTransaction.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cbxRMC + ' + Me.cbxRMC._allowedValuesFreiText = Nothing + Me.cbxRMC._allowFreiText = False + Me.cbxRMC._value = "" + Me.cbxRMC.FormattingEnabled = True + Me.cbxRMC.Location = New System.Drawing.Point(14, 142) + Me.cbxRMC.Name = "cbxRMC" + Me.cbxRMC.Size = New System.Drawing.Size(80, 21) + Me.cbxRMC.TabIndex = 90 + ' + 'txtUTAYear + ' + Me.txtUTAYear._DateTimeOnly = False + Me.txtUTAYear._numbersOnly = True + Me.txtUTAYear._numbersOnlyKommastellen = "" + Me.txtUTAYear._numbersOnlyTrennzeichen = False + Me.txtUTAYear._Prozent = False + Me.txtUTAYear._ShortDateNew = False + Me.txtUTAYear._ShortDateOnly = False + Me.txtUTAYear._TimeOnly = False + Me.txtUTAYear._TimeOnly_Seconds = False + Me.txtUTAYear._value = "" + Me.txtUTAYear._Waehrung = False + Me.txtUTAYear._WaehrungZeichen = True + Me.txtUTAYear.BackColor = System.Drawing.SystemColors.Window + Me.txtUTAYear.ForeColor = System.Drawing.Color.Red + Me.txtUTAYear.Location = New System.Drawing.Point(58, 113) + Me.txtUTAYear.MaxLength = 10 + Me.txtUTAYear.MaxLineLength = -1 + Me.txtUTAYear.MaxLines_Warning = "" + Me.txtUTAYear.MaxLines_Warning_Label = Nothing + Me.txtUTAYear.Name = "txtUTAYear" + Me.txtUTAYear.Size = New System.Drawing.Size(66, 20) + Me.txtUTAYear.TabIndex = 133 + Me.txtUTAYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtUTADate + ' + Me.txtUTADate._DateTimeOnly = False + Me.txtUTADate._numbersOnly = False + Me.txtUTADate._numbersOnlyKommastellen = "" + Me.txtUTADate._numbersOnlyTrennzeichen = False + Me.txtUTADate._Prozent = False + Me.txtUTADate._ShortDateNew = False + Me.txtUTADate._ShortDateOnly = True + Me.txtUTADate._TimeOnly = False + Me.txtUTADate._TimeOnly_Seconds = False + Me.txtUTADate._value = "" + Me.txtUTADate._Waehrung = False + 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(17, 183) + Me.txtUTADate.MaxLength = 10 + Me.txtUTADate.MaxLineLength = -1 + Me.txtUTADate.MaxLines_Warning = "" + Me.txtUTADate.MaxLines_Warning_Label = Nothing + Me.txtUTADate.Name = "txtUTADate" + Me.txtUTADate.Size = New System.Drawing.Size(66, 20) + Me.txtUTADate.TabIndex = 156 + Me.txtUTADate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtPloseJahr + ' + Me.txtPloseJahr._DateTimeOnly = False + Me.txtPloseJahr._numbersOnly = True + Me.txtPloseJahr._numbersOnlyKommastellen = "" + Me.txtPloseJahr._numbersOnlyTrennzeichen = False + Me.txtPloseJahr._Prozent = False + Me.txtPloseJahr._ShortDateNew = False + Me.txtPloseJahr._ShortDateOnly = False + Me.txtPloseJahr._TimeOnly = False + Me.txtPloseJahr._TimeOnly_Seconds = False + Me.txtPloseJahr._value = "" + Me.txtPloseJahr._Waehrung = False + 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(88, 111) + Me.txtPloseJahr.MaxLength = 10 + Me.txtPloseJahr.MaxLineLength = -1 + Me.txtPloseJahr.MaxLines_Warning = "" + Me.txtPloseJahr.MaxLines_Warning_Label = Nothing + Me.txtPloseJahr.Name = "txtPloseJahr" + Me.txtPloseJahr.Size = New System.Drawing.Size(66, 20) + Me.txtPloseJahr.TabIndex = 158 + Me.txtPloseJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + '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(88, 134) + 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 + ' + 'txtKdNr + ' + Me.txtKdNr._DateTimeOnly = False + Me.txtKdNr._numbersOnly = True + Me.txtKdNr._numbersOnlyKommastellen = "" + Me.txtKdNr._numbersOnlyTrennzeichen = False + Me.txtKdNr._Prozent = False + Me.txtKdNr._ShortDateNew = False + Me.txtKdNr._ShortDateOnly = False + Me.txtKdNr._TimeOnly = False + Me.txtKdNr._TimeOnly_Seconds = False + Me.txtKdNr._value = "" + Me.txtKdNr._Waehrung = False + Me.txtKdNr._WaehrungZeichen = True + Me.txtKdNr.ForeColor = System.Drawing.Color.Black + Me.txtKdNr.Location = New System.Drawing.Point(77, 69) + Me.txtKdNr.MaxLength = 50 + Me.txtKdNr.MaxLineLength = -1 + Me.txtKdNr.MaxLines_Warning = "" + Me.txtKdNr.MaxLines_Warning_Label = Nothing + Me.txtKdNr.Name = "txtKdNr" + Me.txtKdNr.Size = New System.Drawing.Size(136, 20) + Me.txtKdNr.TabIndex = 95 + ' + 'txtWartungFaelligkeitAbDat + ' + Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False + Me.txtWartungFaelligkeitAbDat._numbersOnly = False + Me.txtWartungFaelligkeitAbDat._numbersOnlyKommastellen = "" + Me.txtWartungFaelligkeitAbDat._numbersOnlyTrennzeichen = True + Me.txtWartungFaelligkeitAbDat._Prozent = False + Me.txtWartungFaelligkeitAbDat._ShortDateNew = True + Me.txtWartungFaelligkeitAbDat._ShortDateOnly = False + Me.txtWartungFaelligkeitAbDat._TimeOnly = False + Me.txtWartungFaelligkeitAbDat._TimeOnly_Seconds = False + Me.txtWartungFaelligkeitAbDat._value = "" + Me.txtWartungFaelligkeitAbDat._Waehrung = False + Me.txtWartungFaelligkeitAbDat._WaehrungZeichen = True + Me.txtWartungFaelligkeitAbDat.ForeColor = System.Drawing.Color.Red + Me.txtWartungFaelligkeitAbDat.Location = New System.Drawing.Point(75, 76) + Me.txtWartungFaelligkeitAbDat.MaxLength = 10 + Me.txtWartungFaelligkeitAbDat.MaxLineLength = -1 + Me.txtWartungFaelligkeitAbDat.MaxLines_Warning = "" + Me.txtWartungFaelligkeitAbDat.MaxLines_Warning_Label = Nothing + Me.txtWartungFaelligkeitAbDat.Name = "txtWartungFaelligkeitAbDat" + Me.txtWartungFaelligkeitAbDat.Size = New System.Drawing.Size(101, 20) + Me.txtWartungFaelligkeitAbDat.TabIndex = 141 + ' + 'txtCSDate + ' + Me.txtCSDate._DateTimeOnly = False + Me.txtCSDate._numbersOnly = False + Me.txtCSDate._numbersOnlyKommastellen = "" + Me.txtCSDate._numbersOnlyTrennzeichen = False + Me.txtCSDate._Prozent = False + Me.txtCSDate._ShortDateNew = False + Me.txtCSDate._ShortDateOnly = True + Me.txtCSDate._TimeOnly = False + Me.txtCSDate._TimeOnly_Seconds = False + Me.txtCSDate._value = "" + Me.txtCSDate._Waehrung = False + Me.txtCSDate._WaehrungZeichen = True + Me.txtCSDate.BackColor = System.Drawing.SystemColors.Window + Me.txtCSDate.Enabled = False + Me.txtCSDate.ForeColor = System.Drawing.Color.Red + Me.txtCSDate.Location = New System.Drawing.Point(96, 174) + Me.txtCSDate.MaxLength = 10 + Me.txtCSDate.MaxLineLength = -1 + Me.txtCSDate.MaxLines_Warning = "" + Me.txtCSDate.MaxLines_Warning_Label = Nothing + Me.txtCSDate.Name = "txtCSDate" + Me.txtCSDate.Size = New System.Drawing.Size(66, 20) + Me.txtCSDate.TabIndex = 157 + Me.txtCSDate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = True + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = "100000" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(151, 156) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox1.TabIndex = 11 + Me.MyTextBox1.Text = "100000" + ' 'txtGJ_UNISPED ' Me.txtGJ_UNISPED._DateTimeOnly = False @@ -4662,18 +4732,6 @@ Partial Class frmStartOptions Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20) Me.txtGJ_UNISPED.TabIndex = 68 ' - 'Button21 - ' - Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button21.Location = New System.Drawing.Point(581, 346) - Me.Button21.Name = "Button21" - Me.Button21.Size = New System.Drawing.Size(211, 24) - Me.Button21.TabIndex = 81 - Me.Button21.Text = "AAS Sendung 24h" - Me.Button21.UseVisualStyleBackColor = True - ' 'DataGridViewTextBoxColumn1 ' Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill @@ -4681,38 +4739,18 @@ Partial Class frmStartOptions Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" ' - 'lblMilliSekverz + 'cbxEventtriggered ' - Me.lblMilliSekverz.AutoSize = True - Me.lblMilliSekverz.Location = New System.Drawing.Point(206, 142) - Me.lblMilliSekverz.Name = "lblMilliSekverz" - Me.lblMilliSekverz.Size = New System.Drawing.Size(70, 13) - Me.lblMilliSekverz.TabIndex = 141 - Me.lblMilliSekverz.Text = "MilliSek.Verz." - ' - 'txtMsVerz - ' - Me.txtMsVerz._DateTimeOnly = False - Me.txtMsVerz._numbersOnly = True - Me.txtMsVerz._numbersOnlyKommastellen = "" - Me.txtMsVerz._numbersOnlyTrennzeichen = True - Me.txtMsVerz._Prozent = False - Me.txtMsVerz._ShortDateNew = False - Me.txtMsVerz._ShortDateOnly = False - Me.txtMsVerz._TimeOnly = False - Me.txtMsVerz._TimeOnly_Seconds = False - Me.txtMsVerz._value = "1000" - Me.txtMsVerz._Waehrung = False - Me.txtMsVerz._WaehrungZeichen = True - Me.txtMsVerz.ForeColor = System.Drawing.Color.Black - Me.txtMsVerz.Location = New System.Drawing.Point(151, 139) - Me.txtMsVerz.MaxLineLength = -1 - Me.txtMsVerz.MaxLines_Warning = "" - Me.txtMsVerz.MaxLines_Warning_Label = Nothing - Me.txtMsVerz.Name = "txtMsVerz" - Me.txtMsVerz.Size = New System.Drawing.Size(53, 20) - Me.txtMsVerz.TabIndex = 140 - Me.txtMsVerz.Text = "1000" + Me.cbxEventtriggered.AutoSize = True + Me.cbxEventtriggered.Checked = True + Me.cbxEventtriggered.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxEventtriggered.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxEventtriggered.Location = New System.Drawing.Point(14, 144) + Me.cbxEventtriggered.Name = "cbxEventtriggered" + Me.cbxEventtriggered.Size = New System.Drawing.Size(237, 17) + Me.cbxEventtriggered.TabIndex = 168 + Me.cbxEventtriggered.Text = "Daily-Check (schneller aber weniger deailiert)" + Me.cbxEventtriggered.UseVisualStyleBackColor = True ' 'frmStartOptions ' @@ -4755,7 +4793,6 @@ Partial Class frmStartOptions Me.TabPage2.PerformLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() Me.Panel1.ResumeLayout(False) @@ -4789,6 +4826,7 @@ Partial Class frmStartOptions CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -5118,6 +5156,9 @@ Partial Class frmStartOptions Friend WithEvents lbl_CS_online As Label Friend WithEvents cbxMailsenden As CheckBox Friend WithEvents cbxKundenbesonderheitenCS As CheckBox - Friend WithEvents lblMilliSekverz As Label - Friend WithEvents txtMsVerz As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label48 As Label + Friend WithEvents cbxCSsync As CheckBox + Friend WithEvents Label49 As Label + Friend WithEvents Label50 As Label + Friend WithEvents cbxEventtriggered As CheckBox End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 8da457c..049c40f 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -212,6 +212,102 @@ +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC @@ -622,9 +718,6 @@ SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - True - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj @@ -721,102 +814,12 @@ SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - + + True + + + True + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index cfe1f51..bc1945a 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -831,15 +831,27 @@ Public Class frmStartOptions End If - Case "CREDITSAFE_EVENTS" + Case "CREDITSAFE_EVENTS_MONTHLY" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - Dim upateKunden As Boolean = True - Dim OnlyCurrentMonthData As Boolean = True - Dim setzeInfoImKunden As Boolean = True + Dim upateKunden As Boolean = False + Dim checkDate As Boolean = True + Dim setzeInfoImKunden As Boolean = False + Dim sendMail As Boolean = False 'nicht nochmals, oder? + + importCreditsafeEvents(CDate("01." & Now.Month & "." & Now.Year).ToShortDateString, checkDate, upateKunden, setzeInfoImKunden, sendMail, True) + closeMe() + + Case "CREDITSAFE_EVENTS_DAILY" + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + + Dim upateKunden As Boolean = False + Dim checkDate As Boolean = True + Dim setzeInfoImKunden As Boolean = False Dim sendMail As Boolean = True - importCreditsafeEvents(CDate("01." & Now.Month & "." & Now.Year).ToShortDateString, OnlyCurrentMonthData, upateKunden, setzeInfoImKunden, sendMail) + importCreditsafeEvents(CDate(Today().AddDays(-1)).ToShortDateString, checkDate, upateKunden, setzeInfoImKunden, sendMail, False) + closeMe() @@ -847,8 +859,8 @@ Public Class frmStartOptions Case "CREDITSAFE_UPLOADS" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - UploadCompaniesToCreditsafe() - + Dim sync As Boolean = True + UploadCompaniesToCreditsafe(sync) closeMe() Case Else @@ -3756,7 +3768,7 @@ Public Class frmStartOptions Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked, txtMsVerz._value) + Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked) 'bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "d.breimaier@verag.ag",,, MyTextBox2._value, cbxVermerk.Checked) 'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text) showPic(bool, PictureBox12) @@ -4240,12 +4252,12 @@ Public Class frmStartOptions Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False ' Dim bool = getUID_PruefungIMEX(MyTextBox1.Text) - Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked, txtMsVerz._value) + Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked) showPic(bool, PictureBox12) End Sub Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", "io@ambarlog.de", , "al@verag.ag;as@verag.ag", MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked, txtMsVerz._value) + Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", "io@ambarlog.de", , "al@verag.ag;as@verag.ag", MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked) showPic(bool, PictureBox12) End Sub @@ -4396,7 +4408,7 @@ Public Class frmStartOptions Private Sub LinkLabel36_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel36.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - Dim bool = getUID_Pruefung(MyTextBox1.Text, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked, txtMsVerz._value) + Dim bool = getUID_Pruefung(MyTextBox1.Text, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked) showPic(bool, PictureBox12) End Sub @@ -6312,7 +6324,7 @@ weiter: 'Existing companies in the portfolio will be skipped, and only new unique entries will be added. - UploadCompaniesToCreditsafe() + UploadCompaniesToCreditsafe(cbxCSsync.Checked) End Sub @@ -6375,70 +6387,153 @@ weiter: End If - importCreditsafeEvents(datumString, cbCheckDate.Checked, bcxKundendatenaktCS.Checked, cbxKundenbesonderheitenCS.Checked, cbxMailsenden.Checked) + importCreditsafeEvents(datumString, cbCheckDate.Checked, bcxKundendatenaktCS.Checked, cbxKundenbesonderheitenCS.Checked, cbxMailsenden.Checked, Not cbxEventtriggered.Checked) End Sub - Private Sub importCreditsafeEvents(datum As String, checkDate As Boolean, upateKunden As Boolean, setzeKundenbesonderheiten As Boolean, sendMail As Boolean) + Private Sub importCreditsafeEvents(datum As String, checkDate As Boolean, upateKunden As Boolean, setzeKundenbesonderheiten As Boolean, sendMail As Boolean, companyDetailEventsRequest As Boolean) + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + 'WICHTIG, bei companyDetailEventsRequest = true wird gleich Punkt 3 gemacht (dauert länger, aber mehr Datensätze und alle Kunden werden geprüft, bei companyDetailEventsRequest = false wird die u.a. Best Practice-Methode durchgeführt (Punkt 1 und 2) -> also triggerbasierend)!!!! + 'ANSATZ, bei der täglichen Prüfung die triggerbasierten Abruf, 1x im Monat bzw. wenn spezisches Unternehmen geprüft wird, dann Punkt 3. + + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 'Best Practices for Viewing Notification Events '1. Use Portfolio-Specific Events for Targeted Monitoring: Start with the portfolio-specific endpoint to focus on changes relevant to a particular portfolio. '2. Leverage Global Events for a Broader View: Use the all-events endpoint to gain a comprehensive overview of all notifications across your portfolios. - '3. Drill Down to Company-Level Events When Needed: For detailed insights into a specific company, use the company-specific endpoint. - '4. Verify Enabled Rules: Ensure that the appropriate event rules are enabled for your portfolios to capture the desired notifications. Refer to the Activate Event Rules section for guidance. - 'aktuell machem wir gleich punkt 3, das verursacht sehr viele APP-Aurfrufe, besser nach der Liste oben! + '3. Drill Down to Company-Level Events WHEN NEEDED: For detailed insights into a specific company, use the company-specific endpoint. + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- - Dim creditsaveOld As String = " - select ba_KundenNr FROM tblBonitaetsauskunft WHERE ba_Pruefungstool = 'creditsafe API' - - EXCEPT - - SELECT * FROM ( SELECT ba_KundenNr - FROM tblBonitaetsauskunft - WHERE ba_Pruefungstool = 'creditsafe API' and cast(ba_Datum as Date) >= '" & datum & "' - - UNION ALL - - SELECT e.KundenNr - FROM ( - SELECT e.KundenNr, - e.eventDate, - 'creditsafe API' AS Source - FROM [VERAG].[dbo].[tblCreditsafeEvents] e - INNER JOIN [VERAG].[dbo].[tblBonitaetsauskunft] b - ON e.bonId = b.ba_id - WHERE b.ba_Pruefungstool = 'creditsafe API' - AND (e.localEventCode IN ('CL','CR') OR e.globalEventCode IN ('CL','CR')) - ) e - WHERE cast(e.eventDate as Date) >= '" & datum & "' - GROUP BY Source, e.KundenNr, cast(e.eventDate as Date) - ) AS Temp" + 'Dim creditsaveOld As String = " + ' select ba_KundenNr FROM tblBonitaetsauskunft WHERE ba_Pruefungstool = 'creditsafe API' + + ' EXCEPT + + ' SELECT * FROM ( SELECT ba_KundenNr + ' FROM tblBonitaetsauskunft + ' WHERE ba_Pruefungstool = 'creditsafe API' and cast(ba_Datum as Date) >= '" & datum & "' + + ' UNION ALL + + ' SELECT e.KundenNr + ' FROM ( + ' SELECT e.KundenNr, + ' e.eventDate, + ' 'creditsafe API' AS Source + ' FROM [VERAG].[dbo].[tblCreditsafeEvents] e + ' INNER JOIN [VERAG].[dbo].[tblBonitaetsauskunft] b + ' ON e.bonId = b.ba_id + ' WHERE b.ba_Pruefungstool = 'creditsafe API' + ' AND (e.localEventCode IN ('CL','CR') OR e.globalEventCode IN ('CL','CR')) + ' ) e + ' WHERE cast(e.eventDate as Date) >= '" & datum & "' + ' GROUP BY Source, e.KundenNr, cast(e.eventDate as Date) + ' ) AS Temp" - Dim creditsave As String = "select distinct(ba_KundenNr) from Kunden + + + Dim creditsave As String = "select distinct(ba_KundenNr),f.Firma from Kunden inner join tblKundenErweitert on Kunden.KundenNr = kde_KundenNr + inner join Filialen as f on f.FilialenNr = Kunden.FilialenNr inner join tblBonitaetsauskunft on ba_KundenNr = kde_KundenNr - where isnull(tblKundenErweitert.kde_CreditSaveId,'') <> '' and kde_CreditSaveId <> 'True' and kde_CreditSaveId <>'False' and isnull(kde_CreditSaveNo,'') <> '' and kde_CSPortfolioAdded = 1 AND ba_Pruefungstool = 'creditsafe API'" & IIf(datum <> "", " AND Kunden.Bonitätsdatum <= '" & datum & "'", "") - If False Then - creditsave &= " and ba_KundenNr = 720249" + where isnull(tblKundenErweitert.kde_CreditSaveId,'') <> '' and kde_CreditSaveId <> 'True' and kde_CreditSaveId <>'False' and isnull(kde_CreditSaveNo,'') <> '' and kde_CSPortfolioAdded = 1 AND ba_Pruefungstool = 'creditsafe API'" & IIf(datum <> "", " AND Kunden.Bonitätsdatum <= '" & datum & "' ", "") + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + creditsave &= " AND ba_Kundennr in (701809, 1096780)" End If - - Dim dtCreditsafe As DataTable = (New SQL).loadDgvBySql(creditsave, "FMZOLL") - If dtCreditsafe.Rows.Count = 0 Then Exit Sub - - Dim cs = New cCreditSafeAPI("creditsafe") + Dim Mailinfolast1Year As Boolean = False + If cs.authenticate() = "200" Then + If Not companyDetailEventsRequest Then + + Dim API_Start_Daily = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_CS, "DAiLY-CREDITSAFE-EVENTS-IMPORT", "CS") + + Dim dtMonitoredRequest As New DataTable + + Dim companyDummy As New cCreditSafeAPI.Company("", "", "", "", "", "", Nothing, "", "", "", "", "", "", "", "", "", 0) + If datum <> "" AndAlso IsDate(datum) Then + companyDummy.lastChecked = CDate(datum) + End If +repeatRequestDaily: + Dim page As Integer = 0 + Dim totalPages As Integer = -1 + + Dim APIText = cs.getCompanyEvents(companyDummy, dtMonitoredRequest, False, totalPages, checkDate, upateKunden, False,, setzeKundenbesonderheiten, True,, page) + If (APIText.Contains("Error") Or APIText.Contains("Verbindungsfehler")) Then API_Start_Daily.UPDTAE_ERR("ERROR", APIText, "dailyImportCreditsafeEvents") + + If APIText.Contains("Invalid token") Then + If Not cs.authenticate() = 200 Then + API_Start_Daily.UPDTAE_ERR("ERROR", APIText, "importCreditsafeEvents") + Exit Sub + Else + Thread.Sleep(4000) + GoTo repeatRequestDaily + End If + End If + + If totalPages > 1 Then + For i = 2 To totalPages +repeatRequestDailyPages: + APIText = cs.getCompanyEvents(companyDummy, dtMonitoredRequest, False, totalPages, checkDate, upateKunden, False,, setzeKundenbesonderheiten, True,, i) + If APIText.Contains("Invalid token") Then + If Not cs.authenticate() = 200 Then + API_Start_Daily.UPDTAE_ERR("ERROR", APIText, "dailyImportCreditsafeEvents") + Exit For + Else + Thread.Sleep(4000) + GoTo repeatRequestDailyPages + End If + End If + Next + + End If + + + + Exit Sub + + End If + + + Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-1) & "' ", "FMZOLL") + + Dim dtCreditsafe As DataTable = (New SQL).loadDgvBySql(creditsave, "FMZOLL") + + If dtCreditsafe.Rows.Count = 0 Then Exit Sub + + Dim countMissingVerag As Integer = 0 + Dim countMissingIMEX As Integer = 0 + Dim countMissingUNISPED As Integer = 0 + Dim countMissingAMBAR As Integer = 0 + + Dim dt_fehlendeCreditsafeIDS As New DataTable + dt_fehlendeCreditsafeIDS.Columns.Add("KundenNr", GetType(String)) + dt_fehlendeCreditsafeIDS.Columns.Add("Creditsafe-ID", GetType(String)) + dt_fehlendeCreditsafeIDS.Columns.Add("Creditsafe-NO", GetType(String)) + dt_fehlendeCreditsafeIDS.Columns.Add("Firma", GetType(String)) + + + + Dim counter As Integer = 0 + Dim API_Start = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_CS, "CREDITSAFE-EVENTS-IMPORT", "CS") + If dtCreditsafe.Rows.Count = 0 Then + API_Start.UPDTAE_ERR("ERROR - KEINE DATEN", "Anzahl abgefragte Datensätze:" & dtCreditsafe.Rows.Count & " Anzahl importierte Datensätze:" & counter & " Anzahl fehlende Creditsafe-IDs:" & dt_fehlendeCreditsafeIDS.Rows.Count, "importCreditsafeEvents") + End If For Each row As DataRow In dtCreditsafe.Rows @@ -6453,21 +6548,109 @@ weiter: If currentBonID > 0 Then company.csBonID = currentBonID Dim dt As New DataTable() - cs.getCompanyEvents(company, dt, checkDate, upateKunden, False,, setzeKundenbesonderheiten, sendMail) + + Dim exists As Boolean = dtRechnungen.AsEnumerable().Any(Function(r) r.Field(Of Integer)("RechnungsKundenNr") = KUNDE_ERW.kde_KundenNr) + If sendMail Then + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Mailinfolast1Year = True + Else + Mailinfolast1Year = exists + End If + + End If +repeatRequest: + Dim APIText As String = "" + If exists Then + APIText = cs.getCompanyEventsDetails(company, dt, checkDate, upateKunden, False, , setzeKundenbesonderheiten, Mailinfolast1Year, row("Firma")) + End If + + If (APIText.Contains("Error") Or APIText.Contains("Verbindungsfehler")) Then + Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_CS, "CREDITSAFE-EVENTS", "CS",, KUNDE_ERW.kde_KundenNr) + API.UPDTAE_ERR("ERROR", APIText, "importCreditsafeEvents") + If APIText.Contains("Not Found") AndAlso APIText.Contains(KUNDE_ERW.kde_CreditSaveId) Then + + Dim R As DataRow = dt_fehlendeCreditsafeIDS.NewRow + R("KundenNr") = KUNDE_ERW.kde_KundenNr + R("Creditsafe-ID") = KUNDE_ERW.kde_CreditSaveId + R("Creditsafe-NO") = KUNDE_ERW.kde_CreditSaveNo + R("Firma") = row("Firma") + dt_fehlendeCreditsafeIDS.Rows.Add(R) + + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Select Case row(FIRMA) + Case "VERAG" : countMissingVerag += 1 + Case "IMEX" : countMissingIMEX += 1 + Case "AMBAR" : countMissingAMBAR += 1 + Case "UNISPED" : countMissingUNISPED += 1 + End Select + End If + + + KUNDE_ERW.kde_CreditSaveId = "" + KUNDE_ERW.SAVE() + End If + + If APIText.Contains("Invalid token") Then + If Not cs.authenticate() = 200 Then + API.UPDTAE_ERR("ERROR", APIText, "importCreditsafeEvents") + Exit For + Else + Thread.Sleep(4000) + GoTo repeatRequest + End If + End If + + Else + counter += 1 + + End If + + Thread.Sleep(1000) Next + + If dtCreditsafe.Rows.Count = (counter - dt_fehlendeCreditsafeIDS.Rows.Count) Then + API_Start.UPDTAE_OK() + Else + API_Start.UPDTAE_ERR("IMPORT UNVOLLSTÄNDIG", "Anzahl abgefragte Datensätze:" & dtCreditsafe.Rows.Count & " Anzahl importierte Datensätze:" & counter & " Anzahl fehlende Creditsafe-IDs:" & dt_fehlendeCreditsafeIDS.Rows.Count, "importCreditsafeEvents") + End If + + + + If dt_fehlendeCreditsafeIDS.Rows.Count > 0 Then + Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt_fehlendeCreditsafeIDS,,,,, False) + If filepath <> "" Then + Dim anhenge As New List(Of String) + anhenge.Add(filepath) + Dim empfaneger As String = "" + If countMissingVerag > 0 Then empfaneger &= "as@verag.ag;" + If countMissingIMEX > 0 Then empfaneger &= "Viktoria.Leirich@imex-group.at;" + If countMissingUNISPED > 0 Then empfaneger &= "" '"sabine.muehlboeck@unisped.at;" + If countMissingAMBAR > 0 Then empfaneger &= "" '"Buchhaltung@ambarlog.com;" + If empfaneger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE - fehlende CS-IDs", "Im Anhang befinden sich eine Liste der Kunden, deren Creditsafe-ID ungültig sind/nicht gefunden wurden!" & "

" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge) + End If + End If + End If End Sub - Private Sub UploadCompaniesToCreditsafe() + Private Sub UploadCompaniesToCreditsafe(sync As Boolean) Dim cs = New cCreditSafeAPI("creditsafe") Dim addCreditsave As Boolean = False If cs.authenticate() = "200" Then addCreditsave = True + 'The Sync method allows you to replace all existing companies in a portfolio with the contents of an uploaded file. + 'Unlike the Import method, this endpoint overwrites the entire portfolio, deleting all previously allocated companies. + + Dim where As String = "" + + If Not sync Then where = " and kde_CSPortfolioAdded = 0" + While addCreditsave - Dim creditsave As String = "select kde_CreditSaveNo 'Safe Number', '' as 'Local Org No.',left(kde_CreditSaveId,2) as 'Country Code', '' as Reference, '' as 'Free Text', '' as 'Personal Limit' from tblKundenErweitert where isnull(tblKundenErweitert.kde_CreditSaveId,'') <> '' and kde_CreditSaveId <> 'True' and kde_CreditSaveId <>'False' and isnull(kde_CreditSaveNo,'') <> '' and kde_CSPortfolioAdded = 0 group by kde_CreditSaveNo, kde_CreditSaveId" + Dim creditsave As String = "select kde_CreditSaveNo 'Safe Number', '' as 'Local Org No.',left(kde_CreditSaveId,2) as 'Country Code', '' as Reference, '' as 'Free Text', '' as 'Personal Limit' from tblKundenErweitert inner join Adressen on Adressen.AdressenNr = kde_KundenNr where isnull(tblKundenErweitert.kde_CreditSaveId,'') <> '' and kde_CreditSaveId <> 'True' and kde_CreditSaveId <>'False' and isnull(kde_CreditSaveNo,'') <> '' " & where & " and Adressen.Auswahl = 'A' group by kde_CreditSaveNo, kde_CreditSaveId" Dim dtCreditsafe_CSV As DataTable = (New SQL).loadDgvBySql(creditsave, "FMZOLL") If dtCreditsafe_CSV.Rows.Count = 0 Then @@ -6476,11 +6659,15 @@ weiter: Dim Path As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(dtCreditsafe_CSV,,, "importcsv") If Path <> "" Then - If cs.AddCompaniesCSVToPortfolio(Path).Contains("400") Then 'bei Fehler abbrechen! + + Dim resp = cs.AddCompaniesCSVToPortfolio(Path, sync) + If resp IsNot Nothing AndAlso resp.Contains("400") Then 'bei Fehler abbrechen! + Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_CS, "CREDITSAFE-PORTFOLIO UPLOAD", "CS") + API.UPDTAE_ERR("ERROR", resp, "AddCompaniesCSVToPortfolio") Exit While End If - End If + End If Dim displayView = New DataView(dtCreditsafe_CSV, "", "Safe Number", DataViewRowState.CurrentRows) @@ -6498,7 +6685,7 @@ weiter: addCreditsave = (New SQL).doSQL("Update tblKundenErweitert set kde_CSPortfolioAdded = 1 where kde_CreditSaveNo in (" & CS_ID & ")", "FMZOLL") End If - + If sync Then addCreditsave = False End While