neu

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -57,6 +57,8 @@ Public Class frmMitarbeitersuche
     Sub initMA()
         btn.Visible = False
         pnl.Visible = False
+        Panel1.Visible = False
+        btnSettings.Visible = False
         Dim MA As cMitarbeiter = Nothing
         If sbMitarbeiter._value <> "" Then
             MA = New cMitarbeiter(sbMitarbeiter._value)
@@ -67,6 +69,7 @@ Public Class frmMitarbeitersuche
         Else
 
             pnl.Visible = True
+            Panel1.Visible = True
             lblName.Text = If(MA.mit_vname, "") & " " & If(MA.mit_nname, "")
             lblSpitzname.Text = If(MA.mit_MAVerzeichnis_Spitzname, "")
             lblFirma.Text = MA.getFirma
@@ -145,11 +148,18 @@ Public Class frmMitarbeitersuche
             End Select
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
                 btn.Visible = True
+                btnSettings.Visible = True
             End If
             If VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id Then
-
                 btn.Visible = True
             End If
+
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MA_TeamBearbeiten", "SDL") Then
+                If MA.getFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then 'MA derselben Firma bearbeiten
+                    btnSettings.Visible = True
+                End If
+            End If
+
         End If
     End Sub
 
@@ -190,9 +200,11 @@ Public Class frmMitarbeitersuche
         End If
     End Sub
 
-    Private Sub pnl_Paint(sender As Object, e As Windows.Forms.PaintEventArgs) Handles pnl.Paint
 
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSettings.Click
+        If sbMitarbeiter._value = "" Then Exit Sub
+        Dim f As New frmMitarbeitersucheEinstellungen(sbMitarbeiter._value)
+        f.ShowDialog(Me)
+        initMA()
     End Sub
-
-
 End Class