fix StartOptions

initATLASAufschubkonten/cWorker_Verwahrung.vb

@@ -106,7 +106,7 @@ Public Class cWorker_Verwahrung
 
 Anzeige:
 
-                FORM.addDGVEinarbeitung("VW: Verwahrungsinfo", STATUS.dySt_BezugsNr)
+                FORM.addDGVEinarbeitung("VW: Eingang", STATUS.dySt_BezugsNr)
 
             End If
 
@@ -220,7 +220,7 @@ Anzeige:
 
 Anzeige:
 
-                    FORM.addDGVEinarbeitung("VW: Erledigungsinformation-Vorpapier", STATUS.dySt_BezugsNr)
+                    FORM.addDGVEinarbeitung("VW: Ausgang", STATUS.dySt_BezugsNr)
                 End If
 
             End If
@@ -700,7 +700,7 @@ Anzeige:
                             If MRNNR <> POS.Item("IDRegNrSumA") Then
                                 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")
 
@@ -712,8 +712,8 @@ Anzeige:
                                         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
-                                        End If
+                                        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()

initATLASAufschubkonten/frmStartOptions.vb

@@ -150,12 +150,16 @@ Public Class frmStartOptions
             Case "DY_EINARBEITUNG"
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
                 Dim f As New frmDYNachrichtenVerarbeitung(True)
+                f.saveVerwahrung = cbxGestellungspeichern.Checked
+                f.sendMail = cbxVW_Infomail.Checked
                 'Me.Visible = False ' irgend ein Grund
                 f.Show()
                 AddHandler f.FormClosed, AddressOf closeMe
             Case "DY_EINARBEITUNG_PROD"
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
                 Dim f As New frmDYNachrichtenVerarbeitung(True)
+                f.saveVerwahrung = cbxGestellungspeichern.Checked
+                f.sendMail = cbxVW_Infomail.Checked
                 ' Me.Visible = False ' irgend ein Grund
                 f.Show()
                 AddHandler f.EV_FINISHED, AddressOf closeMe
@@ -214,6 +218,8 @@ Public Class frmStartOptions
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
                 VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
                 Dim f As New frmDYNachrichtenVerarbeitung(True)
+                f.saveVerwahrung = cbxGestellungspeichern.Checked
+                f.sendMail = cbxVW_Infomail.Checked
                 ' Me.Visible = False
                 f.Show()
                 AddHandler f.EV_FINISHED, AddressOf closeMe