Zeiterfassung Celan

Aviso/My Project/AssemblyInfo.vb

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

Aviso/frmHauptfenster.vb

@@ -613,9 +613,17 @@ Public Class frmHauptfenster
                     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
+
+                            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_nname.ToLower = "celan" Then 'aktuell Hardcoded, wenn Zeit ist dynamisch (per SQL-tbl)
+                                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
 
                         End If