From b75d804442d4337a71caacca59058c79cfd5d227 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Thu, 13 Feb 2025 11:55:16 +0100
Subject: [PATCH] timas

---
 SDL/frmMain.vb | 42 +++++++++++++++++++++++-------------------
 1 file changed, 23 insertions(+), 19 deletions(-)

diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb
index 7379dd9c..d9035f18 100644
--- a/SDL/frmMain.vb
+++ b/SDL/frmMain.vb
@@ -143,30 +143,34 @@ Public Class frmMain
         setProfileImage()
 
 
-
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
-            Dim timas As New cTimasAPI("timas")
-            Dim infoMessage As String = ""
-            Dim timeEntryExisting As Boolean = False
-            Dim isEndpointRunning As Boolean = True
-            timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, timeEntryExisting,, isEndpointRunning)
-            If Not timeEntryExisting AndAlso isEndpointRunning Then
-                Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst!" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
-                If a = vbYes Then
-                    If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen Then
-                        Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen)
-                        f.ShowDialog()
-                        f.BringToFront()
-                    Else
-                        Dim info
-                        timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
-                        MsgBox(info)
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ausstempelnBeiBeenden Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
+                Dim timas As New cTimasAPI("timas")
+                Dim infoMessage As String = ""
+                Dim timeEntryExisting As Boolean = False
+                Dim isEndpointRunning As Boolean = True
+                timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, timeEntryExisting,, isEndpointRunning)
+                If Not timeEntryExisting AndAlso isEndpointRunning Then
+                    Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst!" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
+                    If a = vbYes Then
+                        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen Then
+                            Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen)
+                            f.ShowDialog()
+                            f.BringToFront()
+                        Else
+                            Dim info
+                            timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
+                            MsgBox(info)
+                        End If
                     End If
                 End If
-            End If
 
+            End If
         End If
 
+
+
+
         AddHandler KdSearchBox1.PropertyChanged, Sub()
                                                      Try
                                                          If KdSearchBox1.KdNr > 0 Then