From 260f623f69143c105881bbd07dfb5b22c6361086 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 13 Nov 2024 13:06:17 +0100
Subject: [PATCH] ZE

---
 SDL/frmMain.vb | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb
index 0f22a664..f21ab6ca 100644
--- a/SDL/frmMain.vb
+++ b/SDL/frmMain.vb
@@ -153,9 +153,15 @@ Public Class frmMain
             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
-                    Dim info
-                    timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
-                    MsgBox(info)
+                    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()
+
+                        Dim info
+                        timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
+                        MsgBox(info)
+                    End If
                 End If
             End If