Mitarbeitersuche - Einstellungen

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -70,7 +70,6 @@ Public Class frmMitarbeitersuche
         btnEdit.Visible = False
         pnl.Visible = False
         'lblTimasZeiten.Visible = False
-        lblTimasSaldo.Visible = False
         Panel1.Visible = False
         btnSettings.Visible = False
         Button3.Visible = False
@@ -170,12 +169,19 @@ Public Class frmMitarbeitersuche
             'requestDone = Not callTimasSaldo
             initTimasData()
 
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
-                pnlZeiten.Visible = True
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id Then
+                btnEdit.Visible = True
+
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
+                    pnlZeiten.Visible = True
+                Else
+                    pnlZeiten.Visible = False
+                End If
             Else
                 pnlZeiten.Visible = False
             End If
 
+
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
                 btnEdit.Visible = True
                 btnSettings.Visible = True
@@ -444,11 +450,11 @@ Public Class frmMitarbeitersuche
         'Eintrag für Zeitübersicht
         'lblTimasZeiten.Visible = True
 
-        lblTimasSaldo.Visible = False
-        lblTimasSaldo.Text = ""
-
         If Not requestDone Then
 
+            'lblTimasSaldo.Visible = False
+            lblTimasSaldo.Text = ""
+
             Dim dtZeiten As New DataTable
             If timas IsNot Nothing Then
                 Dim isServiceRunning As Boolean = True