From 2ce65e67fa5f456bbb8850a3c6b063ec26694ab4 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 15 Nov 2023 07:57:55 +0100 Subject: [PATCH] Bugfix Abfrage Zeiterfassung --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmHauptfenster.vb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index fec7384..f54502c 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 82c1af9..f9bf411 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -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")