Index: vhUnitTest/DOM/PM/Maatwerk/OLM/TestBuilders.cls.xml
===================================================================
diff -u -r29059 -r40301
--- vhUnitTest/DOM/PM/Maatwerk/OLM/TestBuilders.cls.xml	(.../TestBuilders.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/Maatwerk/OLM/TestBuilders.cls.xml	(.../TestBuilders.cls.xml)	(revision 40301)
@@ -1,12 +1,31 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.OLM.TestBuilders">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.OLM.TestBuilders")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Do ..CleanUp()
+	
+	Set HalffabSpec = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(##class(DOM.PM.enu.Familie).Orgalux(),##class(DOM.PM.enu.OrgaluxVariant).OpMaat(),"vhUnitTest.DOM.PM.Maatwerk.OLM.SpecOpMaatv001","UnitTest")
+	Do HalffabSpec.Save()
+	
+	Set Calculator = ##class(DOM.PM.Maatwerk.Calc.HF.impl.StandaardContinuFlowCalculator).%New(1000,0,3,20,0)
+	Set BewerkingsInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo).%New(##class(DOM.PM.enu.Familie).Orgalux(),##class(DOM.PM.enu.OrgaluxVariant).OpMaat(),432903,"Lengte",Calculator,"UnitTest")
+	Do BewerkingsInfo.Save()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ..CleanUp()
+	Do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="TestSpec">
 <Implementation><![CDATA[
 	Set Spec = ##class(DOM.PM.Maatwerk.Calc.HF.impl.OLM.SpecOpMaatv001).%New()
@@ -17,12 +36,12 @@
 	#dim Variant As DOM.PM.enu.OrgaluxVariant = ##class(DOM.PM.enu.OrgaluxVariant).OpMaat()
 	
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = "K||1000"
-	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	#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 Context=##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie,Variant,BerekeningsSpecificatie)
+	Set Context = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie,Variant,BerekeningsSpecificatie)
 	
 	#dim PRNr As %String = 432903
-	Set LengteOrigineelProduct = 1000
+	#dim LengteOrigineelProduct As %Integer = 1000
 	
 	Set IngegevenKenmerken=##class(DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken).%New()
 	Set IngegevenKenmerken.InTeKortenPRNr = PRNr
@@ -35,56 +54,57 @@
 	
 	Do $$$AssertEquals(HFWortel.GeefRol(),"ORGALUX op maat","De wortel bestaat")
 	
-	Set BewerktItem = HFWortel.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.OLMRol).OpMaatProduct())
+	#dim BewerktItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HFWortel.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.OLMRol).OpMaatProduct())
 	
 	Do $$$AssertEquals(BewerktItem.GeefRol(),##class(DOM.PM.Maatwerk.Calc.HF.enu.OLMRol).OpMaatProduct(),"Het orgalux product op maat")
 	Do $$$AssertEquals($P(BewerktItem.BewerkingDimensiesToString(),"="),"Lengte","Het product wijkt af in de lengte")
 	Do $$$AssertEquals(BewerktItem.Aantal,.1203610832497492477,"Het te verwerken aantal")
 	Do $$$AssertEquals(BewerktItem.TeBekomenAantal,1,"Het te bekomen aantal")
 	
 	Set KostContext = ##class(vhUnitTest.DOM.PM.Maatwerk.OLM.impl.UTKostContext).%New(Familie, Variant, BerekeningsSpecificatie)
-	Set KostItem = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,HalffabItemsBoom,IngegevenKenmerken)
+	#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,HalffabItemsBoom,IngegevenKenmerken)
 	
-	Set KostIterator = KostItem.GeefKostItemsIterator()
+	#dim KostIterator As TECH.Iterator = KostItem.GeefKostItemsIterator()
 	
-	Set ZaagKost = KostIterator.Next()
+	#dim ZaagKost As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = KostIterator.Next()
+	If $$$AssertEquals($classname(ZaagKost),"DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem") {
+		#dim ZaagKostIterator As TECH.Iterator = ZaagKost.GeefKostItemsIterator()
+	}
 	
-	Set ZaagKostIterator = ZaagKost.GeefKostItemsIterator()
+	#dim ZaagwerkKostEtiketDocumentItem As DOM.PM.Maatwerk.Calc.Kost.ExtraKostItem = ZaagKostIterator.Next()
+	If $$$AssertEquals($classname(ZaagwerkKostEtiketDocumentItem),"DOM.PM.Maatwerk.Calc.Kost.ExtraKostItem") {
+		Do $$$AssertEquals(ZaagwerkKostEtiketDocumentItem.GeefNaam(),"Etiket/document","vaste kost voor etiket en document")
+	}
 	
-	Set ZaagwerkKostEtiketDocumentItem = ZaagKostIterator.Next()
-	Do $$$AssertEquals(ZaagwerkKostEtiketDocumentItem.GeefNaam(),"Etiket/document","vaste kost voor etiket en document")
+	#dim ZaagwerkZaagKostItem As DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem = ZaagKostIterator.Next()
+	If $$$AssertEquals($classname(ZaagwerkZaagKostItem),"DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem") {
+		Do $$$AssertEquals(ZaagwerkZaagKostItem.GeefNaam(),"Zagen","Het zagen kost item")
+	}
 	
-	Set ZaagwerkZaagKostItem = ZaagKostIterator.Next()
-	Do $$$AssertEquals(ZaagwerkZaagKostItem.GeefNaam(),"Zagen","Het zagen kost item")
+	#dim ZaagwerkVerpakkenKostItem As DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem = ZaagKostIterator.Next()
 	
-	Set ZaagwerkVerpakkenKostItem = ZaagKostIterator.Next()
-	Do $$$AssertEquals(ZaagwerkVerpakkenKostItem.GeefNaam(),"Verpakken","Het verpakken kost item")
+	If $$$AssertEquals($classname(ZaagwerkVerpakkenKostItem),"DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem") {
+		Do $$$AssertEquals(ZaagwerkVerpakkenKostItem.GeefNaam(),"Verpakken","Het verpakken kost item")
+	}
 	
-	Set MateriaalKost = KostIterator.Next()
-	Do $$$AssertEquals(MateriaalKost.GeefNaam(),"Materiaal","Materiaalkost")
+	#dim MateriaalKost As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = KostIterator.Next()
 	
-	Set OrgaluxOpMaatKostIterator = MateriaalKost.GeefKostItemsIterator()
+	If $$$AssertEquals($classname(MateriaalKost),"DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem") {
+		Do $$$AssertEquals(MateriaalKost.GeefNaam(),"Materiaal","Materiaalkost")
+	}
 	
-	Set ProductOpMaatKostItem = OrgaluxOpMaatKostIterator.Next()
-	Do $$$AssertEquals(ProductOpMaatKostItem.GeefNaam(),"OpMaatProduct")
-	Do $$$AssertEquals(ProductOpMaatKostItem.GeefKost(),##class(TECH.Math).Round(3*BewerktItem.Aantal,4),"De prijs van het aan te rekenen materiaal")
-]]></Implementation>
-</Method>
-
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
-	Do ..OnAfterAllTests()
+	#dim OrgaluxOpMaatKostIterator As TECH.Iterator = MateriaalKost.GeefKostItemsIterator()
+	#dim ProductOpMaatKostItem As DOM.PM.Maatwerk.Calc.Kost.BewerktHalffabKostItem  = OrgaluxOpMaatKostIterator.Next()
 	
-	Set HalffabSpec = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(##class(DOM.PM.enu.Familie).Orgalux(),##class(DOM.PM.enu.OrgaluxVariant).OpMaat(),"vhUnitTest.DOM.PM.Maatwerk.OLM.SpecOpMaatv001","UnitTest")
-	Do HalffabSpec.Save()
-	
-	Set Calculator = ##class(DOM.PM.Maatwerk.Calc.HF.impl.StandaardContinuFlowCalculator).%New(1000,0,3,20,0)
-	Set BewerkingsInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo).%New(##class(DOM.PM.enu.Familie).Orgalux(),##class(DOM.PM.enu.OrgaluxVariant).OpMaat(),432903,"Lengte",Calculator,"UnitTest")
-	Do BewerkingsInfo.Save()
+	If $$$AssertEquals($classname(ProductOpMaatKostItem),"DOM.PM.Maatwerk.Calc.Kost.BewerktHalffabKostItem") {
+		Do $$$AssertEquals(ProductOpMaatKostItem.GeefNaam(),"OpMaatProduct")
+		Do $$$AssertEquals(ProductOpMaatKostItem.GeefKost(),##class(TECH.Math).Round(3*BewerktItem.Aantal,4),"De prijs van het aan te rekenen materiaal")
+	}
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterAllTests">
+<Method name="CleanUp">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do ##class(TECH.Context).Instance().GeefQueryAPI().ExecuteDynamicQuery("DELETE FROM DOM_PM_Maatwerk_Calc_HF_impl.HalffabSpecInfo WHERE Tag = 'UnitTest'")
 	Do ##class(TECH.Context).Instance().GeefQueryAPI().ExecuteDynamicQuery("DELETE FROM DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsInfo WHERE Tag = 'UnitTest'")