FixeTaxe441 bei Sammelrechnung

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -2430,7 +2430,7 @@ Public Class usrCntlFaktAbrechnung
         Call przFixeTaxe(RECHNUNG)    ' Fixe Taxe errechnen
         Call przPP(RECHNUNG)          ' Porto/Papiere errechnen
         Call przBS415(RECHNUNG)       ' Bankspesen errechnen
-        'Call setFixeTaxeMin(RECHNUNG, 500, 20)       ' Mind Fixe Taxe errechnen
+        Call setFixeTaxeMin(RECHNUNG, 500)       ' Mind Fixe Taxe errechnen
 
         'Me![SteuerpflichtigerGesamtbetrag] = 0.0#
         'Me![SteuerfreierGesamtbetrag] = 0.0#
@@ -3045,20 +3045,16 @@ Public Class usrCntlFaktAbrechnung
             '    RECHNUNG.POSITIONEN.Add(FixeTaxePOS)
             '...und der Wert gesetzt.
             FixeTaxePOS.Anzahl = 1
-            FixeTaxePOS.Preis = getVorzeichen(RECHNUNG) * FixeTaxe
+            FixeTaxePOS.Preis = getVorzeichen(RECHNUNG) * FixeTaxePOS.[Preis]
 
             initSteuerbetraege(RECHNUNG, FixeTaxePOS)
         End If
 
     End Sub
-    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)
 
         Dim FixeTaxe_Berechnungbetrag As Double = 0
 
-        If Not CBool(SQL.DLookup("[PP441]", "Filialen", "[FilialenNr]=" & RECHNUNG.FilialenNr, "FMZOLL", False)) Then
-            Exit Sub
-        End If
-
         If Not leistungExistsInPos(RECHNUNG, 441) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
 
         For Each POS In RECHNUNG.POSITIONEN
@@ -3079,13 +3075,13 @@ Public Class usrCntlFaktAbrechnung
             FixeTaxePOS.BerechnungsartNr = 1
             'RECHNUNG.POSITIONEN.Add(FixeTaxePOS)
             '...und der Wert gesetzt.
-            If FixeTaxe_Berechnungbetrag < minBetrag Then
+            If FixeTaxe_Berechnungbetrag < minBetrag AndAlso CBool(SQL.DLookup("[PP441]", "Filialen", "[FilialenNr]=" & RECHNUNG.FilialenNr, "FMZOLL", False)) Then
                 FixeTaxePOS.Anzahl = 1
             Else
                 FixeTaxePOS.Anzahl = 0
             End If
 
-            FixeTaxePOS.Preis = getVorzeichen(RECHNUNG) * fixeTaxe 'Preis wird bewusst überschrieben!!!
+            FixeTaxePOS.Preis = getVorzeichen(RECHNUNG) * FixeTaxePOS.Preis 'Preis wird bewusst überschrieben!!!
 
             initSteuerbetraege(RECHNUNG, FixeTaxePOS)