Bugfix ATEZ und Digicust

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb

@@ -607,10 +607,29 @@ Public Class cATEZ_NCTS_IN
             'rest.DebugMode = True
 
             rest.PercentDoneOnSend = True
-            rest.IdleTimeoutMs = 30000
+            rest.IdleTimeoutMs = 60000
+
+
+            success = rest.SendReqSb("POST", "/api/integrations/verag", sbRequestBody)
+
+            Dim responseStatusCode = rest.ReadResponseHeader()
+            If (responseStatusCode < 0) Then
+                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)
+                    i = i + 1
+                Next
+
+                If rest.ResponseStatusCode <> 200 Then
+                    MsgBox(rest.LastErrorText)
+                    Return False
+                End If
+
+            End If
 
             Dim sbResponseBody As New Chilkat.StringBuilder
-            success = rest.FullRequestSb("POST", "/api/integrations/verag", sbRequestBody, sbResponseBody)
+            rest.ReadRespSb(sbResponseBody)
 
             If (rest.LastMethodSuccess <> True) Then
                 Debug.WriteLine(rest.LastErrorText)