MA-ZE

2023-11-01 09:40:20 +01:00
parent 6dcb02fff0
commit 241eda3283
8 changed files with 265 additions and 140 deletions
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb
@@ -28,15 +28,15 @@ Partial Class frmMitarbeitersuche
        Me.Button4 = New System.Windows.Forms.Button()
        Me.btnClose = New System.Windows.Forms.Button()
        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
-        Me.sbMitarbeiter = New VERAG_PROG_ALLGEMEIN.MySearchBox()
        Me.pnlMain = New System.Windows.Forms.Panel()
        Me.pnl = New System.Windows.Forms.Panel()
        Me.pnlZeiten = New System.Windows.Forms.Panel()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.cbxHomeoffice = New System.Windows.Forms.CheckBox()
        Me.btnZEGehen = New System.Windows.Forms.Button()
        Me.btnZEKommen = New System.Windows.Forms.Button()
        Me.lblTimasSaldo = New System.Windows.Forms.Label()
        Me.lblMAId = New System.Windows.Forms.Label()
-        Me.PictureBox9 = New System.Windows.Forms.PictureBox()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.btnSettings = New System.Windows.Forms.Button()
        Me.lblTimasZeiten = New System.Windows.Forms.Label()
@@ -63,6 +63,11 @@ Partial Class frmMitarbeitersuche
        Me.pnlGeburtstag = New System.Windows.Forms.Panel()
        Me.lblGeburtstag = New System.Windows.Forms.Label()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.lblStatusZE = New System.Windows.Forms.Label()
        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.lblPosition = New System.Windows.Forms.Label()
@@ -73,13 +78,12 @@ Partial Class frmMitarbeitersuche
        Me.lblFirma = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
-        Me.cbxHomeoffice = New System.Windows.Forms.CheckBox()
+        Me.sbMitarbeiter = New VERAG_PROG_ALLGEMEIN.MySearchBox()
        Me.pnlSrch.SuspendLayout()
        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnlMain.SuspendLayout()
        Me.pnl.SuspendLayout()
        Me.pnlZeiten.SuspendLayout()
-        CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnlWohnadresse.SuspendLayout()
        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnlMotto.SuspendLayout()
@@ -87,6 +91,7 @@ Partial Class frmMitarbeitersuche
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnlGeburtstag.SuspendLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
        Me.MyPanel1.SuspendLayout()
        Me.SuspendLayout()
        '
@@ -145,32 +150,6 @@ Partial Class frmMitarbeitersuche
        Me.PictureBox2.TabIndex = 18
        Me.PictureBox2.TabStop = False
        '
-        'sbMitarbeiter
-        '
-        Me.sbMitarbeiter._allowFreitext = False
-        Me.sbMitarbeiter._AllowSetValue = False
-        Me.sbMitarbeiter._allowSpaceAsSplitter = True
-        Me.sbMitarbeiter._autoSizeGross = False
-        Me.sbMitarbeiter._hideIfListEmpty = True
-        Me.sbMitarbeiter._value = Nothing
-        Me.sbMitarbeiter.conn_art = "FMZOLL"
-        Me.sbMitarbeiter.dgvpos = "LEFT"
-        Me.sbMitarbeiter.DISPLAY_PARAM = Nothing
-        Me.sbMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
-        Me.sbMitarbeiter.INVISIBLE_COLUMNS = Nothing
-        Me.sbMitarbeiter.key_visible = False
-        Me.sbMitarbeiter.KEYPARAM = Nothing
-        Me.sbMitarbeiter.Location = New System.Drawing.Point(45, 11)
-        Me.sbMitarbeiter.Name = "sbMitarbeiter"
-        Me.sbMitarbeiter.searchActive = True
-        Me.sbMitarbeiter.Size = New System.Drawing.Size(582, 29)
-        Me.sbMitarbeiter.SQL_ORDER_BY = Nothing
-        Me.sbMitarbeiter.SQL_SELECT = Nothing
-        Me.sbMitarbeiter.SQL_WHERE = Nothing
-        Me.sbMitarbeiter.SQL_WhereParamList = Nothing
-        Me.sbMitarbeiter.TabIndex = 0
-        Me.sbMitarbeiter.usrcntl = Nothing
-        '
        'pnlMain
        '
        Me.pnlMain.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
@@ -179,16 +158,16 @@ Partial Class frmMitarbeitersuche
        Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlMain.Location = New System.Drawing.Point(0, 48)
        Me.pnlMain.Name = "pnlMain"
-        Me.pnlMain.Size = New System.Drawing.Size(776, 456)
+        Me.pnlMain.Size = New System.Drawing.Size(776, 482)
        Me.pnlMain.TabIndex = 1
        '
        'pnl
        '
        Me.pnl.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
        Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(254, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.pnl.Controls.Add(Me.Panel2)
        Me.pnl.Controls.Add(Me.pnlZeiten)
        Me.pnl.Controls.Add(Me.lblMAId)
-        Me.pnl.Controls.Add(Me.PictureBox9)
        Me.pnl.Controls.Add(Me.Label5)
        Me.pnl.Controls.Add(Me.btnSettings)
        Me.pnl.Controls.Add(Me.lblTimasZeiten)
@@ -213,54 +192,88 @@ Partial Class frmMitarbeitersuche
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnl.Location = New System.Drawing.Point(0, 0)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(774, 454)
+        Me.pnl.Size = New System.Drawing.Size(774, 480)
        Me.pnl.TabIndex = 24
        '
        'pnlZeiten
        '
-        Me.pnlZeiten.Controls.Add(Me.cbxHomeoffice)
+        Me.pnlZeiten.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.pnlZeiten.BackColor = System.Drawing.Color.Cornsilk
+        Me.pnlZeiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlZeiten.Controls.Add(Me.Label12)
+        Me.pnlZeiten.Controls.Add(Me.Label9)
+        Me.pnlZeiten.Controls.Add(Me.Button1)
        Me.pnlZeiten.Controls.Add(Me.btnZEGehen)
        Me.pnlZeiten.Controls.Add(Me.btnZEKommen)
        Me.pnlZeiten.Controls.Add(Me.lblTimasSaldo)
-        Me.pnlZeiten.Location = New System.Drawing.Point(58, 393)
+        Me.pnlZeiten.Controls.Add(Me.cbxHomeoffice)
+        Me.pnlZeiten.Location = New System.Drawing.Point(0, 402)
        Me.pnlZeiten.Name = "pnlZeiten"
-        Me.pnlZeiten.Size = New System.Drawing.Size(569, 48)
+        Me.pnlZeiten.Size = New System.Drawing.Size(591, 66)
        Me.pnlZeiten.TabIndex = 22
        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.White
+        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.zeiterfassung_s
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopLeft
+        Me.Button1.Location = New System.Drawing.Point(9, 17)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(123, 45)
+        Me.Button1.TabIndex = 126
+        Me.Button1.Text = "Zeiterfassung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Online"
+        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'cbxHomeoffice
+        '
+        Me.cbxHomeoffice.AutoSize = True
+        Me.cbxHomeoffice.ForeColor = System.Drawing.Color.Black
+        Me.cbxHomeoffice.Location = New System.Drawing.Point(351, 1)
+        Me.cbxHomeoffice.Name = "cbxHomeoffice"
+        Me.cbxHomeoffice.Size = New System.Drawing.Size(80, 17)
+        Me.cbxHomeoffice.TabIndex = 125
+        Me.cbxHomeoffice.Text = "Homeoffice"
+        Me.cbxHomeoffice.UseVisualStyleBackColor = True
+        '
        'btnZEGehen
        '
+        Me.btnZEGehen.BackColor = System.Drawing.Color.White
        Me.btnZEGehen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
        Me.btnZEGehen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnZEGehen.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.ze_gehen
        Me.btnZEGehen.ImageAlign = System.Drawing.ContentAlignment.TopRight
-        Me.btnZEGehen.Location = New System.Drawing.Point(460, 0)
+        Me.btnZEGehen.Location = New System.Drawing.Point(463, 16)
        Me.btnZEGehen.Name = "btnZEGehen"
-        Me.btnZEGehen.Size = New System.Drawing.Size(95, 45)
+        Me.btnZEGehen.Size = New System.Drawing.Size(107, 45)
        Me.btnZEGehen.TabIndex = 124
        Me.btnZEGehen.Text = "GEHEN"
        Me.btnZEGehen.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnZEGehen.UseVisualStyleBackColor = True
+        Me.btnZEGehen.UseVisualStyleBackColor = False
        '
        'btnZEKommen
        '
+        Me.btnZEKommen.BackColor = System.Drawing.Color.White
        Me.btnZEKommen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
        Me.btnZEKommen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnZEKommen.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.ze_kommen
        Me.btnZEKommen.ImageAlign = System.Drawing.ContentAlignment.TopLeft
-        Me.btnZEKommen.Location = New System.Drawing.Point(348, 0)
+        Me.btnZEKommen.Location = New System.Drawing.Point(351, 16)
        Me.btnZEKommen.Name = "btnZEKommen"
        Me.btnZEKommen.Size = New System.Drawing.Size(106, 45)
        Me.btnZEKommen.TabIndex = 123
        Me.btnZEKommen.Text = "KOMMEN"
        Me.btnZEKommen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnZEKommen.UseVisualStyleBackColor = True
+        Me.btnZEKommen.UseVisualStyleBackColor = False
        '
        'lblTimasSaldo
        '
-        Me.lblTimasSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
-        Me.lblTimasSaldo.Location = New System.Drawing.Point(7, 9)
+        Me.lblTimasSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.lblTimasSaldo.Location = New System.Drawing.Point(148, 21)
        Me.lblTimasSaldo.Name = "lblTimasSaldo"
-        Me.lblTimasSaldo.Size = New System.Drawing.Size(223, 24)
+        Me.lblTimasSaldo.Size = New System.Drawing.Size(198, 24)
        Me.lblTimasSaldo.TabIndex = 30
        '
        'lblMAId
@@ -275,16 +288,6 @@ Partial Class frmMitarbeitersuche
        Me.lblMAId.Text = "12345"
        Me.lblMAId.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
-        'PictureBox9
-        '
-        Me.PictureBox9.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_green
-        Me.PictureBox9.Location = New System.Drawing.Point(18, 396)
-        Me.PictureBox9.Name = "PictureBox9"
-        Me.PictureBox9.Size = New System.Drawing.Size(34, 34)
-        Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
-        Me.PictureBox9.TabIndex = 120
-        Me.PictureBox9.TabStop = False
-        '
        'Label5
        '
        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -301,9 +304,9 @@ Partial Class frmMitarbeitersuche
        Me.btnSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnSettings.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.wheel_s
        Me.btnSettings.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnSettings.Location = New System.Drawing.Point(641, 394)
+        Me.btnSettings.Location = New System.Drawing.Point(646, 95)
        Me.btnSettings.Name = "btnSettings"
-        Me.btnSettings.Size = New System.Drawing.Size(125, 45)
+        Me.btnSettings.Size = New System.Drawing.Size(125, 61)
        Me.btnSettings.TabIndex = 29
        Me.btnSettings.Text = "Einstellungen"
        Me.btnSettings.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -368,7 +371,7 @@ Partial Class frmMitarbeitersuche
        '
        Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel3.Location = New System.Drawing.Point(0, 441)
+        Me.Panel3.Location = New System.Drawing.Point(0, 467)
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(774, 13)
        Me.Panel3.TabIndex = 26
@@ -547,6 +550,66 @@ Partial Class frmMitarbeitersuche
        Me.PictureBox1.TabIndex = 13
        Me.PictureBox1.TabStop = False
        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.BackColor = System.Drawing.Color.Transparent
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline)
+        Me.Label9.Location = New System.Drawing.Point(10, 2)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(71, 13)
+        Me.Label9.TabIndex = 30
+        Me.Label9.Text = "Zeiterfassung"
+        Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.BackColor = System.Drawing.Color.Transparent
+        Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline)
+        Me.Label12.Location = New System.Drawing.Point(145, 2)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(117, 13)
+        Me.Label12.TabIndex = 127
+        Me.Label12.Text = "Saldo (letzte Buchung):"
+        Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Panel2
+        '
+        Me.Panel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Panel2.BackColor = System.Drawing.Color.Cornsilk
+        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel2.Controls.Add(Me.lblStatusZE)
+        Me.Panel2.Controls.Add(Me.Label13)
+        Me.Panel2.Location = New System.Drawing.Point(590, 402)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(185, 66)
+        Me.Panel2.TabIndex = 128
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.BackColor = System.Drawing.Color.Transparent
+        Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Underline)
+        Me.Label13.Location = New System.Drawing.Point(7, 2)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(113, 13)
+        Me.Label13.TabIndex = 128
+        Me.Label13.Text = "Status (Zeiterfassung):"
+        Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'lblStatusZE
+        '
+        Me.lblStatusZE.BackColor = System.Drawing.Color.Firebrick
+        Me.lblStatusZE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.lblStatusZE.ForeColor = System.Drawing.Color.White
+        Me.lblStatusZE.Location = New System.Drawing.Point(7, 17)
+        Me.lblStatusZE.Name = "lblStatusZE"
+        Me.lblStatusZE.Size = New System.Drawing.Size(174, 25)
+        Me.lblStatusZE.TabIndex = 12
+        Me.lblStatusZE.Text = "OFFLINE"
+        Me.lblStatusZE.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
        'MyPanel1
        '
        Me.MyPanel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(254, Byte), Integer), CType(CType(255, Byte), Integer))
@@ -660,16 +723,31 @@ Partial Class frmMitarbeitersuche
        Me.Label3.Text = "Niederlassung:"
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
-        'cbxHomeoffice
+        'sbMitarbeiter
        '
-        Me.cbxHomeoffice.AutoSize = True
-        Me.cbxHomeoffice.ForeColor = System.Drawing.Color.Black
-        Me.cbxHomeoffice.Location = New System.Drawing.Point(262, 7)
-        Me.cbxHomeoffice.Name = "cbxHomeoffice"
-        Me.cbxHomeoffice.Size = New System.Drawing.Size(80, 17)
-        Me.cbxHomeoffice.TabIndex = 125
-        Me.cbxHomeoffice.Text = "Homeoffice"
-        Me.cbxHomeoffice.UseVisualStyleBackColor = True
+        Me.sbMitarbeiter._allowFreitext = False
+        Me.sbMitarbeiter._AllowSetValue = False
+        Me.sbMitarbeiter._allowSpaceAsSplitter = True
+        Me.sbMitarbeiter._autoSizeGross = False
+        Me.sbMitarbeiter._hideIfListEmpty = True
+        Me.sbMitarbeiter._value = Nothing
+        Me.sbMitarbeiter.conn_art = "FMZOLL"
+        Me.sbMitarbeiter.dgvpos = "LEFT"
+        Me.sbMitarbeiter.DISPLAY_PARAM = Nothing
+        Me.sbMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+        Me.sbMitarbeiter.INVISIBLE_COLUMNS = Nothing
+        Me.sbMitarbeiter.key_visible = False
+        Me.sbMitarbeiter.KEYPARAM = Nothing
+        Me.sbMitarbeiter.Location = New System.Drawing.Point(45, 11)
+        Me.sbMitarbeiter.Name = "sbMitarbeiter"
+        Me.sbMitarbeiter.searchActive = True
+        Me.sbMitarbeiter.Size = New System.Drawing.Size(582, 29)
+        Me.sbMitarbeiter.SQL_ORDER_BY = Nothing
+        Me.sbMitarbeiter.SQL_SELECT = Nothing
+        Me.sbMitarbeiter.SQL_WHERE = Nothing
+        Me.sbMitarbeiter.SQL_WhereParamList = Nothing
+        Me.sbMitarbeiter.TabIndex = 0
+        Me.sbMitarbeiter.usrcntl = Nothing
        '
        'frmMitarbeitersuche
        '
@@ -677,7 +755,7 @@ Partial Class frmMitarbeitersuche
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
        Me.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.ClientSize = New System.Drawing.Size(776, 504)
+        Me.ClientSize = New System.Drawing.Size(776, 530)
        Me.Controls.Add(Me.pnlMain)
        Me.Controls.Add(Me.pnlSrch)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
@@ -693,7 +771,6 @@ Partial Class frmMitarbeitersuche
        Me.pnl.PerformLayout()
        Me.pnlZeiten.ResumeLayout(False)
        Me.pnlZeiten.PerformLayout()
-        CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnlWohnadresse.ResumeLayout(False)
        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnlMotto.ResumeLayout(False)
@@ -702,6 +779,8 @@ Partial Class frmMitarbeitersuche
        Me.pnlGeburtstag.ResumeLayout(False)
        Me.pnlGeburtstag.PerformLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
        Me.MyPanel1.ResumeLayout(False)
        Me.ResumeLayout(False)

@@ -750,11 +829,16 @@ Partial Class frmMitarbeitersuche
    Friend WithEvents btnSettings As Windows.Forms.Button
    Friend WithEvents lblTimasZeiten As Windows.Forms.Label
    Friend WithEvents lblTimasSaldo As Windows.Forms.Label
-    Friend WithEvents PictureBox9 As Windows.Forms.PictureBox
    Friend WithEvents lblMAId As Windows.Forms.Label
    Friend WithEvents Label5 As Windows.Forms.Label
    Friend WithEvents pnlZeiten As Windows.Forms.Panel
    Friend WithEvents btnZEGehen As Windows.Forms.Button
    Friend WithEvents btnZEKommen As Windows.Forms.Button
    Friend WithEvents cbxHomeoffice As Windows.Forms.CheckBox
+    Friend WithEvents Button1 As Windows.Forms.Button
+    Friend WithEvents Label12 As Windows.Forms.Label
+    Friend WithEvents Label9 As Windows.Forms.Label
+    Friend WithEvents Panel2 As Windows.Forms.Panel
+    Friend WithEvents lblStatusZE As Windows.Forms.Label
+    Friend WithEvents Label13 As Windows.Forms.Label
 End Class
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
+++ b/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