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()