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

Mahnlauf, Kundenblatt, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-21 17:25:05 +01:00
parent 2c1b1c41f8
commit 20d6bb7004
9 changed files with 327 additions and 191 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/Fakturierung/cFakturierung.vb
View File

@@ -5237,9 +5237,12 @@ Public Class cFakturierung
rpt.DataSource = dt
Dim Gesamt_RG_Betrag As Double = CDbl(dt.Compute("SUM(SteuerpflichtigerGesamtbetrag)", "")) + CDbl(dt.Compute("SUM(SteuerfreierGesamtbetrag)", ""))
Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR")
Select Case Row("RechnungSprache")
Case "EN"
Select Case Row("BelegartenKz")
Select Case BelegartenKz
Case "AR"
rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE")
rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
@@ -5252,7 +5255,7 @@ Public Class cFakturierung
rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
End Select
Case Else
Select Case Row("BelegartenKz")
Select Case BelegartenKz
Case "AR"
rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelrechnung", "Rechnung")
Case "AG"