From 5b660fd50ac062b01f72e3fef9abbc1b027b2db0 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Thu, 28 Sep 2023 11:51:04 +0200
Subject: [PATCH] timas

---
 Aviso/frmHauptfenster.vb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index e3edb3a..7f6d3b1 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -598,10 +598,10 @@ Public Class frmHauptfenster
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
                 Dim timas As New cTimasAPI
-                Dim infoMessage As String = ""
-                Dim timeEntryExisting As Boolean = False
-                timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting)
-                If Not timeEntryExisting Then
+            Dim infoMessage As New DataTable
+            Dim timeEntryExisting As Boolean = False
+            timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting)
+            If Not timeEntryExisting 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