beim Beenden von Aviso Abfrage ob ausgestempelt werden soll.

Aviso/frmHauptfenster.vb

@@ -2879,6 +2879,35 @@ Public Class frmHauptfenster
 
 
     Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
+
+        Try
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
+                If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
+                    Dim timas As New cTimasAPI
+                    Dim infoMessage As New DataTable
+                    Dim timeEntryExisting As Boolean = False
+                    Dim isEndpointRunning As Boolean = True
+                    Dim isPresent = timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
+                    If timeEntryExisting AndAlso isEndpointRunning AndAlso isPresent Then
+                        Dim a As MsgBoxResult = MsgBox("Soll " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " ausgestempelt werden?" & vbNewLine & Now.ToString() & " als Endzeit erfassen?", vbYesNo)
+                        If a = vbYes Then
+                            Dim info
+                            timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "out")
+                            MsgBox(info)
+                        Else
+
+                        End If
+
+                    End If
+
+                End If
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
         Me.Close()
     End Sub