From 2b85d4ee8cbcd9576f2680aae7e69f9f9c13608c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 12 Sep 2023 22:19:17 +0200 Subject: [PATCH] atez --- .../Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb | 5 ++--- 1 file changed, 2 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 ab291b66..be2fcebc 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 @@ -606,10 +606,9 @@ Public Class cATEZ_NCTS_IN 'DEBUG-Mode -> no request will be sent! 'rest.DebugMode = True - rest.PercentDoneOnSend = True + 'rest.PercentDoneOnSend = True rest.IdleTimeoutMs = 60000 - success = rest.SendReqSb("POST", "/api/integrations/verag", sbRequestBody) 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). responseStatusCode = rest.ReadResponseHeader() If responseStatusCode > 0 Then Exit For - Thread.Sleep(3000) + Thread.Sleep(5000) i = i + 1 Next