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

Bugfix Abfrage Zeiterfassung

Browse Source
This commit is contained in:
d.breimaier
2023-11-15 07:57:55 +01:00
parent 24efc47057
commit 2ce65e67fa
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.4.2")>
<Assembly: AssemblyFileVersion("3.9.4.2")>
<Assembly: AssemblyVersion("3.9.4.3")>
<Assembly: AssemblyFileVersion("3.9.4.3")>

4
Aviso/frmHauptfenster.vb
View File

@@ -599,10 +599,10 @@ Public Class frmHauptfenster
Dim timas As New cTimasAPI
Dim infoMessage As New DataTable
Dim timeEntryExisting As Boolean = False
Dim isEndpointRunning As Boolean
Dim isEndpointRunning As Boolean = True
timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, 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)
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")