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

Abrechnungslogik Sammelrechnungen MDM

Browse Source
This commit is contained in:
d.breimaier
2025-01-21 10:01:06 +01:00
parent dbb13dffb0
commit 627f48826e
11 changed files with 670 additions and 294 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb
View File

@@ -26,6 +26,7 @@ Public Class rptSammelRechnungAnlagenDruck_Leistungen
lblSteuerpflichtig.Text = ""
If Me.Fields.Item("clmnAnzahl") IsNot Nothing AndAlso Me.Fields.Item("clmnAnzahl").Value IsNot Nothing Then txtAbfertigungsart.Text &= Me.Fields.Item("clmnAnzahl").Value.ToString & "x "
If Me.Fields.Item("clmnLeistung") IsNot Nothing AndAlso Me.Fields.Item("clmnLeistung").Value IsNot Nothing Then txtAbfertigungsart.Text &= Me.Fields.Item("clmnLeistung").Value.ToString
If Me.Fields.Item("clmnLeistungsNr") IsNot Nothing AndAlso Me.Fields.Item("clmnLeistungsNr").Value IsNot Nothing Then txtAbfertigungsart.Text &= " (" & Me.Fields.Item("clmnLeistungsNr").Value.ToString & ") "
If Me.Fields.Item("clmnSteuerfreierBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnSteuerfreierBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value) > 0 Then
lblSteuerfrei.Text = CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value.ToString).ToString("N2")
End If
@@ -43,11 +44,12 @@ Public Class rptSammelRechnungAnlagenDruck_Leistungen
dt.Columns.Add("clmnSteuerfreierBetrag")
dt.Columns.Add("clmnSteuerpflichtigerBetrag")
dt.Columns.Add("clmnAnzahl")
dt.Columns.Add("clmnLeistungsNr")
RECHNUNG.ORDER_POSITIONEN()
For Each POS In RECHNUNG.POSITIONEN
dt.Rows.Add(POS.LeistungsBez, POS.SteuerfreierBetrag, POS.SteuerpflichtigerBetrag, POS.Anzahl)
dt.Rows.Add(POS.LeistungsBez, POS.SteuerfreierBetrag, POS.SteuerpflichtigerBetrag, POS.Anzahl, POS.LeistungsNr)
Next
Me.DataSource = dt