MA-ZE

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -49,6 +49,7 @@ Public Class frmMitarbeitersuche
             Else
                 Me.Close()
             End If
+            VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.LOAD(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_id)
             initMA()
         End If
 
@@ -231,10 +232,6 @@ Public Class frmMitarbeitersuche
         initMA()
     End Sub
 
-    Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click
-        Dim webAddress As String = "https://zeit.verag.ag/webterminal/"
-        Process.Start(webAddress)
-    End Sub
 
 
     Sub setBGPic(art, MA)
@@ -321,6 +318,7 @@ Public Class frmMitarbeitersuche
 
     Private Sub initTimasSaldo()
 
+        lblStatusZE.Visible = False
 
         btn.Visible = True
         'Eintrag für Zeitübersicht
@@ -331,13 +329,19 @@ Public Class frmMitarbeitersuche
             Dim dtZeiten As New DataTable
             If timas IsNot Nothing Then
                 timas.getTimeSaldo(MA.mit_timasId, lblTimasSaldo.Text)
+                lblStatusZE.Visible = True
                 If timas.getTimeEntries(MA.mit_timasId, dtZeiten, requestDone) Then
-                    PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_green
+                    'PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_green
+                    lblStatusZE.BackColor = Color.Green
+                    lblStatusZE.Text = "ONLINE"
 
                     btnZEGehen.Enabled = True
                     btnZEKommen.Enabled = False
                 Else
-                    PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_red
+                    '                    PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_red
+                    lblStatusZE.Text = "OFFLINE"
+                    lblStatusZE.BackColor = Color.Firebrick
+
                     btnZEGehen.Enabled = False
                     btnZEKommen.Enabled = True
                 End If
@@ -353,4 +357,9 @@ Public Class frmMitarbeitersuche
         End If
 
     End Sub
+
+    Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim webAddress As String = "https://zeit.verag.ag/webterminal/"
+        Process.Start(webAddress)
+    End Sub
 End Class