diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index e1fbd712..78a3d88c 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb index 48640d1b..d8100ade 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb +++ b/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