From 47c8defcdca4c7dcfb794034457aef066eea0735 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Wed, 27 Sep 2023 15:08:09 +0200
Subject: [PATCH] DataTable

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

diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index e3edb3a..12587bc 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -598,8 +598,8 @@ 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
+            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)