Spedi-Suche, timas-Aktengang, Bugfix Prüfung ZE-Eintrag

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -1,4 +1,5 @@
 Imports System.ComponentModel
+Imports System.Diagnostics.Eventing.Reader
 Imports System.Drawing
 Imports System.Net
 Imports System.Threading
@@ -183,11 +184,9 @@ Public Class frmMitarbeitersuche
                 End If
             End If
 
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_POSTGANG", "SDL") Then Button2.Visible = True
 
-            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_POSTGANG", "SDL") Then
-                Button2.Visible = True
-            End If
-
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_AKTENGANG", "SDL") Then btnAkten.Visible = True
 
         End If
     End Sub
@@ -298,12 +297,14 @@ Public Class frmMitarbeitersuche
         End If
     End Sub
 
-    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnZEKommen.Click, btnZEGehen.Click, Button2.Click
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnZEKommen.Click, btnZEGehen.Click, Button2.Click, btnAkten.Click
         Dim art As String
         If sender Is btnZEKommen Then
             art = "in"
         ElseIf sender Is btnZEGehen Then
             art = "out"
+        ElseIf sender Is btnAkten Then
+            art = "akten"
         Else
             art = "post"
         End If
@@ -333,8 +334,31 @@ Public Class frmMitarbeitersuche
                     initTimasData()
                 End If
 
+            ElseIf art = "akten" Then
+                Dim aktengang As DateTime = Now().AddMinutes(-10)
+                Dim askPost As MsgBoxResult = MsgBox("Aktengang für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " eintragen?" & vbNewLine & aktengang.ToString(), vbYesNo)
+                If askPost = vbYes Then
+                        Dim info
+                    Dim timestp = aktengang
 
-            Else
+                    Dim timeEntryExisting As Boolean = False
+                        Dim isOnline = timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, timeEntryExisting)
+                    If Not timeEntryExisting AndAlso Not isOnline Then
+                        timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "in", 10) 'Start 10 Aktengang
+                        timestp = timestp.AddMinutes(10)
+                        timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "out", 10) 'Ende 10 Aktengang
+                        timestp = timestp.AddMinutes(1)
+                        timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "in", 0) ' Start
+                    End If
+
+                    MsgBox(info)
+                        Thread.Sleep(2000) 'warten bis Eintrag in Timas-DB
+                        requestDone = False
+                        initTimasData()
+                    End If
+
+
+                Else
 
                 'normales kommen/gehen
                 Dim a As MsgBoxResult = MsgBox(IIf(cbxHomeoffice.Checked, "Homeoffice", "Büro") & vbNewLine & sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo)
@@ -369,8 +393,9 @@ Public Class frmMitarbeitersuche
                 Dim isServiceRunning As Boolean = True
                 timas.getTimeSaldo(MA.mit_timasId, lblTimasSaldo.Text, isServiceRunning)
                 If Not isServiceRunning Then
-                    MsgBox("Abfragefehler!")
-                    Exit Sub
+                    'Abfrage konnte nicht durchgeführt werden.
+                    MsgBox("Abfragefehler am Timas-Server!")
+                    'Exit Sub
                 End If
                 lblStatusZE.Visible = True
                 Dim checkEntry As Boolean = timas.getTimeEntries(MA.mit_timasId, dtZeiten,, requestDone)
@@ -383,6 +408,7 @@ Public Class frmMitarbeitersuche
 
                         btnZEGehen.Enabled = True
                         btnZEKommen.Enabled = False
+                        btnAkten.Enabled = False
                     Else
                         '                    PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_red
                         lblStatusZE.Text = "OFFLINE"
@@ -390,13 +416,16 @@ Public Class frmMitarbeitersuche
 
                         btnZEGehen.Enabled = False
                         btnZEKommen.Enabled = True
+                        btnAkten.Enabled = True
                     End If
                 Else
                     'Request wurde nicht verarbeitet -> Verbindungsfehler
-                    lblStatusZE.Text = "Verbindungsfehler"
+                    lblStatusZE.Text = "Serverfehler"
                     lblStatusZE.BackColor = Color.Gray
                     btnZEGehen.Enabled = False
                     btnZEKommen.Enabled = False
+                    Button2.Enabled = False
+                    btnAkten.Enabled = False
 
                 End If
 
@@ -418,4 +447,9 @@ Public Class frmMitarbeitersuche
         Process.Start(webAddress)
     End Sub
 
+    Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
+        Dim webAddress As String = "https://wiki.verag.ag/de/software/zeiterfassung/zeiterfassung"
+        Process.Start(webAddress)
+    End Sub
+
 End Class