Bugfic Veranlagungen

VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb

@@ -58,8 +58,8 @@ Public Class cMSEAPI
             Dim curDateTime As Integer = jwt.GenNumericDate(0)
 
             ' Set the timestamp defining an expiration time (end time) for the token
-            ' to be now + 1 hour (3600 seconds)
-            success = claims.AddIntAt(-1, "exp", curDateTime + 1000)
+            ' to be now + 10 MIN (600 seconds)
+            success = claims.AddIntAt(-1, "exp", curDateTime + 600)
 
             jwt.AutoCompact = True
 
@@ -105,7 +105,7 @@ Public Class cMSEAPI
 
             rest.AddHeader("X-API-Key", jwt)
 
-            rest.IdleTimeoutMs = 30000
+            rest.IdleTimeoutMs = 1000000
 
             Dim responseJson As String = rest.FullRequestNoBody("GET", "/v1/transactions/new")
             If (rest.LastMethodSuccess <> True) Then