Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml =================================================================== diff -u -r62771 -r62772 --- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml (.../GeefMaatwerkDetails.cls.xml) (revision 62771) +++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml (.../GeefMaatwerkDetails.cls.xml) (revision 62772) @@ -11,13 +11,13 @@ Try { #dim KenmerkenString As %String - #dim input As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails.ProductRestRequest).%New() + #dim input As WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails.ProductRestRequest = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails.ProductRestRequest).%New() Set input.Aantal = Aantal Set input.IngegevenKenmerken = IngegevenKenmerken Set input.KlantID = KlantID Set input.ProductData = ProductData - Do ##class(Tools.Wlip).%New(110).ObjToText(IngegevenKenmerken) + Set KenmerkenString = ..ObjectToJson(input) #dim JSONStream = ##class(%Stream.GlobalBinary).%New() Do JSONStream.Write(KenmerkenString) @@ -33,9 +33,8 @@ #dim StatusCode As %Status = HttpRequest.Get("/api/RestApiTest/RequestMetBody",0) #dim bombol As %Stream.GlobalBinary = HttpRequest.HttpResponse.Data - Do ##class(Tools.Wlip).%New(110).String("Statuscode: "_StatusCode) + Set MaatwerkDetails = ..Parse(bombol) - } Catch { #dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() #dim Logger = ##class(vhLib.Logger).%New("BOMBOL via DotNet niet gelukt").ErrorMail("BOMBOL via DotNet niet gelukt. HttpResponse Statuscode: "_HttpRequest.HttpResponse.StatusCode) @@ -62,7 +61,7 @@ -GeefProductRestRequest:zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest +GeefProductRestRequest:WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails.ProductRestRequest %String