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

MDMFunctions

Browse Source
This commit is contained in:
d.breimaier
2024-10-29 10:49:24 +01:00
parent 16abe58def
commit 7c5d04b007
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
View File

@@ -195,7 +195,10 @@ Public Class cMDMFunctionsAllgemein
sumChangedOK = False sumChangedOK = False
End If End If
If Not IsDBNull(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")) AndAlso Not Math.Round(CDbl(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")), 2) = curUStV_SummeVorschaubetragEUR_PLOSE Then If IsDBNull(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")) Then
sumChangedPLOSE = True
sumChangedPLOSEOK = False
ElseIf Not Math.Round(CDbl(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")), 2) = curUStV_SummeVorschaubetragEUR_PLOSE Then
sumChangedPLOSE = True sumChangedPLOSE = True
sumChangedPLOSEOK = False sumChangedPLOSEOK = False
End If End If
@@ -218,7 +221,14 @@ Public Class cMDMFunctionsAllgemein
End If End If
If sumChangedPLOSE Then If sumChangedPLOSE Then
sumChangedPLOSEOK = sql.doSQL("Update tblKundenErweitert set kde_UStV_SummeVorschaubetragEUR_PLOSE = " & curUStV_SummeVorschaubetragEUR_PLOSE.ToString.Replace(",", ".") & " WHERE kde_KundenNr = " & r.Item("KundenNr"), "FMZOLL") If IsDBNull(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")) Then
Dim kndErw As New cKundenErweitert(r.Item("KundenNr"))
kndErw.kde_UStV_SummeVorschaubetragEUR_PLOSE = curUStV_SummeVorschaubetragEUR_PLOSE.ToString.Replace(",", ".")
sumChangedPLOSEOK = kndErw.SAVE
Else
sumChangedPLOSEOK = sql.doSQL("Update tblKundenErweitert set kde_UStV_SummeVorschaubetragEUR_PLOSE = " & curUStV_SummeVorschaubetragEUR_PLOSE.ToString.Replace(",", ".") & " WHERE kde_KundenNr = " & r.Item("KundenNr"), "FMZOLL")
End If
End If End If
Next Next