Index: vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser/GeefMaatwerkDetails/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser/GeefMaatwerkDetails/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser/GeefMaatwerkDetails/Test.cls.xml	(revision 62901)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonParser.GeefMaatwerkDetails.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Test lege halffabrikaten en kosten">
+<Implementation><![CDATA[
+	#dim JsonInput As %String = "{     ""$type"": ""MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom"",     ""Halffabrikaten"": null,     ""Kosten"": null,     ""ProbleemRapport"": ""TestRapport"" }"
+	#dim JsonStream = ##class(%Stream.GlobalBinary).%New()
+	Do JsonStream.Write(JsonInput)
+	
+	Set Parser = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonParser).%New()
+	#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = Parser.GeefMaatwerkDetailsFromJson(JsonStream)
+	
+	If ($$$AssertTrue($IsObject(MaatwerkDetails)))
+	{
+		Do $$$AssertEquals(MaatwerkDetails.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson")
+		Do $$$AssertEquals(MaatwerkDetails.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom")
+		Do $$$AssertEquals(MaatwerkDetails.ProbleemRapport,"TestRapport")
+	}
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method GeefJsonInput01() As %String [ CodeMode = expression ]
+{
+"{     ""$type"": ""MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom"",     ""Halffabrikaten"": null,     ""Kosten"": null,     ""ProbleemRapport"": ""TestRapport"" }"
+}
+*/
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Test met 1 standaardhalffabrikaat zonder kosten"()
+{
+	#dim JsonInput As %String = "{     ""$type"": ""MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom"",     ""Halffabrikaten"": null,     ""Kosten"": null,     ""ProbleemRapport"": ""TestRapport"" }"
+	#dim JsonStream = ##class(%Stream.GlobalBinary).%New()
+	Do JsonStream.Write(JsonInput)
+	
+	Set Parser = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonParser).%New()
+	#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = Parser.GeefMaatwerkDetailsFromJson(JsonStream)
+	
+	If ($$$AssertTrue($IsObject(MaatwerkDetails)))
+	{
+		Do $$$AssertEquals(MaatwerkDetails.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson")
+		Do $$$AssertEquals(MaatwerkDetails.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.dto.MaatwerkDetails, MaatwerkCalculator.Dom")
+		Do $$$AssertEquals(MaatwerkDetails.ProbleemRapport,"TestRapport")
+	}
+}
+*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>
Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser.cls.xml	(revision 0)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser.cls.xml	(revision 62901)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonParser">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefMaatwerkDetailsFromJson">
+<FormalSpec>JSONStream:%Stream</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson</ReturnType>
+<Implementation><![CDATA[
+	Set JSONStream = ..WijzigTypeNaarKlasseNaamInfo(JSONStream)
+	
+	Quit ..Parse(JSONStream)
+]]></Implementation>
+</Method>
+
+<Method name="WijzigTypeNaarKlasseNaamInfo">
+<FormalSpec>JSONStream:%Stream</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Stream</ReturnType>
+<Implementation><![CDATA[
+	#dim From As %String = "$type"
+	#dim To As %String = "KlasseNaamInfo"
+	
+	Do ##class(TECH.StreamUtils).Replace(JSONStream,From,To)
+	
+	Quit JSONStream
+]]></Implementation>
+</Method>
+
+<Method name="Parse">
+<FormalSpec>JSONStream:%Stream</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson</ReturnType>
+<Implementation><![CDATA[
+	#dim ObjectClassName As %String = ##class(APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson).%ClassName(1)
+	#dim Object As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson
+	
+	Do JSONStream.Rewind()
+	Do ##class(TECH.JSON.Parser).ParseJSON(JSONStream,ObjectClassName,.Object)
+	
+	Quit Object
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>