MDMFunctions, etc.
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user