timas API-Prüfung bei Programmeinstieg

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -6,6 +6,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 requestDone As Boolean = False
     Sub New()
 
@@ -160,7 +161,14 @@ Public Class frmMitarbeitersuche
                 'Eintrag für Zeitübersicht
                 lblTimasZeiten.Visible = True
                 lblTimasSaldo.Visible = True
-                If Not requestDone Then getTime(MA.mit_timasId)
+                If Not requestDone Then
+
+                    If timas IsNot Nothing Then
+                        timas.getTimeSaldo(MA.mit_timasId, lblTimasSaldo.Text)
+                        timas.getTimeEntries(MA.mit_timasId, lblTimasZeiten.Text, requestDone)
+                    End If
+
+                End If
             End If
 
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MA_TeamBearbeiten", "SDL") Then
@@ -297,7 +305,7 @@ Public Class frmMitarbeitersuche
 
 
             Dim yesterdayMidnight As DateTime
-            yesterdayMidnight = Today().AddDays(-1)
+            yesterdayMidnight = Today().AddDays(-5)
             rest.AddQueryParam("id", maid)
             rest.AddQueryParam("from", yesterdayMidnight.ToString("yyyy-MM-ddThh:mm:ss"))
             rest.AddQueryParam("to", Now().ToString("yyyy-MM-ddThh:mm:ss"))