faktAbrechnung

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

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