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

Stuff

Browse Source
This commit is contained in:
d.breimaier
2024-11-13 16:51:17 +01:00
parent 7fc416a7e3
commit 0a37086782
5 changed files with 353 additions and 162 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
View File

@@ -86,7 +86,7 @@ Public Class cMDMFunctionsAllgemein
End Try
End Function
Shared Function UStVAKunden_SummenNeuBerechnen(Optional KundenNr As Integer = 0, Optional saveValues As Boolean = True, Optional dt As DataTable = Nothing) As Boolean
Shared Function UStVAKunden_SummenNeuBerechnen(Optional KundenNr As Integer = 0, Optional saveValues As Boolean = True, Optional dt As DataTable = Nothing, Optional sendMail As Boolean = False) As Boolean
Try
Dim sumChangedPLOSEOK As Boolean = True
@@ -231,7 +231,7 @@ Public Class cMDMFunctionsAllgemein
End If
End If
If KundenNr > 0 AndAlso dt IsNot Nothing Then
If (KundenNr > 0 Or sendMail) AndAlso dt IsNot Nothing Then
dt.Columns.Add("KundenNr", GetType(String))
dt.Columns.Add("VorschaubetragEUR", GetType(Double))
@@ -247,7 +247,7 @@ Public Class cMDMFunctionsAllgemein
dt.Columns.Add("VZBetragEUR", GetType(Double))
Dim ro As DataRow = dt.NewRow
ro("KundenNr") = KundenNr
ro("KundenNr") = IIf(KundenNr > 0, KundenNr, r.Item("KundenNr"))
ro("VorschaubetragEUR") = curUStV_SummeVorschaubetragEUR
ro("VorschaubetragEUR_VERAG") = curUStV_SummeVorschaubetragEUR_VERAG
ro("VorschaubetragEUR_IDS") = curUStV_SummeVorschaubetragEUR_IDS