From 32e10aee12d848613b6d462edfd4e3375716d366 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Thu, 26 Jun 2025 17:00:51 +0200
Subject: [PATCH] faktAbrechnung

---
 SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
index e684a02a..b589fbc7 100644
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/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