This commit is contained in:
2020-01-08 14:52:43 +01:00
parent bea8632eb5
commit f4c1a74870
136 changed files with 11561 additions and 1072 deletions

View File

@@ -35,6 +35,12 @@
where = " AND FilialenNr IN (5501) "
Case "ATILLA"
where = " AND FilialenNr IN (4801) "
Case "UNISPED"
where = " AND FilialenNr IN (5601) "
Case "AMBAR"
where = " AND FilialenNr IN (5701) "
Case "FRONTOFFICE"
where = " AND FilialenNr IN (5801) "
Case Else
where = " AND FilialenNr NOT IN (5501) "
End Select
@@ -47,12 +53,21 @@
Case "ATILLA"
cboFiliale._allowedValuesFreiText = {"4801"}
cboFiliale.changeItem("4801")
Case "UNISPED"
cboFiliale._allowedValuesFreiText = {"5601"}
cboFiliale.changeItem("5601")
Case "AMBAR"
cboFiliale._allowedValuesFreiText = {"5701"}
cboFiliale.changeItem("5701")
Case "FRONTOFFICE"
cboFiliale._allowedValuesFreiText = {"5801"}
cboFiliale.changeItem("5801")
End Select
cboSachbearbeiterQS.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
" FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='QS' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True)
" FROM tblMitarbeiter WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='QS' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True)
cboSachbearbeiterBH.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
" FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='BH' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True)
" FROM tblMitarbeiter WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='BH' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True)
btnMonat.PerformClick()
btnSuche.PerformClick()