From 18f433f3456822a7d5f8eb994a00998b0e1cbd9d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 3 Sep 2025 10:04:56 +0200 Subject: [PATCH] Creditsave-Rountine, Mailsender, etc. --- MailSender/MAILSender.vb | 3 +- UID/usrctlProcedures.Designer.vb | 108 ++++- UID/usrctlProcedures.vb | 214 ++++++++- .../frmStartOptions.Designer.vb | 435 +++++++++++------- initATLASAufschubkonten/frmStartOptions.resx | 195 ++++---- initATLASAufschubkonten/frmStartOptions.vb | 152 +++++- 6 files changed, 830 insertions(+), 277 deletions(-) diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index 1677570..debee27 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -1013,8 +1013,7 @@ Module Mail If Body = "" Then Body = "Anbei befinden sich die Auswertungen Zollanmeldungen von " & von.ToShortDateString & " bis " & bis.ToShortDateString & "." & "

Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString & - "


Automatisch generiertes E-Mail. Bitte Antworten Sie nicht an dieses E-Mail." & - "

VERAG SPEDITION AG" + "


Automatisch generiertes E-Mail. Bitte Antworten Sie nicht an dieses E-Mail." Else Body = replaceBodyVariable(Body, von, bis) diff --git a/UID/usrctlProcedures.Designer.vb b/UID/usrctlProcedures.Designer.vb index 6bdd199..3aa466f 100644 --- a/UID/usrctlProcedures.Designer.vb +++ b/UID/usrctlProcedures.Designer.vb @@ -86,6 +86,11 @@ Partial Class usrctlProcedures Me.btnTC_FtpIUpload = New System.Windows.Forms.Button() Me.Button48 = New System.Windows.Forms.Button() Me.Button47 = New System.Windows.Forms.Button() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.Button51 = New System.Windows.Forms.Button() + Me.cbxMDM_Testsystem = New System.Windows.Forms.CheckBox() + Me.Button50 = New System.Windows.Forms.Button() + Me.Button49 = New System.Windows.Forms.Button() Me.Button18 = New System.Windows.Forms.Button() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.lblAnzahl = New System.Windows.Forms.Label() @@ -139,6 +144,9 @@ Partial Class usrctlProcedures Me.Button43 = New System.Windows.Forms.Button() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Label17 = New System.Windows.Forms.Label() + Me.Label18 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() Me.TabControl1.SuspendLayout() Me.TabPage3.SuspendLayout() Me.TabPage1.SuspendLayout() @@ -148,6 +156,7 @@ Partial Class usrctlProcedures Me.TabPage2.SuspendLayout() Me.TabPage4.SuspendLayout() Me.TabPage5.SuspendLayout() + Me.TabPage6.SuspendLayout() Me.SuspendLayout() ' 'TabControl1 @@ -157,6 +166,7 @@ Partial Class usrctlProcedures Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage4) Me.TabControl1.Controls.Add(Me.TabPage5) + Me.TabControl1.Controls.Add(Me.TabPage6) Me.TabControl1.Location = New System.Drawing.Point(7, 407) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 @@ -769,6 +779,61 @@ Partial Class usrctlProcedures Me.Button47.Text = "getTAD" Me.Button47.UseVisualStyleBackColor = True ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.Label19) + Me.TabPage6.Controls.Add(Me.Label18) + Me.TabPage6.Controls.Add(Me.Label17) + Me.TabPage6.Controls.Add(Me.Button51) + Me.TabPage6.Controls.Add(Me.cbxMDM_Testsystem) + Me.TabPage6.Controls.Add(Me.Button50) + Me.TabPage6.Controls.Add(Me.Button49) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Size = New System.Drawing.Size(601, 288) + Me.TabPage6.TabIndex = 5 + Me.TabPage6.Text = "MDM Importe" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'Button51 + ' + Me.Button51.Location = New System.Drawing.Point(32, 97) + Me.Button51.Name = "Button51" + Me.Button51.Size = New System.Drawing.Size(106, 28) + Me.Button51.TabIndex = 68 + Me.Button51.Text = "Offertenpos" + Me.Button51.UseVisualStyleBackColor = True + ' + 'cbxMDM_Testsystem + ' + Me.cbxMDM_Testsystem.AutoSize = True + Me.cbxMDM_Testsystem.Checked = True + Me.cbxMDM_Testsystem.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxMDM_Testsystem.Location = New System.Drawing.Point(14, 13) + Me.cbxMDM_Testsystem.Name = "cbxMDM_Testsystem" + Me.cbxMDM_Testsystem.Size = New System.Drawing.Size(98, 17) + Me.cbxMDM_Testsystem.TabIndex = 69 + Me.cbxMDM_Testsystem.Text = "TESTSYSTEM" + Me.cbxMDM_Testsystem.UseVisualStyleBackColor = True + ' + 'Button50 + ' + Me.Button50.Location = New System.Drawing.Point(172, 63) + Me.Button50.Name = "Button50" + Me.Button50.Size = New System.Drawing.Size(106, 28) + Me.Button50.TabIndex = 67 + Me.Button50.Text = "FIBU-Kundenkür." + Me.Button50.UseVisualStyleBackColor = True + ' + 'Button49 + ' + Me.Button49.Location = New System.Drawing.Point(32, 63) + Me.Button49.Name = "Button49" + Me.Button49.Size = New System.Drawing.Size(106, 28) + Me.Button49.TabIndex = 66 + Me.Button49.Text = "Standard-Off." + Me.Button49.UseVisualStyleBackColor = True + ' 'Button18 ' Me.Button18.Location = New System.Drawing.Point(59, 183) @@ -984,7 +1049,7 @@ Partial Class usrctlProcedures Me.txt.Multiline = True Me.txt.Name = "txt" Me.txt.ScrollBars = System.Windows.Forms.ScrollBars.Vertical - Me.txt.Size = New System.Drawing.Size(124, 91) + Me.txt.Size = New System.Drawing.Size(124, 77) Me.txt.TabIndex = 38 ' 'TextBox9 @@ -993,7 +1058,7 @@ Partial Class usrctlProcedures Me.TextBox9.Multiline = True Me.TextBox9.Name = "TextBox9" Me.TextBox9.ScrollBars = System.Windows.Forms.ScrollBars.Vertical - Me.TextBox9.Size = New System.Drawing.Size(124, 91) + Me.TextBox9.Size = New System.Drawing.Size(124, 77) Me.TextBox9.TabIndex = 39 ' 'Button22 @@ -1231,7 +1296,7 @@ Partial Class usrctlProcedures ' 'Button43 ' - Me.Button43.Location = New System.Drawing.Point(694, 29) + Me.Button43.Location = New System.Drawing.Point(565, 29) Me.Button43.Name = "Button43" Me.Button43.Size = New System.Drawing.Size(145, 49) Me.Button43.TabIndex = 65 @@ -1248,6 +1313,33 @@ Partial Class usrctlProcedures Me.DataGridViewTextBoxColumn2.HeaderText = "anz" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(11, 71) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(19, 13) + Me.Label17.TabIndex = 66 + Me.Label17.Text = "1. " + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(11, 105) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(16, 13) + Me.Label18.TabIndex = 70 + Me.Label18.Text = "2." + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(11, 45) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(66, 13) + Me.Label19.TabIndex = 71 + Me.Label19.Text = "CSV-Importe" + ' 'usrctlProcedures ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1320,6 +1412,8 @@ Partial Class usrctlProcedures Me.TabPage4.ResumeLayout(False) Me.TabPage4.PerformLayout() Me.TabPage5.ResumeLayout(False) + Me.TabPage6.ResumeLayout(False) + Me.TabPage6.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -1441,4 +1535,12 @@ Partial Class usrctlProcedures Friend WithEvents Button47 As Button Friend WithEvents Button48 As Button Friend WithEvents btnTC_FtpIUpload As Button + Friend WithEvents Button49 As Button + Friend WithEvents Button50 As Button + Friend WithEvents Button51 As Button + Friend WithEvents TabPage6 As TabPage + Friend WithEvents cbxMDM_Testsystem As CheckBox + Friend WithEvents Label19 As Label + Friend WithEvents Label18 As Label + Friend WithEvents Label17 As Label End Class diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb index 5412c90..695091a 100644 --- a/UID/usrctlProcedures.vb +++ b/UID/usrctlProcedures.vb @@ -3459,7 +3459,7 @@ Public Class usrctlProcedures Dim kdnr_tmp = "" Try - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim fd As New OpenFileDialog If fd.ShowDialog = DialogResult.OK Then @@ -4016,6 +4016,218 @@ Public Class usrctlProcedures End Sub + Private Sub Button49_Click_1(sender As Object, e As EventArgs) Handles Button49.Click + + Dim cnt = 0 + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + + Try + + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxMDM_Testsystem.Checked + + Dim fd As New OpenFileDialog + If fd.ShowDialog = DialogResult.OK Then + If fd.FileName.ToLower.EndsWith(".csv") Then + + ' fd.FileName.EndsWith(".csv") + Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(fd.FileName, Encoding.Default) + MyReader.TextFieldType = FileIO.FieldType.Delimited + MyReader.SetDelimiters(";") + Dim currentRow As String() + While Not MyReader.EndOfData + Try + currentRow = MyReader.ReadFields() + + If currentRow.Length > 2 Then + + If (isleernothing(currentRow(0)) IsNot Nothing AndAlso isleernothing(currentRow(0)) <> "NULL") AndAlso (isleernothing(currentRow(1)) IsNot Nothing AndAlso isleernothing(currentRow(1)) <> "NULL") AndAlso (isleernothing(currentRow(2)) IsNot Nothing AndAlso isleernothing(currentRow(2)) <> "NULL") AndAlso (isleernothing(currentRow(3)) IsNot Nothing AndAlso isleernothing(currentRow(3)) <> "NULL") Then + + 'OffertenNr, Währung, LeistungsNr, LeistungsBez + 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() + + ElseIf currentRow(2) = 117 Or currentRow(2) = 118 Or currentRow(2) = 119 Then + + STDOF.SAVE() + + End If + + End If + + End If + + + cnt += 1 + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End While + End Using + End If + End If + + Catch ex As Exception + MessageBox.Show("Datei nicht vorhanden.") + Finally + + End Try + + End Sub + + Private Sub Button50_Click(sender As Object, e As EventArgs) Handles Button50.Click + + + Dim cnt = 0 + + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + Dim kdnr_tmp = "" + Try + + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + + Dim fd As New OpenFileDialog + If fd.ShowDialog = DialogResult.OK Then + If fd.FileName.ToLower.EndsWith(".csv") Then + + Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(fd.FileName, Encoding.Default) + MyReader.TextFieldType = FileIO.FieldType.Delimited + MyReader.SetDelimiters(";") + Dim currentRow As String() + While Not MyReader.EndOfData + Try + currentRow = MyReader.ReadFields() + + If currentRow.Length > 2 Then + + If isleernothing(currentRow(0)) IsNot Nothing AndAlso IsNumeric(currentRow(0)) Then + + Dim KUNDE_ERW As New cKundenErweitert(currentRow(0)) + If KUNDE_ERW IsNot Nothing Then + + KUNDE_ERW.kde_BezFIBU = currentRow(4) + KUNDE_ERW.SAVE() + + End If + + End If + + + End If + + + cnt += 1 + + Catch ex As Exception + MsgBox(kdnr_tmp & " " & ex.Message & ex.StackTrace) + End Try + End While + End Using + End If + End If + + Catch ex As Exception + MessageBox.Show("Datei nicht vorhanden.") + Finally + + End Try + + End Sub + + Private Sub Button51_Click(sender As Object, e As EventArgs) Handles Button51.Click + + + + Dim cnt = 0 + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + + Try + + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + + Dim fd As New OpenFileDialog + If fd.ShowDialog = DialogResult.OK Then + If fd.FileName.ToLower.EndsWith(".csv") Then + + ' fd.FileName.EndsWith(".csv") + Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(fd.FileName, Encoding.Default) + MyReader.TextFieldType = FileIO.FieldType.Delimited + MyReader.SetDelimiters(";") + Dim currentRow As String() + While Not MyReader.EndOfData + Try + currentRow = MyReader.ReadFields() + + If currentRow.Length > 2 AndAlso isleernothing(currentRow(0)) IsNot Nothing AndAlso IsNumeric(currentRow(0)) Then + + Dim OFPOS As New cOffertPosition(currentRow(0), currentRow(1), currentRow(2), currentRow(4)) + Dim andereLeistungsNr As Boolean = False + If isleernothing(currentRow(2)) IsNot Nothing AndAlso isleernothing(currentRow(3)) AndAlso IsNumeric(currentRow(2)) AndAlso IsNumeric(currentRow(3)) Then + + If CInt(currentRow(2)) <> CInt(currentRow(3)) Then + andereLeistungsNr = True + Else + andereLeistungsNr = False + End If + + End If + + If OFPOS IsNot Nothing Then + If Not andereLeistungsNr Then + + OFPOS.LeistungsBez = currentRow(5) + OFPOS.UPDATE(currentRow(4).ToString) + Else + OFPOS.LeistungsBez = currentRow(5) + OFPOS.UPDATE(currentRow(4).ToString) + OFPOS.LeistungsNr = currentRow(3) + OFPOS.UPDATE(CInt(currentRow(2))) + + End If + + + End If + + + End If + + + cnt += 1 + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End While + End Using + End If + End If + + Catch ex As Exception + MessageBox.Show("Datei nicht vorhanden.") + Finally + + End Try + + End Sub + + 'Private Sub Button26_Click(sender As Object, e As EventArgs) ' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019") diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 7efce0b..69c2d00 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -163,10 +163,8 @@ Partial Class frmStartOptions Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.btnTesttc = New System.Windows.Forms.Button() - Me.cboTCAPI_Firma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboTCAPI_Call = New System.Windows.Forms.Button() Me.Label50cboTCAPI_ = New System.Windows.Forms.Label() - Me.MyTextBox06 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.CheckBox9 = New System.Windows.Forms.CheckBox() Me.lblcheckopatez = New System.Windows.Forms.Label() Me.checkallopenATEZ = New System.Windows.Forms.Button() @@ -189,13 +187,15 @@ Partial Class frmStartOptions Me.LinkLabel29 = New System.Windows.Forms.LinkLabel() Me.LinkLabel30 = New System.Windows.Forms.LinkLabel() Me.Label11 = New System.Windows.Forms.Label() - Me.txtCheckATEZMRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel1 = New System.Windows.Forms.Panel() 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() @@ -306,6 +306,15 @@ Partial Class frmStartOptions Me.Button24 = New System.Windows.Forms.Button() Me.cbxTestFTP = New System.Windows.Forms.CheckBox() Me.cbxTestsystem = New System.Windows.Forms.CheckBox() + Me.TabPage6 = New System.Windows.Forms.TabPage() + 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.lblMissingCS = New System.Windows.Forms.Label() + Me.Button28 = New System.Windows.Forms.Button() + Me.btnCreditsaveLauf = New System.Windows.Forms.Button() Me.CheckBox2 = New System.Windows.Forms.CheckBox() Me.LinkLabel25 = New System.Windows.Forms.LinkLabel() Me.CheckBox1 = New System.Windows.Forms.CheckBox() @@ -332,11 +341,8 @@ Partial Class frmStartOptions Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button21 = New System.Windows.Forms.Button() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.TabPage6 = New System.Windows.Forms.TabPage() - Me.lblWartungen = New System.Windows.Forms.Label() - Me.Button27 = New System.Windows.Forms.Button() - Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.lblAbDat = New System.Windows.Forms.Label() + Me.cbCheckDate = New System.Windows.Forms.CheckBox() + Me.txtCSDate = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnl.SuspendLayout() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit() @@ -378,11 +384,12 @@ Partial Class frmStartOptions Me.PLOSE.SuspendLayout() Me.TabPage5.SuspendLayout() CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage6.SuspendLayout() + Me.TabPage7.SuspendLayout() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPage6.SuspendLayout() Me.SuspendLayout() ' 'pnl @@ -1108,6 +1115,7 @@ Partial Class frmStartOptions Me.tbcntr.Controls.Add(Me.TabPage3) Me.tbcntr.Controls.Add(Me.TabPage4) Me.tbcntr.Controls.Add(Me.TabPage6) + Me.tbcntr.Controls.Add(Me.TabPage7) Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom Me.tbcntr.Location = New System.Drawing.Point(0, 405) Me.tbcntr.Name = "tbcntr" @@ -2189,10 +2197,8 @@ Partial Class frmStartOptions 'TabPage3 ' Me.TabPage3.Controls.Add(Me.btnTesttc) - Me.TabPage3.Controls.Add(Me.cboTCAPI_Firma) Me.TabPage3.Controls.Add(Me.cboTCAPI_Call) Me.TabPage3.Controls.Add(Me.Label50cboTCAPI_) - Me.TabPage3.Controls.Add(Me.MyTextBox06) Me.TabPage3.Controls.Add(Me.CheckBox9) Me.TabPage3.Controls.Add(Me.lblcheckopatez) Me.TabPage3.Controls.Add(Me.checkallopenATEZ) @@ -2215,10 +2221,12 @@ Partial Class frmStartOptions Me.TabPage3.Controls.Add(Me.LinkLabel29) Me.TabPage3.Controls.Add(Me.LinkLabel30) Me.TabPage3.Controls.Add(Me.Label11) + Me.TabPage3.Controls.Add(Me.Panel1) + Me.TabPage3.Controls.Add(Me.cboTCAPI_Firma) + Me.TabPage3.Controls.Add(Me.MyTextBox06) Me.TabPage3.Controls.Add(Me.txtCheckATEZMRN) Me.TabPage3.Controls.Add(Me.datTranscodeBis) Me.TabPage3.Controls.Add(Me.datTranscodeVon) - Me.TabPage3.Controls.Add(Me.Panel1) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" Me.TabPage3.Size = New System.Drawing.Size(1219, 513) @@ -2239,19 +2247,6 @@ Partial Class frmStartOptions Me.btnTesttc.UseVisualStyleBackColor = True Me.btnTesttc.Visible = False ' - '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" - ' 'cboTCAPI_Call ' Me.cboTCAPI_Call.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -2274,31 +2269,6 @@ Partial Class frmStartOptions Me.Label50cboTCAPI_.TabIndex = 149 Me.Label50cboTCAPI_.Text = "TELOTEC API:" ' - '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" - ' 'CheckBox9 ' Me.CheckBox9.AutoSize = True @@ -2535,6 +2505,92 @@ Partial Class frmStartOptions Me.Label11.TabIndex = 22 Me.Label11.Text = "MAVI Nachrichtenverarbeitung (NCTS TR):" ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.FloralWhite + Me.Panel1.Controls.Add(Me.cbxTCAnhEinlesen) + Me.Panel1.Controls.Add(Me.cboTCAPI_Files) + Me.Panel1.Controls.Add(Me.cbxTCVB_Versand) + Me.Panel1.ForeColor = System.Drawing.Color.Black + Me.Panel1.Location = New System.Drawing.Point(418, 408) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(242, 50) + Me.Panel1.TabIndex = 155 + ' + 'cbxTCAnhEinlesen + ' + Me.cbxTCAnhEinlesen.AutoSize = True + Me.cbxTCAnhEinlesen.Checked = True + Me.cbxTCAnhEinlesen.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxTCAnhEinlesen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxTCAnhEinlesen.Location = New System.Drawing.Point(1, 28) + Me.cbxTCAnhEinlesen.Name = "cbxTCAnhEinlesen" + Me.cbxTCAnhEinlesen.Size = New System.Drawing.Size(111, 17) + Me.cbxTCAnhEinlesen.TabIndex = 154 + Me.cbxTCAnhEinlesen.Text = "Anhänge einlesen" + Me.cbxTCAnhEinlesen.UseVisualStyleBackColor = True + ' + 'cboTCAPI_Files + ' + Me.cboTCAPI_Files.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboTCAPI_Files.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.cboTCAPI_Files.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.cboTCAPI_Files.Location = New System.Drawing.Point(1, 1) + Me.cboTCAPI_Files.Name = "cboTCAPI_Files" + Me.cboTCAPI_Files.Size = New System.Drawing.Size(239, 24) + Me.cboTCAPI_Files.TabIndex = 151 + Me.cboTCAPI_Files.Text = "Files hochladen und einarbeiten..." + Me.cboTCAPI_Files.UseVisualStyleBackColor = True + ' + 'cbxTCVB_Versand + ' + Me.cbxTCVB_Versand.AutoSize = True + Me.cbxTCVB_Versand.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxTCVB_Versand.Location = New System.Drawing.Point(158, 28) + Me.cbxTCVB_Versand.Name = "cbxTCVB_Versand" + Me.cbxTCVB_Versand.Size = New System.Drawing.Size(82, 17) + Me.cbxTCVB_Versand.TabIndex = 153 + 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 @@ -2607,54 +2663,6 @@ Partial Class frmStartOptions Me.datTranscodeVon.Size = New System.Drawing.Size(87, 20) Me.datTranscodeVon.TabIndex = 142 ' - 'Panel1 - ' - Me.Panel1.BackColor = System.Drawing.Color.FloralWhite - Me.Panel1.Controls.Add(Me.cbxTCAnhEinlesen) - Me.Panel1.Controls.Add(Me.cboTCAPI_Files) - Me.Panel1.Controls.Add(Me.cbxTCVB_Versand) - Me.Panel1.ForeColor = System.Drawing.Color.Black - Me.Panel1.Location = New System.Drawing.Point(418, 408) - Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(242, 50) - Me.Panel1.TabIndex = 155 - ' - 'cbxTCAnhEinlesen - ' - Me.cbxTCAnhEinlesen.AutoSize = True - Me.cbxTCAnhEinlesen.Checked = True - Me.cbxTCAnhEinlesen.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxTCAnhEinlesen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxTCAnhEinlesen.Location = New System.Drawing.Point(1, 28) - Me.cbxTCAnhEinlesen.Name = "cbxTCAnhEinlesen" - Me.cbxTCAnhEinlesen.Size = New System.Drawing.Size(111, 17) - Me.cbxTCAnhEinlesen.TabIndex = 154 - Me.cbxTCAnhEinlesen.Text = "Anhänge einlesen" - Me.cbxTCAnhEinlesen.UseVisualStyleBackColor = True - ' - 'cboTCAPI_Files - ' - Me.cboTCAPI_Files.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboTCAPI_Files.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.cboTCAPI_Files.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.cboTCAPI_Files.Location = New System.Drawing.Point(1, 1) - Me.cboTCAPI_Files.Name = "cboTCAPI_Files" - Me.cboTCAPI_Files.Size = New System.Drawing.Size(239, 24) - Me.cboTCAPI_Files.TabIndex = 151 - Me.cboTCAPI_Files.Text = "Files hochladen und einarbeiten..." - Me.cboTCAPI_Files.UseVisualStyleBackColor = True - ' - 'cbxTCVB_Versand - ' - Me.cbxTCVB_Versand.AutoSize = True - Me.cbxTCVB_Versand.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxTCVB_Versand.Location = New System.Drawing.Point(158, 28) - Me.cbxTCVB_Versand.Name = "cbxTCVB_Versand" - Me.cbxTCVB_Versand.Size = New System.Drawing.Size(82, 17) - Me.cbxTCVB_Versand.TabIndex = 153 - Me.cbxTCVB_Versand.Text = "ZB Versand" - Me.cbxTCVB_Versand.UseVisualStyleBackColor = True - ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.TabControl1) @@ -4115,6 +4123,123 @@ Partial Class frmStartOptions Me.cbxTestsystem.Text = "Import in Testsystem" Me.cbxTestsystem.UseVisualStyleBackColor = True ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.lblAbDat) + Me.TabPage6.Controls.Add(Me.Button27) + Me.TabPage6.Controls.Add(Me.lblWartungen) + Me.TabPage6.Controls.Add(Me.txtWartungFaelligkeitAbDat) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage6.Size = New System.Drawing.Size(1219, 513) + Me.TabPage6.TabIndex = 4 + Me.TabPage6.Text = "Interne Prozesse" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'lblAbDat + ' + Me.lblAbDat.AutoSize = True + Me.lblAbDat.Location = New System.Drawing.Point(13, 79) + Me.lblAbDat.Name = "lblAbDat" + Me.lblAbDat.Size = New System.Drawing.Size(56, 13) + Me.lblAbDat.TabIndex = 140 + Me.lblAbDat.Text = "ab Datum:" + ' + 'Button27 + ' + Me.Button27.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button27.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button27.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button27.Location = New System.Drawing.Point(16, 46) + Me.Button27.Name = "Button27" + Me.Button27.Size = New System.Drawing.Size(160, 24) + Me.Button27.TabIndex = 140 + Me.Button27.Text = "Fälligkeiten berechnen" + Me.Button27.UseVisualStyleBackColor = True + ' + 'lblWartungen + ' + Me.lblWartungen.AutoSize = True + Me.lblWartungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblWartungen.Location = New System.Drawing.Point(13, 30) + Me.lblWartungen.Name = "lblWartungen" + Me.lblWartungen.Size = New System.Drawing.Size(69, 13) + 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.txtCSDate) + Me.TabPage7.Controls.Add(Me.cbCheckDate) + Me.TabPage7.Controls.Add(Me.lblMissingCS) + Me.TabPage7.Controls.Add(Me.Button28) + Me.TabPage7.Controls.Add(Me.btnCreditsaveLauf) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Size = New System.Drawing.Size(1219, 513) + Me.TabPage7.TabIndex = 5 + Me.TabPage7.Text = "Creditsafe" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'lblMissingCS + ' + Me.lblMissingCS.AutoSize = True + Me.lblMissingCS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblMissingCS.Location = New System.Drawing.Point(13, 20) + Me.lblMissingCS.Name = "lblMissingCS" + Me.lblMissingCS.Size = New System.Drawing.Size(214, 13) + Me.lblMissingCS.TabIndex = 142 + Me.lblMissingCS.Text = "hochzuladende Unternehmen in CS: " + ' + 'Button28 + ' + 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(14, 138) + Me.Button28.Name = "Button28" + Me.Button28.Size = New System.Drawing.Size(131, 24) + Me.Button28.TabIndex = 141 + Me.Button28.Text = "CS Events" + Me.Button28.UseVisualStyleBackColor = True + ' + 'btnCreditsaveLauf + ' + 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, 51) + 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 + ' 'CheckBox2 ' Me.CheckBox2.AutoSize = True @@ -4428,74 +4553,42 @@ Partial Class frmStartOptions Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" ' - 'TabPage6 + 'cbCheckDate ' - Me.TabPage6.Controls.Add(Me.lblAbDat) - Me.TabPage6.Controls.Add(Me.txtWartungFaelligkeitAbDat) - Me.TabPage6.Controls.Add(Me.Button27) - Me.TabPage6.Controls.Add(Me.lblWartungen) - Me.TabPage6.Location = New System.Drawing.Point(4, 22) - Me.TabPage6.Name = "TabPage6" - Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage6.Size = New System.Drawing.Size(1219, 513) - Me.TabPage6.TabIndex = 4 - Me.TabPage6.Text = "Interne Prozesse" - Me.TabPage6.UseVisualStyleBackColor = True + Me.cbCheckDate.AutoSize = True + 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(16, 89) + Me.cbCheckDate.Name = "cbCheckDate" + Me.cbCheckDate.Size = New System.Drawing.Size(90, 17) + Me.cbCheckDate.TabIndex = 140 + Me.cbCheckDate.Text = "Datum prüfen" + Me.cbCheckDate.UseVisualStyleBackColor = True ' - 'lblWartungen + 'txtCSDate ' - Me.lblWartungen.AutoSize = True - Me.lblWartungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblWartungen.Location = New System.Drawing.Point(13, 30) - Me.lblWartungen.Name = "lblWartungen" - Me.lblWartungen.Size = New System.Drawing.Size(69, 13) - Me.lblWartungen.TabIndex = 15 - Me.lblWartungen.Text = "Wartungen" - ' - 'Button27 - ' - Me.Button27.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button27.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button27.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button27.Location = New System.Drawing.Point(16, 46) - Me.Button27.Name = "Button27" - Me.Button27.Size = New System.Drawing.Size(160, 24) - Me.Button27.TabIndex = 140 - Me.Button27.Text = "Fälligkeiten berechnen" - Me.Button27.UseVisualStyleBackColor = True - ' - '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 - ' - 'lblAbDat - ' - Me.lblAbDat.AutoSize = True - Me.lblAbDat.Location = New System.Drawing.Point(13, 79) - Me.lblAbDat.Name = "lblAbDat" - Me.lblAbDat.Size = New System.Drawing.Size(56, 13) - Me.lblAbDat.TabIndex = 140 - Me.lblAbDat.Text = "ab Datum:" + 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.ForeColor = System.Drawing.Color.Red + Me.txtCSDate.Location = New System.Drawing.Point(16, 112) + 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 ' 'frmStartOptions ' @@ -4564,12 +4657,14 @@ Partial Class frmStartOptions Me.TabPage5.ResumeLayout(False) Me.TabPage5.PerformLayout() CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage6.ResumeLayout(False) + Me.TabPage6.PerformLayout() + Me.TabPage7.ResumeLayout(False) + Me.TabPage7.PerformLayout() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPage6.ResumeLayout(False) - Me.TabPage6.PerformLayout() Me.ResumeLayout(False) End Sub @@ -4886,4 +4981,10 @@ Partial Class frmStartOptions Friend WithEvents lblWartungen As Label Friend WithEvents lblAbDat As Label Friend WithEvents txtWartungFaelligkeitAbDat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnCreditsaveLauf As Button + Friend WithEvents TabPage7 As TabPage + Friend WithEvents Button28 As Button + Friend WithEvents lblMissingCS As Label + Friend WithEvents txtCSDate As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbCheckDate As CheckBox End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 8da457c..5d9bc21 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 @@ -625,6 +721,9 @@ True + + True + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj @@ -719,102 +818,6 @@ +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 diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 8196a41..841e785 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -1,24 +1,18 @@ Imports System.Data.OleDb -Imports System.Data.SqlClient Imports System.IO Imports System.Net Imports System.Net.Security Imports System.Security.Cryptography.X509Certificates Imports System.Text +Imports System.Threading Imports System.Xml -Imports com.sun.media.sound -Imports com.sun.org.apache.xerces.internal.impl.dv.xs -Imports DAKOSY_Worker Imports MDM_Worker -Imports Org.BouncyCastle.Bcpg Imports Renci.SshNet -Imports sun.java2d -Imports TELOTEC_Worker Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN.cTelotecAPI Public Class frmStartOptions - Dim WithEvents timer As New Timer + Dim WithEvents timer As New System.Windows.Forms.Timer Private Sub lklAufschubkontenATLASEZOLL_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklAufschubkontenATLASEZOLL.LinkClicked, LinkLabel3.LinkClicked Dim f As New frmRoutineManager("AUFSCHUB", True, cbxHistory.Checked) @@ -4870,6 +4864,8 @@ Public Class frmStartOptions checkTBLandTWLNr() getLatestBatchNrMSE() + ElseIf tbcntr.SelectedIndex = 5 Then + countmissingCSinPortfolio() End If End Sub @@ -6255,7 +6251,147 @@ weiter: End Sub + Private Sub btnCreditsaveLauf_Click(sender As Object, e As EventArgs) Handles btnCreditsaveLauf.Click + + 'Existing companies in the portfolio will be skipped, and only new unique entries will be added. + + Dim sql As New SQL + + Dim cs = New cCreditSafeAPI("creditsafe") + Dim addCreditsave As Boolean = False + If cs.authenticate() = "200" Then addCreditsave = True + + 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 dtCreditsafe_CSV As DataTable = sql.loadDgvBySql(creditsave, "FMZOLL") + + If dtCreditsafe_CSV.Rows.Count = 0 Then + addCreditsave = False + Else + + Dim Path As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(dtCreditsafe_CSV,,, "importcsv") + If Path <> "" Then + If cs.AddCompaniesCSVToPortfolio(Path) <> "OK" Then 'bei Fehler abbrechen! + Exit While + End If + + End If + End If + + Dim displayView = New DataView(dtCreditsafe_CSV, "", "Safe Number", DataViewRowState.CurrentRows) + Dim distinctDT_CSV As DataTable = displayView.ToTable(True, "Safe Number") + Dim CS_ID As String = "" + Dim counter = 0 + For Each row As DataRow In distinctDT_CSV.Rows + CS_ID &= "'" & row.Item("Safe Number") & "'" + counter = counter + 1 + If (distinctDT_CSV.Rows.Count <> 1 And counter <> distinctDT_CSV.Rows.Count) Then CS_ID &= "," + + Next + + If CS_ID <> "" Then + addCreditsave = sql.doSQL("Update tblKundenErweitert set kde_CSPortfolioAdded = 1 where kde_CreditSaveNo in (" & CS_ID & ")", "FMZOLL") + End If + End While + + End Sub + + Private Sub countmissingCSinPortfolio() + + Dim count As Integer = 0 + Dim sql As New SQL + + Dim sqlCount As String = sql.getValueTxtBySql("select isnull(count(*),0) 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", "FMZOLL") + + If sqlCount <> "" AndAlso IsNumeric(sqlCount) Then count = CInt(sqlCount) + + lblMissingCS.Text &= count + + End Sub + + Private Sub Button28_Click_1(sender As Object, e As EventArgs) Handles Button28.Click + + Dim datumString = "" + + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + + If cbCheckDate.Checked Then + + If txtCSDate.Text <> "" AndAlso IsDate(txtCSDate.Text) Then + datumString = txtCSDate.Text + Else + MsgBox("Datum hat falsches Format!" & vbNewLine & "Vorgang wird abgebrochen!") + Exit Sub + End If + + Else + datumString = Today.ToShortDateString + + End If + + Dim creditsave 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) >= '" & datumString & "' + + 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) >= '" & datumString & "' + GROUP BY Source, e.KundenNr, cast(e.eventDate as Date) + ) AS Temp" + + Dim dtCreditsafe As DataTable = (New SQL).loadDgvBySql(creditsave, "FMZOLL") + If dtCreditsafe.Rows.Count = 0 Then Exit Sub + + + Dim cs = New cCreditSafeAPI("creditsafe") + + If cs.authenticate() = "200" Then + + + For Each row As DataRow In dtCreditsafe.Rows + + Dim KUNDE_ERW As New cKundenErweitert(row("ba_KundenNr")) + + Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", KUNDE_ERW.kde_KundenNr) + + If txtCSDate.Text <> "" AndAlso IsDate(txtCSDate.Text) Then + company.lastChecked = CDate(txtCSDate.Text) + End If + + Dim currentBonID As Integer = (New SQL).getValueTxtBySql("Select Top(1) isnull(ba_id, -1) FROM [tblBonitaetsauskunft] where ba_KundenNr = " & KUNDE_ERW.kde_KundenNr & " AND [ba_Pruefungstool] = 'creditsafe API' ORDER BY ba_Datum DESC", "FMZOLL") + + If currentBonID > 0 Then company.csBonID = currentBonID + + Dim dt As New DataTable() + cs.getCompanyEvents(company, dt, cbCheckDate.Checked) + + Thread.Sleep(2000) + + Next + End If + + End Sub + + Private Sub cbCheckDate_CheckedChanged(sender As Object, e As EventArgs) Handles cbCheckDate.CheckedChanged + + End Sub End Class \ No newline at end of file