FixeTaxe441 bei Sammelrechnung

SDL/seriendruck/usrCntlFakturierung.vb

@@ -544,6 +544,11 @@ Public Class usrcntlFakturierung
 
                 Dim intZlr As Integer = 0
 
+                If r("RechnungsKundenNr") = "401715" Or r("RechnungsKundenNr") = "401943" Or r("RechnungsKundenNr") = "402179" Or r("RechnungsKundenNr") = "402598" Or r("RechnungsKundenNr") = "402656" Or r("RechnungsKundenNr") = "402688" Or r("RechnungsKundenNr") = "402719" Or r("RechnungsKundenNr") = "402888" Or r("RechnungsKundenNr") = "402933" Or r("RechnungsKundenNr") = "401733" Or r("RechnungsKundenNr") = "402245" Or r("RechnungsKundenNr") = "402712" Or r("RechnungsKundenNr") = "402065" Or r("RechnungsKundenNr") = "402712" Or r("RechnungsKundenNr") = "401908" Or r("RechnungsKundenNr") = "401829" Or r("RechnungsKundenNr") = "203083" Then
+                    'MsgBox("Test")
+                End If
+
+
                 ' Bei BetragExclusivFT kleiner als 500€ wird 1x fixe Taxe verrechnet, bei grösser/gleich 500€ wird kein fixe Taxe verrechnet.
                 ' Zähler auf die Anzahl der fixe Taxe Löschungen einstellen.
 
@@ -556,6 +561,7 @@ Public Class usrcntlFakturierung
                     End If
 
                 Else
+
                     If (0 - r("BetragExclusivFT")) < 500 Then
                         intZlr = r("AnzahlFT") - 1
                     Else
@@ -619,6 +625,8 @@ Public Class usrcntlFakturierung
 
                                     intZlr = intZlr - row("Anzahl")
 
+                                    If intZlr < 0 Then Exit For
+
                                     If Not IsDBNull(row("SteuerpflichtigerBetrag")) AndAlso IsNumeric(row("SteuerpflichtigerBetrag")) Then stgesBetr = stgesBetr - CDbl(row("SteuerpflichtigerBetrag"))
                                     If Not IsDBNull(row("SteuerfreierBetrag")) AndAlso IsNumeric(row("SteuerfreierBetrag")) Then stfregesBetr = stfregesBetr - CDbl(row("SteuerfreierBetrag"))
 
@@ -628,7 +636,7 @@ Public Class usrcntlFakturierung
                                         isSet = RECHNUNG.SAVE(False)
                                     End If
 
-                                    If intZlr = 0 Then Exit For
+                                    If intZlr <= 0 Then Exit For
 
 
                                 Next