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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-11-06 16:33:03 +01:00
parent c5595a729a
commit 99ba5f4513
17 changed files with 521 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/kunden/frmKundenSuche.vb
View File

@@ -59,10 +59,12 @@
Case CheckState.Unchecked : SQLstr &= " AND Auswahl='I' " : suchparam = True
End Select
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : SQLstr &= " AND [FilialenNr]='5501' " : suchparam = True
Case Else : SQLstr &= " AND isnull([FilialenNr],0)<>'5501' " : suchparam = True
Case "VERAG", "ATILLA" : SQLstr &= " AND isnull([FilialenNr],0) NOT IN ('5501','5601','5701','5801') " : suchparam = True
Case Else : SQLstr &= " AND [FilialenNr]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' " : suchparam = True
End Select
'If txtPostfachOrt.Text <> "" Then SQLstr &= " AND Postfach LIKE '%" & txtPostfachOrt.Text & "%'" : suchparam = True
'If txtPostfachPlz.Text <> "" Then SQLstr &= " AND PLZPf LIKE '%" & txtPostfachPlz.Text & "%'" : suchparam = True
'MsgBox(SQLstr)