AutoClose nach Start im Aufgabe, Sachbearbeiter bei AUTO-Versand

SDL/Fakturierung/cFakturierung.vb

@@ -3986,10 +3986,15 @@ Public Class cFakturierung
         'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
 
         Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
-        rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
 
+        If sachbearbeiterAufRechnung = "" Then
+            rpt.lblSachbearbeiter.Text = getSBRgName(Row("Firma_ID"), Row("Sachbearbeiter").ToString.ToUpper)
+        Else
+            rpt.lblSachbearbeiter.Text = sachbearbeiterAufRechnung
+        End If
+        'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
 
-        rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
+        'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
         rpt.lblFirmenbuch.Text = If(Firma.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim
         rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim
         rpt.lblEORI.Text = If(Firma.Firma_EORI, "")

SDL/frmLogin.vb

@@ -60,6 +60,10 @@ Public Class frmLogin
         'Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0F, 13.0F)
         'Me.TextOptions.TextFormattingMode = "Display"
         Dim PARAM = ""
+
+        'PARAM = "SAMMELRECHNUNG_AUTOSENT"
+        'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+
         Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
         If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
             PARAM = parameter(1)
@@ -73,7 +77,7 @@ Public Class frmLogin
                 cRKSV.printNULLBeleg(KASSE, Nothing, True, KASSE.rksv_firma) 'Beleg drucken
             Next
             Application.Exit()
-            Exit Sub
+            End 'immediately terminates further execution
 
         ElseIf PARAM = "SAMMELRECHNUNG_AUTOSENT" Then
 
@@ -105,10 +109,11 @@ Public Class frmLogin
             End If
 
 
-
-                Dim func As New cAutomailversand
+            Dim func As New cAutomailversand
             func.sendMailSammelrechnung(REDat, SRT_ART, FirmaID)
 
+            Application.Exit()
+            End 'immediately terminates further execution
 
         End If