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

offeneUSTVA, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-04-15 13:52:25 +02:00
parent 42b3996614
commit 9020e19c77
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
SDL/USTV/frmUSTVoffeneAntraege.vb
View File

@@ -574,12 +574,12 @@ Public Class frmUSTVoffeneAntraege
Next Next
If dtKundeMWST.Columns.Contains("KdNr") Then If dtKundeMWST.Columns.Contains("KdNr") Then
If dtKundeMWST.Rows.Count > 0 Then sqlwhereLand &= "And " 'If dtKundeMWST.Rows.Count > 0 Then sqlwhereLand &= "And "
For Each row As DataRow In dtKundeMWST.Rows 'For Each row As DataRow In dtKundeMWST.Rows
landBez = row.Item("abc").ToString.Replace(";", "'") ' landBez = row.Item("abc").ToString.Replace(";", "'")
counter = counter + 1 ' counter = counter + 1
sqlwhereLand &= " ( AdressenNr = " & row.Item("KdNr") & " AND Einreichland Not in (" & landBez.ToString.Substring(0, landBez.ToString.Length - 1) & ") " & IIf(dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count, "OR ", klammer) ' sqlwhereLand &= " ( AdressenNr = " & row.Item("KdNr") & " AND Einreichland Not in (" & landBez.ToString.Substring(0, landBez.ToString.Length - 1) & ") " & IIf(dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count, "OR ", klammer)
Next 'Next
Else Else