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

fix,

Browse Source
This commit is contained in:
d.breimaier
2026-01-08 17:15:49 +01:00
parent 9b53783b0d
commit 4da7d188d1
12 changed files with 138 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
SDL/Fakturierung/cFakturierung.vb
View File

@@ -5350,19 +5350,22 @@ Public Class cFakturierung
Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR")
Select Case Row("RechnungSprache")
Case "EN"
Select Case BelegartenKz
Case "AR"
rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE")
rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
Case "AG"
rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to CREDIT NOTE", "CREDIT NOTE")
rpt.lblSummeUeberschrift.Text = "Credit Amount:"
rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
End Select
'Mehrsprachigkeit bei Sammelrechnung vorerst deaktivieren!!!!
'Case "EN"
' Select Case BelegartenKz
' Case "AR"
' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE")
' rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
' rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
' rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
' Case "AG"
' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to CREDIT NOTE", "CREDIT NOTE")
' rpt.lblSummeUeberschrift.Text = "Credit Amount:"
' rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
' rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
' End Select
Case Else
Select Case BelegartenKz
Case "AR"