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

Zeiterfassung Celan

Browse Source
This commit is contained in:
d.breimaier
2024-06-25 08:23:10 +02:00
parent 714097f148
commit 9055056048
2 changed files with 13 additions and 5 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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.0.0.9")> <Assembly: AssemblyVersion("4.0.1.1")>
<Assembly: AssemblyFileVersion("4.0.0.9")> <Assembly: AssemblyFileVersion("4.0.1.1")>

14
Aviso/frmHauptfenster.vb
View File

@@ -613,9 +613,17 @@ Public Class frmHauptfenster
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
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in") If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_nname.ToLower = "celan" Then 'aktuell Hardcoded, wenn Zeit ist dynamisch (per SQL-tbl)
MsgBox(info) Dim f As New frmZEButtons("in")
f.ShowDialog()
f.BringToFront()
Else
Dim info
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in")
MsgBox(info)
End If
Else Else
End If End If