API Einstellungen, Überstundenauszahlung, Sammelrechnungsdruck, etc

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -10,7 +10,7 @@ Imports VERAG_PROG_ALLGEMEIN.cCreditSafeAPI
 Public Class frmMitarbeitersuche
     Dim mit_id As Integer = -1
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
-    Dim timas As New cTimasAPI
+    Dim timas As New cTimasAPI("timas")
     Dim requestDone As Boolean = False
     Dim MA As cMitarbeiter = Nothing
 
@@ -323,7 +323,7 @@ Public Class frmMitarbeitersuche
 
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
-            Dim timas As New cTimasAPI
+            Dim timas As New cTimasAPI("timas")
 
             If art = "post" Then
                 'postgang ausstempen, dann beginn post, + 1h ende post