Anpassungen Relayhub (ATEZ)

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.3.9.3")>
-<Assembly: AssemblyFileVersion("1.3.9.3")>
+<Assembly: AssemblyVersion("1.3.9.4")>
+<Assembly: AssemblyFileVersion("1.3.9.4")>

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb

@@ -121,7 +121,18 @@ Public Class cRelayHub
 
                 ' Request-Objekt in JSON-String umwandeln
                 Dim jsonPayload As String = JsonConvert.SerializeObject(request)
-                MsgBox(jsonPayload)
+                '   MsgBox(jsonPayload)
+
+
+                ' Größe in Bytes
+                Dim payloadSizeBytes As Integer = System.Text.Encoding.UTF8.GetByteCount(jsonPayload)
+
+                ' Größe in Kilobytes (1 KB = 1024 Bytes)
+                Dim payloadSizeKb As Double = payloadSizeBytes / 1024.0
+
+                Console.WriteLine("📦 Größe des JSON-Payload:")
+                Console.WriteLine(payloadSizeBytes & " Bytes (" & Math.Round(payloadSizeKb, 2) & " KB)")
+
                 ' Anfrage senden
                 Dim response As Chilkat.HttpResponse = http.PostJson2(API_URL & "/job-orders/init", "application/json", jsonPayload)
 
@@ -152,12 +163,18 @@ Public Class cRelayHub
                     Case 400 To 499
                         result.Success = False
                         result.Message = "Client-Fehler"
-                        result.Details = response.BodyStr
+                        result.Message = "StatusCode: " & response.StatusCode
+                        result.Details = "StatusLine: " & response.StatusLine
+                        result.Details = "StatusText: " & response.StatusText
+                        result.Details = "BodyStr: " & response.BodyStr
 
                     Case 500 To 599
                         result.Success = False
                         result.Message = "Server-Fehler"
-                        result.Details = response.BodyStr
+                        result.Message = "StatusCode: " & response.StatusCode
+                        result.Details = "StatusLine: " & response.StatusLine
+                        result.Details = "StatusText: " & response.StatusText
+                        result.Details = "BodyStr: " & response.BodyStr
 
                     Case Else
                         result.Success = False

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb

@@ -1013,7 +1013,7 @@ Public Class cATEZ_NCTS_IN
         Next
 
         ncts.json &= jsonData.Emit()
-        Debug.WriteLine(jsonData.Emit())
+        Debug.WriteLine("jsonData.Emit: " & jsonData.Emit())
 
         Return success