edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ausertung, Formulare

Browse Source
This commit is contained in:
d.breimaier
2023-12-06 08:17:56 +01:00
parent 2f160c793d
commit 1eff800e1f
6 changed files with 27 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/frmMain.vb
View File

@@ -143,7 +143,7 @@ Public Class frmMain
Dim timas As New cTimasAPI
Dim infoMessage As String = ""
Dim timeEntryExisting As Boolean = False
Dim isEndpointRunning As Boolean
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)