Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser.cls.xml
===================================================================
diff -u -r62901 -r62916
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser.cls.xml	(.../MaatwerkDetailsFromJsonParser.cls.xml)	(revision 62901)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser.cls.xml	(.../MaatwerkDetailsFromJsonParser.cls.xml)	(revision 62916)
@@ -9,10 +9,32 @@
 <Implementation><![CDATA[
 	Set JSONStream = ..WijzigTypeNaarKlasseNaamInfo(JSONStream)
 	
-	Quit ..Parse(JSONStream)
+	Quit ..ParseJsonStreamNaarObject(JSONStream,##class(APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson).%ClassName(1))
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHalffabItemFromJson">
+<Description>
+Enkel subniveau van de HalffabItems. Momenteel alleen gebruikt om te Unittesten. </Description>
+<FormalSpec>JSONStream:%Stream</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson</ReturnType>
+<Implementation><![CDATA[
+	Set JSONStream = ..WijzigTypeNaarKlasseNaamInfo(JSONStream)
+	Quit ..ParseJsonStreamNaarObject(JSONStream,##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%ClassName(1))
+]]></Implementation>
+</Method>
+
+<Method name="GeefKostItemFromJson">
+<Description>
+Enkel subniveau van de KostItems. Momenteel alleen gebruikt om te Unittesten. </Description>
+<FormalSpec>JSONStream:%Stream</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.DotNet.KostItemParsedFromJson</ReturnType>
+<Implementation><![CDATA[
+	Set JSONStream = ..WijzigTypeNaarKlasseNaamInfo(JSONStream)
+	Quit ..ParseJsonStreamNaarObject(JSONStream,##class(APPS.PM.Maatwerk.dto.DotNet.KostItemParsedFromJson).%ClassName(1))
+]]></Implementation>
+</Method>
+
 <Method name="WijzigTypeNaarKlasseNaamInfo">
 <FormalSpec>JSONStream:%Stream</FormalSpec>
 <Private>1</Private>
@@ -27,17 +49,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Parse">
-<FormalSpec>JSONStream:%Stream</FormalSpec>
+<Method name="ParseJsonStreamNaarObject">
+<Description>
+Deze method kan best toegevoegd worden aan de klasse "TECH.JSON.Parser" </Description>
+<FormalSpec>JsonStream:%Stream,RootObjectClassname:%String</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson</ReturnType>
+<ReturnType>TECH.RegisteredObject</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
+	#dim Object As TECH.RegisteredObject = ""
 	
-	Do JSONStream.Rewind()
-	Do ##class(TECH.JSON.Parser).ParseJSON(JSONStream,ObjectClassName,.Object)
+	Do JsonStream.Rewind()
+	Do ##class(TECH.JSON.Parser).ParseJSON(JsonStream, RootObjectClassname, .Object)
 	
+	If $$$Not($IsObject(Object)) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("De method ParseJsonStreamNaarObject() heeft geen object opgeleverd voor klasse '"_RootObjectClassname_"' (JsonStream.length = '"_JsonStream.Size_"').")
+	}
+	
 	Quit Object
 ]]></Implementation>
 </Method>