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

Mailbenachrichtigung, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-06-25 08:54:42 +02:00
parent 931154c931
commit f1698f8ee3
6 changed files with 71 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -545,17 +545,20 @@ Public Class usrcntlFakturierung
If Not IsDBNull(r("BetragExclusivFT")) AndAlso r("BetragExclusivFT") > 0 Then
'If r("BetragExclusivFT") < 500 Then
'intZlr = r("AnzahlFT") - 1
'Else
intZlr = r("AnzahlFT")
'End If
'Else
' If (0 - r("BetragExclusivFT")) < 500 Then
' intZlr = r("AnzahlFT") - 1
' Else
' intZlr = r("AnzahlFT") - 1
' End If
If Not IsDBNull(r("BetragExclusivPP")) AndAlso r("BetragExclusivPP") > 0 Then
If r("BetragExclusivPP") < 500 Then
intZlr = r("AnzahlPP") - 1
Else
intZlr = r("AnzahlPP")
End If
Else
If (0 - r("BetragExclusivPP")) < 500 Then
intZlr = r("AnzahlPP") - 1
Else
intZlr = r("AnzahlPP") - 1
End If
End If
End If
If intZlr > 0 Then