Index: vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml
===================================================================
diff -u -r63163 -r63250
--- vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml	(.../Test.cls.xml)	(revision 63163)
+++ vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml	(.../Test.cls.xml)	(revision 63250)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter.GeefHalffabItemsBoom.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="TestStandaardHalffabItem">
+<Method name="Test StandaardHalffabItem zonder Halffab">
 <Implementation><![CDATA[
 	// Assign 
 	Set Halffabrikaten = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
@@ -22,6 +22,79 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test StandaardHalffabItem MET Halffab, zonder SelectieKenmerken">
+<Implementation><![CDATA[
+	// Assign 
+	Set Halffabrikaten = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set Halffabrikaten.KlasseNaamInfo = "StandaardHalffabItem"
+	Set Halffabrikaten.Rol = "UT_Rol1"
+	Set Halffabrikaten.Halffab = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson).%New()
+	Set Halffabrikaten.Halffab.KlasseNaamInfo = "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.Halffab, MaatwerkCalculator.Dom"
+	Set Halffabrikaten.Halffab.Klassenaam = "Halffab"
+	Set Halffabrikaten.Halffab.ProductID = "2617804"
+	Set Halffabrikaten.Halffab.Klantbeperking = "UT_KlantNummer"
+	Set Halffabrikaten.Halffab.GemaaktVoorKenmerkenSetID = "UT_KenmSetId"
+	Set Halffabrikaten.Halffab.SelectieKenmerken = ##class(%ArrayOfDataTypes).%New()    ; Lege array 
+	
+	// Act 
+	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Converter.GeefHalffabItemsBoom(Halffabrikaten)
+	
+	// Assert 
+	#dim TeControlerenHalffabItem As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = HalffabItemsBoom.Wortel
+	Do $$$AssertEquals(TeControlerenHalffabItem.%ClassName($$$True), "DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem")
+	Do $$$AssertEquals(TeControlerenHalffabItem.GeefRol(), "UT_Rol1")
+	
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = TeControlerenHalffabItem.GeefHalffab()
+	If $$$AssertTrue($IsObject(Halffab)) {
+		Do $$$AssertEquals(Halffab.%ClassName($$$True), "DOM.PM.Maatwerk.Calc.HF.Halffab")
+		Do $$$AssertEquals(Halffab.ProductID, "2617804")
+		Do $$$AssertEquals(Halffab.Klantbeperking, "UT_KlantNummer")
+		Do $$$AssertEquals(Halffab.GemaaktVoorKenmerkenSetID, "UT_KenmSetId")
+		// kunnen nog meer properties controleren ...
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test StandaardHalffabItem MET Halffab MET SelectieKenmerken">
+<Implementation><![CDATA[
+	// Assign 
+	Set Halffabrikaten = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set Halffabrikaten.KlasseNaamInfo = "StandaardHalffabItem"
+	Set Halffabrikaten.Rol = "UT_Rol1"
+	Set Halffabrikaten.Halffab = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson).%New()
+	Set Halffabrikaten.Halffab.KlasseNaamInfo = "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.Halffab, MaatwerkCalculator.Dom"
+	Set Halffabrikaten.Halffab.Klassenaam = "MVX_HalffabBodem"
+	Set Halffabrikaten.Halffab.ProductID = "2617805"
+	Set SelectieKenmerken = ##class(%ArrayOfDataTypes).%New()
+	Do SelectieKenmerken.SetAt("Dummy_From_DotNET_System.Collections.Generic.Dictionary", "KlasseNaamInfo")
+	Do SelectieKenmerken.SetAt("Lengte", "BewerkbaarOp")
+	Do SelectieKenmerken.SetAt("500", "LadeDiepte")
+	Do SelectieKenmerken.SetAt("OG", "BodemKleur")
+	Do SelectieKenmerken.SetAt("Hout","RugwandMateriaal")
+	Set Halffabrikaten.Halffab.SelectieKenmerken = SelectieKenmerken
+	
+	// Act 
+	Set Converter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter).%New()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Converter.GeefHalffabItemsBoom(Halffabrikaten)
+	
+	// Assert 
+	#dim TeControlerenHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsBoom.Wortel
+	Do $$$AssertEquals(TeControlerenHalffabItem.%ClassName($$$True), "DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem")
+	Do $$$AssertEquals(TeControlerenHalffabItem.GeefRol(), "UT_Rol1")
+	
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.impl.MVX.Halffab.HalffabBodem = TeControlerenHalffabItem.GeefHalffab()
+	If $$$AssertTrue($IsObject(Halffab)) {
+		Do $$$AssertEquals(Halffab.%ClassName($$$True), "DOM.PM.Maatwerk.Calc.HF.impl.MVX.Halffab.HalffabBodem")
+		Do $$$AssertEquals(Halffab.BewerkbaarOp,        "Lengte")
+		Do $$$AssertEquals(Halffab.LadeDiepte,          "500")
+		Do $$$AssertEquals(Halffab.BodemKleur,          "OG")
+		Do $$$AssertEquals(Halffab.RugWandMateriaal,    "Hout")
+		Do $$$AssertEquals(Halffab.ProductID,           "2617805")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Test SamengesteldHalffabItem met 1 niveau">
 <Implementation><![CDATA[
 	// Assign 
Index: vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser/GeefMaatwerkDetails/Test.cls.xml
===================================================================
diff -u -r63236 -r63250
--- vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser/GeefMaatwerkDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 63236)
+++ vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonParser/GeefMaatwerkDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 63250)
@@ -36,14 +36,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Assign: Subniveau halffabItem parsen">
+<Method name="Assign: Subniveau halffabItem parsen zonder Halffab-data">
 <Description>
 /* ====================================================================================================================== */ 
 </Description>
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-RoutineLabel02  /* 
+RoutineLabel02a  /* 
 {	
 	"$type": "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.StandaardHalffabItem, MaatwerkCalculator.Dom",
 	"OmschrijvingVoorDocs": null,
@@ -63,9 +63,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Subniveau halffabItem parsen">
+<Method name="Test: Subniveau halffabItem parsen zonder Halffab-data">
 <Implementation><![CDATA[
-	#dim JsonStream As %Stream = ..GeefStream("RoutineLabel02")
+	#dim JsonStream As %Stream = ..GeefStream("RoutineLabel02a")
 	
 	Set Parser = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonParser).%New()
 	#dim HalffabItem As APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson = Parser.GeefHalffabItemFromJson(JsonStream)
@@ -78,10 +78,128 @@
 			Do $$$AssertEquals(HalffabItem.ProductData.Id,   "2617803")
 			Do $$$AssertEquals(HalffabItem.ProductData.Code, "Korttekst_2617803")
 		}
+		Do $$$AssertFalse($IsObject(HalffabItem.Halffab))
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="Assign: Subniveau halffabItem parsen MET Halffab, zonder SelectieKenmerken">
+<Description>
+/* ====================================================================================================================== */ 
+</Description>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+RoutineLabel02b  /* 
+{	
+	"$type": "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.StandaardHalffabItem, MaatwerkCalculator.Dom",
+	"Halffab": {
+		"$type": "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.Halffab, MaatwerkCalculator.Dom",
+		"Klassenaam": "Halffab",
+		"ProductID": "2617804",
+		"Klantbeperking": "UT_KlantNummer",
+		"GeldigVan": null,
+		"GeldigTot": null,
+		"GemaaktVoorKenmerkenSetID": "UT_KenmSetId",
+		"SelectieKenmerken": null
+	},
+	"Rol": "FrontBevestigingOnder",
+	"OpnemenInEindproduct": true
+}
+*/
+]]></Implementation>
+</Method>
+
+<Method name="Test: Subniveau halffabItem parsen MET Halffab, zonder SelectieKenmerken">
+<Implementation><![CDATA[
+	#dim JsonStream As %Stream = ..GeefStream("RoutineLabel02b")
+	
+	Set Parser = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonParser).%New()
+	#dim HalffabItem As APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson = Parser.GeefHalffabItemFromJson(JsonStream)
+	
+	If ($$$AssertTrue($IsObject(HalffabItem))) {
+		Do $$$AssertEquals(HalffabItem.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson")
+		Do $$$AssertEquals(HalffabItem.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.StandaardHalffabItem, MaatwerkCalculator.Dom")
+
+		#dim Halffab As APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson = HalffabItem.Halffab
+		If $$$AssertTrue($IsObject(Halffab)) {
+			Do $$$AssertEquals(Halffab.KlasseNaamInfo, "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.Halffab, MaatwerkCalculator.Dom")
+			Do $$$AssertEquals(Halffab.Klassenaam, "Halffab")
+			Do $$$AssertEquals(Halffab.ProductID, "2617804")
+			Do $$$AssertEquals(Halffab.Klantbeperking, "UT_KlantNummer")
+			Do $$$AssertEquals(Halffab.GeldigVan, "")
+			Do $$$AssertEquals(Halffab.GeldigTot, "")
+			Do $$$AssertEquals(Halffab.GemaaktVoorKenmerkenSetID, "UT_KenmSetId")
+			Do $$$AssertEquals(Halffab.SelectieKenmerken.Count(), 0)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Assign: Subniveau halffabItem parsen MET Halffab MET SelectieKenmerken">
+<Description>
+/* ====================================================================================================================== */ 
+</Description>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+RoutineLabel02c  /* 
+{	
+	"$type": "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.StandaardHalffabItem, MaatwerkCalculator.Dom",
+	"Halffab": {
+		"$type": "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.Halffab, MaatwerkCalculator.Dom",
+		"Klassenaam": "MVX_HalffabBodem",
+		"ProductID": "2617805",
+		"Klantbeperking": null,
+		"GeldigVan": null,
+		"GeldigTot": null,
+		"GemaaktVoorKenmerkenSetID": null,
+		"SelectieKenmerken": {
+			"$type": "System.Collections.Generic.Dictionary`2[[System.String, System.Private.CoreLib],[System.String, System.Private.CoreLib]], System.Private.CoreLib",
+			"BewerkbaarOp": "Lengte",
+			"LadeDiepte": "500",
+			"BodemKleur": "OG",
+			"RugwandMateriaal": "Hout"
+		}
+	},
+	"Rol": "FrontBevestigingOnder",
+	"OpnemenInEindproduct": true
+}
+*/
+]]></Implementation>
+</Method>
+
+<Method name="Test: Subniveau halffabItem parsen MET Halffab MET SelectieKenmerken">
+<Implementation><![CDATA[
+	#dim JsonStream As %Stream = ..GeefStream("RoutineLabel02c")
+	
+	Set Parser = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.MaatwerkDetailsFromJsonParser).%New()
+	#dim HalffabItem As APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson = Parser.GeefHalffabItemFromJson(JsonStream)
+	
+	If ($$$AssertTrue($IsObject(HalffabItem))) {
+		Do $$$AssertEquals(HalffabItem.%ClassName($$$True),"APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson")
+		Do $$$AssertEquals(HalffabItem.KlasseNaamInfo,"MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.StandaardHalffabItem, MaatwerkCalculator.Dom")
+
+		#dim Halffab As APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson = HalffabItem.Halffab
+		If $$$AssertTrue($IsObject(Halffab)) {
+			Do $$$AssertEquals(Halffab.KlasseNaamInfo, "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.Halffab, MaatwerkCalculator.Dom")
+			Do $$$AssertEquals(Halffab.Klassenaam, "MVX_HalffabBodem")
+			Do $$$AssertEquals(Halffab.ProductID, "2617805")
+			#dim SelectieKenmerken As %ArrayOfDataTypes = Halffab.SelectieKenmerken
+			If $$$AssertEquals(SelectieKenmerken.Count(), 5) {
+				Do $$$AssertEquals(SelectieKenmerken.GetAt("KlasseNaamInfo"), "System.Collections.Generic.Dictionary`2[[System.String, System.Private.CoreLib],[System.String, System.Private.CoreLib]], System.Private.CoreLib")   ; Deze is eigenlijk niet relevant. 
+				Do $$$AssertEquals(SelectieKenmerken.GetAt("BewerkbaarOp"), "Lengte")
+				Do $$$AssertEquals(SelectieKenmerken.GetAt("LadeDiepte"), "500")
+				Do $$$AssertEquals(SelectieKenmerken.GetAt("BodemKleur"), "OG")
+				Do $$$AssertEquals(SelectieKenmerken.GetAt("RugwandMateriaal"), "Hout")
+
+				Do $$$AssertEquals(SelectieKenmerken.GetAt("$type"), "")   ; $type werd vervangen door "KlasseNaamInfo"
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Assign: Subniveau KostItem (1 niveau) parsen">
 <Description>
 /* ====================================================================================================================== */