From f8e11ee4d46e4ab5fdece97b4b7455f4748a9814 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 22 Oct 2026 09:48:07 +0200 Subject: [PATCH] fixe Taxe, etc. --- SDL/mdm/frmMDMDatenverarbetiung.vb | 2 +- SDL/seriendruck/usrCntlFakturierung.vb | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 13b2e3c3..c2121bc4 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/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 diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb index a8d24c03..6d7a45f7 100644 --- a/SDL/seriendruck/usrCntlFakturierung.vb +++ b/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