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

cFakt, Kundenblatt, ustva, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-02-12 10:56:14 +01:00
parent 7223ee1e98
commit 76dbe4021a
16 changed files with 3517 additions and 2983 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2061,11 +2061,17 @@ Public Class cFakturierung
einzelpreis = 0
einzelpreis = IIf(pos.Item("SteuerpflichtigerBetrag") > 0, pos.Item("SteuerpflichtigerBetrag") / checkNull(pos.Item("Anzahl")), pos.Item("SteuerfreierBetrag") / checkNull(pos.Item("Anzahl")))
If IsNumeric(checkNull(pos.Item("Anzahl"))) Then anzahl = CDbl(checkNull(pos.Item("Anzahl")))
einzelpreis = IIf(pos.Item("SteuerpflichtigerBetrag") > 0, pos.Item("SteuerpflichtigerBetrag") / anzahl, pos.Item("SteuerfreierBetrag") / anzahl)
If Double.IsNaN(einzelpreis) Then
einzelpreis = 0
End If
Dim tradeLineItemNew As TradeLineItem = desc.AddTradeLineItem(
name:=checkNull(pos.Item("LeistungsBez")),
billedQuantity:=Convert.ToDecimal(checkNull(pos.Item("Anzahl"))),
billedQuantity:=IIf(anzahl <> 0, Convert.ToDecimal(anzahl), 0),
unitCode:=QuantityCodes.C62, ' immer in Stück
netUnitPrice:=Convert.ToDecimal(einzelpreis),
grossUnitPrice:=Convert.ToDecimal(einzelpreis),
@@ -2074,7 +2080,7 @@ Public Class cFakturierung
taxType:=IIf(pos.Item("SteuerpflichtigerBetrag") > 0, TaxTypes.VAT, TaxTypes.VAT)
)
Dim netUnitPrice = Convert.ToDecimal(einzelpreis)
Dim netPricePos = netUnitPrice * Convert.ToDecimal(checkNull(pos.Item("Anzahl")))
Dim netPricePos = netUnitPrice * IIf(anzahl <> 0, Convert.ToDecimal(anzahl), 0)
sumNetto += netPricePos