ZE, MDM, IDS

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -414,7 +414,17 @@ Public Class frmMitarbeitersuche
 
                 If MA.mit_nname.ToLower = "celan" Then 'aktuell Hardcoded, wenn Zeit ist dynamisch (per SQL-tbl)
 
-                    Dim f As New frmZEButtons(art)
+                    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"})
                     f.ShowDialog()
 
                     If f.DialogResult = DialogResult.OK AndAlso f.resultCode >= 0 Then

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmZEButtons.vb

@@ -3,10 +3,12 @@
 Public Class frmZEButtons
 
     Dim art As String
+    Dim firma As String()
     Public resultCode As Integer = -1
 
-    Sub New(art As String)
+    Sub New(art As String, Firma As String())
         Me.art = art
+        Me.firma = Firma
         InitializeComponent()
     End Sub
 
@@ -28,15 +30,26 @@ Public Class frmZEButtons
 
         Select Case art
             Case "in"
-                btnIMEXKommen.Enabled = True
-                btnATTKommen.Enabled = True
-                btnFOKommen.Enabled = True
-                btnVergKommen.Enabled = True
+                If firma IsNot Nothing AndAlso firma.Length > 0 Then
+
+                    If firma.Contains("ATILLA") Then btnATTKommen.Enabled = True
+                    If firma.Contains("IMEX") Then btnIMEXKommen.Enabled = True
+                    If firma.Contains("FO") Then btnFOKommen.Enabled = True
+                    If firma.Contains("VERAG") Then btnVergKommen.Enabled = True
+
+                End If
+
             Case "out"
-                btnIMEXGehen.Enabled = True
-                btnATTGehen.Enabled = True
-                btnFOGehen.Enabled = True
-                btnVergGehen.Enabled = True
+
+                If firma IsNot Nothing AndAlso firma.Length > 0 Then
+
+                    If firma.Contains("ATILLA") Then btnATTGehen.Enabled = True
+                    If firma.Contains("IMEX") Then btnIMEXGehen.Enabled = True
+                    If firma.Contains("FO") Then btnFOGehen.Enabled = True
+                    If firma.Contains("VERAG") Then btnVergGehen.Enabled = True
+
+                End If
+
             Case Else
 
         End Select