Anpassungen ZE

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -295,9 +295,9 @@ Public Class frmMitarbeitersuche
         End If
     End Sub
 
-    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnZEKommen.Click, btnZEGehen.Click
         Dim art As String
-        If sender Is Button1 Then
+        If sender Is btnZEKommen Then
             art = "in"
         Else
             art = "out"
@@ -334,12 +334,12 @@ Public Class frmMitarbeitersuche
                 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
+                    btnZEGehen.Enabled = True
+                    btnZEKommen.Enabled = False
                 Else
                     PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_red
-                    Button2.Enabled = False
-                    Button1.Enabled = True
+                    btnZEGehen.Enabled = False
+                    btnZEKommen.Enabled = True
                 End If
 
                 If dtZeiten.Rows.Count > 0 AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id Then