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

ZE mehrere Firmen

Browse Source
This commit is contained in:
d.breimaier
2024-11-13 10:35:33 +01:00
parent 03e06bbb63
commit e3af2f2076
4 changed files with 58 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
View File

@@ -412,19 +412,9 @@ Public Class frmMitarbeitersuche
Dim resultCode As Integer = IIf(cbxHomeoffice.Checked, 3, 0)
If MA.mit_nname.ToLower = "celan" Then 'aktuell Hardcoded, wenn Zeit ist dynamisch (per SQL-tbl)
If MA.mit_timasMehrereFirmen Then
Dim f As New frmZEButtons(art, {"IMEX", "ATILLA", "VERAG", "FO"})
f.ShowDialog()
If f.DialogResult = DialogResult.OK AndAlso f.resultCode >= 0 Then
resultCode = f.resultCode
Else
Exit Sub
End If
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_nname.ToLower = "arslan" AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_vname.ToLower = "cihan" Then
Dim f As New frmZEButtons(art, {"IMEX", "ATILLA"})
Dim f As New frmZEButtons(art, MA.mit_timasFirmen)
f.ShowDialog()
If f.DialogResult = DialogResult.OK AndAlso f.resultCode >= 0 Then