Creditsave-Rountine, Mailsender, etc.

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 & "." &
                      "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString &
-                     "<br><br><br>Automatisch generiertes E-Mail. Bitte Antworten Sie nicht an dieses E-Mail." &
+                     "<br><br><br>Automatisch generiertes E-Mail. Bitte Antworten Sie nicht an dieses E-Mail."
-                     "<br><br>VERAG SPEDITION AG"
 
                 Else
                     Body = replaceBodyVariable(Body, von, bis)

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

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")

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.cbCheckDate = New System.Windows.Forms.CheckBox()
-        Me.lblWartungen = New System.Windows.Forms.Label()
+        Me.txtCSDate = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Button27 = New System.Windows.Forms.Button()
-        Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.lblAbDat = New System.Windows.Forms.Label()
         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.cbCheckDate.AutoSize = True
-        Me.TabPage6.Controls.Add(Me.txtWartungFaelligkeitAbDat)
+        Me.cbCheckDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TabPage6.Controls.Add(Me.Button27)
+        Me.cbCheckDate.Location = New System.Drawing.Point(16, 89)
-        Me.TabPage6.Controls.Add(Me.lblWartungen)
+        Me.cbCheckDate.Name = "cbCheckDate"
-        Me.TabPage6.Location = New System.Drawing.Point(4, 22)
+        Me.cbCheckDate.Size = New System.Drawing.Size(90, 17)
-        Me.TabPage6.Name = "TabPage6"
+        Me.cbCheckDate.TabIndex = 140
-        Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
+        Me.cbCheckDate.Text = "Datum prüfen"
-        Me.TabPage6.Size = New System.Drawing.Size(1219, 513)
+        Me.cbCheckDate.UseVisualStyleBackColor = True
-        Me.TabPage6.TabIndex = 4
-        Me.TabPage6.Text = "Interne Prozesse"
-        Me.TabPage6.UseVisualStyleBackColor = True
         '
-        'lblWartungen
+        'txtCSDate
         '
-        Me.lblWartungen.AutoSize = True
+        Me.txtCSDate._DateTimeOnly = False
-        Me.lblWartungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtCSDate._numbersOnly = False
-        Me.lblWartungen.Location = New System.Drawing.Point(13, 30)
+        Me.txtCSDate._numbersOnlyKommastellen = ""
-        Me.lblWartungen.Name = "lblWartungen"
+        Me.txtCSDate._numbersOnlyTrennzeichen = False
-        Me.lblWartungen.Size = New System.Drawing.Size(69, 13)
+        Me.txtCSDate._Prozent = False
-        Me.lblWartungen.TabIndex = 15
+        Me.txtCSDate._ShortDateNew = False
-        Me.lblWartungen.Text = "Wartungen"
+        Me.txtCSDate._ShortDateOnly = True
-        '
+        Me.txtCSDate._TimeOnly = False
-        'Button27
+        Me.txtCSDate._TimeOnly_Seconds = False
-        '
+        Me.txtCSDate._value = ""
-        Me.Button27.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.txtCSDate._Waehrung = False
-        Me.Button27.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.txtCSDate._WaehrungZeichen = True
-        Me.Button27.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.txtCSDate.BackColor = System.Drawing.SystemColors.Window
-        Me.Button27.Location = New System.Drawing.Point(16, 46)
+        Me.txtCSDate.ForeColor = System.Drawing.Color.Red
-        Me.Button27.Name = "Button27"
+        Me.txtCSDate.Location = New System.Drawing.Point(16, 112)
-        Me.Button27.Size = New System.Drawing.Size(160, 24)
+        Me.txtCSDate.MaxLength = 10
-        Me.Button27.TabIndex = 140
+        Me.txtCSDate.MaxLineLength = -1
-        Me.Button27.Text = "Fälligkeiten berechnen"
+        Me.txtCSDate.MaxLines_Warning = ""
-        Me.Button27.UseVisualStyleBackColor = True
+        Me.txtCSDate.MaxLines_Warning_Label = Nothing
-        '
+        Me.txtCSDate.Name = "txtCSDate"
-        'txtWartungFaelligkeitAbDat
+        Me.txtCSDate.Size = New System.Drawing.Size(66, 20)
-        '
+        Me.txtCSDate.TabIndex = 157
-        Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False
+        Me.txtCSDate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        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:"
         '
         '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

initATLASAufschubkonten/frmStartOptions.resx

@@ -212,6 +212,102 @@
         +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
         RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
         SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        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
+</value>
+  </data>
+  <data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        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
+</value>
+  </data>
+  <data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        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
+</value>
+  </data>
+  <data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        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
 </value>
   </data>
   <data name="PictureBox26.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -625,6 +721,9 @@
   <metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
+  <metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
   <data name="PictureBox18.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
@@ -719,102 +818,6 @@
         +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
         RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
         SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        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
-</value>
-  </data>
-  <data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        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
-</value>
-  </data>
-  <data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        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
-</value>
-  </data>
-  <data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        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
 </value>
   </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

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