From 2980a843de343ef137a5336a66a0824f544063d9 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 25 Apr 2025 09:06:01 +0200
Subject: [PATCH] AutoClose nach Start im Aufgabe, Sachbearbeiter bei
 AUTO-Versand

---
 SDL/Fakturierung/cFakturierung.vb |  9 +++++++--
 SDL/frmLogin.vb                   | 11 ++++++++---
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb
index ac9f5bb4..38dc548c 100644
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/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, "")
diff --git a/SDL/frmLogin.vb b/SDL/frmLogin.vb
index 3df3afc7..4c8e314e 100644
--- a/SDL/frmLogin.vb
+++ b/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