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

atez

Browse Source
This commit is contained in:
d.breimaier
2023-09-12 22:19:17 +02:00
parent d4e6afc021
commit 2b85d4ee8c
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb
View File

@@ -606,10 +606,9 @@ Public Class cATEZ_NCTS_IN
'DEBUG-Mode -> no request will be sent! 'DEBUG-Mode -> no request will be sent!
'rest.DebugMode = True 'rest.DebugMode = True
rest.PercentDoneOnSend = True 'rest.PercentDoneOnSend = True
rest.IdleTimeoutMs = 60000 rest.IdleTimeoutMs = 60000
success = rest.SendReqSb("POST", "/api/integrations/verag", sbRequestBody) success = rest.SendReqSb("POST", "/api/integrations/verag", sbRequestBody)
Dim responseStatusCode = rest.ReadResponseHeader() Dim responseStatusCode = rest.ReadResponseHeader()
@@ -617,7 +616,7 @@ Public Class cATEZ_NCTS_IN
For i = 0 To 15 'Versuche den Header 16x abzufragen (funktioniert ab und zu nicht). For i = 0 To 15 'Versuche den Header 16x abzufragen (funktioniert ab und zu nicht).
responseStatusCode = rest.ReadResponseHeader() responseStatusCode = rest.ReadResponseHeader()
If responseStatusCode > 0 Then Exit For If responseStatusCode > 0 Then Exit For
Thread.Sleep(3000) Thread.Sleep(5000)
i = i + 1 i = i + 1
Next Next