relayhub

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb

@@ -133,6 +133,26 @@ Public Class cRelayHub
         End Function
 
         ' Public API: erstellt Job-Order mit 401-Retry
+        Public Shared Function getJSON(request As cRelayHubJobOrderRequest) As String
+            Dim result As New cRelayHubApiResult()
+            Try
+                Dim sanitized = Sanitize(request)
+                Dim settings As New JsonSerializerSettings With {
+                    .NullValueHandling = NullValueHandling.Ignore,
+                    .ContractResolver = New Newtonsoft.Json.Serialization.DefaultContractResolver With {
+                        .NamingStrategy = New Newtonsoft.Json.Serialization.CamelCaseNamingStrategy()
+                    }
+                }
+                Dim jsonPayload As String = JsonConvert.SerializeObject(sanitized, settings)
+                Console.WriteLine("JSON → " & jsonPayload)
+                Return JsonConvert.SerializeObject(request)
+
+
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                Return "Error"
+            End Try
+        End Function
         Public Shared Function query_declarations(request As cRelayHubJobOrderRequest) As cRelayHubApiResult
             Dim result As New cRelayHubApiResult()
             Try