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

Nacherfassung, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-09-24 14:29:30 +02:00
parent e85dff6117
commit d14503bde3
4 changed files with 27 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb
View File

@@ -23,6 +23,7 @@ Public Class KdSearchBox
Public Property _loadKdData As Boolean = False
Public Property _hideIfListEmpty As Boolean = True
Public Property _displayWoelflKd As Boolean = False
Public Property _hideMDMKd As Boolean = False
Public Property _displayAVISO_Email As Boolean = False
Public Property nurAktive As Boolean = True
Public Property kdNrField As Control = Nothing
@@ -522,6 +523,7 @@ Public Class KdSearchBox
If Not _displayWoelflKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%'"
If _hideMDMKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%' AND AdressenNr NOT LIKE '14%'"
SQLstr &= " order by Ordnungsbegriff "
setDS(True, usrcntl.dgvKundenAktiv, SQL.loadDgvBySql(SQLstr, "FMZOLL"), topAnz)
@@ -595,6 +597,7 @@ Public Class KdSearchBox
End If
If Not _displayWoelflKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%'"
If _hideMDMKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%' AND AdressenNr NOT LIKE '14%'"
SQLstr &= " order by Ordnungsbegriff "
setDS(False, usrcntl.dgvKundenInAktiv, SQL.loadDgvBySql(SQLstr, "FMZOLL"), 6)
@@ -677,6 +680,7 @@ Public Class KdSearchBox
End If
If Not _displayWoelflKd Then SQLstrEnd &= " AND AdressenNr NOT LIKE '15%'"
If _hideMDMKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%' AND AdressenNr NOT LIKE '14%'"
Dim searchstring = SQLstr & SQLstrEnd & " order by Ordnungsbegriff "
@@ -743,6 +747,7 @@ Public Class KdSearchBox
If Not _displayWoelflKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%'"
If _hideMDMKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%' AND AdressenNr NOT LIKE '14%'"
SQLstr &= " order by Ordnungsbegriff "
setDS(False, usrcntl.dgvKundenInAktiv, SQL.loadDgvBySql(SQLstr, "FMZOLL"), 4)
@@ -882,6 +887,12 @@ Public Class KdSearchBox
sqlEnd.AppendLine(" AND AdressenNr NOT LIKE '15%'")
End If
If _hideMDMKd Then
sqlEnd.AppendLine(" AND AdressenNr NOT LIKE '15%' AND AdressenNr NOT LIKE '14%'")
End If
sqlEnd.AppendLine(" ORDER BY Ordnungsbegriff")
Return (selectPart & sqlEnd.ToString(), sqlEnd.ToString())