vers rh

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb

@@ -144,7 +144,9 @@ Public Class cRelayHub
 
                 ' Anfrage senden
                 Dim response As Chilkat.HttpResponse = http.PostJson2(API_URL & "/job-orders/init", "application/json", jsonPayload)
+                MsgBox(jsonPayload)
 
+                Console.WriteLine(jsonPayload)
                 If http.LastMethodSuccess <> True Then
                     result.Success = False
                     result.StatusCode = 0
@@ -165,6 +167,7 @@ Public Class cRelayHub
                             result.Details = $"ID: {jobResponse.id}, Referenz: {jobResponse.referenceNo}"
                         Catch ex As Exception
                             result.Success = False
+                            result.StatusCode = 999
                             result.Message = "Antwort konnte nicht gelesen werden"
                             result.Details = ex.Message
                         End Try