From 093931e9faa0dc90b42c1588b84a7ff7e5938cca Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 12 Sep 2023 22:19:37 +0200 Subject: [PATCH] atez --- .../Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb index be2fcebc..5c742601 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb @@ -607,7 +607,7 @@ Public Class cATEZ_NCTS_IN 'rest.DebugMode = True 'rest.PercentDoneOnSend = True - rest.IdleTimeoutMs = 60000 + rest.IdleTimeoutMs = 5000 * 16 success = rest.SendReqSb("POST", "/api/integrations/verag", sbRequestBody) @@ -622,7 +622,7 @@ Public Class cATEZ_NCTS_IN If rest.ResponseStatusCode <> 200 Then MsgBox(rest.LastErrorText) - Return False + Return responseStatusCode & "-" & rest.ResponseStatusText End If End If @@ -641,7 +641,7 @@ Public Class cATEZ_NCTS_IN Dim jsonResultFailure As New Chilkat.JsonObject jsonResultFailure.LoadSb(sbResponseBody) jsonResultFailure.Emit() - failureDesc = jsonResultFailure.StringOf("code") & "-" & jsonResultFailure.StringOf("message") + failureDesc = "ATEZ: " & jsonResultFailure.StringOf("code") & "-" & jsonResultFailure.StringOf("message") Return failureDesc Else