Creditsave-Rountine, Mailsender, etc.

2025-09-03 10:04:56 +02:00
parent 01a8f1f7ad
commit 18f433f345
6 changed files with 830 additions and 277 deletions
--- 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
--- a/initATLASAufschubkonten/frmStartOptions.resx
+++ b/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">
--- 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