From 8f14b22419a0e965c91f5698c7962f60f9dadd93 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 5 Mar 2026 13:26:59 +0100 Subject: [PATCH] relayhub --- .../Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb | 20 +++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb index af0f0f83..950438ea 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb +++ b/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