faktMail, ustva, Auswertungen, etc.

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -3024,10 +3024,37 @@ Public Class usrCntlFaktAbrechnung
             initSteuerbetraege(RECHNUNG, FixeTaxePOS)
         End If
 
+    End Sub
+    Shared Sub setFixeTaxeMin(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, ByRef minBetrag As Double, fixeTaxe As Double)
+        Dim FixeTaxe_Berechnungbetrag As Double = 0
+        ' Bei Leistungs-Nr 440 und Berechnungs-Code-Nr 9 wird Fixe Taxe berechnet.
 
 
+        If Not leistungExistsInPos(RECHNUNG, 440, 9) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
+
+        If (RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag) >= minBetrag Then Exit Sub
+
+        If fixeTaxe <= 0 Then Exit Sub
+
+        'Sucht, ob Fixetaxe schon vorhanden ist,...
+        Dim FixeTaxePOS = RECHNUNG.POSITIONEN.Find(Function(x) x.LeistungsNr = 440 And x.BerechnungsartNr = 9)
+        '... sonst wird eine neue Pos eingefügt...
+        If FixeTaxePOS IsNot Nothing Then
+            '  FixeTaxePOS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen
+            FixeTaxePOS.LeistungsNr = 440
+            FixeTaxePOS.LeistungsBez = "P.P./Fixe Taxe"
+            FixeTaxePOS.BerechnungsartNr = 9
+            '    RECHNUNG.POSITIONEN.Add(FixeTaxePOS)
+            '...und der Wert gesetzt.
+            FixeTaxePOS.Anzahl = 1
+            FixeTaxePOS.Preis = getVorzeichen(RECHNUNG) * FixeTaxe
+
+            initSteuerbetraege(RECHNUNG, FixeTaxePOS)
+        End If
+
     End Sub
 
+
     Shared Function getVorzeichen(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Integer
         Return 1
         Return If(RECHNUNG.Vorzeichen = "-", -1, 1)