Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml
===================================================================
diff -u -r29728 -r30379
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml	(.../HFLadeZijkantv001.cls.xml)	(revision 29728)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFLadeZijkantv001.cls.xml	(.../HFLadeZijkantv001.cls.xml)	(revision 30379)
@@ -5,47 +5,9 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TBX.TestHalffabBuilderBase</Super>
 
-<Method name="VulHalffabTabel">
-<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
-<Implementation><![CDATA[
-	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabLadeZijkant).%New(457010)
-	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
-	Set Halffab.ZijkantDesign = "S"
-	Set Halffab.LadeDiepte = 500
-	Set Halffab.Draagkracht = 30
-	Set Halffab.ZijkantKleur = "MG"
-	Set Halffab.ZijkantHoogte = "M"
-	Set Halffab.Uittrekbaarheid = "V"
-	Set Halffab.LiRe = "LI+RE"
-	Do HalffabTabel.VoegToeHalffab(Halffab)
-	
-	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabLadeZijkant).%New(1168398)
-	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
-	Set Halffab.ZijkantDesign = "S"
-	Set Halffab.LadeDiepte = 450
-	Set Halffab.Draagkracht = 30
-	Set Halffab.ZijkantKleur = "MG"
-	Set Halffab.ZijkantHoogte = "M"
-	Set Halffab.Uittrekbaarheid = "V"
-	Set Halffab.LiRe = "LI"
-	Do HalffabTabel.VoegToeHalffab(Halffab)
-	
-	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabLadeZijkant).%New(1168405)
-	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
-	Set Halffab.ZijkantDesign = "S"
-	Set Halffab.LadeDiepte = 450
-	Set Halffab.Draagkracht = 30
-	Set Halffab.ZijkantKleur = "MG"
-	Set Halffab.ZijkantHoogte = "M"
-	Set Halffab.Uittrekbaarheid = "V"
-	Set Halffab.LiRe = "RE"
-	Do HalffabTabel.VoegToeHalffab(Halffab)
-]]></Implementation>
-</Method>
-
 <Method name="TestZijkantInbegrepen">
 <Implementation><![CDATA[
-	Set Context = ..GeefContext(,##class(DOM.PM.enu.LadeVariant).TBXPlus())
+	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext(,##class(DOM.PM.enu.LadeVariant).TBXPlus())
 	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
 	Set IngegevenKenmerken.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
 	Set IngegevenKenmerken.ZijkantDesign = "S"
@@ -57,22 +19,20 @@
 
 	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFLadeZijkantv001).%New("")
 
-	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	Do $$$AssertEquals(HalffabItem.GeefAantalHalffabItems(),2,"HalffabItem bevat 2 SubItems")
+
+	#dim HFItemLI As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem("Links")
+	Do $$$AssertEquals(HFItemLI.GeefHalffab().GeefProductID(),1001)
 	
-	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
-	Set HFItemLI=HalffabItem.HalffabItems.GetAt("Links")
-	Set HFItemRE=HalffabItem.HalffabItems.GetAt("Rechts")
-	Do $$$AssertEquals(HalffabItem.HalffabItems.Count(),2,"HalffabItem bevat 2 SubItems")
-	Do $$$AssertTrue($IsObject(HFItemLI),"HalffabItem heeft een halffab")
-	Do $$$AssertTrue($IsObject(HFItemRE),"HalffabItem heeft een halffab")
-	Do $$$AssertEquals(HFItemLI.GeefHalffab().GeefProductID(),457010,"Halffab UnID voor Ladezijkant LI")
+	#dim HFItemRE As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem("Rechts")
 	Do $$$AssertTrue(HFItemRE.%IsA("DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem"),"HalffabItem voor Ladezijkant RE is een 'InbegrepenHalffabItem'")
 ]]></Implementation>
 </Method>
 
 <Method name="TestZijkantLinksRechts">
 <Implementation><![CDATA[
-	Set Context = ..GeefContext(,##class(DOM.PM.enu.LadeVariant).TBXPlus())
+	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext(,##class(DOM.PM.enu.LadeVariant).TBXPlus())
 	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
 	Set IngegevenKenmerken.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
 	Set IngegevenKenmerken.ZijkantDesign = "S"
@@ -84,18 +44,55 @@
 
 	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFLadeZijkantv001).%New("")
 
-	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	Do $$$AssertEquals(HalffabItem.GeefAantalHalffabItems(),2,"HalffabItem bevat 2 SubItems")
+
+	#dim HFItemLI As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem("Links")
+	Do $$$AssertEquals(HFItemLI.GeefHalffab().GeefProductID(),1002)
 	
-	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
-	Set HFItemLI=HalffabItem.HalffabItems.GetAt("Links")
-	Set HFItemRE=HalffabItem.HalffabItems.GetAt("Rechts")
-	Do $$$AssertEquals(HalffabItem.HalffabItems.Count(),2,"HalffabItem bevat 2 SubItems")
-	Do $$$AssertTrue($IsObject(HFItemLI),"HalffabItem heeft een halffab")
-	Do $$$AssertTrue($IsObject(HFItemRE),"HalffabItem heeft een halffab")
-	Do $$$AssertEquals(HFItemLI.GeefHalffab().GeefProductID(),1168398,"Halffab UnID voor Ladezijkant LI")
-	Do $$$AssertEquals(HFItemRE.GeefHalffab().GeefProductID(),1168405,"Halffab UnID voor Ladezijkant RE")
+	#dim HFItemRE As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem("Rechts")
+	Do $$$AssertEquals(HFItemRE.GeefHalffab().GeefProductID(),1003)
 ]]></Implementation>
 </Method>
+
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabLadeZijkant).%New(1001)
+	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
+	Set Halffab.ZijkantDesign = "S"
+	Set Halffab.LadeDiepte = 500
+	Set Halffab.Draagkracht = 30
+	Set Halffab.ZijkantKleur = "MG"
+	Set Halffab.ZijkantHoogte = "M"
+	Set Halffab.Uittrekbaarheid = "V"
+	Set Halffab.LiRe = "LI+RE"
+	Do HalffabTabel.VoegToeHalffab(Halffab)
+	
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabLadeZijkant).%New(1002)
+	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
+	Set Halffab.ZijkantDesign = "S"
+	Set Halffab.LadeDiepte = 450
+	Set Halffab.Draagkracht = 30
+	Set Halffab.ZijkantKleur = "MG"
+	Set Halffab.ZijkantHoogte = "M"
+	Set Halffab.Uittrekbaarheid = "V"
+	Set Halffab.LiRe = "LI"
+	Do HalffabTabel.VoegToeHalffab(Halffab)
+	
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabLadeZijkant).%New(1003)
+	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
+	Set Halffab.ZijkantDesign = "S"
+	Set Halffab.LadeDiepte = 450
+	Set Halffab.Draagkracht = 30
+	Set Halffab.ZijkantKleur = "MG"
+	Set Halffab.ZijkantHoogte = "M"
+	Set Halffab.Uittrekbaarheid = "V"
+	Set Halffab.LiRe = "RE"
+	Do HalffabTabel.VoegToeHalffab(Halffab)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFProfielv001.cls.xml
===================================================================
diff -u -r29059 -r30379
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFProfielv001.cls.xml	(.../HFProfielv001.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFProfielv001.cls.xml	(.../HFProfielv001.cls.xml)	(revision 30379)
@@ -26,45 +26,42 @@
 
 <Method name="TestProfielPSV">
 <Implementation><![CDATA[
-	Set Context = ..GeefContext()
+	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext()
 	
 	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken).%New()
 	Set IngegevenKenmerken.ProfielType="PSV"
 	Set IngegevenKenmerken.ProfielAfwerking="EV"
 	
 	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HFProfielv001).%New("")
-	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
-	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
-	Do $$$AssertTrue($IsObject(HalffabItem.HalffabItems),"HalffabItem heeft een halffab")
-	Set HalffabItems=HalffabItem.HalffabItems
-	Do $$$AssertEquals(HalffabItems.GetAt("Links").GeefHalffab().GeefProductID(),254167,"Halffab UnID voor Smal Prof Links")
-	Do $$$AssertEquals(HalffabItems.GetAt("Rechts").GeefHalffab().GeefProductID(),254167,"Halffab UnID voor Smal Prof Rechts")
-	Do $$$AssertEquals(HalffabItems.GetAt("Boven").GeefHalffab().GeefProductID(),254167,"Halffab UnID voor Smal Prof Boven")
-	Do $$$AssertEquals(HalffabItems.GetAt("Onder").GeefHalffab().GeefProductID(),254167,"Halffab UnID voor Smal Prof Onder")
-
+	if $$$AssertTrue($IsObject(HalffabItem)) && $$$AssertTrue(HalffabItem.HeeftHalffabItems(),"HalffabItem heeft een halffab") {
+		Do $$$AssertEquals(HalffabItem.GeefHalffabItem("Links").GeefHalffab().GeefProductID(),254167,"Halffab UnID voor Smal Prof Links")
+		Do $$$AssertEquals(HalffabItem.GeefHalffabItem("Rechts").GeefHalffab().GeefProductID(),254167,"Halffab UnID voor Smal Prof Rechts")
+		Do $$$AssertEquals(HalffabItem.GeefHalffabItem("Boven").GeefHalffab().GeefProductID(),254167,"Halffab UnID voor Smal Prof Boven")
+		Do $$$AssertEquals(HalffabItem.GeefHalffabItem("Onder").GeefHalffab().GeefProductID(),254167,"Halffab UnID voor Smal Prof Onder")
+	}
 	Quit
 ]]></Implementation>
 </Method>
 
 <Method name="TestProfielPBG">
 <Implementation><![CDATA[
-	Set Context = ..GeefContext()
+	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext  = ..GeefContext()
 	
 	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken).%New()
 	Set IngegevenKenmerken.ProfielType="PBG"
 	Set IngegevenKenmerken.ProfielAfwerking="EV"
 	
 	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HFProfielv001).%New("")
-	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
-	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
-	Do $$$AssertTrue($IsObject(HalffabItem.HalffabItems),"HalffabItem heeft een halffab")
-	Set HalffabItems=HalffabItem.HalffabItems
-	Do $$$AssertEquals(HalffabItems.GetAt("Links").GeefHalffab().GeefProductID(),254150,"Halffab UnID voor Breed Prof Links")
-	Do $$$AssertEquals(HalffabItems.GetAt("Rechts").GeefHalffab().GeefProductID(),254150,"Halffab UnID voor Breed Prof Rechts")
-	Do $$$AssertEquals(HalffabItems.GetAt("Boven").GeefHalffab().GeefProductID(),254150,"Halffab UnID voor Breed Prof Boven")
-	Do $$$AssertEquals(HalffabItems.GetAt("Onder").GeefHalffab().GeefProductID(),254150,"Halffab UnID voor Breed Prof Onder")
+	if $$$AssertTrue($IsObject(HalffabItem)) && $$$AssertTrue(HalffabItem.HeeftHalffabItems(),"HalffabItem heeft een halffab") {
+		Do $$$AssertEquals(HalffabItem.GeefHalffabItem("Links").GeefHalffab().GeefProductID(),254150,"Halffab UnID voor Breed Prof Links")
+		Do $$$AssertEquals(HalffabItem.GeefHalffabItem("Rechts").GeefHalffab().GeefProductID(),254150,"Halffab UnID voor Breed Prof Rechts")
+		Do $$$AssertEquals(HalffabItem.GeefHalffabItem("Boven").GeefHalffab().GeefProductID(),254150,"Halffab UnID voor Breed Prof Boven")
+		Do $$$AssertEquals(HalffabItem.GeefHalffabItem("Onder").GeefHalffab().GeefProductID(),254150,"Halffab UnID voor Breed Prof Onder")
+	}
 
 	Quit
 ]]></Implementation>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml
===================================================================
diff -u -r29059 -r30379
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml	(.../HFFrontHouderv001.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml	(.../HFFrontHouderv001.cls.xml)	(revision 30379)
@@ -1,16 +1,42 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFFrontHouderv001">
-<Description>
-Oproepen via 
-	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.TBX.HFFrontHouderv001") 
-	</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TBX.TestHalffabBuilderBase</Super>
 
+<Method name="TestFrontHouder">
+<Implementation><![CDATA[
+	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext(,##class(DOM.PM.enu.LadeVariant).TBXIntivo())
+	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFFrontHouderv001).%New("")
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set IngegevenKenmerken.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo()
+	Set IngegevenKenmerken.ZijkantDesign = "A"
+	Set IngegevenKenmerken.ZijwandHoogte = "C"
+	Set IngegevenKenmerken.IsBinnenLade = 1
+	Set IngegevenKenmerken.FrontHouderKleur = "SW"
+	
+	Set IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxcover()
+	Set IngegevenKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
+	Set IngegevenKenmerken.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).Diamant()
+
+	Set IngegevenKenmerken.VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen()
+
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	Do $$$AssertEquals(HalffabItem.GeefAantalHalffabItems(),2,"HalffabItem bevat 2 SubItems")
+
+	#dim HFItemLI As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem("Links")
+	Do $$$AssertEquals(HFItemLI.GeefHalffab().GeefProductID(),1001)
+	
+	#dim HFItemRE As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem("Rechts")
+	Do $$$AssertEquals(HFItemRE.GeefHalffab().GeefProductID(),1002)
+]]></Implementation>
+</Method>
+
 <Method name="VulHalffabTabel">
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New(1001)
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
@@ -33,37 +59,6 @@
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 ]]></Implementation>
 </Method>
-
-<Method name="TestFrontHouder">
-<Implementation><![CDATA[
-	Set Context = ..GeefContext(,##class(DOM.PM.enu.LadeVariant).TBXIntivo())
-	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFFrontHouderv001).%New("")
-	
-	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
-	Set IngegevenKenmerken.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo()
-	Set IngegevenKenmerken.ZijkantDesign = "A"
-	Set IngegevenKenmerken.ZijwandHoogte = "C"
-	Set IngegevenKenmerken.IsBinnenLade = 1
-	Set IngegevenKenmerken.FrontHouderKleur = "SW"
-	
-	Set IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxcover()
-	Set IngegevenKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
-	Set IngegevenKenmerken.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).Diamant()
-
-	Set IngegevenKenmerken.VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen()
-
-	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
-	
-	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
-	Set HFItemLI=HalffabItem.HalffabItems.GetAt("Links")
-	Set HFItemRE=HalffabItem.HalffabItems.GetAt("Rechts")
-	Do $$$AssertEquals(HalffabItem.HalffabItems.Count(),2,"HalffabItem bevat 2 SubItems")
-	Do $$$AssertTrue($IsObject(HFItemLI),"HalffabItem heeft een halffab")
-	Do $$$AssertTrue($IsObject(HFItemRE),"HalffabItem heeft een halffab")
-	Do $$$AssertEquals(HFItemLI.GeefHalffab().GeefProductID(),1001,"Halffab UnID voor Rughouder LI")
-	Do $$$AssertEquals(HFItemRE.GeefHalffab().GeefProductID(),1002,"Halffab UnID voor Rughouder RE")
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/Processor/HFItemProcessorMinstensEen/GenereerHalffabItem/Base.cls.xml
===================================================================
diff -u -r29059 -r30379
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/Processor/HFItemProcessorMinstensEen/GenereerHalffabItem/Base.cls.xml	(.../Base.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/Processor/HFItemProcessorMinstensEen/GenereerHalffabItem/Base.cls.xml	(.../Base.cls.xml)	(revision 30379)
@@ -31,7 +31,7 @@
 	#dim SamengesteldHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HFItemProcessor.GenereerHalffabItem(HalffabList, ..IngegevenKenmerken, ..GeefContext(), BuilderRol)
 	If $$$AssertTrue($IsObject(SamengesteldHalffabItem)) {
 		Do $$$AssertEquals(SamengesteldHalffabItem.GeefRol(),BuilderRol)
-		If $$$AssertEquals(SamengesteldHalffabItem.HalffabItems.Count(),VerwachteHFItemRolNamen.Count()) {
+		If $$$AssertEquals(SamengesteldHalffabItem.GeefAantalHalffabItems(),VerwachteHFItemRolNamen.Count()) {
 			#dim HalffabItemsIterator As TECH.ListIterator = SamengesteldHalffabItem.GeefHalffabItemsIterator()
 			While (HalffabItemsIterator.HasNext()) {
 				#dim HFItem As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = HalffabItemsIterator.Next()
Index: DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem.cls.xml
===================================================================
diff -u -r30376 -r30379
--- DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem.cls.xml	(.../SamengesteldHalffabItem.cls.xml)	(revision 30376)
+++ DOM/PM/Maatwerk/Calc/HF/SamengesteldHalffabItem.cls.xml	(.../SamengesteldHalffabItem.cls.xml)	(revision 30379)
@@ -86,6 +86,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalHalffabItems">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..HalffabItems.Count()
+]]></Implementation>
+</Method>
+
 <Method name="VoegToe">
 <FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
 <Implementation><![CDATA[
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv002.cls.xml
===================================================================
diff -u -r29059 -r30379
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv002.cls.xml	(.../HFFrontHouderv002.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv002.cls.xml	(.../HFFrontHouderv002.cls.xml)	(revision 30379)
@@ -1,16 +1,42 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFFrontHouderv002">
-<Description>
-Oproepen via 
-	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.TBX.HFFrontHouderv002") 
-	</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TBX.TestHalffabBuilderBase</Super>
 
+<Method name="TestFrontHouder">
+<Implementation><![CDATA[
+	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext(,##class(DOM.PM.enu.LadeVariant).TBXIntivo())
+	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFFrontHouderv002).%New("")
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set IngegevenKenmerken.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo()
+	Set IngegevenKenmerken.ZijkantDesign = "A"
+	Set IngegevenKenmerken.ZijwandHoogte = "C"
+	Set IngegevenKenmerken.IsBinnenLade = 1
+	Set IngegevenKenmerken.FrontHouderKleur = "SW"
+	Set IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxcover()
+	Set IngegevenKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
+	Set IngegevenKenmerken.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).Diamant()
+
+	Set IngegevenKenmerken.VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Reling()
+	Set IngegevenKenmerken.VoorwandVerhogingKleur = ##class(DOM.PM.enu.TBXVoorwandVerhogingKleur).MetallicGrijs()
+
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	Do $$$AssertEquals(HalffabItem.GeefAantalHalffabItems(),2,"HalffabItem bevat 2 SubItems")
+
+	#dim HFItemLI As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem("Links")
+	Do $$$AssertEquals(HFItemLI.GeefHalffab().GeefProductID(),1005)
+	
+	#dim HFItemRE As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem("Rechts")
+	Do $$$AssertEquals(HFItemRE.GeefHalffab().GeefProductID(),1006)
+]]></Implementation>
+</Method>
+
 <Method name="VulHalffabTabel">
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New(1003)
 	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
@@ -57,39 +83,6 @@
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 ]]></Implementation>
 </Method>
-
-<Method name="TestFrontHouder">
-<Description>
-Test Builder met data uit (UT) in-memory tabel </Description>
-<Implementation><![CDATA[
-	Set Context = ..GeefContext(,##class(DOM.PM.enu.LadeVariant).TBXIntivo())
-	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFFrontHouderv002).%New("")
-	
-	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
-	Set IngegevenKenmerken.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo()
-	Set IngegevenKenmerken.ZijkantDesign = "A"
-	Set IngegevenKenmerken.ZijwandHoogte = "C"
-	Set IngegevenKenmerken.IsBinnenLade = 1
-	Set IngegevenKenmerken.FrontHouderKleur = "SW"
-	Set IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxcover()
-	Set IngegevenKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas()
-	Set IngegevenKenmerken.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).Diamant()
-
-	Set IngegevenKenmerken.VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Reling()
-	Set IngegevenKenmerken.VoorwandVerhogingKleur = ##class(DOM.PM.enu.TBXVoorwandVerhogingKleur).MetallicGrijs()
-
-	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
-	
-	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
-	Set HFItemLI=HalffabItem.HalffabItems.GetAt("Links")
-	Set HFItemRE=HalffabItem.HalffabItems.GetAt("Rechts")
-	Do $$$AssertEquals(HalffabItem.HalffabItems.Count(),2,"HalffabItem bevat 2 SubItems")
-	Do $$$AssertTrue($IsObject(HFItemLI),"HalffabItem heeft een halffab")
-	Do $$$AssertTrue($IsObject(HFItemRE),"HalffabItem heeft een halffab")
-	Do $$$AssertEquals(HFItemLI.GeefHalffab().GeefProductID(),1005,"Halffab UnID voor Rughouder LI")
-	Do $$$AssertEquals(HFItemRE.GeefHalffab().GeefProductID(),1006,"Halffab UnID voor Rughouder RE")
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml
===================================================================
diff -u -r29059 -r30379
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml	(.../HFRugHouderv001.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml	(.../HFRugHouderv001.cls.xml)	(revision 30379)
@@ -1,26 +1,46 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFRugHouderv001">
-<Description>
-Oproepen via 
-	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.TBX.HFRugHouderv001") 
-	</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TBX.TestHalffabBuilderBase</Super>
 
+<Method name="TestRughouder">
+<Implementation><![CDATA[
+	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext()
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set IngegevenKenmerken.RugHouderKleur ="SW"
+	Set IngegevenKenmerken.ZijwandHoogte = "B"
+	Set IngegevenKenmerken.RugHoogte = "B"
+	Set IngegevenKenmerken.RugMateriaal = ##class(DOM.PM.enu.TBXRugMateriaal).Hout()
+	
+	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFRugHouderv001).%New("")
+	
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	Do $$$AssertEquals(HalffabItem.GeefAantalHalffabItems(),2,"HalffabItem bevat 2 SubItems")
+
+	#dim HFItemLI As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem("Links")
+	Do $$$AssertEquals(HFItemLI.GeefHalffab().GeefProductID(),1001)
+	
+	#dim HFItemRE As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem("Rechts")
+	Do $$$AssertEquals(HFItemRE.GeefHalffab().GeefProductID(),1002)
+]]></Implementation>
+</Method>
+
 <Method name="VulHalffabTabel">
 <FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRugHouder).%New(593164)
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRugHouder).%New(1001)
 	Set Halffab.RugHoogte = "B"
 	Set Halffab.RugHouderKleur = "SW"
 	Set Halffab.ZijwandHoogte = "B"
 	Set Halffab.Verpakking = "I"
 	Set Halffab.LiRe = "LI"
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
-	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRugHouder).%New(593165)
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRugHouder).%New(1002)
 	Set Halffab.RugHoogte = "B"
 	Set Halffab.RugHouderKleur = "SW"
 	Set Halffab.ZijwandHoogte = "B"
@@ -29,33 +49,6 @@
 	Do HalffabTabel.VoegToeHalffab(Halffab)
 ]]></Implementation>
 </Method>
-
-<Method name="TestRughouder">
-<Implementation><![CDATA[
-	Set Context = ..GeefContext()
-	
-	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
-	Set IngegevenKenmerken.RugHouderKleur ="SW"
-	Set IngegevenKenmerken.ZijwandHoogte = "B"
-	Set IngegevenKenmerken.RugHoogte = "B"
-	Set IngegevenKenmerken.RugMateriaal = ##class(DOM.PM.enu.TBXRugMateriaal).Hout()
-	
-	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFRugHouderv001).%New("")
-	Set HalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
-	
-	// Resultaat is een Samengesteld HalffabItem met 2 halffab, namelijk een LI en een RE product 
-	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
-	Set HFItemLI=HalffabItem.HalffabItems.GetAt("Links")
-	Set HFItemRE=HalffabItem.HalffabItems.GetAt("Rechts")
-	Do $$$AssertEquals(HalffabItem.HalffabItems.Count(),2,"HalffabItem bevat 2 SubItems")
-	Do $$$AssertTrue($IsObject(HFItemLI),"HalffabItem heeft een halffab")
-	Do $$$AssertTrue($IsObject(HFItemRE),"HalffabItem heeft een halffab")
-	Do $$$AssertEquals(HFItemLI.GeefHalffab().GeefProductID(),593164,"Halffab UnID voor Rughouder LI")
-	Do $$$AssertEquals(HFItemRE.GeefHalffab().GeefProductID(),593165,"Halffab UnID voor Rughouder RE")
-	
-	Quit
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/SpoelbakHalffabItemVerwerker/VerdubbelAantalIndienSpoelbak/Test.cls.xml
===================================================================
diff -u -r30230 -r30379
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/SpoelbakHalffabItemVerwerker/VerdubbelAantalIndienSpoelbak/Test.cls.xml	(.../Test.cls.xml)	(revision 30230)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/SpoelbakHalffabItemVerwerker/VerdubbelAantalIndienSpoelbak/Test.cls.xml	(.../Test.cls.xml)	(revision 30379)
@@ -12,7 +12,7 @@
 	
 	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("",$$$DummyString,"")
 	Set HalffabItem.Aantal = 1
-	Set HalffabItem = SpoelbakHalffabItemVerwerker.VerdubbelAantalIndienSpoelbak(HalffabItem,IK)
+	do SpoelbakHalffabItemVerwerker.VerdubbelAantalIndienSpoelbak(HalffabItem,IK)
 	Do $$$AssertEquals(HalffabItem.Aantal,1,"Aantal blijft gelijk.")
 ]]></Implementation>
 </Method>
@@ -29,7 +29,7 @@
 	
 	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("",$$$DummyString,"")
 	Set HalffabItem.Aantal = InitieelAantal
-	Set HalffabItem = SpoelbakHalffabItemVerwerker.VerdubbelAantalIndienSpoelbak(HalffabItem,IK)
+	do SpoelbakHalffabItemVerwerker.VerdubbelAantalIndienSpoelbak(HalffabItem,IK)
 	Do $$$AssertEquals(HalffabItem.Aantal,TeVerwachtenAantal)
 ]]></Implementation>
 </Method>