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
2021-03-04 15:47:48 +01:00
parent 3aaf328ce6
commit b4612ab3e0
142 changed files with 24372 additions and 14785 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/kunden/Vorauskasse/frmVorauskasse.vb
View File

@@ -62,8 +62,12 @@
Case "FRONTOFFICE"
cboFiliale._allowedValuesFreiText = {"5801"}
cboFiliale.changeItem("5801")
Case Else
cboFiliale.Items.Insert(1, New VERAG_PROG_ALLGEMEIN.MyListItem("alle VERAG", "VERAG"))
cboFiliale.changeItem("VERAG")
End Select
cboSachbearbeiterQS.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
" 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 " &
@@ -203,7 +207,9 @@
sqlstr &= " AND vk_AbfertigungsNr LIKE @AbfertigungsNr "
End If
' If txtUnterNr.Text <> "" Then sqlstr &= " AND [UnterNr] LIKE @UnterNr "
If cboFiliale._value <> "" Then sqlstr &= " AND [vk_FilialeNr] LIKE @FilialenNr "
If cboFiliale._value = "VERAG" Then : sqlstr &= " AND [vk_FilialeNr] IN (SELECT [FilialenNr] FROM [Filialen] where Firma ='VERAG') "
ElseIf cboFiliale._value <> "" Then : sqlstr &= " AND [vk_FilialeNr] LIKE @FilialenNr "
End If
If cboSachbearbeiterQS._value <> "" Then sqlstr &= " AND [vk_QS_SachbearbeiterId] = @PersonalnummerQS "
If cboSachbearbeiterBH._value <> "" Then sqlstr &= " AND [vk_BH_SachbearbeiterId] = @PersonalnummerBH "