Digicust, Timas, Essensbestellungen

SDL/frmMain.vb

@@ -143,8 +143,9 @@ Public Class frmMain
             Dim timas As New cTimasAPI
             Dim infoMessage As String = ""
             Dim timeEntryExisting As Boolean = False
-            timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, timeEntryExisting)
-            If Not timeEntryExisting Then
+            Dim isEndpointRunning As Boolean
+            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
                     Dim info