Fehlerhandling ATEZ bei not receivedResponseHeader verbessert., Digicust API erweitert.

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb

@@ -581,7 +581,6 @@ Public Class cATEZ_NCTS_IN
             Dim rest As New Chilkat.Rest
             Dim success As Boolean
 
-
             Dim bTls As Boolean = True
             Dim port As Integer = 443
             Dim bAutoReconnect As Boolean = True
@@ -608,6 +607,7 @@ Public Class cATEZ_NCTS_IN
 
             'rest.PercentDoneOnSend = True
             rest.IdleTimeoutMs = 5000 * 16
+            rest.VerboseLogging = True
 
             success = rest.SendReqSb("POST", "/api/integrations/verag", sbRequestBody)
 
@@ -621,8 +621,12 @@ Public Class cATEZ_NCTS_IN
                 Next
 
                 If rest.ResponseStatusCode <> 200 Then
+                    If responseStatusCode = -1 Then
+                        Return responseStatusCode
+                    End If
                     MsgBox(rest.LastErrorText)
-                    Return responseStatusCode & "-" & rest.ResponseStatusText
+                    failureDesc = responseStatusCode & "-" & rest.ResponseStatusText
+                    Return failureDesc
                 End If
 
             End If
@@ -691,7 +695,6 @@ Public Class cATEZ_NCTS_IN
         success = jsonData.UpdateString("Guarantee.GRN", ncts.Guarantee_GRN)
 
 
-
         Dim Route_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen)
         VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen.LOAD_LIST_ByNCTS(Route_LIST, ncts.Id)