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

Gutschrift-SR, VerzPreise, div.

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-14 21:21:57 +01:00
parent 92f1e75562
commit b5cbe59199
8 changed files with 27 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2793,10 +2793,15 @@ Public Class cFakturierung
'If RECHNUNG.DruckDatumZeit IsNot Nothing Then rpt.lblUeberschriftRG_GS.Text &= " - KOPIE"
Dim Gesamt_RG_Betrag As Double = 0
If ROW("SteuerFreierBetrag") IsNot DBNull.Value AndAlso IsNumeric(ROW("SteuerFreierBetrag")) Then Gesamt_RG_Betrag += ROW("SteuerFreierBetrag")
If ROW("SteuerpflichtigerBetrag") IsNot DBNull.Value AndAlso IsNumeric(ROW("SteuerpflichtigerBetrag")) Then Gesamt_RG_Betrag += ROW("SteuerpflichtigerBetrag")
Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR")
Select Case ROW("RechnungSprache")
Case "EN"
' MsgBox(("EN"))
Select Case ROW("BelegartenKz")
Select Case BelegartenKz
Case "AR"
rpt.lblUeberschriftRG_GS.Text = "COLLECTIVE INVOICE"
rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
@@ -2809,7 +2814,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 = "SAMMELRECHNUNG"
Case "AG"