fixe Taxe, etc.

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -2381,7 +2381,7 @@ Public Class frmMDMDatenverarbetiung
         Try
 
 
-            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+            'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
 
             pic.Visible = False
 

SDL/seriendruck/usrCntlFakturierung.vb

@@ -367,7 +367,7 @@ Public Class usrcntlFakturierung
         showPic(Bankspesen(Sachbearbeiter, rechnungsdatum), PictureBox5)
 
         'Berechnet FixeTaxe.
-        If cbxFixeTaxe.Checked Then showPic(FixeTaxe(Sachbearbeiter, rechnungsdatum), PictureBox6)
+        showPic(FixeTaxe(Sachbearbeiter, rechnungsdatum), PictureBox6)
 
 
         'Gesamtmautberichte an Sammelrechnung anhängen
@@ -624,12 +624,12 @@ Public Class usrcntlFakturierung
                 Dim intZlr As Integer = 0
 
 
-                ' Bei BetragExclusivFT kleiner als 500€ wird 1x fixe Taxe verrechnet, bei grösser/gleich 500€ wird kein fixe Taxe verrechnet.
+                ' Bei BetragExclusivFT kleiner als 500€ wird 1x fixe Taxe verrechnet, bei grösser/gleich 500€ oder cbxFixeTaxe nicht gesetzt wird kein fixe Taxe verrechnet.
                 ' Zähler auf die Anzahl der fixe Taxe Löschungen einstellen.
 
                 If Not IsDBNull(r("BetragExclusivFT")) AndAlso r("BetragExclusivFT") > 0 Then
 
-                    If r("BetragExclusivFT") < 500 Then
+                    If Not cbxFixeTaxe.Checked OrElse r("BetragExclusivFT") < 500 Then
                         intZlr = r("AnzahlFT") - 1
                     Else
                         intZlr = r("AnzahlFT")
@@ -637,7 +637,7 @@ Public Class usrcntlFakturierung
 
                 Else
 
-                    If (0 - r("BetragExclusivFT")) < 500 Then
+                    If Not cbxFixeTaxe.Checked OrElse (0 - r("BetragExclusivFT")) < 500 Then
                         intZlr = r("AnzahlFT") - 1
                     Else
                         intZlr = r("AnzahlFT") - 1