edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

div. Änderungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-10-15 17:03:35 +02:00
parent c0f864af2a
commit e52332ccd8
6 changed files with 127 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
View File

@@ -121,13 +121,15 @@ Public Class cTimasAPI
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
rest.AddQueryParam("stamp", CDate(timeStamp_deadline).ToString("dd.MM.yyyy"))
rest.IdleTimeoutMs = 60000
Else
rest.IdleTimeoutMs = 30000 'defualt
End If
Dim sw = Stopwatch.StartNew()
Dim responseJson As String = rest.FullRequestNoBody("GET", "/rest/web-api/employees/" & maid & "/balance")
If (rest.LastMethodSuccess <> True) Then
Debug.WriteLine(rest.LastErrorText)
@@ -135,6 +137,10 @@ Public Class cTimasAPI
Return timesaldo
End If
sw.Stop()
Debug.WriteLine($"Request dauerte {sw.ElapsedMilliseconds} ms")
Debug.WriteLine(rest.LastErrorText)
If (rest.ResponseStatusCode <> 200) Then
Debug.WriteLine(rest.ResponseHeader)
@@ -1059,7 +1065,7 @@ Public Class cTimasAPI
dt.Columns.Add("Geschlecht", GetType(String))
dt.Columns.Add("Ausweis-Nr", GetType(Integer))
dt.Columns.Add("Info", GetType(String))
dt.Columns.Add("Mandant", GetType(String))
'dt.Columns.Add("Mandant", GetType(String))
End If
dt.Clear()