MDMFunctions, etc.

This commit is contained in:
2025-10-08 15:38:48 +02:00
parent a3d6069226
commit ce29fa679d
6 changed files with 39 additions and 31 deletions

View File

@@ -619,12 +619,12 @@ Public Class frmUSTVoffeneAntraege
'bei Einstellung "ALLE KUNDEN"
If dtKundeMWST.Rows.Count > 0 Then sqlwhereLand &= " AND ( NOT "
If dtKundeMWST.Rows.Count > 0 Then sqlwhereLand &= " AND ( NOT ("
For Each row As DataRow In dtKundeMWST.Rows
landBez = row.Item("abc").ToString.Replace(";", "'")
counter = counter + 1
sqlwhereLand &= " ( isnull(AdressenNr,0) = " & row.Item("KdNr") & " AND Einreichland in (" & landBez.ToString.Substring(0, landBez.ToString.Length - 1) & ")) " & IIf(dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count, "OR ", ")")
sqlwhereLand &= " (isnull(AdressenNr,0) = " & row.Item("KdNr") & " AND Einreichland in (" & landBez.ToString.Substring(0, landBez.ToString.Length - 1) & ")) " & IIf(dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count, "OR ", "))")
Next
Else
@@ -1074,6 +1074,7 @@ Public Class frmUSTVoffeneAntraege
R("MitgliedslandEU") = False
dTLANDEU.Rows.Add(R)
frmMain.EnableDoubleBuffered(MyDatagridview1)
End Sub

View File

@@ -336,6 +336,8 @@ Public Class usrCntlUSTV
btnNeuerUSTVA.Enabled = True
End If
End If
frmMain.EnableDoubleBuffered(dgvUSTV)
' Panel3.Height = Me.Height / 2 + 300
End Sub