edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixe Taxe, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-10-22 09:48:07 +02:00
parent a7628948ae
commit f8e11ee4d4
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

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

8
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -367,7 +367,7 @@ Public Class usrcntlFakturierung
showPic(Bankspesen(Sachbearbeiter, rechnungsdatum), PictureBox5) showPic(Bankspesen(Sachbearbeiter, rechnungsdatum), PictureBox5)
'Berechnet FixeTaxe. 'Berechnet FixeTaxe.
If cbxFixeTaxe.Checked Then showPic(FixeTaxe(Sachbearbeiter, rechnungsdatum), PictureBox6) showPic(FixeTaxe(Sachbearbeiter, rechnungsdatum), PictureBox6)
'Gesamtmautberichte an Sammelrechnung anhängen 'Gesamtmautberichte an Sammelrechnung anhängen
@@ -624,12 +624,12 @@ Public Class usrcntlFakturierung
Dim intZlr As Integer = 0 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. ' Zähler auf die Anzahl der fixe Taxe Löschungen einstellen.
If Not IsDBNull(r("BetragExclusivFT")) AndAlso r("BetragExclusivFT") > 0 Then 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 intZlr = r("AnzahlFT") - 1
Else Else
intZlr = r("AnzahlFT") intZlr = r("AnzahlFT")
@@ -637,7 +637,7 @@ Public Class usrcntlFakturierung
Else Else
If (0 - r("BetragExclusivFT")) < 500 Then If Not cbxFixeTaxe.Checked OrElse (0 - r("BetragExclusivFT")) < 500 Then
intZlr = r("AnzahlFT") - 1 intZlr = r("AnzahlFT") - 1
Else Else
intZlr = r("AnzahlFT") - 1 intZlr = r("AnzahlFT") - 1