Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml	(revision 0)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml	(revision 62771)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails">
+<Super>WSimpl.PM.Maatwerk.MaatwerkService.DotNet</Super>
+
+<Method name="GeefMaatwerkDetails">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,KlantID:DOM.VKP.VanHoeckeKlantID,Aantal:%Integer,ProductData:DOM.PM.dto.ProductData=""</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.MaatwerkDetails</ReturnType>
+<Implementation><![CDATA[
+	#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = ""
+	
+	Try {
+		#dim KenmerkenString As %String
+		#dim input As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ##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)
+		
+	 	Set HttpRequest = ##class(%Net.HttpRequest).%New()
+	 	Set HttpRequest.Server = ..GeefDotNetServerNaam()
+	 	Set HttpRequest.ContentType = "application/json"
+	 	Set HttpRequest.ContentEncoding = "UTF-8"
+	 	Set HttpRequest.Port = 443
+	 	Set HttpRequest.SSLConfiguration = "DotNet_MaatwerkCalculator"
+    	Set HttpRequest.Https = 1
+    	Do HttpRequest.EntityBody.CopyFrom(JSONStream)
+    	
+	    #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)
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+	
+	Quit MaatwerkDetails
+]]></Implementation>
+</Method>
+
+<Method name="Parse">
+<FormalSpec>JSONStream:%Stream</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.MaatwerkDetails</ReturnType>
+<Implementation><![CDATA[
+	#dim ObjectClassName As %String = ##class(APPS.PM.Maatwerk.dto.MaatwerkDetails).%ClassName(1)
+	#dim Object As APPS.PM.Maatwerk.dto.MaatwerkDetails
+	
+	Do JSONStream.Rewind()
+	Do ##class(TECH.JSON.Parser).ParseJSON(JSONStream,ObjectClassName,.Object)
+	
+	Quit Object
+]]></Implementation>
+</Method>
+
+<Method name="ObjectToJson">
+<FormalSpec>GeefProductRestRequest:zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim OutputJsonString As %String
+	
+	#dim ParseStatus As %Status = ##class(TECH.JSON.ParserIntersystemsVersion).ObjectToJSON(GeefProductRestRequest,,,.OutputJsonString)
+	
+	Quit OutputJsonString
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>