From 29aacd0107299e69532df6acf0023dd1ea4fdaae Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 2 May 2024 10:43:06 +0200 Subject: [PATCH] Ambar, Mailvorlagen. --- SDL/Fakturierung/cFakturierung.vb | 3 ++- SDL/frmdynMailvorlage.vb | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index b57d5380..a0ac77c2 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -1114,7 +1114,8 @@ Public Class cFakturierung rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") - rpt.lblSachbearbeiter.Text = getSBRgName(RECHNUNG.Firma_ID, RECHNUNG.Sachbearbeiter) 'If(RECHNUNG.Sachbearbeiter, "") + Dim sachbearbeiterAufRechnung = getSBRgName(RECHNUNG.Firma_ID, RECHNUNG.Sachbearbeiter) + rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "") rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim diff --git a/SDL/frmdynMailvorlage.vb b/SDL/frmdynMailvorlage.vb index a54c8a3f..fec778f5 100644 --- a/SDL/frmdynMailvorlage.vb +++ b/SDL/frmdynMailvorlage.vb @@ -249,6 +249,7 @@ Public Class frmdynMailvorlage dgvMailvorlagen.GetOrder() initDGVMailvorlagen(cbxFirma._value) dgvMailvorlagen.SetOrder() + Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try