From f875e95239e636e1b9917cbd62a930ac391d5ab7 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 12 Apr 2024 13:17:04 +0200 Subject: [PATCH] beim Beenden von Aviso Abfrage ob ausgestempelt werden soll. --- Aviso/frmHauptfenster.vb | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 5474770..4fa1078 100644 --- a/Aviso/frmHauptfenster.vb +++ b/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