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

Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-11-22 15:27:14 +01:00
parent f2f8aeb2e6 9421cefbf7
commit 94e00982cc
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/frmHauptfenster.vb
View File

@@ -599,10 +599,10 @@ Public Class frmHauptfenster
Dim timas As New cTimasAPI Dim timas As New cTimasAPI
Dim infoMessage As New DataTable Dim infoMessage As New DataTable
Dim timeEntryExisting As Boolean = False Dim timeEntryExisting As Boolean = False
Dim isEndpointRunning As Boolean Dim isEndpointRunning As Boolean = True
timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning) timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
If Not timeEntryExisting AndAlso isEndpointRunning Then 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) 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 a = vbYes Then
Dim info Dim info
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in") timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in")