Index: vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter/GeefHalffabItemsBoom/Test.cls.xml	(revision 63163)
@@ -0,0 +1,122 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter.GeefHalffabItemsBoom.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestStandaardHalffabItem">
+<Implementation><![CDATA[
+	// Assign 
+	Set Halffabrikaten = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set Halffabrikaten.KlasseNaamInfo = "StandaardHalffabItem"
+	Set Halffabrikaten.Rol = "UT_Rol1"
+	
+	// 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")
+	// kunnen nog meer properties controleren ...
+]]></Implementation>
+</Method>
+
+<Method name="Test SamengesteldHalffabItem met 1 niveau">
+<Implementation><![CDATA[
+	// Assign 
+	Set Halffabrikaten = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set Halffabrikaten.KlasseNaamInfo = "SamengesteldHalffabItem"
+	Set Halffabrikaten.Rol = "HF_Sam"
+
+	Set HalffabItemStd1 = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set HalffabItemStd1.KlasseNaamInfo = "StandaardHalffabItem"
+	Set HalffabItemStd1.Rol = "HF_Std1"
+	
+	Do Halffabrikaten.HalffabItems.Insert(HalffabItemStd1)
+	
+	// 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 SamengesteldHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HalffabItemsBoom.Wortel
+	Do $$$AssertEquals(SamengesteldHalffabItem.%ClassName($$$True), "DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")
+	Do $$$AssertEquals(SamengesteldHalffabItem.GeefRol(), "HF_Sam")
+	
+	If $$$AssertEquals(SamengesteldHalffabItem.HalffabItems.Count(), 1) {
+		#dim TeControlerenHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = SamengesteldHalffabItem.HalffabItems.GetAt(1)
+		Do $$$AssertEquals(TeControlerenHalffabItem.%ClassName($$$True), "DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem")
+		Do $$$AssertEquals(TeControlerenHalffabItem.GeefRol(), "HF_Std1")
+		Do $$$AssertEquals(TeControlerenHalffabItem.ParentItem, SamengesteldHalffabItem )
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test SamengesteldHalffabItem met meerdere niveaus">
+<Implementation><![CDATA[
+	// Assign 
+	Set Halffabrikaten = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set Halffabrikaten.KlasseNaamInfo = "SamengesteldHalffabItem"
+	Set Halffabrikaten.Rol = "HF_Sam"
+
+	Set HalffabItemSamSub = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set HalffabItemSamSub.KlasseNaamInfo = "SamengesteldHalffabItem"
+	Set HalffabItemSamSub.Rol = "HF_SamSub"
+
+	Set HalffabItemStd1 = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set HalffabItemStd1.KlasseNaamInfo = "StandaardHalffabItem"
+	Set HalffabItemStd1.Rol = "HF_Std1"
+
+	Set HalffabItemStd2 = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set HalffabItemStd2.KlasseNaamInfo = "StandaardHalffabItem"
+	Set HalffabItemStd2.Rol = "HF_Std2"
+	
+	Set HalffabItemStd3 = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson).%New()
+	Set HalffabItemStd3.KlasseNaamInfo = "StandaardHalffabItem"
+	Set HalffabItemStd3.Rol = "HF_Std3"
+	
+	Do HalffabItemSamSub.HalffabItems.Insert(HalffabItemStd1)
+	Do HalffabItemSamSub.HalffabItems.Insert(HalffabItemStd2)
+	
+	Do Halffabrikaten.HalffabItems.Insert(HalffabItemStd3)
+	Do Halffabrikaten.HalffabItems.Insert(HalffabItemSamSub)
+	
+	// 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 SamengesteldHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HalffabItemsBoom.Wortel
+	Do $$$AssertEquals(SamengesteldHalffabItem.%ClassName($$$True), "DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")
+	Do $$$AssertEquals(SamengesteldHalffabItem.GeefRol(), "HF_Sam")
+	
+	If $$$AssertEquals(SamengesteldHalffabItem.HalffabItems.Count(), 2) {
+		#dim TeControlerenHalffabItem3 As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = SamengesteldHalffabItem.HalffabItems.GetAt(1)
+		Do $$$AssertEquals(TeControlerenHalffabItem3.%ClassName($$$True), "DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem")
+		Do $$$AssertEquals(TeControlerenHalffabItem3.GeefRol(), "HF_Std3")
+		Do $$$AssertEquals(TeControlerenHalffabItem3.ParentItem, SamengesteldHalffabItem )
+		
+		#dim SamengesteldSubHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = SamengesteldHalffabItem.HalffabItems.GetAt(2)
+		Do $$$AssertEquals(SamengesteldSubHalffabItem.%ClassName($$$True), "DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")
+		Do $$$AssertEquals(SamengesteldSubHalffabItem.GeefRol(), "HF_SamSub")
+		Do $$$AssertEquals(SamengesteldSubHalffabItem.ParentItem, SamengesteldHalffabItem )
+		
+		If $$$AssertEquals(SamengesteldSubHalffabItem.HalffabItems.Count(), 2) {
+			#dim TeControlerenHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = SamengesteldSubHalffabItem.HalffabItems.GetAt(1)
+			Do $$$AssertEquals(TeControlerenHalffabItem.%ClassName($$$True), "DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem")
+			Do $$$AssertEquals(TeControlerenHalffabItem.GeefRol(), "HF_Std1")
+			Do $$$AssertEquals(TeControlerenHalffabItem.ParentItem, SamengesteldSubHalffabItem )
+			
+			#dim TeControlerenHalffabItem2 As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = SamengesteldSubHalffabItem.HalffabItems.GetAt(2)
+			Do $$$AssertEquals(TeControlerenHalffabItem2.%ClassName($$$True), "DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem")
+			Do $$$AssertEquals(TeControlerenHalffabItem2.GeefRol(), "HF_Std2")
+			Do $$$AssertEquals(TeControlerenHalffabItem2.ParentItem, SamengesteldSubHalffabItem )
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>