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

faktAbrechnung

Browse Source
This commit is contained in:
d.breimaier
2025-06-26 17:00:51 +02:00
parent 38b1bc74a9
commit 32e10aee12
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -3054,7 +3054,7 @@ Public Class usrCntlFaktAbrechnung
Shared Sub setFixeTaxeMin(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, ByRef minBetrag As Double, fixeTaxe As Double) Shared Sub setFixeTaxeMin(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, ByRef minBetrag As Double, fixeTaxe As Double)
Dim FixeTaxe_Berechnungbetrag As Double = 0 Dim FixeTaxe_Berechnungbetrag As Double = 0
Dim PapirePorti As Double = 0
If Not CBool(SQL.DLookup("[PP441]", "Filialen", "[FilialenNr]=" & RECHNUNG.FilialenNr, "FMZOLL", False)) Then If Not CBool(SQL.DLookup("[PP441]", "Filialen", "[FilialenNr]=" & RECHNUNG.FilialenNr, "FMZOLL", False)) Then
Exit Sub Exit Sub
End If End If
@@ -3084,14 +3084,19 @@ Public Class usrCntlFaktAbrechnung
Else Else
FixeTaxePOS.Anzahl = 0 FixeTaxePOS.Anzahl = 0
End If End If
FixeTaxePOS.Preis = getVorzeichen(RECHNUNG) * fixeTaxe 'Preis wird bewusst überschrieben!!! FixeTaxePOS.Preis = getVorzeichen(RECHNUNG) * fixeTaxe 'Preis wird bewusst überschrieben!!!
initSteuerbetraege(RECHNUNG, FixeTaxePOS) initSteuerbetraege(RECHNUNG, FixeTaxePOS)
End If
If FixeTaxePOS.Anzahl = 0 Then If FixeTaxePOS.Anzahl = 0 Then
RECHNUNG.POSITIONEN.Remove(FixeTaxePOS) RECHNUNG.POSITIONEN.Remove(FixeTaxePOS)
End If End If
End If
End Sub End Sub