MA Notfallkontakt

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -100,6 +100,11 @@ Public Class frmMitarbeitersuche
 
             pnlWohnadresse.Visible = MA.mit_MAVerzeichnis_allowWohnadresse
 
+
+            lblNotfall_Name.Text = If(MA.mit_Notfall_Name, "")
+            lblNotfall_Handy.Text = If(MA.mit_Notfall_Handy, "")
+            lblNotfall_Mail.Text = If(MA.mit_Notfall_Mail, "")
+
             lblMotto.Text = MA.mit_MAVerzeichnis_Motto
             If lblMotto.Text.Trim <> "" Then lblMotto.Text = """" & lblMotto.Text & """"
             pnlMotto.Visible = (lblMotto.Text <> "")
@@ -169,10 +174,11 @@ Public Class frmMitarbeitersuche
 
             'requestDone = Not callTimasSaldo
             initTimasData()
+            pnlNotfallkontakt.Visible = False
 
             If VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id Then
                 btnEdit.Visible = True
-
+                pnlNotfallkontakt.Visible = True
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
                     pnlZeiten.Visible = True
                 Else
@@ -186,11 +192,15 @@ Public Class frmMitarbeitersuche
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
                 btnEdit.Visible = True
                 btnSettings.Visible = True
+                pnlNotfallkontakt.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
+                    pnlNotfallkontakt.Visible = True
+
                 End If
             End If
 
@@ -230,6 +240,12 @@ Public Class frmMitarbeitersuche
         pic.BackgroundImage = My.Resources.personGray_m
         picGeschlecht.Visible = False
         pnlZeiten.Visible = False
+
+
+        lblNotfall_Name.Text = ""
+        lblNotfall_Handy.Text = ""
+        lblNotfall_Mail.Text = ""
+
     End Sub
 
     Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
@@ -237,15 +253,19 @@ Public Class frmMitarbeitersuche
     End Sub
 
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
+
+
         If sbMitarbeiter._value = "" Then Exit Sub
         Dim f As New frmMitarbeitersucheBearbeiten(sbMitarbeiter._value)
         f.ShowDialog(Me)
         initMA()
+
     End Sub
 
     Private Sub frmMitarbeitersuche_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         If mit_id > 0 Then
             sbMitarbeiter.SET_VALUE(mit_id)
+            sbMitarbeiter._value = mit_id
             initMA()
         End If
     End Sub