Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/HalffabKostItemBuilder/Test.cls.xml
===================================================================
diff -u -r30397 -r30399
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/HalffabKostItemBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 30397)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/HalffabKostItemBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 30399)
@@ -1,98 +1,105 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.DOM.PM.Maatwerk.Kost.TestHalffabKostItemBuilder">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.Kost.TestHalffabKostItemBuilder") </Description>
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.Kost.HalffabKostItemBuilder.Test">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="Context">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabContext</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1000)
+	do ##class(vhUnitTest.DOM.PM.Maatwerk.FrameworkData).Create()
+	
+	Set ..Context = ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New("","","","")
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1000)
+	do ##class(vhUnitTest.DOM.PM.Maatwerk.FrameworkData).Delete()
+	do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="TestHalffabKostItemBuilder">
 <Implementation><![CDATA[
-	Set Context = ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New("","","","")
 	Set Halffab = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffab).%New(1000)
-	Set SamengesteldItem=##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(Context,"Lade")
-	
-	Set SamengesteldItemZijkant=##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(Context,"LadeZijkant")
-	Set HalffabItemLinks=##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context,"Links",Halffab)
+	Set SamengesteldItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(..Context,"Lade")
+	Set SamengesteldItemZijkant = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(..Context,"LadeZijkant")
+	Set HalffabItemLinks = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(..Context,"Links",Halffab)
 	Do SamengesteldItemZijkant.VoegToe(HalffabItemLinks)
-	Set HalffabItemRechts=##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(Context,"Rechts")
-	Set HalffabItemRechts.HalffabItem=HalffabItemLinks
+	Set HalffabItemRechts = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(..Context,"Rechts")
+	Set HalffabItemRechts.HalffabItem = HalffabItemLinks
 	Do SamengesteldItemZijkant.VoegToe(HalffabItemRechts)
 	Do SamengesteldItem.VoegToe(SamengesteldItemZijkant)
 	
-	Set HalffabItemBewerkt=##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(Context,"LadeBodemBewerkt",Halffab)
+	Set HalffabItemBewerkt = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(..Context,"LadeBodemBewerkt",Halffab)
 	Do SamengesteldItem.VoegToe(HalffabItemBewerkt)
 	
 	Set HFKostItemBuilder = ##class(DOM.PM.Maatwerk.Calc.Kost.HalffabKostItemBuilder).%New("")
 	Set HFItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 	Set HFItemsBoom.Wortel = SamengesteldItem
 	
-	Set Familie = ##class(DOM.PM.enu.Familie).Lade()
-	Set ProductType = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
-	Set KlantID = "K||1000"
-	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality,"UnitTest")
-	Set KostContext = ##class(vhUnitTest.DOM.PM.Maatwerk.Kost.impl.UTKostContext).%New(Familie,ProductType,BerekeningsSpecificatie)
-	Set KostItemsBoom = HFKostItemBuilder.Bereken(KostContext,HFItemsBoom,"")
+	#dim KostItemsBoom As DOM.PM.Maatwerk.Calc.Kost.KostItem = HFKostItemBuilder.Bereken(..GeefKostContext(),HFItemsBoom,"")
 	
 	Do $$$AssertTrue($IsObject(KostItemsBoom),"De boom is een object")
 	Do $$$AssertEquals(KostItemsBoom.GeefNaam(),"Materiaal","Dit is de wortel met naam Materiaal")
 	
-	Set LadeKostIterator = KostItemsBoom.GeefKostItemsIterator()
-	Set LadeBodemBewerktKostItem = LadeKostIterator.Next()
+	#dim LadeKostIterator As TECH.Iterator = KostItemsBoom.GeefKostItemsIterator()
+	#dim LadeBodemBewerktKostItem As DOM.PM.Maatwerk.Calc.Kost.KostItem = LadeKostIterator.Next()
 	Do $$$AssertEquals(LadeBodemBewerktKostItem.GeefNaam(),"LadeBodemBewerkt","Het kostitem van de LadeBodemBewerkt")
 	
-	Set LadeZijkantKostItem = LadeKostIterator.Next()
+	#dim LadeZijkantKostItem As TECH.Iterator = LadeKostIterator.Next()
 	Do $$$AssertEquals(LadeZijkantKostItem.GeefNaam(),"LadeZijkant","Het kostitem van de LadeZijkant")
 	
-	Set LadeZijkantIterator = LadeZijkantKostItem.GeefKostItemsIterator()
-	Set LadeZijkantLinksKostItem = LadeZijkantIterator.Next()
+	#dim LadeZijkantIterator As TECH.Iterator = LadeZijkantKostItem.GeefKostItemsIterator()
+	#dim LadeZijkantLinksKostItem As DOM.PM.Maatwerk.Calc.Kost.KostItem = LadeZijkantIterator.Next()
 	Do $$$AssertEquals(LadeZijkantLinksKostItem.GeefNaam(),"Links","Het kostitem van de Linkse LadeZijkant")
 	Do $$$AssertTrue('LadeZijkantIterator.HasNext(),"Het inbegrepen halffabitem mag geen extra kost veroorzaken (en heeft dus ook geen kostitem)")
 ]]></Implementation>
 </Method>
 
-<Parameter name="Type">
-<Type>%String</Type>
-<Default>I</Default>
-</Parameter>
-
-<Method name="TestSamengesteldKostItemBuilder">
+<Method name="Test : Zelfde Rol in een samengesteld item">
 <Implementation><![CDATA[
-	Set SamengesteldKostItemBuilder = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder).%New("")
-	Do ##class(vhUnitTest.DOM.PM.Maatwerk.Kost.impl.KostItemBuilderA).%New(SamengesteldKostItemBuilder)
-	Do ##class(vhUnitTest.DOM.PM.Maatwerk.Kost.impl.KostItemBuilderB).%New(SamengesteldKostItemBuilder)
+	#dim SamengesteldHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(..Context,"SamengesteldItem")
+	set StandaardHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(..Context,"StandaardItem",##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffab).%New(1000))
+	do SamengesteldHalffabItem.VoegToe(StandaardHalffabItem)
+	do SamengesteldHalffabItem.VoegToe(StandaardHalffabItem)
+
+	Set HFKostItemBuilder = ##class(DOM.PM.Maatwerk.Calc.Kost.HalffabKostItemBuilder).%New("")
+	Set HFItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Set HFItemsBoom.Wortel = SamengesteldHalffabItem
 	
-	Set KostItemBuildersIterator = SamengesteldKostItemBuilder.GeefKostItemBuildersIterator()
-	Do $$$AssertTrue(KostItemBuildersIterator.HasNext(),"KostItemBuilderA is toegevoegd")
-	Do KostItemBuildersIterator.Next()
-	Do $$$AssertTrue(KostItemBuildersIterator.HasNext(),"KostItemBuilderB is toegevoegd")
+	#dim KostItemsBoom As DOM.PM.Maatwerk.Calc.Kost.KostItem = HFKostItemBuilder.Bereken(..GeefKostContext(),HFItemsBoom,"")
+	#dim KostItemsIterator As TECH.Iterator = KostItemsBoom.GeefKostItemsIterator()
 	
-	Set SamengesteldKostItem = SamengesteldKostItemBuilder.Bereken("","","")
-	Set KostItemsIterator = SamengesteldKostItem.GeefKostItemsIterator()
-	Do $$$AssertEquals(KostItemsIterator.Next().GeefNaam(),"KostItemA","Het eerste kostitem")
-	Do $$$AssertEquals(KostItemsIterator.Next().GeefNaam(),"KostItemB","Het tweede kostitem")
+	do $$$AssertTrue(KostItemsIterator.HasNext())
+	do $$$AssertEquals(KostItemsIterator.Next().GeefNaam(),"StandaardItem")
+	do $$$AssertEquals(KostItemsIterator.Next().GeefNaam(),"StandaardItem")
+	do $$$AssertFalse(KostItemsIterator.HasNext())
 ]]></Implementation>
 </Method>
 
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
+<Method name="GeefKostContext">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Kost.KostContext</ReturnType>
 <Implementation><![CDATA[
-	Do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData()
-	Do ##class(vhUnitTest.DOM.PM.Maatwerk.FrameworkData).Create()
-	Quit $$$OK
+	#dim Familie As DOM.PM.enu.Familie = ##class(DOM.PM.enu.Familie).Lade()
+	#dim ProductType As DOM.PM.enu.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
+	#dim KlantID As %String = "K||1000"
+	#dim Personality As DOM.common.VanHoeckePersonality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality,"UnitTest")
+	Set KostContext = ##class(vhUnitTest.DOM.PM.Maatwerk.Kost.impl.UTKostContext).%New(Familie,ProductType,BerekeningsSpecificatie)
+	quit KostContext
 ]]></Implementation>
 </Method>
-
-<Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData()
-	Do ##class(vhUnitTest.DOM.PM.Maatwerk.FrameworkData).Delete()
-	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>