timas

Aviso/frmHauptfenster.vb

@@ -598,7 +598,7 @@ Public Class frmHauptfenster
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
                 Dim timas As New cTimasAPI
-                Dim infoMessage As String = ""
+            Dim infoMessage As New DataTable
             Dim timeEntryExisting As Boolean = False
             timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting)
             If Not timeEntryExisting Then