diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb index aa8d366e..3bf1180c 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb +++ b/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