Gestellungen, etc.

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_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
 
@@ -586,9 +581,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
@@ -665,7 +657,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,152 +665,152 @@ 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
+                For Each POS As DataRow In posErledigung.Rows
 
-                        Dim MRNNR As String = ""
+                    Dim MRNNR As String = ""
-                        Dim existingEntryID As Integer = 0
+                    Dim existingEntryID As Integer = 0
 
 
-                        If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then
+                    If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then
 
-                            Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos")))
+                        Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos")))
 
-                            If MRNNR <> POS.Item("IDRegNrSumA") Then
+                        If MRNNR <> POS.Item("IDRegNrSumA") Then
-                                MRNNR = POS.Item("IDRegNrSumA")
+                            MRNNR = POS.Item("IDRegNrSumA")
 
-                                'Dim firmaID = -1
+                            '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 & "' order by gsp_gspPosId", "AVISO")
 
-                                If dtGesamtsicherheit.Rows.Count > 0 Then
+                            If dtGesamtsicherheit.Rows.Count > 0 Then
 
 
-                                    Dim gs_row As DataRow = dtGesamtsicherheit.Rows(0)
+                                Dim gs_row As DataRow = dtGesamtsicherheit.Rows(0)
 
-                                        Dim rows = dtGesamtsicherheit.Select("gsp_gspPosId = " & gs_row("gs_posNr") & " AND gsp_MRNNr IS NOT NULL")
+                                Dim rows = dtGesamtsicherheit.Select("gsp_gspPosId = " & gs_row("gs_posNr") & " AND gsp_MRNNr IS NOT NULL")
 
-                                        If rows.Length > 0 Then
+                                If rows.Length > 0 Then
-                                        Exit Sub 'bereits vorhanden -> keine INFO
+                                    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 = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100))
+                                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 GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gs_row("gs_standort"))
+                                    Dim ro As DataRow = dt.NewRow
-                                        Dim saldo As Double = GesSichRef.CalcSaldo()
+                                    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, "")
 
-                                        Dim Warenwert As Double = 0
+                                    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")
-                                        Dim Sicherheitsbetrag As Double = 0
+                                End If
 
-                                    'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten!
+                                Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
-                                    VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                                With SicherheitsPos
-                                    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")
+                                    .gsp_gsId = gs_row("gs_gsId")
-                                    VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+                                    '.gsp_gspPosId = CInt(POSNr)
-
+                                    .gsp_gspPosId = gs_row.Item("gs_posNr")
-                                    If dtVorpapiere.Rows.Count > 0 Then
+                                    .gsp_warenwert = Warenwert
-
+                                    .gsp_sicherheitsbetrag = Sicherheitsbetrag
-                                            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") & "')")
+                                    .gsp_freitext = "DASKOY-IMPORT"
-
+                                    .gsp_filialenNr = gs_row("gs_filialenNr")
-                                            Dim row = rowsVorp(0)
+                                    .gsp_art = "CLOSE"
-                                            Warenwert = CDbl(row("tblSnd_Warenwert"))
+                                    .gsp_gsNr = gs_row("gs_gsnr")
-                                            Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100))
+                                    .gsp_abfertigungsNr = gs_row("gs_abfertigungsnr")
-                                        End If
+                                    .gsp_datum = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang
+                                    .gsp_erstellungsdatum = DateTime.Now
+                                    .gsp_ust = gs_row("gs_ust")
+                                    .gsp_ATCNr = IIf(veralteteregNR = "", MRNNR, veralteteregNR)
+                                    .gsp_MRNNr = IIf(regNR = "", MRNNR, veralteteregNR)
+                                    .gsp_avisoId = gs_row("gs_avisoID")
+                                    .gsp_systemuser = "DAKOSY-AUTO"
+                                End With
 
 
+                                SicherheitsPos.SAVE()
+                                GesSichRef.CalcSaldo()
 
-                                        'Dim dtSendungen = SQL.loadDgvBySql("SELECT")
+                                If sendInfoMail Then
-                                        Dim anzahlPackstuecke As Integer = -1
+                                    Dim InfoText2 As String = createInfoMail(gs_row.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos)
-                                        Dim AnzahlStückErledigt As Integer = If(IsDBNull(POS("StueckzahlErledigte")), 0, CInt(POS("StueckzahlErledigte")))
+                                    VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
-                                        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 = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang
-                                            .gsp_erstellungsdatum = DateTime.Now
-                                            .gsp_ust = gs_row("gs_ust")
-                                            .gsp_ATCNr = veralteteregNR
-                                            .gsp_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 aus DAKOSY - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
-                                        End If
-
                                 End If
 
                             End If
 
-
                         End If
 
-                    Next
 
-                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 = originalTestSetting
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
         End Try
 
     End Sub
@@ -916,7 +908,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()
 
@@ -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