Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

MailSender/MAILSender.vb

@@ -360,13 +360,24 @@ Module Mail
 
                         Dim KdNr As String = "764755"
 
-                        If dtParam.Rows.Count = 1 Then
+                        If dtParam.Rows.Count > 1 Then
+
+                            'System.Console.WriteLine("OPTION erkannt: " & dtParam.Rows(0).Item("ms_info"))
+                            'System.Console.WriteLine("Auswertung Details gestartet...")
+                            'If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), dtParam.Rows(0).Item("ms_kundenNr"), von, bis, "quarter", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then
+                            '    System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
+                            'End If
+
+
+                            For Each r As DataRow In dtParam.Rows
+
+                                System.Console.WriteLine("OPTION erkannt: " & r.Item("ms_info"))
+                                System.Console.WriteLine("Auswertung Details gestartet...")
+                                If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), dtParam.Rows(0).Item("ms_kundenNr"), von, bis, "quarter", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then
+                                    System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
+                                End If
+                            Next
 
-                            System.Console.WriteLine("OPTION erkannt: " & dtParam.Rows(0).Item("ms_info"))
-                            System.Console.WriteLine("Auswertung Details gestartet...")
-                            If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), dtParam.Rows(0).Item("ms_kundenNr"), von, bis, "quarter", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then
-                                System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
-                            End If
 
                         Else
 
@@ -2663,10 +2674,17 @@ Module Mail
     Public Function genEXCEL_ZF(KdNr As String, von As Date, bis As Date, Auswertungstyp As String) As String
         Try
 
+
+
+
             Dim KUNDENADR = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
+            Dim Path = ""
+
+            If KdNr = "714869" Or KdNr = "718486" Or KdNr = "764755" Then 'ZUR SICHERHEIT, FALLS FALSCHE KDNR EINGEGEBEN WIRD!!!
 
 
-            Dim dt As DataTable = loadDgvBySqlFMZOLL("SELECT   CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer
+
+                Dim dt As DataTable = loadDgvBySqlFMZOLL("SELECT   CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer
 	                           ,cast([Abfertigungsdatum] as date)Abfertigungsdatum
                               ,Absender
 	                          ,Rechnungsbetrag Betrag 
@@ -2677,117 +2695,159 @@ Module Mail
 
 
 
-            Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\"
+                Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\"
-            If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
+                If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
-                My.Computer.FileSystem.CreateDirectory(sPath)
+                    My.Computer.FileSystem.CreateDirectory(sPath)
-            End If
+                End If
-
-            Dim Path = ""
-            Dim exclApp As Object 'as Application
-            Dim Datei As Object 'as WorkBook
-            Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
-            exclApp = CreateObject("Excel.Application")
-
-            Select Case Auswertungstyp
-                Case "monthly"
 
 
-                    With exclApp
-                        .Visible = False
 
-                        Try
+                Dim exclApp As Object 'as Application
-                            Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & " - " & bis.ToShortDateString & "" & ".xlsx"
+                Dim Datei As Object 'as WorkBook
-                            While System.IO.File.Exists(Path)
+                Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
-                                Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & "-" & bis.ToShortDateString & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                exclApp = CreateObject("Excel.Application")
-                            End While
+
-                            My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF, False)
+                Select Case Auswertungstyp
-                        Catch ex As System.Exception
+                    Case "monthly"
-                            '  MsgBox(ex.Message)
-                            MsgBox("Error 01: " & ex.Message & vbNewLine & ex.StackTrace)
 
 
-                            Return ""
+                        With exclApp
-                        End Try
+                            .Visible = False
 
-                        Datei = .Workbooks.Open(Path) 'Anpassen
+                            Try
-                        Blatt = Datei.Worksheets(1) 'Anpassen
+                                Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & " - " & bis.ToShortDateString & "" & ".xlsx"
+                                While System.IO.File.Exists(Path)
+                                    Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & "-" & bis.ToShortDateString & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                                End While
+                                My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF, False)
+                            Catch ex As System.Exception
+                                '  MsgBox(ex.Message)
+                                MsgBox("Error 01: " & ex.Message & vbNewLine & ex.StackTrace)
 
-                        Blatt.Range("I1").Value = von.ToShortDateString & "-" & bis.ToShortDateString
 
-                        Dim cnt = 3
+                                Return ""
-                        For Each r In dt.Rows
+                            End Try
-                            Blatt.Range("A" & cnt).Value = cnt - 2
-                            Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer")
-                            '   Blatt.Range("C" & cnt).Value = r("RechnungsNr")
-                            Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum")
-                            Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung")
-                            Blatt.Range("E" & cnt).Value = r("Absender")
-                            Blatt.Range("F" & cnt).Value = "" 'r("Betrag")
-                            Blatt.Range("H" & cnt).Value = r("BelegNr")
 
-                            VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
+                            Datei = .Workbooks.Open(Path) 'Anpassen
+                            Blatt = Datei.Worksheets(1) 'Anpassen
 
-                            Dim ZOLLANMELDUNG As New cZollsysteme_Aktenbeschriftung
+                            Blatt.Range("I1").Value = von.ToShortDateString & "-" & bis.ToShortDateString
-                            Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
+
-                            If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
+                            Dim cnt = 3
-                                Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis
+                            For Each r In dt.Rows
-                                Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
+                                Blatt.Range("A" & cnt).Value = cnt - 2
-                                Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
+                                Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer")
-                                Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
+                                '   Blatt.Range("C" & cnt).Value = r("RechnungsNr")
-                                If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then
+                                Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum")
-                                    Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN
+                                Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung")
+                                Blatt.Range("E" & cnt).Value = r("Absender")
+                                Blatt.Range("F" & cnt).Value = "" 'r("Betrag")
+                                Blatt.Range("H" & cnt).Value = r("BelegNr")
+
+                                VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
+
+                                Dim ZOLLANMELDUNG As New cZollsysteme_Aktenbeschriftung
+                                Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
+                                If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
+                                    Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis
+                                    Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
+                                    Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
+                                    Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
+                                    If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then
+                                        Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN
+                                    End If
                                 End If
-                            End If
 
-                            cnt += 1
+                                cnt += 1
 
-                        Next
+                            Next
 
-                        Datei.Save()
+                            Datei.Save()
-                        .DisplayAlerts = False
+                            .DisplayAlerts = False
-                        .quit()
+                            .quit()
-                        Try : Datei.close(True) : Catch : End Try
+                            Try : Datei.close(True) : Catch : End Try
-                    End With
+                        End With
 
 
-                Case "quarter"
+                    Case "quarter"
 
 
-                    With exclApp
+                        With exclApp
-                        .Visible = False
+                            .Visible = False
 
-                        Try
+                            Try
-                            Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & " - " & bis.ToShortDateString & "" & ".xlsx"
+                                Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & " - " & bis.ToShortDateString & "" & ".xlsx"
-                            While System.IO.File.Exists(Path)
+                                While System.IO.File.Exists(Path)
-                                Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & "-" & bis.ToShortDateString & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                                    Path = sPath & "ZF_" & KdNr & "_" & von.ToShortDateString & "-" & bis.ToShortDateString & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
-                            End While
+                                End While
-                            My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF_NEW, False)
+                                My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF_NEW, False)
-                        Catch ex As System.Exception
+                            Catch ex As System.Exception
-                            '  MsgBox(ex.Message)
+                                '  MsgBox(ex.Message)
-                            MsgBox("Error 01: " & ex.Message & vbNewLine & ex.StackTrace)
+                                MsgBox("Error 01: " & ex.Message & vbNewLine & ex.StackTrace)
 
 
-                            Return ""
+                                Return ""
-                        End Try
+                            End Try
 
-                        Datei = .Workbooks.Open(Path) 'Anpassen
+                            Datei = .Workbooks.Open(Path) 'Anpassen
-                        Blatt = Datei.Worksheets(1) 'Anpassen
+                            Blatt = Datei.Worksheets(1) 'Anpassen
 
 
-                        Dim cnt = 2
+                            Dim cnt = 2
 
-                        For Each r In dt.Rows
+                            For Each r In dt.Rows
 
-                            Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
+                                Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
 
-                            Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
+                                Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
-                            If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
+                                If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
 
-                                If ZOLLANMELDUNG.dtWARENPOS.Rows.Count > 0 Then
+                                    If ZOLLANMELDUNG.dtWARENPOS.Rows.Count > 0 Then
 
-                                    Dim rowcounter As Integer = 0
+                                        Dim rowcounter As Integer = 0
 
-                                    For Each row As DataRow In ZOLLANMELDUNG.dtWARENPOS.Rows
+                                        For Each row As DataRow In ZOLLANMELDUNG.dtWARENPOS.Rows
+
+                                            Dim ZollInProzent As Double = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
+
+                                            Blatt.Range("A" & cnt).Value = cnt - 1
+                                            Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum")
+                                            Blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr"))
+                                            Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger
+                                            Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr")
+                                            Blatt.Range("F" & cnt).Value = r("BelegNr")
+                                            Blatt.Range("G" & cnt).Value = row.Item("PosNr")
+                                            Blatt.Range("H" & cnt).Value = row.Item("WarenNr")
+                                            Blatt.Range("I" & cnt).Value = "-"
+                                            Blatt.Range("J" & cnt).Value = row.Item("WarenBez")
+                                            Blatt.Range("K" & cnt).Value = ""
+                                            Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Waehrungscode
+                                            Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart
+                                            Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang
+                                            Blatt.Range("O" & cnt).Value = ""
+                                            Blatt.Range("P" & cnt).Value = row.Item("Netto")
+                                            Blatt.Range("Q" & cnt).Value = row.Item("PosWert")
+                                            Blatt.Range("R" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_EUST, "")
+                                            Blatt.Range("S" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_ZOLL, "")
+                                            Blatt.Range("T" & cnt).Value = IIf(rowcounter = 0, ZollInProzent.ToString("N2") & " %", "")
+                                            Blatt.Range("U" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "")
+                                            Blatt.Range("V" & cnt).Value = ZOLLANMELDUNG.Absender
+                                            Blatt.Range("W" & cnt).Value = row.Item("Herkunft")
+                                            Blatt.Range("X" & cnt).Value = ZOLLANMELDUNG.Incoterms
+                                            Blatt.Range("Y" & cnt).Value = row.Item("Verfahren")
+                                            Blatt.Range("Z" & cnt).Value = row.Item("Preferenz")
+                                            Blatt.Range("AA" & cnt).Value = IIf(row.Item("isCBAM"), "Y", "N")
+
+                                            If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("F" & cnt).Value = "" Then
+                                                Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ATCMRN
+                                            End If
+
+                                            cnt += 1
+                                            rowcounter += 1
+                                        Next
+
+
+                                    Else
 
                                         Dim ZollInProzent As Double = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
 
@@ -2797,100 +2857,58 @@ Module Mail
                                         Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger
                                         Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr")
                                         Blatt.Range("F" & cnt).Value = r("BelegNr")
-                                        Blatt.Range("G" & cnt).Value = row.Item("PosNr")
+                                        Blatt.Range("G" & cnt).Value = ""
-                                        Blatt.Range("H" & cnt).Value = row.Item("WarenNr")
+                                        Blatt.Range("H" & cnt).Value = ""
                                         Blatt.Range("I" & cnt).Value = "-"
-                                        Blatt.Range("J" & cnt).Value = row.Item("WarenBez")
+                                        Blatt.Range("J" & cnt).Value = ""
                                         Blatt.Range("K" & cnt).Value = ""
                                         Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Waehrungscode
                                         Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart
                                         Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang
                                         Blatt.Range("O" & cnt).Value = ""
-                                        Blatt.Range("P" & cnt).Value = row.Item("Netto")
+                                        Blatt.Range("P" & cnt).Value = ""
-                                        Blatt.Range("Q" & cnt).Value = row.Item("PosWert")
+                                        Blatt.Range("Q" & cnt).Value = ""
-                                        Blatt.Range("R" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_EUST, "")
+                                        Blatt.Range("R" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST
-                                        Blatt.Range("S" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_ZOLL, "")
+                                        Blatt.Range("S" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
-                                        Blatt.Range("T" & cnt).Value = IIf(rowcounter = 0, ZollInProzent.ToString("N2") & " %", "")
+                                        Blatt.Range("T" & cnt).Value = ZollInProzent.ToString("N2") & " %"
                                         Blatt.Range("U" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "")
                                         Blatt.Range("V" & cnt).Value = ZOLLANMELDUNG.Absender
-                                        Blatt.Range("W" & cnt).Value = row.Item("Herkunft")
+                                        Blatt.Range("W" & cnt).Value = ""
                                         Blatt.Range("X" & cnt).Value = ZOLLANMELDUNG.Incoterms
-                                        Blatt.Range("Y" & cnt).Value = row.Item("Verfahren")
+                                        Blatt.Range("Y" & cnt).Value = ""
-                                        Blatt.Range("Z" & cnt).Value = row.Item("Preferenz")
+                                        Blatt.Range("Z" & cnt).Value = ""
-                                        Blatt.Range("AA" & cnt).Value = IIf(row.Item("isCBAM"), "Y", "N")
+                                        Blatt.Range("AA" & cnt).Value = ""
+
 
                                         If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("F" & cnt).Value = "" Then
                                             Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ATCMRN
                                         End If
-
                                         cnt += 1
-                                        rowcounter += 1
-                                    Next
-
-
-                                Else
-
-                                    Dim ZollInProzent As Double = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
-
-                                    Blatt.Range("A" & cnt).Value = cnt - 1
-                                    Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum")
-                                    Blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr"))
-                                    Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger
-                                    Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr")
-                                    Blatt.Range("F" & cnt).Value = r("BelegNr")
-                                    Blatt.Range("G" & cnt).Value = ""
-                                    Blatt.Range("H" & cnt).Value = ""
-                                    Blatt.Range("I" & cnt).Value = "-"
-                                    Blatt.Range("J" & cnt).Value = ""
-                                    Blatt.Range("K" & cnt).Value = ""
-                                    Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Waehrungscode
-                                    Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart
-                                    Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang
-                                    Blatt.Range("O" & cnt).Value = ""
-                                    Blatt.Range("P" & cnt).Value = ""
-                                    Blatt.Range("Q" & cnt).Value = ""
-                                    Blatt.Range("R" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST
-                                    Blatt.Range("S" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
-                                    Blatt.Range("T" & cnt).Value = ZollInProzent.ToString("N2") & " %"
-                                    Blatt.Range("U" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "")
-                                    Blatt.Range("V" & cnt).Value = ZOLLANMELDUNG.Absender
-                                    Blatt.Range("W" & cnt).Value = ""
-                                    Blatt.Range("X" & cnt).Value = ZOLLANMELDUNG.Incoterms
-                                    Blatt.Range("Y" & cnt).Value = ""
-                                    Blatt.Range("Z" & cnt).Value = ""
-                                    Blatt.Range("AA" & cnt).Value = ""
-
-
-                                    If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("F" & cnt).Value = "" Then
-                                        Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ATCMRN
                                     End If
-                                    cnt += 1
+
+
+
                                 End If
 
-
+                            Next
-
-                            End If
-
-                        Next
 
 
 
-                        Datei.Save()
+                            Datei.Save()
-                        .DisplayAlerts = False
+                            .DisplayAlerts = False
-                        .quit()
+                            .quit()
-                        Try : Datei.close(True) : Catch : End Try
+                            Try : Datei.close(True) : Catch : End Try
 
-                    End With
+                        End With
 
 
 
-            End Select
+                End Select
 
+                'Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, "Report Data_" & KUNDENADR.FullName & "_" & von.ToShortDateString & "-" & bis.ToShortDateString)
 
+            End If
 
-
-
-            'Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, "Report Data_" & KUNDENADR.FullName & "_" & von.ToShortDateString & "-" & bis.ToShortDateString)
             Dim filepath = Path
             If filepath = "" Then Return "ERROR 01: Fehler beim Erzeugen des XLS."
 

initATLASAufschubkonten/cGetMsgType.vb

@@ -150,6 +150,20 @@ Public Class cGetMsgType
         Return False
     End Function
 
+    Shared Function isNCTS_SumABekanntgabeMassnahme(doc As XmlDocument, ByRef version As String) As Boolean
+        If doc.HasChildNodes Then
+            If doc.GetElementsByTagName("SumABekanntgabeMassnahme").Count > 0 Then
+
+                If doc.GetElementsByTagName("Version").Count > 0 Then
+                    version = doc.GetElementsByTagName("Version")(0).InnerText
+                End If
+
+                Return True
+            End If
+        End If
+        Return False
+    End Function
+
 
     Shared Function isAES_DEXPSD(doc As XmlDocument) As Boolean
         If doc.HasChildNodes Then

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

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
@@ -427,6 +431,14 @@ Public Class frmDYNachrichtenVerarbeitung
                                 End Select
                             End If
 
+                            'VW: SumABekanntgabeMassnahme
+                            If Not found And cGetMsgType.isNCTS_SumABekanntgabeMassnahme(doc, VERSION) Then
+                                Select Case VERSION
+                                    Case False
+                                    Case Else : If cWorker_Verwahrung.readNCTS_SumAMassnahmenbekanntgabe(Me, d, saveVerwahrung) <> "" Then found = True
+                                End Select
+                            End If
+
 
                             '------------------------------------------
                             '------------------ EXPORT / Gestellung (AES) ------------------

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()
@@ -81,7 +85,6 @@ Partial Class frmStartOptions
         Me.Label13 = New System.Windows.Forms.Label()
         Me.tbcntr = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
-        Me.Button29 = New System.Windows.Forms.Button()
         Me.LinkLabel68 = New System.Windows.Forms.LinkLabel()
         Me.PictureBox26 = New System.Windows.Forms.PictureBox()
         Me.cbxGestellungspeichern = New System.Windows.Forms.CheckBox()
@@ -377,10 +380,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.cbxVW_Infomail = 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.pnl.SuspendLayout()
         CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -525,6 +525,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,7 +1243,7 @@ Partial Class frmStartOptions
         '
         'TabPage1
         '
-        Me.TabPage1.Controls.Add(Me.Button29)
+        Me.TabPage1.Controls.Add(Me.cbxVW_Infomail)
         Me.TabPage1.Controls.Add(Me.LinkLabel68)
         Me.TabPage1.Controls.Add(Me.PictureBox26)
         Me.TabPage1.Controls.Add(Me.cbxGestellungspeichern)
@@ -1257,13 +1303,6 @@ Partial Class frmStartOptions
         Me.TabPage1.Text = "Zollverfahren"
         Me.TabPage1.UseVisualStyleBackColor = True
         '
-        'Button29
-        '
-        Me.Button29.Location = New System.Drawing.Point(0, 0)
-        Me.Button29.Name = "Button29"
-        Me.Button29.Size = New System.Drawing.Size(75, 23)
-        Me.Button29.TabIndex = 0
-        '
         'LinkLabel68
         '
         Me.LinkLabel68.AutoSize = True
@@ -1292,9 +1331,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 +5076,16 @@ Partial Class frmStartOptions
         Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
         Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
         '
-        'cbxSendEZOLL_INFO
+        'cbxVW_Infomail
         '
-        Me.cbxSendEZOLL_INFO.AutoSize = True
+        Me.cbxVW_Infomail.AutoSize = True
-        Me.cbxSendEZOLL_INFO.Checked = 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.cbxSendEZOLL_INFO.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxVW_Infomail.Location = New System.Drawing.Point(100, 194)
-        Me.cbxSendEZOLL_INFO.Location = New System.Drawing.Point(403, 158)
+        Me.cbxVW_Infomail.Name = "cbxVW_Infomail"
-        Me.cbxSendEZOLL_INFO.Name = "cbxSendEZOLL_INFO"
+        Me.cbxVW_Infomail.Size = New System.Drawing.Size(62, 17)
-        Me.cbxSendEZOLL_INFO.Size = New System.Drawing.Size(134, 17)
+        Me.cbxVW_Infomail.TabIndex = 152
-        Me.cbxSendEZOLL_INFO.TabIndex = 144
+        Me.cbxVW_Infomail.Text = "Infomail"
-        Me.cbxSendEZOLL_INFO.Text = "Sende Mail an Kunden"
+        Me.cbxVW_Infomail.UseVisualStyleBackColor = True
-        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
         '
         'frmStartOptions
         '
@@ -5507,7 +5511,6 @@ Partial Class frmStartOptions
     Friend WithEvents Label56 As Label
     Friend WithEvents Label58 As Label
     Friend WithEvents Label57 As Label
-    Friend WithEvents Button29 As Button
     Friend WithEvents lblIDS_plauscheck As LinkLabel
     Friend WithEvents Label59 As Label
     Friend WithEvents pbEmailscheck As PictureBox
@@ -5523,4 +5526,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

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">
@@ -692,6 +596,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="PictureBox15.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

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
@@ -2964,6 +2965,8 @@ Public Class frmStartOptions
         Me.Visible = False
         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
@@ -3021,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
@@ -7390,7 +7394,7 @@ repeatRequest:
 
     End Sub
 
-    Private Sub Button29_Click_1(sender As Object, e As EventArgs) Handles Button29.Click
+    Private Sub Button29_Click_1(sender As Object, e As EventArgs)
 
         ' doMailZollbeleg("", "STB", 725002)