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

fix Sammelrechnug

Browse Source
This commit is contained in:
d.breimaier
2025-06-18 11:50:35 +02:00
parent 6a5caf837b
commit 493c8d5c5f
6 changed files with 62 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -3052,21 +3052,19 @@ Public Class usrCntlFaktAbrechnung
End Sub
Shared Sub setFixeTaxeMin(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, ByRef minBetrag As Double, fixeTaxe As Double)
Dim FixeTaxe_Berechnungbetrag As Double = 0
' Bei Leistungs-Nr 440 und Berechnungs-Code-Nr 9 wird Fixe Taxe berechnet.
If Not leistungExistsInPos(RECHNUNG, 440, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
If Not leistungExistsInPos(RECHNUNG, 441, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
If (RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag) >= minBetrag Then Exit Sub
If fixeTaxe <= 0 Then Exit Sub
'Sucht, ob Fixetaxe schon vorhanden ist,...
Dim FixeTaxePOS = RECHNUNG.POSITIONEN.Find(Function(x) x.LeistungsNr = 440 And x.LeistungsBez = "Fixe Taxe" And x.BerechnungsartNr = 9)
Dim FixeTaxePOS = RECHNUNG.POSITIONEN.Find(Function(x) x.LeistungsNr = 441 And x.LeistungsBez = "Fixe Taxe" And x.BerechnungsartNr = 9)
'... sonst wird eine neue Pos eingefügt...
If FixeTaxePOS Is Nothing Then
FixeTaxePOS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen
FixeTaxePOS.LeistungsNr = 440
FixeTaxePOS.LeistungsNr = 441 '441 und nicht 440 laut Brigitte weil Steuerfrei!!
FixeTaxePOS.LeistungsBez = "Fixe Taxe"
FixeTaxePOS.BerechnungsartNr = 9
RECHNUNG.POSITIONEN.Add(FixeTaxePOS)