merge

DAKOSY_Worker/cDakosy_Stammreferenzen.vb

@@ -13,6 +13,7 @@ Public Class cDakosy_Stammreferenzen
     Property dySr_dy_Niederlassung As Object = Nothing
     Property dySr_dy_Standard As Object = Nothing
     Property dyStr_KdNr As Object = Nothing
+    Property dySr_WarenortID As Object = Nothing
 
 
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -21,11 +22,16 @@ Public Class cDakosy_Stammreferenzen
 
     End Sub
 
-    Sub New(dySr_Id)
+    Sub New(dySr_Id As Integer)
         Me.dySr_Id = dySr_Id
         LOAD()
     End Sub
 
+    Sub New(dySr_Bez As String)
+        Me.dySr_Bezeichnung = dySr_Bez
+        LOADBEZ()
+    End Sub
+
     Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_Id", dySr_Id, , True, True))
@@ -42,6 +48,7 @@ Public Class cDakosy_Stammreferenzen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_dy_Niederlassung", dySr_dy_Niederlassung))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_dy_Standard", dySr_dy_Standard))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dyStr_KdNr", dyStr_KdNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_WarenortID", dySr_WarenortID))
         Return list
     End Function
 
@@ -90,6 +97,33 @@ Public Class cDakosy_Stammreferenzen
         End Try
     End Sub
 
+    Public Sub LOADBEZ()
+        Try
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblDakosy_Stammreferenzen WHERE dySr_Bezeichnung=@dySr_Bezeichnung  ", conn)
+                    cmd.Parameters.AddWithValue("@dySr_Bezeichnung", dySr_Bezeichnung)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each l In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
+
+                            If dr.Item(l.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(l.Text))
+                            End If
+
+                        Next
+
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
 
     Public Function getUpdateCmd() As String
         Try

UID/usrctlProcedures.vb

@@ -4361,6 +4361,7 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
                         Case "Vereinigtes Königreich" : ISO2SetCountry = "GB"
                         Case "Bosnien und Herzegowina" : ISO2SetCountry = "BA"
                         Case "Mauretanien" : ISO2SetCountry = "MR"
+                        Case "Vereinigtes Königreich (Nordirland)" : ISO2SetCountry = "GB"
                     End Select
 
 

initATLASAufschubkonten/cWorker_NCTS.vb

@@ -5,6 +5,7 @@ Imports DAKOSY_Worker
 Imports DocumentFormat.OpenXml
 Imports DocumentFormat.OpenXml.Spreadsheet
 Imports iTextSharp.text.pdf
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class cWorker_NCTS
     Public Shared Dateiname = ""
@@ -3969,7 +3970,7 @@ Public Class cWorker_NCTS
             readNCTS004_Ueberlassungsmeldung008 = ""
         End Try
     End Function
-    Shared Function readNCTS_Ueberlassungsmeldung009(FORM As frmDYNachrichtenVerarbeitung, d As String, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As String
+    Shared Function readNCTS_Ueberlassungsmeldung009(FORM As frmDYNachrichtenVerarbeitung, d As String, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen, saveVerwahrung As Boolean, sendMail As Boolean, testlauf As Boolean) As String
         Try
             'Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp.LoadFromFile(d)
             Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp.LoadFromFile(d)
@@ -3981,6 +3982,7 @@ Public Class cWorker_NCTS
             Dim Verschluss_Art = ""
             Dim Verschluss_Anzahl = 0
             Dim Verschluss_Zeichen As New List(Of String)
+            Dim posErledigung As New DataTable
 
 
             readNCTS_Ueberlassungsmeldung009 = ""
@@ -4007,7 +4009,52 @@ Public Class cWorker_NCTS
 
                         Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum
                         '      bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten.
+
                         If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then
+
+                            If NCTS.EinzelUeberlassungsmeldung.TransitOperation.HouseConsignment IsNot Nothing Then
+
+                                For Each HC In NCTS.EinzelUeberlassungsmeldung.TransitOperation.HouseConsignment
+                                    If HC.ConsignmentItem IsNot Nothing Then
+                                        For Each CI In HC.ConsignmentItem
+                                            If CI.ProcedureTransference IsNot Nothing Then
+                                                If CI.ProcedureTransference.SummaryDeclaration IsNot Nothing Then
+                                                    If CI.ProcedureTransference.SummaryDeclaration.SummaryDeclarationGoodsReference IsNot Nothing Then
+                                                        For Each SDGR In CI.ProcedureTransference.SummaryDeclaration.SummaryDeclarationGoodsReference
+
+
+                                                            If SDGR.SequenceNumber IsNot Nothing AndAlso posErledigung IsNot Nothing Then
+                                                                If Not posErledigung.Columns.Contains("LaufendeNummer") Then
+                                                                    posErledigung.Columns.Add("LaufendeNummer", GetType(String))
+                                                                    posErledigung.Columns.Add("IDRegNrSumA", GetType(String))
+                                                                    posErledigung.Columns.Add("IDRegNrSumAPos", GetType(String))
+                                                                    posErledigung.Columns.Add("StueckzahlErledigte", GetType(String))
+                                                                End If
+
+                                                                Dim ro As DataRow = posErledigung.NewRow
+                                                                ro("LaufendeNummer") = SDGR.SequenceNumber
+                                                                ro("IDRegNrSumA") = SDGR.RegistrationNumber
+                                                                ro("IDRegNrSumAPos") = SDGR.GoodsItemNumber
+                                                                ro("StueckzahlErledigte") = SDGR.NumberOfPackages
+                                                                posErledigung.Rows.Add(ro)
+                                                            End If
+
+
+
+
+                                                        Next
+                                                    End If
+                                                End If
+                                            End If
+                                        Next
+                                    End If
+
+                                Next
+
+                            End If
+
+
+
                             If NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate.ToString <> "" Then 'Sollte mit Version 009 hier enthalten sein!
                                 Try
                                     Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "dd.MM.yyyy", System.Globalization.CultureInfo.InvariantCulture)
@@ -4049,15 +4096,17 @@ Public Class cWorker_NCTS
                         End If
 
                     End If
-
-
-
-
                 End If
 
+
                 'End If
                 ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
 
+                If saveVerwahrung Then
+                    saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf)
+                End If
+
+
                 If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
                 Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
                 STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009
@@ -4600,5 +4649,258 @@ Public Class cWorker_NCTS
 
     End Function
 
+    Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp, sendInfoMail As Boolean, testlauf As Boolean)
+
+        Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
+
+        Try
+
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
+
+
+            If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then
+
+
+                For Each POS As DataRow In posErledigung.Rows
+
+                    Dim MRNNR As String = ""
+                    Dim existingEntryID As Integer = 0
+
+
+                    If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then
+
+                        Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos")))
+
+                        If MRNNR <> POS.Item("IDRegNrSumA") Then
+                            MRNNR = POS.Item("IDRegNrSumA")
+
+                            'Dim firmaID = -1
+
+                            Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsnr = gs.gs_gsnr where [gs_MRNNr] = '" & MRNNR & "'  order by gsp_gspPosId", "AVISO")
+
+                            If dtGesamtsicherheit.Rows.Count > 0 Then
+
+
+                                Dim gs_row As DataRow = dtGesamtsicherheit.Rows(0)
+
+                                Dim rows = dtGesamtsicherheit.Select("gsp_gspPosId = " & gs_row("gs_posNr") & " AND gsp_MRNNr IS NOT NULL")
+
+                                If rows.Length > 0 Then
+                                    Exit Sub 'bereits vorhanden -> keine INFO
+                                End If
+
+                                Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gs_row("gs_standort"))
+                                Dim saldo As Double = GesSichRef.CalcSaldo()
+
+
+                                Dim Warenwert As Double = 0
+                                Dim Sicherheitsbetrag As Double = 0
+
+                                'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten!
+                                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                                Dim dtVorpapiere As DataTable = SQL.loadDgvBySql("SELECT tblSnd_Warenwert,tblSnd_WarenwertWaehrung,tblSnd_Vorpapier_Pos,tblSnd_Vorpapier2_Pos, tblSnd_Vorpapier3_Pos from tblSendungen where tblSnd_Vorpapier = '" & gs_row("gs_ATBNr") & "' Or tblSnd_Vorpapier2 = '" & gs_row("gs_ATBNr") & "' OR tblSnd_Vorpapier3 = '" & gs_row("gs_ATBNr") & "'", "AVISO")
+
+                                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
+
+
+                                If dtVorpapiere.Rows.Count > 0 Then
+
+                                    Dim rowsVorp = dtVorpapiere.Select("tblSnd_Warenwert is not null AND (tblSnd_Vorpapier_Pos = '" & gs_row.Item("gs_posNr") & "' or   tblSnd_Vorpapier2_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier3_Pos = '" & gs_row.Item("gs_posNr") & "')")
+
+                                    Dim row = rowsVorp(0)
+                                    Warenwert = CDbl(row("tblSnd_Warenwert"))
+                                    Sicherheitsbetrag = System.Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100), 2)
+                                End If
+
+
+
+                                'Dim dtSendungen = SQL.loadDgvBySql("SELECT")
+                                Dim anzahlPackstuecke As Integer = -1
+                                Dim AnzahlStückErledigt As Integer = If(IsDBNull(POS("StueckzahlErledigte")), 0, CInt(POS("StueckzahlErledigte")))
+                                'Dim StornierungKz As String = If(IsDBNull(POS("StornierungKz")), "", POS("StornierungKz"))
+                                If gs_row.Item("gs_freitext") <> "" Then
+                                    anzahlPackstuecke = CInt(System.Text.RegularExpressions.Regex.Match(gs_row.Item("gs_freitext"), "\d+").Value)
+                                End If
+
+                                If anzahlPackstuecke > 0 AndAlso anzahlPackstuecke <> AnzahlStückErledigt Then 'Hinweismeldung, wenn nicht alle erledigt wurden!
+                                    Dim dt As New DataTable
+
+                                    If Not dt.Columns.Contains("anzahlPackstuecke") Then
+                                        dt.Columns.Add("MRN", GetType(String))
+                                        dt.Columns.Add("LKW_ID", GetType(String))
+                                        dt.Columns.Add("anzahlPackstuecke", GetType(Integer))
+                                        'dt.Columns.Add("StornierungKZ", GetType(String))
+                                        dt.Columns.Add("AnzahlStückErledigt", GetType(Integer))
+                                    End If
+
+                                    Dim ro As DataRow = dt.NewRow
+                                    ro("MRN") = gs_row.Item("gs_MRNNr")
+                                    ro("LKW_ID") = gs_row.Item("gs_avisoId")
+                                    ro("anzahlPackstuecke") = anzahlPackstuecke
+                                    ro("AnzahlStückErledigt") = AnzahlStückErledigt
+                                    'ro("StornierungKZ") = StornierungKz
+                                    dt.Rows.Add(ro)
+
+
+                                    Dim InfoText As String = createInfoMail(MRNNR, dt, "")
+                                    VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
+
+                                End If
+
+                                Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
+                                With SicherheitsPos
+                                    .gsp_gsId = gs_row("gs_gsId")
+                                    '.gsp_gspPosId = CInt(POSNr)
+                                    .gsp_gspPosId = gs_row.Item("gs_posNr")
+                                    .gsp_warenwert = Warenwert
+                                    .gsp_sicherheitsbetrag = Sicherheitsbetrag
+                                    .gsp_freitext = "DASKOY-IMPORT"
+                                    .gsp_filialenNr = gs_row("gs_filialenNr")
+                                    .gsp_art = "CLOSE"
+                                    .gsp_gsNr = gs_row("gs_gsnr")
+                                    .gsp_abfertigungsNr = gs_row("gs_abfertigungsnr")
+                                    .gsp_datum = NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ZeitpunktEingang
+                                    .gsp_erstellungsdatum = DateTime.Now
+                                    .gsp_ust = gs_row("gs_ust")
+                                    .gsp_ATCNr = ""
+                                    .gsp_MRNNr = IIf(regNR = "", MRNNR, regNR)
+                                    .gsp_avisoId = gs_row("gs_avisoID")
+                                    .gsp_systemuser = "DAKOSY-AUTO"
+                                End With
+
+
+                                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 T1 aus DAKOSY - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
+                                End If
+
+                            End If
+
+                        End If
+
+
+                    End If
+
+                Next
+
+            End If
+
+            'End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        Finally
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
+        End Try
+
+    End Sub
+
+    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
+
+        Select Case typ
+            Case "MASSNAHME-DAKOSY"
+                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>"
+
+                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>"
+
+                Next
+
+                TextHTMLtable &= "</table>"
+
+                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 &= 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
+
 
 End Class

initATLASAufschubkonten/cWorker_Verwahrung.vb

@@ -1,5 +1,4 @@
-Imports com.sun.xml.internal.rngom
+Imports VERAG_PROG_ALLGEMEIN
-Imports VERAG_PROG_ALLGEMEIN
 
 Public Class cWorker_Verwahrung
     Public Shared Dateiname = ""
@@ -8,7 +7,7 @@ Public Class cWorker_Verwahrung
 
 
 
-    Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean, sendMail As Boolean) As String
+    Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean, sendMail As Boolean, testlauf As Boolean) As String
         Try
 
             Dim VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp = DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp.LoadFromFile(d)
@@ -101,7 +100,7 @@ Public Class cWorker_Verwahrung
 
                 'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
 
-                If saveVerwahrung Then saveVerwahrungseingang(readVW_SumAVerwahrungsinfo, VWI, RegistriernummerATLAS, posGestellung, VorpapiernummerInput, VeralteteWeitereRegistriernummer, sendMail)
+                If saveVerwahrung Then saveVerwahrungseingang(readVW_SumAVerwahrungsinfo, VWI, RegistriernummerATLAS, posGestellung, VorpapiernummerInput, VeralteteWeitereRegistriernummer, sendMail, testlauf)
 
 
 Anzeige:
@@ -123,7 +122,7 @@ Anzeige:
 
 
 
-    Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean, sendMail As Boolean) As String
+    Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean, sendMail As Boolean, testlauf As Boolean) As String
         Try
 
             Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d)
@@ -216,7 +215,7 @@ Anzeige:
                 'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten
 
                 If saveAbschreibung Then
-                    saveVerwahrungsAusgang(regNR, posErledigung, veralteteregNR, EZA, sendMail)
+                    saveVerwahrungsAusgang(regNR, posErledigung, veralteteregNR, EZA, sendMail, testlauf)
 
 Anzeige:
 
@@ -412,18 +411,14 @@ 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, sendInfoMail As Boolean)
+    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, testlauf As Boolean)
 
         Dim BezugsNr = readVW_SumAVerwahrungsinfo
 
-        Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
 
         Try
 
-            If Not originalTestSetting Then
-                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
-            End If
-
 
             If VeralteteWeitereRegistriernummer = "" Then Return False
 
@@ -484,27 +479,38 @@ Anzeige:
                     If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then
 
                         Dim existingEntries As DataTable
-                        existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO")
+                        existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer,gs_MRNNr, gs_ATBNr, gs_dakoyimport from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO")
                         If existingEntries.Rows.Count = 0 Then
-                            existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr,gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO")
+                            'existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr,gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO")
+                            existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr,gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer,gs_MRNNr, gs_ATBNr, gs_dakoyimport from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) order by gs_datum desc", "AVISO")
                         End If
 
                         If existingEntries.Rows.Count > 0 Then
 
                             Dim zubehandelndeGS As Boolean = existingEntries.AsEnumerable().
-                                    Any(Function(r_entry)
+                                                            Any(Function(r)
-                                            Return Not r_entry.IsNull("gs_posNr") AndAlso r_entry.Field(Of Integer)("gs_posNr") = laufnummer AndAlso Not r_entry.IsNull("gs_VeralteteWeitereRegistriernummer") AndAlso r_entry.Field(Of String)("gs_VeralteteWeitereRegistriernummer") <> "" AndAlso r_entry.Field(Of String)("gs_VeralteteWeitereRegistriernummer") = VeralteteWeitereRegistriernummer
+                                                                    If r.IsNull("gs_posNr") OrElse r.Field(Of Integer)("gs_posNr") <> laufnummer Then
+                                                                        Return False
+                                                                    End If
+
+                                                                    Dim alt = If(r.IsNull("gs_VeralteteWeitereRegistriernummer"), "", r.Field(Of String)("gs_VeralteteWeitereRegistriernummer"))
+                                                                    Dim mrn = If(r.IsNull("gs_MRNNr"), "", r.Field(Of String)("gs_MRNNr"))
+
+                                                                    Return alt = VeralteteWeitereRegistriernummer OrElse mrn = RegistriernummerATLAS
                                                                 End Function)
 
                             If zubehandelndeGS Then
                                 Return True 'bereits behandelt ->
                             End If
 
+
                             Dim urspringsSicherheit As cSicherheiten
-                            Dim rows = existingEntries.Select("gs_freitext = 'DAKOSY DUMMY' AND gs_posNr = 0")
+                            Dim rows = existingEntries.Select("gs_dakoyimport = true AND [gs_ATBNr] = '" & Vorpapiernummer & "' AND gs_freitext = 'DAKOSY DUMMY'")
 
                             If rows.Length > 0 Then
                                 Dim row = rows(0)
+                                'urspringsSicherheit = New cSicherheiten(row("gs_gsId"), row("gs_posNr"))
+
                                 urspringsSicherheit = New cSicherheiten(row("gs_gsId"), row("gs_posNr"))
                             Else
                                 Return False 'kein Dummy-Eintrag
@@ -526,6 +532,7 @@ Anzeige:
 
                             newSicherheit.gs_systemuser = "DAKOSY-AUTO"
                             newSicherheit.gs_VeralteteWeitereRegistriernummer = VeralteteWeitereRegistriernummer 'wichtig für Zuweisung DAKOSY
+                            newSicherheit.gs_MRNNr = RegistriernummerATLAS 'wichtig für Zuweisung DAKOSY
                             newSicherheit.gs_gsNr = urspringsSicherheit.gs_gsNr
                             newSicherheit.gs_ATBNr = urspringsSicherheit.gs_ATBNr
 
@@ -537,29 +544,36 @@ Anzeige:
                                 FreitextInfo = "DAKOSY-IMPORT"
                             End If
 
-
-                            newSicherheit.gs_freitext = FreitextInfo
-                            newSicherheit.gs_MRNNr = RegistriernummerATLAS
                             newSicherheit.gs_standort = urspringsSicherheit.gs_standort
                             newSicherheit.gs_datum = urspringsSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang
                             newSicherheit.gs_erstellungsdatum = Now()
                             newSicherheit.gs_posNr = laufnummer
+                            newSicherheit.gs_freitext = FreitextInfo
                             newSicherheit.gs_abfertigungsnr = abfertigungsnummer
                             newSicherheit.gs_filialenNr = filiale
+                            newSicherheit.gs_posSubNr = 1
                             newSicherheit.gs_LKWKZ = urspringsSicherheit.gs_LKWKZ
                             newSicherheit.gs_zollsatz = urspringsSicherheit.gs_zollsatz
+
+                            If laufnummer = 1 Then
                                 newSicherheit.gs_warenwert = urspringsSicherheit.gs_warenwert
                                 newSicherheit.gs_sicherheitsbetrag = urspringsSicherheit.gs_sicherheitsbetrag
+                            Else
+                                newSicherheit.gs_warenwert = 0
+                                newSicherheit.gs_sicherheitsbetrag = 0
+
+                            End If
+
                             newSicherheit.gs_art = "OPEN"
                             newSicherheit.gs_saldo = saldo
                             newSicherheit.gs_avisoId = urspringsSicherheit.gs_avisoId
                             newSicherheit.gs_warenort = urspringsSicherheit.gs_warenort
-                            newSicherheit.gs_posSubNr = 1
+                            newSicherheit.gs_dakoyimport = True
 
 
                             Dim gsid = newSicherheit.SAVEOBJECT()
 
-                            If gsid > 0 Then
+                            If gsid > 0 AndAlso laufnummer = 1 Then
                                 'wechsel des Sicherheitsbetrags und Warenwert von Dummypos auf erste Produkivposition
                                 urspringsSicherheit.gs_warenwert = 0
                                 urspringsSicherheit.gs_sicherheitsbetrag = 0
@@ -586,9 +600,6 @@ Anzeige:
 
                             CLOSED_DUMMY.SAVE()
 
-
-                            'pro gestellungsposition bekommen wir eine SumAVerwahrungsinfo -> daher sind die Positionen innerhalb dieser info irrelevant (vorerst).
-
                             If posGestellung.Rows.Count > 1 Then
                                 If True Then
                                     For i As Integer = 2 To posGestellung.Rows.Count
@@ -603,7 +614,6 @@ Anzeige:
                                             .gs_standort = urspringsSicherheit.gs_standort
                                             .gs_datum = urspringsSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang
                                             .gs_erstellungsdatum = Now()
-                                            .gs_posNr = laufnummer + i - 1
                                             .gs_abfertigungsnr = abfertigungsnummer
                                             .gs_filialenNr = filiale
                                             .gs_LKWKZ = urspringsSicherheit.gs_LKWKZ
@@ -614,7 +624,8 @@ Anzeige:
                                             .gs_saldo = saldo
                                             .gs_avisoId = urspringsSicherheit.gs_avisoId
                                             .gs_warenort = urspringsSicherheit.gs_warenort
-                                            '.gs_posSubNr = i
+                                            .gs_posNr = laufnummer + i - 1
+                                            .gs_posSubNr = i
 
                                         End With
 
@@ -665,7 +676,7 @@ Anzeige:
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         Finally
-            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = originalTestSetting
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
         End Try
 
 
@@ -673,19 +684,18 @@ Anzeige:
 
     End Function
 
-    Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp, sendInfoMail As Boolean)
+    Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp, sendInfoMail As Boolean, testlauf As Boolean)
 
         Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
 
         Try
 
-            If Not originalTestSetting Then
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
-                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+
-            End If
 
             If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then
 
-                If regNR <> "" AndAlso veralteteregNR <> "" Then
+                'If regNR <> "" AndAlso veralteteregNR <> "" Then
 
                 For Each POS As DataRow In posErledigung.Rows
 
@@ -702,7 +712,7 @@ Anzeige:
 
                             'Dim firmaID = -1
 
-                                Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsnr = gs.gs_gsnr where [gs_VeralteteWeitereRegistriernummer] = '" & MRNNR & "' order by gsp_gspPosId", "AVISO")
+                            Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsnr = gs.gs_gsnr where [gs_VeralteteWeitereRegistriernummer] = '" & MRNNR & "' or [gs_MRNNr] = '" & regNR & "'  order by gsp_gspPosId", "AVISO")
 
                             If dtGesamtsicherheit.Rows.Count > 0 Then
 
@@ -719,14 +729,15 @@ Anzeige:
                                 Dim saldo As Double = GesSichRef.CalcSaldo()
 
 
-
                                 Dim Warenwert As Double = 0
                                 Dim Sicherheitsbetrag As Double = 0
 
                                 'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten!
                                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
                                 Dim dtVorpapiere As DataTable = SQL.loadDgvBySql("SELECT tblSnd_Warenwert,tblSnd_WarenwertWaehrung,tblSnd_Vorpapier_Pos,tblSnd_Vorpapier2_Pos, tblSnd_Vorpapier3_Pos from tblSendungen where tblSnd_Vorpapier = '" & gs_row("gs_ATBNr") & "' Or tblSnd_Vorpapier2 = '" & gs_row("gs_ATBNr") & "' OR tblSnd_Vorpapier3 = '" & gs_row("gs_ATBNr") & "'", "AVISO")
-                                    VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+
+                                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
+
 
                                 If dtVorpapiere.Rows.Count > 0 Then
 
@@ -734,7 +745,7 @@ Anzeige:
 
                                     Dim row = rowsVorp(0)
                                     Warenwert = CDbl(row("tblSnd_Warenwert"))
-                                            Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100))
+                                    Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100), 2)
                                 End If
 
 
@@ -787,8 +798,8 @@ Anzeige:
                                     .gsp_datum = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang
                                     .gsp_erstellungsdatum = DateTime.Now
                                     .gsp_ust = gs_row("gs_ust")
-                                            .gsp_ATCNr = veralteteregNR
+                                    .gsp_ATCNr = IIf(veralteteregNR = "", MRNNR, veralteteregNR)
-                                            .gsp_MRNNr = regNR
+                                    .gsp_MRNNr = IIf(regNR = "", MRNNR, regNR)
                                     .gsp_avisoId = gs_row("gs_avisoID")
                                     .gsp_systemuser = "DAKOSY-AUTO"
                                 End With
@@ -813,12 +824,12 @@ Anzeige:
 
             End If
 
-            End If
+            'End If
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         Finally
-            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = originalTestSetting
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
         End Try
 
     End Sub
@@ -916,7 +927,7 @@ Anzeige:
 
             Case Else
 
-                TextHTMLtable &= "Bei " & regNR & " wurde nicht vollständig aufgelöst." & vbNewLine & vbNewLine & vbNewLine
+                TextHTMLtable &= 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>"

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -19,6 +19,7 @@ Public Class frmDYNachrichtenVerarbeitung
     Dim Dateiname = ""
     Public saveVerwahrung As Boolean = False
     Public sendMail As Boolean = False
+    Public GESTELLUNG_TESTLAUF As Boolean = False
 
     Sub New()
 
@@ -341,7 +342,7 @@ Public Class frmDYNachrichtenVerarbeitung
                             'NCTS: Ueberlassungsmeldung
                             If Not found And cGetMsgType.isNCTS_Ueberlassungsmeldung(doc, VERSION) Then
                                 Select Case VERSION
-                                    Case "009" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung009(Me, d, statusTMP) <> "" Then found = True 'NEU
+                                    Case "009" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung009(Me, d, statusTMP, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True 'NEU
                                         If cWorker_NCTS.readNCTS004_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True
                                        ' If Not found Then If cWorker_NCTS.readNCTS_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True
                                     Case "007" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung007(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
@@ -408,7 +409,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, sendMail) <> "" Then found = True
+                                    Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True
                                 End Select
                             End If
 
@@ -416,7 +417,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, sendMail) <> "" Then found = True ' --> TEIL DER VERWAHRUNG
+                                    Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" 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

initATLASAufschubkonten/frmStartOptions.Designer.vb

@@ -85,6 +85,8 @@ 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.cbxGESTELLUNG_TESTLAUF = New System.Windows.Forms.CheckBox()
+        Me.cbxVW_Infomail = New System.Windows.Forms.CheckBox()
         Me.LinkLabel68 = New System.Windows.Forms.LinkLabel()
         Me.PictureBox26 = New System.Windows.Forms.PictureBox()
         Me.cbxGestellungspeichern = New System.Windows.Forms.CheckBox()
@@ -380,7 +382,6 @@ 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.cbxVW_Infomail = New System.Windows.Forms.CheckBox()
         Me.pnl.SuspendLayout()
         CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1243,6 +1244,7 @@ Partial Class frmStartOptions
         '
         'TabPage1
         '
+        Me.TabPage1.Controls.Add(Me.cbxGESTELLUNG_TESTLAUF)
         Me.TabPage1.Controls.Add(Me.cbxVW_Infomail)
         Me.TabPage1.Controls.Add(Me.LinkLabel68)
         Me.TabPage1.Controls.Add(Me.PictureBox26)
@@ -1303,6 +1305,28 @@ Partial Class frmStartOptions
         Me.TabPage1.Text = "Zollverfahren"
         Me.TabPage1.UseVisualStyleBackColor = True
         '
+        'cbxGESTELLUNG_TESTLAUF
+        '
+        Me.cbxGESTELLUNG_TESTLAUF.AutoSize = True
+        Me.cbxGESTELLUNG_TESTLAUF.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxGESTELLUNG_TESTLAUF.Location = New System.Drawing.Point(169, 194)
+        Me.cbxGESTELLUNG_TESTLAUF.Name = "cbxGESTELLUNG_TESTLAUF"
+        Me.cbxGESTELLUNG_TESTLAUF.Size = New System.Drawing.Size(81, 17)
+        Me.cbxGESTELLUNG_TESTLAUF.TabIndex = 153
+        Me.cbxGESTELLUNG_TESTLAUF.Text = "TESTLAUF"
+        Me.cbxGESTELLUNG_TESTLAUF.UseVisualStyleBackColor = True
+        '
+        'cbxVW_Infomail
+        '
+        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
+        '
         'LinkLabel68
         '
         Me.LinkLabel68.AutoSize = True
@@ -5076,17 +5100,6 @@ Partial Class frmStartOptions
         Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
         Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
         '
-        'cbxVW_Infomail
-        '
-        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
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5527,4 +5540,5 @@ Partial Class frmStartOptions
     Friend WithEvents btnEZOLL_1month As Button
     Friend WithEvents btnEZOLL_7days As Button
     Friend WithEvents cbxVW_Infomail As CheckBox
+    Friend WithEvents cbxGESTELLUNG_TESTLAUF As CheckBox
 End Class

initATLASAufschubkonten/frmStartOptions.resx

@@ -596,102 +596,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="PictureBox15.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">

initATLASAufschubkonten/frmStartOptions.vb

@@ -104,6 +104,7 @@ Public Class frmStartOptions
         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")
+        cbxGESTELLUNG_TESTLAUF.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_TESTLAUF")
 
 
         Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
@@ -152,6 +153,7 @@ Public Class frmStartOptions
                 Dim f As New frmDYNachrichtenVerarbeitung(True)
                 f.saveVerwahrung = cbxGestellungspeichern.Checked
                 f.sendMail = cbxVW_Infomail.Checked
+                f.GESTELLUNG_TESTLAUF = cbxGESTELLUNG_TESTLAUF.Checked
                 'Me.Visible = False ' irgend ein Grund
                 f.Show()
                 AddHandler f.FormClosed, AddressOf closeMe
@@ -160,6 +162,7 @@ Public Class frmStartOptions
                 Dim f As New frmDYNachrichtenVerarbeitung(True)
                 f.saveVerwahrung = cbxGestellungspeichern.Checked
                 f.sendMail = cbxVW_Infomail.Checked
+                f.GESTELLUNG_TESTLAUF = cbxGESTELLUNG_TESTLAUF.Checked
                 ' Me.Visible = False ' irgend ein Grund
                 f.Show()
                 AddHandler f.EV_FINISHED, AddressOf closeMe
@@ -2973,6 +2976,7 @@ Public Class frmStartOptions
         Dim f As New frmDYNachrichtenVerarbeitung
         f.saveVerwahrung = cbxGestellungspeichern.Checked
         f.sendMail = cbxVW_Infomail.Checked
+        f.GESTELLUNG_TESTLAUF = cbxGESTELLUNG_TESTLAUF.Checked
         f.ShowDialog()
         Me.Visible = True
     End Sub
@@ -3031,6 +3035,7 @@ Public Class frmStartOptions
         Dim f As New frmDYNachrichtenVerarbeitung
         f.saveVerwahrung = cbxGestellungspeichern.Checked
         f.sendMail = cbxVW_Infomail.Checked
+        f.GESTELLUNG_TESTLAUF = cbxGESTELLUNG_TESTLAUF.Checked
         f.ShowDialog()
         Me.Visible = True
     End Sub
@@ -3463,7 +3468,7 @@ Public Class frmStartOptions
 
                     Body &= createUIDPruefungUebersicht(dt)
 
-                    Body &= "<br><b>Ungültige UID-Nummern werden automatisch im Aviso" & IIf(updateFIBU, " und in der Buchhaltung", "") & " vermerkt!</b>"
+                    Body &= "<br><b>Ungültige UID-Nummern werden automatisch im Aviso" & IIf(updateFIBU, " und in der Buchhaltung (mit der Kennzeichnung UID)", "") & " vermerkt!</b>"
                     Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
                     Body &= "<br><br>Automatisch generiertes E-Mail."
 
@@ -3476,7 +3481,7 @@ Public Class frmStartOptions
                 If setKundenvermerk Then
 
                     For Each r As DataRow In dt.Rows
-                        If Not IsDBNull(r("Ergebnis")) AndAlso r("Ergebnis") = "UNGÜLTIG" Then
+                        If Not IsDBNull(r("Ergebnis")) AndAlso r("Ergebnis") = "UNGÜLTIG" AndAlso r("typ") <> "VAK" Then
                             Dim kunde As cKunde = New cKunde(r("kdNr"))
                             Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(kunde.FilialenNr)
                             If KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then