mitarbeiter-Zeiterfassung

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -162,12 +162,20 @@ Public Class frmMitarbeitersuche
             End Select
 
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
+                'pnlZeiten.Visible = True
                 btn.Visible = True
                 btnSettings.Visible = True
             End If
 
+            requestDone = False
             initTimasSaldo()
 
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
+                pnlZeiten.Visible = True
+            Else
+                pnlZeiten.Visible = False
+            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
@@ -313,35 +321,35 @@ Public Class frmMitarbeitersuche
 
     Private Sub initTimasSaldo()
 
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id Then
-            btn.Visible = True
-            'Eintrag für Zeitübersicht
-            'lblTimasZeiten.Visible = True
-            lblTimasSaldo.Visible = True
-            If Not requestDone Then
-                Dim dtZeiten As New DataTable
-                If timas IsNot Nothing Then
-                    timas.getTimeSaldo(MA.mit_timasId, lblTimasSaldo.Text)
-                    If timas.getTimeEntries(MA.mit_timasId, dtZeiten, requestDone) Then
-                        PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_green
 
-                        Button2.Enabled = True
-                        Button1.Enabled = False
-                    Else
-                        PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_red
-                        Button2.Enabled = False
-                        Button1.Enabled = True
-                    End If
+        btn.Visible = True
+        'Eintrag für Zeitübersicht
+        'lblTimasZeiten.Visible = True
+        lblTimasSaldo.Visible = True
+        If Not requestDone Then
+            lblTimasSaldo.Text = ""
+            Dim dtZeiten As New DataTable
+            If timas IsNot Nothing Then
+                timas.getTimeSaldo(MA.mit_timasId, lblTimasSaldo.Text)
+                If timas.getTimeEntries(MA.mit_timasId, dtZeiten, requestDone) Then
+                    PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_green
 
-                    If dtZeiten.Rows.Count > 0 Then
-                        pnlZeiten.Visible = True
-                    Else
-                        pnlZeiten.Visible = False
-                    End If
+                    Button2.Enabled = True
+                    Button1.Enabled = False
+                Else
+                    PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_red
+                    Button2.Enabled = False
+                    Button1.Enabled = True
+                End If
 
+                If dtZeiten.Rows.Count > 0 AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id Then
+                    pnlZeiten.Visible = True
+                Else
+                    pnlZeiten.Visible = False
                 End If
 
             End If
+
         End If
 
     End Sub