StarOpt, cWorker, etc.

Sendungen, Dakosy VW
2026-03-10 08:39:31 +01:00 · 2026-03-09 16:47:20 +01:00
6 changed files with 303 additions and 206 deletions
--- a/initATLASAufschubkonten/cWorker_Verwahrung.vb
+++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb
@@ -1,4 +1,5 @@
-Imports VERAG_PROG_ALLGEMEIN
+Imports com.sun.xml.internal.rngom
+Imports VERAG_PROG_ALLGEMEIN

 Public Class cWorker_Verwahrung
    Public Shared Dateiname = ""
@@ -7,7 +8,7 @@ Public Class cWorker_Verwahrung



-    Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean) As String
+    Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean, sendMail As Boolean) As String
        Try

            Dim VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp = DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp.LoadFromFile(d)
@@ -100,7 +101,7 @@ Public Class cWorker_Verwahrung

                'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!

-                If saveVerwahrung Then saveVerwahrungseingang(readVW_SumAVerwahrungsinfo, VWI, RegistriernummerATLAS, posGestellung, VorpapiernummerInput, VeralteteWeitereRegistriernummer)
+                If saveVerwahrung Then saveVerwahrungseingang(readVW_SumAVerwahrungsinfo, VWI, RegistriernummerATLAS, posGestellung, VorpapiernummerInput, VeralteteWeitereRegistriernummer, sendMail)


 Anzeige:
@@ -122,7 +123,7 @@ Anzeige:



-    Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean) As String
+    Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean, sendMail As Boolean) As String
        Try

            Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d)
@@ -215,7 +216,7 @@ Anzeige:
                'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten

                If saveAbschreibung Then
-                    saveVerwahrungsAusgang(regNR, posErledigung, veralteteregNR, EZA)
+                    saveVerwahrungsAusgang(regNR, posErledigung, veralteteregNR, EZA, sendMail)

 Anzeige:

@@ -412,7 +413,7 @@ Anzeige:



-    Shared Function saveVerwahrungseingang(readVW_SumAVerwahrungsinfo As String, VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp, RegistriernummerATLAS As String, posGestellung As DataTable, VorpapiernummerInput As String, VeralteteWeitereRegistriernummer As String)
+    Shared Function saveVerwahrungseingang(readVW_SumAVerwahrungsinfo As String, VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp, RegistriernummerATLAS As String, posGestellung As DataTable, VorpapiernummerInput As String, VeralteteWeitereRegistriernummer As String, sendInfoMail As Boolean)

        Dim BezugsNr = readVW_SumAVerwahrungsinfo

@@ -543,8 +544,8 @@ Anzeige:
                            newSicherheit.gs_filialenNr = filiale
                            newSicherheit.gs_LKWKZ = urspringsSicherheit.gs_LKWKZ
                            newSicherheit.gs_zollsatz = urspringsSicherheit.gs_zollsatz
-                            newSicherheit.gs_warenwert = 0
-                            newSicherheit.gs_sicherheitsbetrag = 0
+                            newSicherheit.gs_warenwert = urspringsSicherheit.gs_warenwert
+                            newSicherheit.gs_sicherheitsbetrag = urspringsSicherheit.gs_sicherheitsbetrag
                            newSicherheit.gs_art = "OPEN"
                            newSicherheit.gs_saldo = saldo
                            newSicherheit.gs_avisoId = urspringsSicherheit.gs_avisoId
@@ -554,6 +555,13 @@ Anzeige:

                            Dim gsid = newSicherheit.SAVEOBJECT()

+                            If gsid > 0 Then
+                                'wechsel des Sicherheitsbetrags und Warenwert von Dummypos auf erste Produkivposition
+                                urspringsSicherheit.gs_warenwert = 0
+                                urspringsSicherheit.gs_sicherheitsbetrag = 0
+                                urspringsSicherheit.SAVE()
+                            End If
+
                            Dim CLOSED_DUMMY = New cGesamtsicherheitsPositionen(gsid, laufnummer)


@@ -633,10 +641,15 @@ Anzeige:
                                End If
                            End If

+                            If sendInfoMail Then
+                                Dim InfoText As String = createInfoMail(RegistriernummerATLAS, posGestellung, "VW-EINGANG", newSicherheit)
+                                VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
+                            End If


-                                'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
-                                Return True
+
+                            'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                            Return True

                        Catch ex As Exception
                            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -660,7 +673,7 @@ Anzeige:

    End Function

-    Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp)
+    Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp, sendInfoMail As Boolean)

        If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then

@@ -779,6 +792,13 @@ Anzeige:

                                    SicherheitsPos.SAVE()
                                    GesSichRef.CalcSaldo()
+
+                                    If sendInfoMail Then
+                                        Dim InfoText2 As String = createInfoMail(gs_row.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos)
+                                        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
+                                    End If
+
+
                                    'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False

                                Catch ex As Exception
@@ -801,6 +821,7 @@ Anzeige:

            End If

+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False

        End If
    End Sub
@@ -821,61 +842,106 @@ Anzeige:
    End Function


-    Public Shared Function createInfoMail(regNR As String, dt As DataTable, typ As String) As String
+    Public Shared Function createInfoMail(regNR As String, dt As DataTable, typ As String, Optional GS As cSicherheiten = Nothing, Optional GSPOS As cGesamtsicherheitsPositionen = Nothing) As String

        Dim TextHTMLtable As String

-        If typ = "MASSNAHME-DAKOSY" Then
+        Select Case typ
+            Case "MASSNAHME-DAKOSY"
+                TextHTMLtable &= "Bei " & regNR & " wurden eine Zoll-Maßnahme ausgelöst." & vbNewLine & vbNewLine & vbNewLine

-            TextHTMLtable &= "Bei " & regNR & " wurden eine Zoll-Maßnahme ausgelöst." & vbNewLine & vbNewLine & vbNewLine
+                TextHTMLtable &= "<table border=1>"
+                TextHTMLtable &= "<tr><td>Code</td><td>Text</td><td>NichtzustellbarKz</td><td>PackstueckAnzahl</td><td>PackstueckArt</td></tr>"

-            TextHTMLtable &= "<table border=1>"
-            TextHTMLtable &= "<tr><td>Code</td><td>Text</td><td>NichtzustellbarKz</td><td>PackstueckAnzahl</td><td>PackstueckArt</td></tr>"
+                For Each r As DataRow In dt.Rows

-            For Each r As DataRow In dt.Rows
+                    TextHTMLtable &= "<tr>"
+                    TextHTMLtable &= "<td><b>" & r.Item("MassnahmeCode") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("MassnahmeText") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("MassnahmeNichtzustellbarKz") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("PackstueckAnzahl") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("PackstueckArt") & "</b></td>"
+                    TextHTMLtable &= "</tr>"

-                TextHTMLtable &= "<tr>"
-                TextHTMLtable &= "<td><b>" & r.Item("MassnahmeCode") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("MassnahmeText") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("MassnahmeNichtzustellbarKz") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("PackstueckAnzahl") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("PackstueckArt") & "</b></td>"
-                TextHTMLtable &= "</tr>"
+                Next

-            Next
+                TextHTMLtable &= "</table>"

-            TextHTMLtable &= "</table>"
-
-            TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
-            Return TextHTMLtable
-
-        Else
-
-            TextHTMLtable &= "Bei " & regNR & " wurde nicht vollständig aufgelöst." & vbNewLine & vbNewLine & vbNewLine
-
-            TextHTMLtable &= "<table border=1>"
-            TextHTMLtable &= "<tr><td>MRN-Nr</td><td>LKW-ID</td><td>Packstücke gesamt</td><td>Packstücke erledigt</td><td>Stornierung KZ</td></tr>"
-
-            For Each r As DataRow In dt.Rows
-
-                TextHTMLtable &= "<tr>"
-                TextHTMLtable &= "<td><b>" & r.Item("MRN") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("LKW_ID") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("anzahlPackstuecke") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("AnzahlStückErledigt") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("StornierungKZ") & "</b></td>"
-                TextHTMLtable &= "</tr>"
-
-            Next
-
-            TextHTMLtable &= "</table>"
-
-            TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
-            Return TextHTMLtable
-
-        End If
+                TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
+                Return TextHTMLtable


+            Case "VW-EINGANG"
+
+                TextHTMLtable &= typ & " wurde aus DAKOSY generiert!" & vbNewLine & vbNewLine & vbNewLine
+
+                TextHTMLtable &= "<table border=1>"
+                TextHTMLtable &= "<tr><td>PosNr</td><td>Vorpapier</td><td>MRN</td><td>LKWID</td></tr>"
+
+                If GS IsNot Nothing Then
+                    TextHTMLtable &= "<tr>"
+                    TextHTMLtable &= "<td><b>" & GS.gs_posNr & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & GS.gs_ATBNr & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & GS.gs_MRNNr & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & GS.gs_avisoId & "</b></td>"
+                    TextHTMLtable &= "</tr>"
+
+                End If
+
+
+                TextHTMLtable &= "</table>"
+
+                TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
+                Return TextHTMLtable
+
+            Case "VW-AUSGANG"
+
+                TextHTMLtable &= typ & " wurde aus DAKOSY generiert!" & vbNewLine & vbNewLine & vbNewLine
+
+                TextHTMLtable &= "<table border=1>"
+                TextHTMLtable &= "<tr><td>PosNr</td><td>MRN</td><td>ATC</td><td>AVISOID</td></tr>"
+
+                If GSPOS IsNot Nothing Then
+                    TextHTMLtable &= "<tr>"
+                    TextHTMLtable &= "<td><b>" & GSPOS.gsp_gspPosId & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & GSPOS.gsp_MRNNr & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & GSPOS.gsp_ATCNr & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & GSPOS.gsp_avisoId & "</b></td>"
+                    TextHTMLtable &= "</tr>"
+                End If
+
+
+                TextHTMLtable &= "</table>"
+
+                TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
+                Return TextHTMLtable
+
+
+            Case Else
+
+                TextHTMLtable &= "Bei " & regNR & " wurde nicht vollständig aufgelöst." & vbNewLine & vbNewLine & vbNewLine
+
+                TextHTMLtable &= "<table border=1>"
+                TextHTMLtable &= "<tr><td>MRN-Nr</td><td>LKW-ID</td><td>Packstücke gesamt</td><td>Packstücke erledigt</td><td>Stornierung KZ</td></tr>"
+
+                For Each r As DataRow In dt.Rows
+
+                    TextHTMLtable &= "<tr>"
+                    TextHTMLtable &= "<td><b>" & r.Item("MRN") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("LKW_ID") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("anzahlPackstuecke") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("AnzahlStückErledigt") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("StornierungKZ") & "</b></td>"
+                    TextHTMLtable &= "</tr>"
+
+                Next
+
+                TextHTMLtable &= "</table>"
+
+                TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
+                Return TextHTMLtable
+
+        End Select


    End Function
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.Designer.vb
+++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.Designer.vb
@@ -39,6 +39,7 @@ Partial Class frmDYNachrichtenVerarbeitung
        Me.btnOK = New System.Windows.Forms.Button()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
+        Me.lblTest = New System.Windows.Forms.Label()
        Me.pnl.SuspendLayout()
        CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
@@ -63,6 +64,7 @@ Partial Class frmDYNachrichtenVerarbeitung
        '
        Me.pnl.BackColor = System.Drawing.Color.White
        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.lblTest)
        Me.pnl.Controls.Add(Me.dgvEinarbeitung)
        Me.pnl.Controls.Add(Me.Label9)
        Me.pnl.Controls.Add(Me.Button2)
@@ -211,6 +213,16 @@ Partial Class frmDYNachrichtenVerarbeitung
        Me.Label1.TabIndex = 8
        Me.Label1.Text = "Einarbeitung:"
        '
+        'lblTest
+        '
+        Me.lblTest.AutoSize = True
+        Me.lblTest.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblTest.ForeColor = System.Drawing.Color.Red
+        Me.lblTest.Location = New System.Drawing.Point(260, 23)
+        Me.lblTest.Name = "lblTest"
+        Me.lblTest.Size = New System.Drawing.Size(0, 13)
+        Me.lblTest.TabIndex = 19
+        '
        'frmDYNachrichtenVerarbeitung
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -243,4 +255,5 @@ Partial Class frmDYNachrichtenVerarbeitung
    Friend WithEvents dgvEinarbeitung As VERAG_PROG_ALLGEMEIN.MyDatagridview
    Friend WithEvents clmnArt As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents lblTest As Label
 End Class
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
@@ -18,6 +18,7 @@ Public Class frmDYNachrichtenVerarbeitung

    Dim Dateiname = ""
    Public saveVerwahrung As Boolean = False
+    Public sendMail As Boolean = False

    Sub New()

@@ -56,6 +57,9 @@ Public Class frmDYNachrichtenVerarbeitung

    Private Sub frmDYNachrichtenVerarbeitung_Load(sender As Object, e As EventArgs) Handles Me.Load
        initPfade()
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then lblTest.Text = "TEST"
+
        For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
            ListBox3.Items.Add(frmStartOptions.cut_file(d))
            Me.Refresh()
@@ -404,7 +408,7 @@ Public Class frmDYNachrichtenVerarbeitung
                            If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then
                                Select Case VERSION
                                    Case False
-                                    Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung) <> "" Then found = True
+                                    Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung, sendMail) <> "" Then found = True
                                End Select
                            End If

@@ -412,7 +416,7 @@ Public Class frmDYNachrichtenVerarbeitung
                            'VW: SumAErledigungsinformationVorpapier
                            If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then
                                Select Case VERSION
-                                    Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung) <> "" Then found = True ' --> TEIL DER VERWAHRUNG
+                                    Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung, sendMail) <> "" Then found = True ' --> TEIL DER VERWAHRUNG
                                    Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True
                                    Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True
                                End Select
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -25,6 +25,10 @@ Partial Class frmStartOptions
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
        Me.pnl = New System.Windows.Forms.Panel()
+        Me.btnEZOLL_1month = New System.Windows.Forms.Button()
+        Me.btnEZOLL_7days = New System.Windows.Forms.Button()
+        Me.cbxEZOLLUNISPED = New System.Windows.Forms.CheckBox()
+        Me.cbxSendEZOLL_INFO = New System.Windows.Forms.CheckBox()
        Me.Button30 = New System.Windows.Forms.Button()
        Me.pbEmailscheck = New System.Windows.Forms.PictureBox()
        Me.btnKKEmailscheck = New System.Windows.Forms.Button()
@@ -377,10 +381,7 @@ 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.cbxSendEZOLL_INFO = New System.Windows.Forms.CheckBox()
-        Me.cbxEZOLLUNISPED = New System.Windows.Forms.CheckBox()
-        Me.btnEZOLL_7days = New System.Windows.Forms.Button()
-        Me.btnEZOLL_1month = New System.Windows.Forms.Button()
+        Me.cbxVW_Infomail = New System.Windows.Forms.CheckBox()
        Me.pnl.SuspendLayout()
        CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -525,6 +526,52 @@ Partial Class frmStartOptions
        Me.pnl.Size = New System.Drawing.Size(1229, 946)
        Me.pnl.TabIndex = 0
        '
+        'btnEZOLL_1month
+        '
+        Me.btnEZOLL_1month.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnEZOLL_1month.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnEZOLL_1month.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnEZOLL_1month.Location = New System.Drawing.Point(428, 178)
+        Me.btnEZOLL_1month.Name = "btnEZOLL_1month"
+        Me.btnEZOLL_1month.Size = New System.Drawing.Size(103, 24)
+        Me.btnEZOLL_1month.TabIndex = 147
+        Me.btnEZOLL_1month.Text = "History (1 Monat)"
+        Me.btnEZOLL_1month.UseVisualStyleBackColor = True
+        '
+        'btnEZOLL_7days
+        '
+        Me.btnEZOLL_7days.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnEZOLL_7days.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnEZOLL_7days.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnEZOLL_7days.Location = New System.Drawing.Point(319, 178)
+        Me.btnEZOLL_7days.Name = "btnEZOLL_7days"
+        Me.btnEZOLL_7days.Size = New System.Drawing.Size(103, 24)
+        Me.btnEZOLL_7days.TabIndex = 146
+        Me.btnEZOLL_7days.Text = "History (7 Tage)"
+        Me.btnEZOLL_7days.UseVisualStyleBackColor = True
+        '
+        'cbxEZOLLUNISPED
+        '
+        Me.cbxEZOLLUNISPED.AutoSize = True
+        Me.cbxEZOLLUNISPED.Location = New System.Drawing.Point(319, 158)
+        Me.cbxEZOLLUNISPED.Name = "cbxEZOLLUNISPED"
+        Me.cbxEZOLLUNISPED.Size = New System.Drawing.Size(74, 17)
+        Me.cbxEZOLLUNISPED.TabIndex = 145
+        Me.cbxEZOLLUNISPED.Text = "UNISPED"
+        Me.cbxEZOLLUNISPED.UseVisualStyleBackColor = True
+        '
+        'cbxSendEZOLL_INFO
+        '
+        Me.cbxSendEZOLL_INFO.AutoSize = True
+        Me.cbxSendEZOLL_INFO.Checked = True
+        Me.cbxSendEZOLL_INFO.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxSendEZOLL_INFO.Location = New System.Drawing.Point(403, 158)
+        Me.cbxSendEZOLL_INFO.Name = "cbxSendEZOLL_INFO"
+        Me.cbxSendEZOLL_INFO.Size = New System.Drawing.Size(134, 17)
+        Me.cbxSendEZOLL_INFO.TabIndex = 144
+        Me.cbxSendEZOLL_INFO.Text = "Sende Mail an Kunden"
+        Me.cbxSendEZOLL_INFO.UseVisualStyleBackColor = True
+        '
        'Button30
        '
        Me.Button30.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -1197,6 +1244,7 @@ Partial Class frmStartOptions
        '
        'TabPage1
        '
+        Me.TabPage1.Controls.Add(Me.cbxVW_Infomail)
        Me.TabPage1.Controls.Add(Me.Button29)
        Me.TabPage1.Controls.Add(Me.LinkLabel68)
        Me.TabPage1.Controls.Add(Me.PictureBox26)
@@ -1292,9 +1340,9 @@ Partial Class frmStartOptions
        Me.cbxGestellungspeichern.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cbxGestellungspeichern.Location = New System.Drawing.Point(14, 194)
        Me.cbxGestellungspeichern.Name = "cbxGestellungspeichern"
-        Me.cbxGestellungspeichern.Size = New System.Drawing.Size(137, 17)
+        Me.cbxGestellungspeichern.Size = New System.Drawing.Size(75, 17)
        Me.cbxGestellungspeichern.TabIndex = 139
-        Me.cbxGestellungspeichern.Text = "Gestellungen speichern"
+        Me.cbxGestellungspeichern.Text = "SAVE VW"
        Me.cbxGestellungspeichern.UseVisualStyleBackColor = True
        '
        'MyTextBox4
@@ -5037,51 +5085,16 @@ Partial Class frmStartOptions
        Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
        '
-        'cbxSendEZOLL_INFO
+        'cbxVW_Infomail
        '
-        Me.cbxSendEZOLL_INFO.AutoSize = True
-        Me.cbxSendEZOLL_INFO.Checked = True
-        Me.cbxSendEZOLL_INFO.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxSendEZOLL_INFO.Location = New System.Drawing.Point(403, 158)
-        Me.cbxSendEZOLL_INFO.Name = "cbxSendEZOLL_INFO"
-        Me.cbxSendEZOLL_INFO.Size = New System.Drawing.Size(134, 17)
-        Me.cbxSendEZOLL_INFO.TabIndex = 144
-        Me.cbxSendEZOLL_INFO.Text = "Sende Mail an Kunden"
-        Me.cbxSendEZOLL_INFO.UseVisualStyleBackColor = True
-        '
-        'cbxEZOLLUNISPED
-        '
-        Me.cbxEZOLLUNISPED.AutoSize = True
-        Me.cbxEZOLLUNISPED.Location = New System.Drawing.Point(319, 158)
-        Me.cbxEZOLLUNISPED.Name = "cbxEZOLLUNISPED"
-        Me.cbxEZOLLUNISPED.Size = New System.Drawing.Size(74, 17)
-        Me.cbxEZOLLUNISPED.TabIndex = 145
-        Me.cbxEZOLLUNISPED.Text = "UNISPED"
-        Me.cbxEZOLLUNISPED.UseVisualStyleBackColor = True
-        '
-        'btnEZOLL_7days
-        '
-        Me.btnEZOLL_7days.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnEZOLL_7days.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.btnEZOLL_7days.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnEZOLL_7days.Location = New System.Drawing.Point(319, 178)
-        Me.btnEZOLL_7days.Name = "btnEZOLL_7days"
-        Me.btnEZOLL_7days.Size = New System.Drawing.Size(103, 24)
-        Me.btnEZOLL_7days.TabIndex = 146
-        Me.btnEZOLL_7days.Text = "History (7 Tage)"
-        Me.btnEZOLL_7days.UseVisualStyleBackColor = True
-        '
-        'btnEZOLL_1month
-        '
-        Me.btnEZOLL_1month.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnEZOLL_1month.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.btnEZOLL_1month.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnEZOLL_1month.Location = New System.Drawing.Point(428, 178)
-        Me.btnEZOLL_1month.Name = "btnEZOLL_1month"
-        Me.btnEZOLL_1month.Size = New System.Drawing.Size(103, 24)
-        Me.btnEZOLL_1month.TabIndex = 147
-        Me.btnEZOLL_1month.Text = "History (1 Monat)"
-        Me.btnEZOLL_1month.UseVisualStyleBackColor = True
+        Me.cbxVW_Infomail.AutoSize = True
+        Me.cbxVW_Infomail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxVW_Infomail.Location = New System.Drawing.Point(100, 194)
+        Me.cbxVW_Infomail.Name = "cbxVW_Infomail"
+        Me.cbxVW_Infomail.Size = New System.Drawing.Size(62, 17)
+        Me.cbxVW_Infomail.TabIndex = 152
+        Me.cbxVW_Infomail.Text = "Infomail"
+        Me.cbxVW_Infomail.UseVisualStyleBackColor = True
        '
        'frmStartOptions
        '
@@ -5523,4 +5536,5 @@ Partial Class frmStartOptions
    Friend WithEvents cbxEZOLLUNISPED As CheckBox
    Friend WithEvents btnEZOLL_1month As Button
    Friend WithEvents btnEZOLL_7days As Button
+    Friend WithEvents cbxVW_Infomail As CheckBox
 End Class
--- a/initATLASAufschubkonten/frmStartOptions.resx
+++ b/initATLASAufschubkonten/frmStartOptions.resx
@@ -236,102 +236,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="PictureBox26.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -745,9 +649,6 @@
  <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
@@ -866,6 +767,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="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -103,6 +103,7 @@ Public Class frmStartOptions
        cbxUTAalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_alt")
        cbxUTANeu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu")
        cbxGestellungspeichern.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen")
+        cbxVW_Infomail.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen_Infomail")


        Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
@@ -2965,6 +2966,7 @@ Public Class frmStartOptions
        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
        Dim f As New frmDYNachrichtenVerarbeitung
        f.saveVerwahrung = cbxGestellungspeichern.Checked
+        f.sendMail = cbxVW_Infomail.Checked
        f.ShowDialog()
        Me.Visible = True
    End Sub
@@ -3022,6 +3024,7 @@ Public Class frmStartOptions
        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
        Dim f As New frmDYNachrichtenVerarbeitung
        f.saveVerwahrung = cbxGestellungspeichern.Checked
+        f.sendMail = cbxVW_Infomail.Checked
        f.ShowDialog()
        Me.Visible = True
    End Sub
Author	SHA1	Message	Date
d.breimaier	7a5de3e91b	StarOpt, cWorker, etc.	2026-03-10 08:39:31 +01:00
d.breimaier	de62b60183	Sendungen, Dakosy VW	2026-03-09 16:47:20 +01:00