Fibu-Konten, BH, etc.

VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb

@@ -118,19 +118,21 @@ Public Class cTimasAPI
 
             Dim success As Boolean
             rest.ClearAllQueryParams()
-
-            rest.IdleTimeoutMs = 30000
             rest.AddQueryParam("format", datetimeformat)
 
             If timeStamp_deadline <> "" AndAlso IsDate(timeStamp_deadline) Then
                 rest.AddQueryParam("stamp", CDate(timeStamp_deadline).ToString("yyyy-MM-dd"))
+                rest.IdleTimeoutMs = 300000
+            Else
+                rest.IdleTimeoutMs = 30000 'defualt
+
             End If
 
             Dim responseJson As String = rest.FullRequestNoBody("GET", "/rest/web-api/employees/" & maid & "/balance")
             If (rest.LastMethodSuccess <> True) Then
                 Debug.WriteLine(rest.LastErrorText)
                 isEndpointRunning = rest.LastMethodSuccess
-                rest.IdleTimeoutMs = 30000 'defualt
+
                 Return timesaldo
             End If