Zeiterfassung

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -1,7 +1,9 @@
 Imports System.ComponentModel
 Imports System.Drawing
 Imports System.Net
+Imports System.Threading
 Imports System.Windows.Forms
+Imports Therefore.API
 Imports VERAG_PROG_ALLGEMEIN.cCreditSafeAPI
 
 Public Class frmMitarbeitersuche
@@ -163,31 +165,8 @@ Public Class frmMitarbeitersuche
                 btn.Visible = True
                 btnSettings.Visible = True
             End If
-            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
-                        Else
-                            PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_red
-                        End If
 
-                        If dtZeiten.Rows.Count > 0 Then
-                            pnlZeiten.Visible = True
-                        Else
-                            pnlZeiten.Visible = False
-                        End If
-
-                    End If
-
-                End If
-            End If
+            initTimasSaldo()
 
             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
@@ -308,4 +287,57 @@ Public Class frmMitarbeitersuche
         End If
     End Sub
 
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click
+        Dim art As String
+        If sender Is Button1 Then
+            art = "in"
+        Else
+            art = "out"
+        End If
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
+            Dim timas As New cTimasAPI
+            Dim a As MsgBoxResult = MsgBox(sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo)
+            If a = vbYes Then
+                Dim info
+                timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, art)
+                MsgBox(info)
+                Thread.Sleep(2000) 'warten bis Eintrag in Timas-DB
+                requestDone = False
+                initTimasSaldo()
+            End If
+        End If
+    End Sub
+
+
+
+    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
+                    Else
+                        PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_red
+                    End If
+
+                    If dtZeiten.Rows.Count > 0 Then
+                        pnlZeiten.Visible = True
+                    Else
+                        pnlZeiten.Visible = False
+                    End If
+
+                End If
+
+            End If
+        End If
+
+    End Sub
 End Class