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

fix MDM, frmMain,

Browse Source
This commit is contained in:
d.breimaier
2024-11-14 08:09:04 +01:00
parent 0a37086782
commit 0c83e2967c
3 changed files with 62 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
View File

@@ -232,35 +232,37 @@ Public Class cMDMFunctionsAllgemein
End If
If (KundenNr > 0 Or sendMail) AndAlso dt IsNot Nothing Then
If Not dt.Columns.Contains("KundenNr") Then
dt.Columns.Add("KundenNr", GetType(String))
dt.Columns.Add("VorschaubetragEUR", GetType(Double))
dt.Columns.Add("VorschaubetragEUR_VERAG", GetType(Double))
dt.Columns.Add("VorschaubetragEUR_IDS", GetType(Double))
dt.Columns.Add("VorschaubetragEUR_IT", GetType(Double))
dt.Columns.Add("VorschaubetragEUR_MSE", GetType(Double))
dt.Columns.Add("VorschaubetragEUR_UTA", GetType(Double))
dt.Columns.Add("VorschaubetragEUR_PLOSE", GetType(Double))
dt.Columns.Add("UmsatzsteuerbetragEUR", GetType(Double))
dt.Columns.Add("ErstattungsbetragEUR", GetType(Double))
dt.Columns.Add("3470BetragEUR", GetType(Double))
dt.Columns.Add("VZBetragEUR", GetType(Double))
End If
dt.Columns.Add("KundenNr", GetType(String))
dt.Columns.Add("VorschaubetragEUR", GetType(Double))
dt.Columns.Add("VorschaubetragEUR_VERAG", GetType(Double))
dt.Columns.Add("VorschaubetragEUR_IDS", GetType(Double))
dt.Columns.Add("VorschaubetragEUR_IT", GetType(Double))
dt.Columns.Add("VorschaubetragEUR_MSE", GetType(Double))
dt.Columns.Add("VorschaubetragEUR_UTA", GetType(Double))
dt.Columns.Add("VorschaubetragEUR_PLOSE", GetType(Double))
dt.Columns.Add("UmsatzsteuerbetragEUR", GetType(Double))
dt.Columns.Add("ErstattungsbetragEUR", GetType(Double))
dt.Columns.Add("3470BetragEUR", GetType(Double))
dt.Columns.Add("VZBetragEUR", GetType(Double))
Dim ro As DataRow = dt.NewRow
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
ro("VorschaubetragEUR_IT") = curUStV_SummeVorschaubetragEUR_IT
ro("VorschaubetragEUR_MSE") = curUStV_SummeVorschaubetragEUR_MSE
ro("VorschaubetragEUR_UTA") = curUStV_SummeVorschaubetragEUR_UTA
ro("VorschaubetragEUR_PLOSE") = curUStV_SummeVorschaubetragEUR_PLOSE
ro("UmsatzsteuerbetragEUR") = curUStV_SummeUmsatzsteuerbetragEUR
ro("ErstattungsbetragEUR") = curUStV_SummeErstattungsbetragEUR
ro("3470BetragEUR") = curUStV_Summe3470BetragEUR
ro("VZBetragEUR") = curUStV_SummeVZBetragEUR
dt.Rows.Add(ro)
End If
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
ro("VorschaubetragEUR_IT") = curUStV_SummeVorschaubetragEUR_IT
ro("VorschaubetragEUR_MSE") = curUStV_SummeVorschaubetragEUR_MSE
ro("VorschaubetragEUR_UTA") = curUStV_SummeVorschaubetragEUR_UTA
ro("VorschaubetragEUR_PLOSE") = curUStV_SummeVorschaubetragEUR_PLOSE
ro("UmsatzsteuerbetragEUR") = curUStV_SummeUmsatzsteuerbetragEUR
ro("ErstattungsbetragEUR") = curUStV_SummeErstattungsbetragEUR
ro("3470BetragEUR") = curUStV_Summe3470BetragEUR
ro("VZBetragEUR") = curUStV_SummeVZBetragEUR
dt.Rows.Add(ro)
End If
Next
End If