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

FaktEmail, dynMailvorlagen, Fremdrechnungen

Browse Source
This commit is contained in:
d.breimaier
2025-03-13 10:18:17 +01:00
parent 0b9f816fad
commit 8d3bcad487
3 changed files with 29 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/mdm/usrcntlFremdrechnungen.vb
View File

@@ -370,7 +370,7 @@ Public Class usrcntlFremdrechnungen
Dim counter = 0
Dim landBez As String = ""
For Each row As DataRow In dtkeineMWST_ohneContraint.Rows
landBez = "'" & row.Item("Erstattungsland") & "'"
landBez &= "'" & row.Item("Erstattungsland") & "'"
counter = counter + 1
If (dtkeineMWST_ohneContraint.Rows.Count <> 0 And counter <> dtkeineMWST_ohneContraint.Rows.Count) Then landBez &= ","
Next
@@ -382,7 +382,7 @@ Public Class usrcntlFremdrechnungen
Dim counter = 0
Dim landBez As String = ""
For Each row As DataRow In dtKundeMWST.Rows
landBez = "'" & row.Item("LandKz") & "'"
landBez &= "'" & row.Item("LandKz") & "'"
counter = counter + 1
If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
Next
@@ -438,7 +438,7 @@ Public Class usrcntlFremdrechnungen
Dim counter = 0
Dim landBez As String = ""
For Each row As DataRow In dtkeineMWST_IDS.Rows
landBez = "'" & row.Item("Erstattungsland") & "'"
landBez &= "'" & row.Item("Erstattungsland") & "'"
counter = counter + 1
If (dtkeineMWST_IDS.Rows.Count <> 0 And counter <> dtkeineMWST_IDS.Rows.Count) Then landBez &= ","
Next
@@ -452,7 +452,7 @@ Public Class usrcntlFremdrechnungen
Dim counter = 0
Dim landBez As String = ""
For Each row As DataRow In dtKundeMWST.Rows
landBez = "'" & row.Item("LandKz") & "'"
landBez &= "'" & row.Item("LandKz") & "'"
counter = counter + 1
If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
Next