From 90550560485e73707a14f745d5713189c246bad9 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 25 Jun 2024 08:23:10 +0200 Subject: [PATCH] Zeiterfassung Celan --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmHauptfenster.vb | 14 +++++++++++--- 2 files changed, 13 insertions(+), 5 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index e54b718..c0eaf93 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 1094c2b..0a26cde 100644 --- a/Aviso/frmHauptfenster.vb +++ b/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 - Dim info - timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in") - MsgBox(info) + + 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