Index: vhUnitTest/zTryout/LLA/DotNet/MaatwerkApi/Test.cls.xml
===================================================================
diff -u -r62309 -r62380
--- vhUnitTest/zTryout/LLA/DotNet/MaatwerkApi/Test.cls.xml	(.../Test.cls.xml)	(revision 62309)
+++ vhUnitTest/zTryout/LLA/DotNet/MaatwerkApi/Test.cls.xml	(.../Test.cls.xml)	(revision 62380)
@@ -6,6 +6,8 @@
 <Method name="aTest call dotnet maatwerk service geeft een bombol terug in json formaat">
 <Implementation><![CDATA[
 	Set HttpRequest = ##class(%Net.HttpRequest).%New()
+	
+	// OPGELET Locale service moet je voor deze test runnen dus voor inchecken de testnaam niet met test laten beginnen		
 	Set HttpRequest.Server = "localhost"
 	Set HttpRequest.ContentType = "application/json"
 	Set HttpRequest.ContentEncoding = "UTF-8"
@@ -20,9 +22,28 @@
 	#dim bombol As %Stream.GlobalBinary = HttpRequest.HttpResponse.Data
 	#dim stringbombol As TECH.String = bombol.Read()
 	Do ##class(Tools.Wlip).%New(43).String("stringbombol:"_stringbombol)
-	Do $$$AssertEquals(stringbombol,"{""halffabrikaten"":null,""kosten"":null,""probleemRapport"":""Dit is een test""}")
+	Do $$$AssertEquals(stringbombol,"{""Halffabrikaten"":null,""Kosten"":null,""ProbleemRapport"":""Dit is een test""}")
+	
+	#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = ..Parse(bombol)
+	Do ##class(Tools.Wlip).%New(43).ObjToText(MaatwerkDetails)
+	Do ##class(Tools.Wlip).%New(43).String("MaatwerkDetails.ProbleemRapport :"_MaatwerkDetails.ProbleemRapport_".")
+	Do $$$AssertEquals(MaatwerkDetails.Halffabrikaten.HalffabItems,"")
+	Do $$$AssertEquals(MaatwerkDetails.Kosten.KostItems,"")
+	Do $$$AssertEquals(MaatwerkDetails.ProbleemRapport, "Dit is een test")
 ]]></Implementation>
 </Method>
+
+<Method name="Parse">
+<FormalSpec>JSONStream:%Stream</FormalSpec>
+<ReturnType>vhUnitTest.TECH.JSON.Parser.ParseJSON.Main</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>
 </Class>