ZE, MDM, IDS

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