edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

AutoClose nach Start im Aufgabe, Sachbearbeiter bei AUTO-Versand

Browse Source
This commit is contained in:
d.breimaier
2025-04-25 09:06:01 +02:00
parent 91748aac43
commit 2980a843de
2 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/Fakturierung/cFakturierung.vb
View File

@@ -3986,10 +3986,15 @@ Public Class cFakturierung
'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 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.lblFirmenbuch.Text = If(Firma.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim
rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim
rpt.lblEORI.Text = If(Firma.Firma_EORI, "") rpt.lblEORI.Text = If(Firma.Firma_EORI, "")

11
SDL/frmLogin.vb
View File

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