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:37 +02:00
parent 2b85d4ee8c
commit 093931e9fa
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -607,7 +607,7 @@ Public Class cATEZ_NCTS_IN
'rest.DebugMode = True 'rest.DebugMode = True
'rest.PercentDoneOnSend = True 'rest.PercentDoneOnSend = True
rest.IdleTimeoutMs = 60000 rest.IdleTimeoutMs = 5000 * 16
success = rest.SendReqSb("POST", "/api/integrations/verag", sbRequestBody) success = rest.SendReqSb("POST", "/api/integrations/verag", sbRequestBody)
@@ -622,7 +622,7 @@ Public Class cATEZ_NCTS_IN
If rest.ResponseStatusCode <> 200 Then If rest.ResponseStatusCode <> 200 Then
MsgBox(rest.LastErrorText) MsgBox(rest.LastErrorText)
Return False Return responseStatusCode & "-" & rest.ResponseStatusText
End If End If
End If End If
@@ -641,7 +641,7 @@ Public Class cATEZ_NCTS_IN
Dim jsonResultFailure As New Chilkat.JsonObject Dim jsonResultFailure As New Chilkat.JsonObject
jsonResultFailure.LoadSb(sbResponseBody) jsonResultFailure.LoadSb(sbResponseBody)
jsonResultFailure.Emit() jsonResultFailure.Emit()
failureDesc = jsonResultFailure.StringOf("code") & "-" & jsonResultFailure.StringOf("message") failureDesc = "ATEZ: " & jsonResultFailure.StringOf("code") & "-" & jsonResultFailure.StringOf("message")
Return failureDesc Return failureDesc
Else Else