Index: vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml	(revision 915)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-22 08:04:45">
+<Class name="vhUnitTest.APPS.Halux.Planning.TestResourceGebruikCalculator">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestResourceGebruikCalculator")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62144,29147.500355</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ^KTO1(296195)="6332\"
+	
+	Set ^KTO(6332,296195,0)=103
+	Set ^KTO(6332,296195,1)="\02.02.11\KOMM. OPTIMA PACK\\\6332\118153\6279\\\\\\\\\\EUR\62137,43200\\\2\\\\"
+	Set ^KTO(6332,296195,4)=2
+	Set ^KTO(6332,296195,101)="\629192\1\\\47.68\#\\47.68\47.68\\L\1\\100\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\101\\\\\\\\"
+	Set ^KTO(6332,296195,102)="\629192\1\\\47.68\#\\47.68\47.68\\L\1\\100\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\102\\\\\\\\"
+	
+	// Bijhorend order
+	
+	Set ^KOD(6279,"F",118153,0)=103
+	Set ^KOD(6279,"F",118153,1)="\02.02.11\45263 cuisine cote basque\\\6279\DI2;1`DI2;2`DI2;3`DI2;4`DI2;5\1087#1096#62124,64781\\ygransart@lmc.tm.fr\\\\1\\\\EUR\\\00\2\\1087#62124,64781#118153\\\\\\\\\\\\\\\\\\\\\62124,64781"
+	Set ^KOD(6279,"F",118153,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(6279,"F",118153,3)="0\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(6279,"F",118153,4)=2
+	Set ^KOD(6279,"F",118153,101)="703100 \629192\1\\\59.60\40#0\0\59.60\59.60\703100 \L\\\100\59.60\KF0\\\\E1\EUR\\\62138\\296195\101\62143\\\\\\\\\\\\\\\\\1\\"
+	Set ^KOD(6279,"F",118153,102)="703100 \629192\1\\\59.60\40#0\0\59.60\59.60\703100 \L\\\100\59.60\KF0\\\\E1\EUR\\\62138\\296195\102\62143\\\\\\\\\\\\\\\\\1\\"
+	
+	Set ^KO1(118153,"F")="6279\"
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestResourceGebruikProduct">
+<Implementation><![CDATA[
+	Set ResourceGebruikCalculator = ##class(vhUnitTest.APPS.Halux.Planning.impl.ResourceGebruikCalcMock).%New("")
+	Set ResourceGebruik = ##class(APPS.Halux.Planning.impl.ResourceGebruik).%New()
+	Set ResourceGebruikDataFactory = ##class(APPS.Halux.Planning.impl.ResourceGebruikDataMap).%New(ResourceGebruik)
+	
+	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(629192)
+	Do ResourceGebruikCalculator.BepaalResourceGebruikProduct(Product, ResourceGebruikDataFactory)
+	
+	Do $$$AssertTrue(ResourceGebruik.ALUFrees.Hoeveelheid > 0,"Het resourcegebruik van de ALUFrees is groter dan 0")
+	Do $$$AssertTrue(ResourceGebruik.ALUZaag.Hoeveelheid > 0,"Het resourcegebruik van de ALUZaag is groter dan 0")
+	Do $$$AssertTrue(ResourceGebruik.ALUOperator.Hoeveelheid > 0,"Het resourcegebruik van de ALUOperator is groter dan 0")
+]]></Implementation>
+</Method>
+
+<Method name="TestCalculator">
+<Implementation><![CDATA[
+	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(296195)
+
+	Set Calculator = ##class(APPS.Halux.Planning.impl.ResourceGebruikCalculator).%New(Toelevering)
+	
+	Do $$$AssertTrue($IsObject(Calculator),"Het object is geinstantieerd")
+	
+	Set PlanningDataItem = ##class(APPS.Halux.Planning.impl.PlanningDataItem).%New()
+	Set PlanningDataItems = Calculator.BerekenPlanningDataItems()
+	
+	Set PlanningDataItem = PlanningDataItems.GetAt(1)
+	
+	Do $$$AssertTrue(PlanningDataItem.ALUFrees > 0,"Het resourcegebruik van de ALUFrees is groter dan 0")
+	Do $$$AssertTrue(PlanningDataItem.ALUZaag > 0,"Het resourcegebruik van de ALUZaag is groter dan 0")
+	Do $$$AssertTrue(PlanningDataItem.ALUOperator > 0,"Het resourcegebruik van de ALUOperator is groter dan 0")
+	
+	Set PlanningDataItem = PlanningDataItems.GetAt(2)
+	
+	Do $$$AssertTrue(PlanningDataItem.ALUFrees > 0,"Het resourcegebruik van de ALUFrees is groter dan 0")
+	Do $$$AssertTrue(PlanningDataItem.ALUZaag > 0,"Het resourcegebruik van de ALUZaag is groter dan 0")
+	Do $$$AssertTrue(PlanningDataItem.ALUOperator > 0,"Het resourcegebruik van de ALUOperator is groter dan 0")
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="3803693933"/>
+</Export>
Index: vhUnitTest/DOM/VKP/TestAPI.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/TestAPI.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/TestAPI.cls.xml	(revision 915)
@@ -0,0 +1,99 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 08:41:02">
+<Class name="vhUnitTest.DOM.VKP.TestAPI">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.VKP.TestAPI") </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62153,31330.744169</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestAPIOpvragen">
+<Implementation><![CDATA[
+	Set VerkoopPrijsAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopPrijsAPI()
+	Do $$$AssertTrue($IsObject(VerkoopPrijsAPI),"De verkoopprijs api is een object")
+	Do $$$AssertTrue(VerkoopPrijsAPI.%Extends("DOM.VKP.VerkoopPrijsAPI"),"Het object is van het juiste type")
+]]></Implementation>
+</Method>
+
+<Method name="TestVerkoopPrijsHalux">
+<Implementation><![CDATA[
+	Set DomeinContext = ##class(DOM.DomeinContext).Instance()
+	Set AankoopPrijsAPI = DomeinContext.GeefAankoopPrijsAPI()
+	Set ProductAPI = DomeinContext.GeefProductAPI()
+	Set Product = ProductAPI.GeefProduct(286261)
+	
+	Set KlantID = 7587  // Halux
+	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
+	
+	Set AankoopPrijsInfo = AankoopPrijsAPI.GeefAankoopPrijsInfo(Product, BerekeningsSpecificatie)
+	Set BasisPrijs = AankoopPrijsInfo.GeefReferentiePrijs()
+	
+	Set VerkoopPrijsAPI = DomeinContext.GeefVerkoopPrijsAPI()
+	
+	Set VerkoopPrijsInfo = VerkoopPrijsAPI.GeefVerkoopPrijsInfo(Product, BasisPrijs, BerekeningsSpecificatie)
+	
+	Do $$$AssertTrue($IsObject(VerkoopPrijsInfo),"Het object is teruggegeven")
+	Do $$$AssertTrue(VerkoopPrijsInfo.GeefLijstPrijs() > 0,"De lijstprijs is ingevuld")
+	Do $$$AssertTrue(VerkoopPrijsInfo.GeefVerkoopPrijs() > 0,"De verkoopprijs is ingevuld")
+	Do $$$AssertTrue(VerkoopPrijsInfo.GeefVerkoopPrijsNaCommissie() > 0,"De verkoopprijs na commissie is ingevuld")
+	Do $$$AssertTrue($IsObject(VerkoopPrijsInfo.GeefBerekeningsSpecificatie()),"De berekeningsspecificatie is ingesteld")
+]]></Implementation>
+</Method>
+
+<Method name="TestVerkoopPrijsDatum">
+<Implementation><![CDATA[
+	Set KlantID = -1 // Nummer gebruiken die zeker nooit zal gebruikt worden
+	
+	&SQL(DELETE FROM DOM_VKP_impl.VerkoopPrijzen WHERE KlantID = :KlantID)
+	
+	Set Berekening = ##class(DOM.VKP.impl.VanHoeckeVoorHaluxBerekening).%New() // type berekening is niet echt relevant
+	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Set ProductID = 286261
+	Set Dag = $Piece($H,",")
+	Set GeldigVan = Dag - 1
+	Set GeldigTot = Dag + 1
+	Set VerkoopPrijs = ##class(DOM.VKP.impl.VerkoopPrijzen).%New(Berekening, KlantID, Personality, ProductID,"", GeldigVan, GeldigTot)
+	Do VerkoopPrijs.%Save()
+	
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
+	
+	Set DomeinContext = ##class(DOM.DomeinContext).Instance()
+	Set Product = DomeinContext.GeefProductAPI().GeefProduct(286261)
+	Set VerkoopPrijsInfo = DomeinContext.GeefVerkoopPrijsAPI().GeefVerkoopPrijsInfo(Product, 10, BerekeningsSpecificatie)
+	
+	Do $$$AssertTrue($IsObject(VerkoopPrijsInfo),"Het verkoopprijsinfo object werd berekend")
+	
+	&SQL(DELETE FROM DOM_VKP_impl.VerkoopPrijzen WHERE KlantID = -1)
+]]></Implementation>
+</Method>
+
+<Method name="TestVerkoopPrijsTag">
+<Implementation><![CDATA[
+	Set KlantID = -1 // Nummer gebruiken die zeker nooit zal gebruikt worden
+	
+	&SQL(DELETE FROM DOM_VKP_impl.VerkoopPrijzen WHERE KlantID = :KlantID)
+	
+	Set Berekening = ##class(DOM.VKP.impl.VanHoeckeVoorHaluxBerekening).%New() // type berekening is niet echt relevant
+	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Set ProductID = 286261
+	Set Dag = $Piece($H,",")
+	Set Tag = "UTTag"
+	Set VerkoopPrijs = ##class(DOM.VKP.impl.VerkoopPrijzen).%New(Berekening, KlantID, Personality, ProductID,"",,,Tag)
+	Do VerkoopPrijs.%Save()
+	
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality,Tag)
+	
+	Set DomeinContext = ##class(DOM.DomeinContext).Instance()
+	Set Product = DomeinContext.GeefProductAPI().GeefProduct(286261)
+	Set VerkoopPrijsInfo = DomeinContext.GeefVerkoopPrijsAPI().GeefVerkoopPrijsInfo(Product, 10, BerekeningsSpecificatie)
+	
+	Do $$$AssertTrue($IsObject(VerkoopPrijsInfo),"Het verkoopprijsinfo object werd berekend")
+	
+	&SQL(DELETE FROM DOM_VKP_impl.VerkoopPrijzen WHERE KlantID = -1)
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="3460351725"/>
+</Export>
Index: vhUnitTest/ClassInfo/TestFormalSpecParser.cls.xml
===================================================================
diff -u
--- vhUnitTest/ClassInfo/TestFormalSpecParser.cls.xml	(revision 0)
+++ vhUnitTest/ClassInfo/TestFormalSpecParser.cls.xml	(revision 915)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 08:03:26">
+<Class name="vhUnitTest.ClassInfo.TestFormalSpecParser">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","ClassInfo.TestFormalSpecParser")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62158,29079.192731</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestParser">
+<Implementation><![CDATA[
+	Set Parser = ##class(TECH.ClassInfo.FormalSpecParser).%New()
+	Set Parameters = Parser.Parse("Hoeveelheid:%Integer,BerekenTag:%String="""",BerekenDatum:%Date=$Piece($H,"","")")
+	
+	Set Parameter = Parameters.GetAt(1)
+	Do $$$AssertEquals(Parameter.GeefNaam(),"Hoeveelheid","De naam van de parameter")
+	Do $$$AssertEquals(Parameter.GeefType(),"%Integer","Het type van de parameter")
+	Do $$$AssertEquals(Parameter.GeefDefaultWaarde(),"","De default waarde van de parameter")
+	
+	Set Parameter = Parameters.GetAt(2)
+	Do $$$AssertEquals(Parameter.GeefNaam(),"BerekenTag","De naam van de parameter")
+	Do $$$AssertEquals(Parameter.GeefType(),"%String","Het type van de parameter")
+	Do $$$AssertEquals(Parameter.GeefDefaultWaarde(),"""""","De default waarde van de parameter")
+	
+	Set Parameter = Parameters.GetAt(3)
+	Do $$$AssertEquals(Parameter.GeefNaam(),"BerekenDatum","De naam van de parameter")
+	Do $$$AssertEquals(Parameter.GeefType(),"%Date","Het type van de parameter")
+	Do $$$AssertEquals(Parameter.GeefDefaultWaarde(),"$Piece($H,"","")","De default waarde van de parameter")
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2046584206"/>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/OLM/TestBuilders.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/OLM/TestBuilders.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/OLM/TestBuilders.cls.xml	(revision 915)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-28 10:01:53">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.OLM.TestBuilders">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.OLM.TestBuilders")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62150,36179.110841</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestSpec">
+<Implementation><![CDATA[
+	Set Spec = ##class(DOM.PM.Maatwerk.Calc.HF.impl.OLM.SpecOpMaatv001).%New()
+	
+	Do $$$AssertTrue($IsObject(Spec),"De spec is gemaakt")
+	
+	Set Familie=##class(DOM.PM.enu.Familie).Orgalux()
+	Set Variant=##class(DOM.PM.enu.OrgaluxVariant).OpMaat()
+	
+	Set KlantID = 1000
+	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
+	Set Context=##class(vhUnitTest.DOM.PM.Maatwerk.OLM.impl.UTContext).%New(Familie,Variant,BerekeningsSpecificatie)
+	
+	Set PRNr = 191579 //202630
+	Do ##class(Prod.Product).SetPropViaNr(PRNr,"HFNettoLengte",1000)
+	
+	Set IngegevenKenmerken=##class(DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken).%New()
+	Set IngegevenKenmerken.InTeKortenPRNr = PRNr
+	Set IngegevenKenmerken.TeBekomenLengte = 100
+	
+	Do Spec.BerekenHalffabDetails(Context,IngegevenKenmerken)
+	
+	Set HalffabItemsBoom = Context.HalffabItemsBoom
+	Set HFWortel = HalffabItemsBoom.Wortel
+	
+	Do $$$AssertEquals(HFWortel.GeefRol(),"ORGALUX op maat","De wortel bestaat")
+	
+	Set BewerktItem = 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(BewerktItem.AfwijkendeKenmerkenToString(),"Lengte","Het product wijkt af in de lengte")
+	Do $$$AssertEquals(BewerktItem.Aantal,(IngegevenKenmerken.TeBekomenLengte+3)/(800),"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)
+	
+	Set KostIterator = KostItem.GeefKostItemsIterator()
+	
+	Set ZaagKost = KostIterator.Next()
+	
+	Set ZaagKostIterator = ZaagKost.GeefKostItemsIterator()
+	
+	Set ZaagwerkKostItem = ZaagKostIterator.Next()
+	Do $$$AssertEquals(ZaagwerkKostItem.GeefNaam(),"Zaagwerk","Het zaagwerk kost item")
+	
+	Set ZaagwerkSurplusKostItem = ZaagKostIterator.Next()
+	Do $$$AssertEquals(ZaagwerkSurplusKostItem.GeefNaam(),"Zaagwerk surplus","Het zaagwerk surplus kost item")
+	
+	Set MateriaalKost = KostIterator.Next()
+	Do $$$AssertEquals(MateriaalKost.GeefNaam(),"Materiaal","Materiaalkost")
+	
+	Set MateriaalKostIterator =  MateriaalKost.GeefKostItemsIterator()
+	
+	Set OrgaluxOpMaatKostItem = MateriaalKostIterator.Next()
+	
+	Set OrgaluxOpMaatKostIterator = OrgaluxOpMaatKostItem.GeefKostItemsIterator()
+	
+	Set ProductOpMaatKostItem = OrgaluxOpMaatKostIterator.Next()
+	Do $$$AssertEquals(ProductOpMaatKostItem.GeefNaam(),"OpMaatProduct")
+	Do $$$AssertEquals(ProductOpMaatKostItem.GeefKost(),3*BewerktItem.Aantal,"De prijs van het aan te rekenen materiaal")
+	
+	
+	Set KostItemWriterVisitor = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostItemWriterVisitor).%New()
+	write !
+	Do KostItem.Accept(KostItemWriterVisitor)
+	write !
+	
+	/*Set WriterVisitor=##class(DOM.PM.Maatwerk.Calc.HF.impl.WriterVisitor).%New()
+	write !
+	Do HFWortel.Accept(WriterVisitor)
+	write !*/
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="1870367167"/>
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/TestIngegevenKenmConverter.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/TestIngegevenKenmConverter.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/TestIngegevenKenmConverter.cls.xml	(revision 915)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 14:53:07">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.TestIngegevenKenmConverter">
+<Description>
+Oproepen via 
+  do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.Maatwerk.TestIngegevenKenmConverter") </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase,TECH.Error.ErrorAdaptor</Super>
+<TimeChanged>62158,53586.311913</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ErrorMsg">
+<Type>%String</Type>
+</Property>
+
+<Method name="TestUpgraderViaCopy">
+<Implementation><![CDATA[
+	Set UTKenmVersie00=##class(vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv00).%New()
+	Set UTKenmVersie00.ProptA="A.v0"
+	Set UTKenmVersie00.ProptB="B.v0"
+	
+	Set UTKenmVersie01=##class(vhUnitTest.APPS.PM.Maatwerk.UTKenmv00v01Upgrader).UpgradeIngegevenKenmerken(UTKenmVersie00)
+	
+	Do $$$AssertTrue($IsObject(UTKenmVersie01),"UTKenmVersie01 is een object")
+	Do $$$AssertEquals(UTKenmVersie01.VersieNr,1,"Het versieNr is 1")
+	Do $$$AssertEquals(UTKenmVersie01.ProptA,"A.v0","ProptA is niet gewijzigd")
+	Do $$$AssertEquals(UTKenmVersie01.ProptB,"B.v0+B.v1","ProptB is gewijzigd naar B.v0+B.v1")
+]]></Implementation>
+</Method>
+
+<Method name="TestUpgraderViaInherit">
+<Implementation><![CDATA[
+	Set UTKenmVersie01=##class(vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv01).%New()
+	Set UTKenmVersie01.ProptA="A.v1"
+	Set UTKenmVersie01.ProptB="B.v1"
+	
+	Set UTKenmVersie02=##class(vhUnitTest.APPS.PM.Maatwerk.UTKenmv01v02Upgrader).UpgradeIngegevenKenmerken(UTKenmVersie01)
+	
+	Do $$$AssertTrue($IsObject(UTKenmVersie02),"UTKenmVersie02 is een object")
+	Do $$$AssertEquals(UTKenmVersie02.VersieNr,2,"Het versieNr is 2")
+	Do $$$AssertEquals(UTKenmVersie02.ProptA,"A.v1","ProptA is niet gewijzigd")
+	Do $$$AssertEquals(UTKenmVersie02.ProptB,"B.v1+B.v2","ProptB is gewijzigd naar B.v1+B.v2")
+	Do $$$AssertEquals(UTKenmVersie02.ProptC,"C.v2","ProptC is ingevuld met C.v2")
+]]></Implementation>
+</Method>
+
+<Method name="TestUpgraderViaWrapper">
+<Implementation><![CDATA[
+	Set UTKenmVersie02=##class(vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv02).%New()
+	Set UTKenmVersie02.ProptA="A.v2"
+	Set UTKenmVersie02.ProptB="B.v2"
+	Set UTKenmVersie02.ProptC="C.v2"
+	
+	Set UTKenmVersie03=##class(vhUnitTest.APPS.PM.Maatwerk.UTKenmv02v03Upgrader).UpgradeIngegevenKenmerken(UTKenmVersie02)
+	
+	Do $$$AssertTrue($IsObject(UTKenmVersie03),"UTKenmVersie03 is een object")
+	Do $$$AssertEquals(UTKenmVersie03.VersieNr,3,"Het versieNr is 3")
+	;Do $$$AssertEquals(UTKenmVersie03.ProptA,"A.v2","ProptA bestaat niet in v3")
+	Do $$$AssertEquals(UTKenmVersie03.ProptB,"B.v2","ProptB is niet gewijzigd")
+	Do $$$AssertEquals(UTKenmVersie03.ProptC,"C.v2+A.v2+C.v3","ProptC is ingevuld met C.v2+A.v2+C.v3")
+	
+	d WLIP^vhDBG("IK v3 "_$$ObjToText^vhLib(UTKenmVersie03))
+]]></Implementation>
+</Method>
+
+<Method name="TestzUpgradeVerwachteVersieFout">
+<Implementation><![CDATA[
+	Set ..ErrorMsg=""
+	Set UTKenmVersie02=##class(vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv02).%New()
+		
+	$$$LocalErrorTrapOn
+	Set UTKenmVersie01=##class(vhUnitTest.APPS.PM.Maatwerk.UTKenmv00v01Upgrader).UpgradeIngegevenKenmerken(UTKenmVersie02)
+	$$$ClearError
+	$$$LocalErrorTrapOff
+
+	Set ExpectedError="`"_$$$errInvalidInput_"`"_"Verwachte versie van IK is ongeldig"_"`"
+	Do $$$AssertEquals(..ErrorMsg,ExpectedError,"De error is gethrowed")
+
+	Set ..ErrorMsg=""
+]]></Implementation>
+</Method>
+
+<Method name="TrapHandler">
+<FormalSpec>Label,Options</FormalSpec>
+<Implementation><![CDATA[
+	Set:(..ErrorMsg="") ..ErrorMsg=$ECODE
+
+	Set ErrorLevelTrapOn=$O(%TECHErrorLocalTrap(""),-1)
+	If $ES=(ErrorLevelTrapOn+2) $$$ClearError
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="4234241271"/>
+</Export>
Index: vhUnitTest/zTryout/JCL/Stock/MoederProd.cls.xml
===================================================================
diff -u
--- vhUnitTest/zTryout/JCL/Stock/MoederProd.cls.xml	(revision 0)
+++ vhUnitTest/zTryout/JCL/Stock/MoederProd.cls.xml	(revision 915)
@@ -0,0 +1,130 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-02 14:09:00">
+<Class name="vhUnitTest.zTryout.JCL.Stock.MoederProd">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62152,51008.416447</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	 set Status = ##super()
+	 if Status {
+	  	do ..CreatePRBS()	
+	 }
+ 	 quit Status
+]]></Implementation>
+</Method>
+
+<Method name="CreatePRBS">
+<Implementation><![CDATA[
+  	do ..DeletePRBS()
+  	
+  	set ^PRBS("BS",1000)="M\KP"
+  	set ^PRBS("BS",1000,"KIND.001")="1010\5\K\\\\\\\\P\"
+  	set ^PRBS("BS",1000,"KIND.002")="1011\1\K\\\\\\\\P\"
+  	set ^PRBS("BS",1000,"KIND.003")="1012\2\K\\\\\\\\P\"
+  	set ^PRBS("BS",1000,"KIND.004")="1013\4\K\\\\\\\\P\"
+
+	set ^PRBS("BS",1001)="M\KP"
+  	set ^PRBS("BS",1001,"KIND.001")="1010\3\K\\\\\\\\P\"
+  	set ^PRBS("BS",1001,"KIND.002")="1011\4\K\\\\\\\\P\"
+
+  	set ^PRBS("BS",1002)="M\KP"
+  	set ^PRBS("BS",1002,"KIND.001")="1012\1\K\\\\\\\\P\"
+	set ^PRBS("BS",1002,"KIND.002")="1013\1\K\\\\\\\\P\"
+	set ^PRBS("BS",1002,"KIND.003")="\1\K\\\\\\\\P\"
+	set ^PRBS("BS",1002,"KIND.004")="\1\K\\\\\\\\P\"
+	set ^PRBS("BS",1002,"KIND.005")="1014\1\K\\\\\\\\P\"
+	set ^PRBS("BS",1002,"KIND.006")="1015\1\K\\\\\\\\P\"
+		
+	set ^PRBS("IP",1010,1000,"KIND.001")="H"
+	set ^PRBS("IP",1010,1001,"KIND.001")="H"
+		
+	set ^PRBS("IP",1011,1000,"KIND.002")="H"
+	set ^PRBS("IP",1011,1001,"KIND.002")="H"
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="DeletePRBS">
+<Implementation><![CDATA[
+ 	kill ^PRBS("BS",1000)
+  	kill ^PRBS("BS",1001)	 
+  	kill ^PRBS("BS",1002)
+  
+  	kill ^PRBS("IP",1010)
+  	kill ^PRBS("IP",1011)
+  	quit
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	do ..DeletePRBS()
+ 	quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="TestKind">
+<Implementation><![CDATA[
+	set blMoederProd = ##class(zTryout.JCL.Stock.MoederProd).%New()
+
+	set listKinderkens = blMoederProd.BepaalKinderen(1000)
+	do $$$AssertEquals(listKinderkens.Count(),4)
+	do $$$AssertTrue(listKinderkens.IsDefined(1010),"")
+	do $$$AssertTrue(listKinderkens.IsDefined(1011),"")
+	do $$$AssertTrue(listKinderkens.IsDefined(1012),"")
+	do $$$AssertTrue(listKinderkens.IsDefined(1013),"")
+		
+	set listKinderkens = blMoederProd.BepaalKinderen(1002)
+	do $$$AssertEquals(listKinderkens.Count(),4)
+	do $$$AssertTrue(listKinderkens.IsDefined(1012),"")
+	do $$$AssertTrue(listKinderkens.IsDefined(1013),"")
+	do $$$AssertTrue(listKinderkens.IsDefined(1014),"")
+	do $$$AssertTrue(listKinderkens.IsDefined(1015),"")
+		
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestMoeder">
+<Implementation><![CDATA[
+	set blMoederProd = ##class(zTryout.JCL.Stock.MoederProd).%New()
+	set listMoeders = blMoederProd.BepaalMoeders(1010)
+	do $$$AssertEquals(listMoeders.Count(),2)
+	do $$$AssertTrue(listMoeders.IsDefined(1000),"")
+	do $$$AssertTrue(listMoeders.IsDefined(1001),"")
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestMoedersVanKinderen">
+<Implementation><![CDATA[
+	set blMoederProd = ##class(zTryout.JCL.Stock.MoederProd).%New()
+	set listMoeders = blMoederProd.BepaalMoedersVanKinderen(1000)
+	
+	do $$$AssertEquals(listMoeders.Count(),2)
+	do $$$AssertTrue(listMoeders.IsDefined(1000),"")
+	do $$$AssertTrue(listMoeders.IsDefined(1001),"")
+
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestBeschikbaarheid">
+<Implementation><![CDATA[
+	set blMoederProd = ##class(vhUnitTest.zTryout.JCL.Stock.MoederProdMock).%New()
+
+	do $$$AssertEquals(blMoederProd.Beschikbaarheid(1000),14,"")
+	do $$$AssertEquals(blMoederProd.Beschikbaarheid(1001),15,"")
+
+	quit
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="4264702977"/>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugHouderv001.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugHouderv001.cls.xml	(.../HFRugHouderv001.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugHouderv001.cls.xml	(.../HFRugHouderv001.cls.xml)	(revision 915)
@@ -1,43 +1,55 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-11 07:48:53">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFRugHouderv001">
 <Description>
 Oproepen via 
 	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.TBX.HFRugHouderv001") 
 	</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestCaseTBX</Super>
-<TimeChanged>62115,49463.811221</TimeChanged>
+<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder</Super>
+<TimeChanged>62133,28186.072947</TimeChanged>
 <TimeCreated>62012,63523.617197</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="IsBuilderMeestRecenteVersie">
-<Description>
-Dient om aan te duiden of welke halffabTabel gebruikt wordt : Productie (persistent) of UnitTest (in-memory, artificial data) </Description>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="HalffabTabelVullen">
-<FormalSpec>HalffabTabel:DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</ReturnType>
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
-	// HalffabTabel vullen met artificiële halffab data 
-	; Do HalffabTabel.AddHalffab(...)
-	; Do HalffabTabel.AddHalffab(...)
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRugHouder).%New()
+	Set Halffab.Rol = "Rughouder"
+	Set Halffab.RugHoogte = "B"
+	Set Halffab.Kleur = "SW"
+	Set Halffab.ZijwandHoogte = "B"
+	Set Halffab.Verpakking = "I"
+	Set Halffab.LiRe = "LI"
+	Set Halffab.UnID = 593164
+	Do HalffabTabel.VoegToeHalffab(Halffab)
+	
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRugHouder).%New()
+	Set Halffab.Rol = "Rughouder"
+	Set Halffab.RugHoogte = "B"
+	Set Halffab.Kleur = "SW"
+	Set Halffab.ZijwandHoogte = "B"
+	Set Halffab.Verpakking = "I"
+	Set Halffab.LiRe = "RE"
+	Set Halffab.UnID = 593165
+	Do HalffabTabel.VoegToeHalffab(Halffab)
 ]]></Implementation>
 </Method>
 
 <Method name="TestRughouder">
 <Implementation><![CDATA[
-	Set Context=..ContextPROD(##class(DOM.PM.enu.LadeVariant).TBXAntaro())
-	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFRugHouderv001).%New("")
+	Set Context = ..GeefContext()
 	
-	Set IngegevenKenmerken=..DataTBX.GeefIngegevenKenmerken("A","SW","B")
-	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
+	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()
 	
-	// Resultaat is nu een Samengesteld HalffabItem met 2 halffab, namelijk een LI en een RE product 
+	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")
@@ -50,20 +62,6 @@
 	Quit
 ]]></Implementation>
 </Method>
-
-<Method name="TestXX">
-<Implementation><![CDATA[	; ToDo
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-// Methods ter voorbereiding van de testen
-// ======= === ============= === == ====== 
-*/
-]]></Content>
-</UDLText>
 </Class>
-<Checksum value="475576716"/>
+<Checksum value="3242688509"/>
 </Export>
Index: vhUnitTest/DOM/AKP/TestAPI.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/AKP/TestAPI.cls.xml	(revision 0)
+++ vhUnitTest/DOM/AKP/TestAPI.cls.xml	(revision 915)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 08:09:57">
+<Class name="vhUnitTest.DOM.AKP.TestAPI">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.AKP.TestAPI") </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62153,29466.407271</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestAPIOpvragen">
+<Implementation><![CDATA[
+	Set AankoopPrijsAPI = ##class(DOM.DomeinContext).Instance().GeefAankoopPrijsAPI()
+	Do $$$AssertTrue($IsObject(AankoopPrijsAPI),"De aankoopprijs api is een object")
+	Do $$$AssertTrue(AankoopPrijsAPI.%Extends("DOM.AKP.AankoopPrijsAPI"),"Het object is van het juiste type")
+]]></Implementation>
+</Method>
+
+<Method name="TestAankoopPrijs">
+<Implementation><![CDATA[
+	Set DomeinContext = ##class(DOM.DomeinContext).Instance()
+	Set AankoopPrijsAPI = DomeinContext.GeefAankoopPrijsAPI()
+	Set ProductAPI = DomeinContext.GeefProductAPI()
+	Set Product = ProductAPI.GeefProduct(286261)
+	
+	Set KlantID = 7587  // Halux
+	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
+	
+	Set AankoopPrijsInfo = AankoopPrijsAPI.GeefAankoopPrijsInfo(Product, BerekeningsSpecificatie)
+	
+	Do $$$AssertTrue($IsObject(AankoopPrijsInfo),"Het object is teruggegeven")
+	Do $$$AssertTrue(AankoopPrijsInfo.GeefReferentiePrijs() > 0,"De prijs is ingevuld")
+	Do $$$AssertTrue($IsObject(AankoopPrijsInfo.GeefBerekeningsSpecificatie()), "De berekeningsspecificatie is ingesteld")
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2598046218"/>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFBodemv001.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 915)
@@ -1,77 +1,103 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-18 11:03:46">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFBodemv001">
 <Description>
 Oproepen via 
 	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.TBX.HFBodemv001") 
 	</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestCaseTBX</Super>
-<TimeChanged>62115,47094.378233</TimeChanged>
+<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder</Super>
+<TimeChanged>62140,39884.571122</TimeChanged>
 <TimeCreated>62012,63523.617197</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="IsBuilderMeestRecenteVersie">
-<Description>
-Dient om aan te duiden of welke halffabTabel gebruikt wordt : Productie (persistent) of UnitTest (in-memory, artificial data) </Description>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="HalffabTabelVullen">
-<FormalSpec>HalffabTabel:DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</ReturnType>
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
-	// HalffabTabel vullen met artificiële halffab data 
-	; Do HalffabTabel.AddHalffab(...)
-	; Do HalffabTabel.AddHalffab(...)
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabBodem).%New()
+	Set Halffab.Rol = "BODEM"
+	Set Halffab.MateriaalType = "BODEM"
+	Set Halffab.LadeDiepte = 500
+	Set Halffab.LadeBreedte = 863
+	Set Halffab.Kleur = "LG"
+	Set Halffab.UnID = 567902
+	Do HalffabTabel.VoegToeHalffab(Halffab)
+	
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabBodem).%New()
+	Set Halffab.Rol = "BODEM"
+	Set Halffab.MateriaalType = "BODEMSTRK"
+	Set Halffab.LadeDiepte = 500
+	Set Halffab.LadeBreedte = 2840
+	Set Halffab.Kleur = "LG"
+	Do Halffab.BewerkbareProperties.Insert("LadeBreedte")
+	Set Halffab.UnID = 561591
+	Do HalffabTabel.VoegToeHalffab(Halffab)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBodemUitStrook">
 <Implementation><![CDATA[
-	Set Context=..ContextPROD(##class(DOM.PM.enu.LadeVariant).TBXPlus())
-	Set IngegevenKenmerken=..DataTBX.GeefIngegevenKenmerken("Plus","MG","D")
-	Set HalffabItemLadeZijkant=..DataTBX.GeefHFItemLadeZijkantMx500xMG(Context)
-	Do Context.HalffabItemsBoom.AddHalffabItem(HalffabItemLadeZijkant)
+	Set Context = ..GeefContext()
 	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set IngegevenKenmerken.LadeDiepte = 500
+	Set IngegevenKenmerken.InbouwBreedte = 863
+	Set IngegevenKenmerken.BodemKleur = "LG"
+	
+	Do Context.HalffabItemsBoom.AddHalffabItem(..GeefLadeZijkantHalffab(Context))
+	
 	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBodemv001).%New("")
 	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
 	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
 	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem"),"HalffabItem is een BewerktHalffabItem")
 	Do $$$AssertTrue($IsObject(HalffabItem.Halffab),"HalffabItem heeft een halffab")
 	Do $$$AssertEquals(HalffabItem.Halffab.UnID,561591,"Halffab UnID voor TBX Bodem")
-	Do $$$AssertEquals(HalffabItem.AfwijkendeKenmerkenToString(),"","Halffab heeft AfwijkendeKenmerken Breedte")   ; ToDo. 
+	Do $$$AssertEquals(HalffabItem.AfwijkendeKenmerkenToString(),"LadeBreedte","Halffab heeft AfwijkendeKenmerken Breedte")   ; ToDo.
+]]></Implementation>
+</Method>
 
-	// Deel 2 : PlaatMateriaal is nu "HZ" (Halux gezaagd) 
-	Set IngegevenKenmerken2=IngegevenKenmerken.%ConstructClone(1)
-	Set IngegevenKenmerken2.PlaatMateriaal="HZ"                      ; Wijzig PlaatMateriaal naar "HZ" (Halux gezaagd) --> selector geeft een klant-en-klare bodem 
-	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken2,Context)   ; Hergebruik de Builder van Deel 1 
+<Method name="TestBodemOpMaat">
+<Implementation><![CDATA[
 	
+	Set Context = ..GeefContext()
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set IngegevenKenmerken.LadeDiepte = 500
+	Set IngegevenKenmerken.InbouwBreedte = 863
+	Set IngegevenKenmerken.BodemKleur = "LG"
+	Set IngegevenKenmerken.PlaatMateriaal="HZ" 
+	
+	Do Context.HalffabItemsBoom.AddHalffabItem(..GeefLadeZijkantHalffab(Context))
+	
+	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBodemv001).%New("")
+	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
+	
 	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
 	;Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"),"HalffabItem is een StandaardHalffabItem")   ; ToDo. 
 	Do $$$AssertTrue($IsObject(HalffabItem.Halffab),"HalffabItem heeft een halffab")
 	Do $$$AssertEquals(HalffabItem.Halffab.UnID,567902,"Halffab UnID voor TBX Bodem")
-
-	Quit
 ]]></Implementation>
 </Method>
 
-<Method name="TestXX">
-<Implementation><![CDATA[	; ToDo
+<Method name="GeefLadeZijkantHalffab">
+<FormalSpec>Context:vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabContext</FormalSpec>
+<Implementation><![CDATA[
+	Set Rol = "LadeZijkant"
+	Set SamengesteldItem=##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(Context,Rol)
+
+	Set HalffabItemLinks=##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context,"Links")
+	Set HalffabItemLinks.Halffab=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabLadeZijkant).%New()
+	Set HalffabItemLinks.Halffab.AftrekVoorBodem = 75
+	Do SamengesteldItem.VoegToe(HalffabItemLinks)
+
+	Set HalffabItemRechts=##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(Context,"Rechts")
+	Set HalffabItemRechts.HalffabItem=HalffabItemLinks
+	Do SamengesteldItem.VoegToe(HalffabItemRechts)
+
+	Quit SamengesteldItem
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-// Methods ter voorbereiding van de testen
-// ======= === ============= === == ====== 
-*/
-]]></Content>
-</UDLText>
 </Class>
-<Checksum value="410372160"/>
+<Checksum value="2424835196"/>
 </Export>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv03.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv03.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv03.cls.xml	(revision 915)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 16:28:15">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv03">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Super>
+<TimeChanged>62158,59294.505209</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+/// Property A As %String // voor de unittest is deze property weggelaten. 
+*/
+]]></Content>
+</UDLText>
+
+<Property name="ProptB">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProptC">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVersieNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 3
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>UTKenmerkenv03DefaultData</DefaultData>
+<Data name="UTKenmerkenv03DefaultData">
+<Structure>listnode</Structure>
+<Subscript>"UTKenmerkenv03"</Subscript>
+<Value name="1">
+<Value>ProptB</Value>
+</Value>
+<Value name="2">
+<Value>ProptC</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+<Checksum value="1900474595"/>
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/UTKenmv02v03Upgrader.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/UTKenmv02v03Upgrader.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/UTKenmv02v03Upgrader.cls.xml	(revision 915)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 16:38:41">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.UTKenmv02v03Upgrader">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.PM.Maatwerk.IngegevenKenmUpgrader</Super>
+<TimeChanged>62158,59920.241409</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="UseUpgradeViaWrapper">
+<Description>
+Parameter UseUpgradeViaWrapper op 1 zetten om te activeren </Description>
+<Default>1</Default>
+</Parameter>
+
+<Method name="GeefVerwachteVersieNr">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 2   ; VerwachteVersie
+]]></Implementation>
+</Method>
+
+<Method name="UpgradeViaWrapper">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set WrapperClassName="vhUnitTest.APPS.PM.Maatwerk.UTKenmUpgradeWrapperv02v03"
+
+	// Wrapper rond de input-Kenmerken maken.  De conversie van de properties vind je in deze Wrapper-klasse. 
+	Set NewVersionIK=$zobjclassmethod(WrapperClassName,"%New",Kenmerken)
+
+	Quit NewVersionIK
+]]></Implementation>
+</Method>
+
+<Method name="ValideerVerwachteVersie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$Not(Kenmerken.VersieNr=..GeefVerwachteVersieNr()) {
+		$$$ThrowError($$$errInvalidInput,"Verwachte versie van IK is  ZEKER ongeldig")
+	}
+ /*	  
+	// Moet ook de classname gecontroleerd worden ?   --> TBX / KAD 
+	If $$$Not(Kenmerken.%Classname()="") {
+		$$$ThrowError($$$errInvalidInput,"Ongeldige ClassName van de IK")
+	}
+ */
+	Quit
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2331238832"/>
+</Export>
Index: vhUnitTest/ClassInfo/impl/TestKlasse3.cls.xml
===================================================================
diff -u
--- vhUnitTest/ClassInfo/impl/TestKlasse3.cls.xml	(revision 0)
+++ vhUnitTest/ClassInfo/impl/TestKlasse3.cls.xml	(revision 915)
@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 13:42:43">
+<Class name="vhUnitTest.ClassInfo.impl.TestKlasse3">
+<Description>
+</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<TimeChanged>62157,49435.047398</TimeChanged>
+</Class>
+<Checksum value="2213923934"/>
+</Export>
Index: vhUnitTest/DOM/PM/Classificaties/TestClassificaties.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Classificaties/TestClassificaties.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Classificaties/TestClassificaties.cls.xml	(revision 915)
@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 15:14:17">
+<Class name="vhUnitTest.DOM.PM.Classificaties.TestClassificaties">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62157,54929.420103</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestHoofdgroepenClassificatie">
+<Implementation><![CDATA[
+		Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+		Do $$$AssertTrue(ProductAPI.%Extends("DOM.PM.ProductAPI"),"Het object is een ProductAPI")	
+		
+		Set Iterator = ProductAPI.GeefClassificaties()
+		
+		Do $$$AssertEquals(Iterator.HasNext(),1,"Er zijn classificaties van hoofdgroepen gevonden.")
+		If (Iterator.HasNext())
+		{
+			Set Classificatie = Iterator.Next()	
+			Do $$$AssertTrue(Classificatie.%Extends("DOM.PM.impl.DataM.DataMHoofdgroepClassificatie"),"Het object is een Hoofdgroep Classificatie")
+			Do ..ClassificatieControle(Classificatie)
+		}
+]]></Implementation>
+</Method>
+
+<Method name="TestGroepenClassificatie">
+<Implementation><![CDATA[
+		Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+		Do $$$AssertTrue(ProductAPI.%Extends("DOM.PM.ProductAPI"),"Het object is een ProductAPI")	
+		
+		Set Iterator = ProductAPI.GeefClassificaties()
+		
+		Do $$$AssertEquals(Iterator.HasNext(),1,"Er zijn classificaties van hoofdgroepen gevonden.")		
+		If (Iterator.HasNext())
+		{
+			Set Classificatie = Iterator.Next()	
+			Do $$$AssertTrue(Classificatie.%Extends("DOM.PM.impl.DataM.DataMHoofdgroepClassificatie"),"Het object is een Hoofdgroep Classificatie")
+			
+			Set GroepenIterator = Classificatie.GeefGroepClassificaties()
+			Do $$$AssertEquals(GroepenIterator.HasNext(),1,"Er zijn classificaties van groepen gevonden.")	
+			If (GroepenIterator.HasNext()){
+				Set GroepClassificatie = GroepenIterator.Next()
+				Do $$$AssertTrue(GroepClassificatie.%Extends("DOM.PM.impl.DataM.DataMGroepClassificatie"),"Het object is een Groep Classificatie")	
+				Do ..ClassificatieControle(Classificatie)
+			}	
+		}
+]]></Implementation>
+</Method>
+
+<Method name="TestSubgroepenClassificatie">
+<Implementation><![CDATA[
+		Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+		Do $$$AssertTrue(ProductAPI.%Extends("DOM.PM.ProductAPI"),"Het object is een ProductAPI")	
+		
+		Set Iterator = ProductAPI.GeefClassificaties()
+		
+		Do $$$AssertEquals(Iterator.HasNext(),1,"Er zijn classificaties van hoofdgroepen gevonden.")		
+		If (Iterator.HasNext())
+		{
+			Set Classificatie = Iterator.Next()	
+			Do $$$AssertTrue(Classificatie.%Extends("DOM.PM.impl.DataM.DataMHoofdgroepClassificatie"),"Het object is een Classificatie")
+			
+			Set GroepenIterator = Classificatie.GeefGroepClassificaties()
+			Do $$$AssertEquals(GroepenIterator.HasNext(),1,"Er zijn classificaties van groepen gevonden.")	
+			If (GroepenIterator.HasNext()){
+				Set GroepClassificatie = GroepenIterator.Next()
+				Do $$$AssertTrue(GroepClassificatie.%Extends("DOM.PM.impl.DataM.DataMGroepClassificatie"),"Het object is een Groep Classificatie")	
+				
+				Set SubgroepenIterator = GroepClassificatie.GeefSubgroepClassificaties()
+				Do $$$AssertEquals(SubgroepenIterator.HasNext(),1,"Er zijn classificaties van groepen gevonden.")	
+				If (SubgroepenIterator.HasNext()){
+					Set SubgroepClassificatie = SubgroepenIterator.Next()
+					Do $$$AssertTrue(SubgroepClassificatie.%Extends("DOM.PM.impl.DataM.DataMSubgroepClassificatie"),"Het object is een Subgroep Classificatie")	
+					Do ..ClassificatieControle(Classificatie)
+				}
+			}	
+		}
+]]></Implementation>
+</Method>
+
+<Method name="ClassificatieControle">
+<FormalSpec>Classificatie:DOM.PM.Classificatie</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+		Do $$$AssertTrue(Classificatie.GeefCode() '= "","Er is een code aanwezig van deze classificatie.")	
+		Do $$$AssertTrue(Classificatie.GeefKKey() '= "","Er is een KKey aanwezig van deze classificatie.")	
+		Do $$$AssertTrue(Classificatie.GeefNederlands() '= "","Er is een nederlandstalige omschrijving aanwezig van deze classificatie.")	
+		Do $$$AssertTrue(Classificatie.GeefFrans() '= "","Er is een franstalige omschrijving aanwezig van deze classificatie.")
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="3452418112"/>
+</Export>
Index: vhUnitTest/ClassInfo/impl/ImplKlasse.cls.xml
===================================================================
diff -u
--- vhUnitTest/ClassInfo/impl/ImplKlasse.cls.xml	(revision 0)
+++ vhUnitTest/ClassInfo/impl/ImplKlasse.cls.xml	(revision 915)
@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 13:54:39">
+<Class name="vhUnitTest.ClassInfo.impl.ImplKlasse">
+<Import>vhUnitTest.ClassInfo.impl.sub</Import>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<TimeChanged>62157,50151.46719</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+</Class>
+<Checksum value="3331580693"/>
+</Export>
Index: vhUnitTest/PRA/Concurrency/TestDirtyRead.cls.xml
===================================================================
diff -u -r860 -r915
--- vhUnitTest/PRA/Concurrency/TestDirtyRead.cls.xml	(.../TestDirtyRead.cls.xml)	(revision 860)
+++ vhUnitTest/PRA/Concurrency/TestDirtyRead.cls.xml	(.../TestDirtyRead.cls.xml)	(revision 915)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-08 11:51:02">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-21 08:49:38">
 <Class name="vhUnitTest.PRA.Concurrency.TestDirtyRead">
 <Description>
 Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","PRA.Concurrency.TestDirtyRead")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62130,42711.802265</TimeChanged>
+<TimeChanged>62143,31838.314856</TimeChanged>
 <TimeCreated>62104,55074.839111</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -94,5 +94,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="248962884"/>
+<Checksum value="3666649922"/>
 </Export>
Index: vhUnitTest/Manager.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 734)
+++ vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 915)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-24 08:51:24">
 <Class name="vhUnitTest.Manager">
 <Description>
 Adopted from InterSystems's %UnitTest.Manager by logist (Dimas ltd., Russia)
@@ -12,7 +12,7 @@
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62111,54649.079561</TimeChanged>
+<TimeChanged>62146,31947.407668</TimeChanged>
 <TimeCreated>59429,65352.216564</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -110,13 +110,12 @@
  
  if manager.MailOnError { 
  	Set From = $$$SystemMail($$$Server_" - UnitTests")
+ 	Set port=$get(^%SYS("SSPort"),1972)
+	set Message = "http://"_$$$Server_":"_port_"/csp/admin1/vhUnitTest.Report.cls?NS="_##class(%CSP.Page).EscapeURL($znspace)_"&INDEX="_manager.LogIndex_"&SUITE="_testsuite
    	if 'manager.IsSuccess(testsuite) {	 
-    	Set port=$get(^%SYS("SSPort"),1972)
-		set Message = "http://"_$$$Server_":"_port_"/csp/admin1/vhUnitTest.Report.cls?NS="_##class(%CSP.Page).EscapeURL($znspace)_"&INDEX="_manager.LogIndex_"&SUITE="_testsuite
-		Do SendMiniMail^vhLib(From,$LB("ict_development@vanhoecke.be"),"UnitTest "_manager.LogIndex_" Failed on ["_$$$Server_"]",Message,0) 
+    	Do SendMiniMail^vhLib(From,$LB("ict_development@vanhoecke.be"),"UnitTest "_manager.LogIndex_" Failed on ["_$$$Server_"]",Message,0) 
 	} 
 	else {
-		Set Message = ""
     	Do SendMiniMail^vhLib(From,$LB("ICT_UnittestSysOp@vanhoecke.be"),"UnitTest "_manager.LogIndex_" Succeeded on ["_$$$Server_"]",Message,0)    
     }
  }
@@ -382,5 +381,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2268450217"/>
+<Checksum value="395447591"/>
 </Export>
Index: vhUnitTest/Prod/Kenmerk/DataIndexSQLBuilder.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/Prod/Kenmerk/DataIndexSQLBuilder.cls.xml	(.../DataIndexSQLBuilder.cls.xml)	(revision 734)
+++ vhUnitTest/Prod/Kenmerk/DataIndexSQLBuilder.cls.xml	(.../DataIndexSQLBuilder.cls.xml)	(revision 915)
@@ -1,12 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-21 08:50:03">
 <Class name="vhUnitTest.Prod.Kenmerk.DataIndexSQLBuilder">
 <Description>
-do ##class(vhUnitTest.Manager).RunTest("/Display=all","Prod.Kenmerk.DataIndexSQLBuilder")</Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","Prod.Kenmerk.DataIndexSQLBuilder")</Description>
 <IncludeCode>vhLib.Macro,BL.Derde.KlantSpecifiek,vhUnitTest.DOM.PM.OL.Gamma</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62109,56315.276865</TimeChanged>
+<TimeChanged>62143,31863.992234</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="MeerdereJoinsSingleValue">
@@ -133,5 +133,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2768948412"/>
+<Checksum value="751189523"/>
 </Export>
Index: vhUnitTest/DOM/PM/Maatwerk/Kost/TestHalffabKostItemBuilder.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/Kost/TestHalffabKostItemBuilder.cls.xml	(.../TestHalffabKostItemBuilder.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/Kost/TestHalffabKostItemBuilder.cls.xml	(.../TestHalffabKostItemBuilder.cls.xml)	(revision 915)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 08:00:57">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.Kost.TestHalffabKostItemBuilder">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.Kost.TestHalffabKostItemBuilder") </Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62115,49639.681356</TimeChanged>
+<TimeChanged>62153,28926.028276</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestHalffabKostItemBuilder">
@@ -30,12 +30,12 @@
 	Set HFItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 	Set HFItemsBoom.Wortel = SamengesteldItem
 	
-	Set Familie = ##class(DOM.PM.enu.Familie).AluKader()
-	Set ProductType = ##class(DOM.PM.enu.AluKaderVariant).Basis()
+	Set Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Set ProductType = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	Set KlantID = 1000
 	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
 	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
-	Set KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(Familie,ProductType,BerekeningsSpecificatie)
+	Set KostContext = ##class(vhUnitTest.DOM.PM.Maatwerk.Kost.impl.UTKostContext).%New(Familie,ProductType,BerekeningsSpecificatie)
 	Set KostItemsBoom = HFKostItemBuilder.Bereken(KostContext,HFItemsBoom)
 	
 	Do $$$AssertTrue($IsObject(KostItemsBoom),"De boom is een object")
@@ -76,5 +76,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3529643430"/>
+<Checksum value="1123609528"/>
 </Export>
Index: vhUnitTest/DOM/PM/OL/Gamma/ProductenNaarPrijslijstMock.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/OL/Gamma/ProductenNaarPrijslijstMock.cls.xml	(.../ProductenNaarPrijslijstMock.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/OL/Gamma/ProductenNaarPrijslijstMock.cls.xml	(.../ProductenNaarPrijslijstMock.cls.xml)	(revision 915)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-14 17:58:56">
 <Class name="vhUnitTest.DOM.PM.OL.Gamma.ProductenNaarPrijslijstMock">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.OL.Gamma.impl.ProductenNaarPrijslijst</Super>
-<TimeChanged>62097,38364.417288</TimeChanged>
+<TimeChanged>62136,64790.09174</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="InfoOpslaanInStream">
@@ -22,6 +22,13 @@
 <Implementation><![CDATA[	do ##super(Bestandsnaam)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVertalingHoofding">
+<FormalSpec>Property</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	quit Property
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="1479567986"/>
+<Checksum value="3648705586"/>
 </Export>
Index: vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml
===================================================================
diff -u -r860 -r915
--- vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml	(.../TestTBXLade.cls.xml)	(revision 860)
+++ vhUnitTest/DOM/PM/Maatwerk/TBXProduct/TestTBXLade.cls.xml	(.../TestTBXLade.cls.xml)	(revision 915)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-08 11:52:04">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-02 08:11:24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.TBXProduct.TestTBXLade">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.TBXProduct.TestTBXLade")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62130,42773.686214</TimeChanged>
+<TimeChanged>62152,29552.705212</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestProductImpl">
@@ -17,6 +17,7 @@
 	Do $$$AssertTrue($Length(Product.GeefKorttekst()) > 0,"De korttekst is ingevuld")
 	Do $$$AssertTrue($Length(Product.GeefOmschrijving()) > 0,"De omschrijving is ingevuld")
 	Do $$$AssertTrue(Product.GeefPRNr() > 0,"De productnummer is ingevuld")
+	Do $$$AssertEquals(Product.GeefIdentNr(),"9.952.265.5","Het ident nummer")
 	Do $$$AssertTrue('Product.IsLangGoed(),"Het product is geen langgoed")
 ]]></Implementation>
 </Method>
@@ -35,27 +36,52 @@
 	Do $$$AssertTrue('Product.BevatInTeKortenStabilisator(),"Bevat geen in te korten stabilisatoren")
 	Do $$$AssertTrue('Product.BevatInTeKortenZijkantGlas(),"Bevat geen in te korten zijkantglas")
 	Do $$$AssertTrue(Product.BevatReling(),"Bevat een reling")
+	Do $$$AssertTrue('Product.BevatStabilisator(),"Bevat een stabilisator")
 	Do $$$AssertTrue('Product.BevatSynchro(),"Bevat een synchronisatiestang")
 	Do $$$AssertTrue('Product.BevatTipOn(),"Bevat geen tipon")
 	Do $$$AssertTrue('Product.BevatTussenReling(),"Bevat geen tussenreling")
 	Do $$$AssertEquals(Product.GeefAantalHangmappen(),0,"Bevat geen hangmappen")
-	Do $$$AssertEquals(Product.GeefBluMotion(),##class(DOM.PM.enu.TBXBluMotion).Geintegreerd(),"Geïntegreerde blumotion")
+	Do $$$AssertTrue(Product.BevatBodem(),"Bevat een bodem")
+	Do $$$AssertTrue($IsObject(Product.GeefBodem()),"De bodem is een object")
+	Do $$$AssertTrue('Product.BevatVoorgezaagdeBodem(),"Bevat een voorgezaagde bodem")
+	Do $$$AssertTrue(Product.BevatRug(),"Bevat een rug")
+	Do $$$AssertTrue($IsObject(Product.GeefRug()),"De rug is een object")
+	Do $$$AssertEquals(Product.GeefBlumotion(),##class(DOM.PM.enu.TBXBlumotion).Geintegreerd(),"Geïntegreerde blumotion")
 	Do $$$AssertEquals(Product.GeefBodemKleur(),"LG","Bodemkleur lichtgrijs")
+	Do $$$AssertEquals(Product.GeefBodemBreedte(),1059,"Breedte van de bodem")
+	Do $$$AssertEquals(Product.GeefBodemDiepte(),476,"Breedte van de bodem")
+	Do $$$AssertEquals(Product.GeefBodemKleur(),"LG","Breedte van de bodem")
+	Do $$$AssertEquals(Product.GeefBoxsideKleur(),##class(DOM.PM.enu.TBXBoxsideKleur).MG(),"De kleur van de boxside")
 	Do $$$AssertEquals(Product.GeefDraagkracht(),30,"Draagkracht van 30kg")
+	Do $$$AssertEquals(Product.GeefDwarsverdeling(),##class(DOM.PM.enu.TBXDwarsverdeling).Zonder(),"De dwarsverdeling")
 	Do $$$AssertEquals(Product.GeefFamilie(),##class(DOM.PM.enu.Familie).Lade(),"Het product is een lade")
+	Do $$$AssertEquals(Product.GeefFrontBevestiging(),##class(DOM.PM.enu.TBXFrontBevestiging).S(),"De frontbevestiging")
+	Do $$$AssertEquals(Product.GeefFrontHouderKleur(),"MG","Het product is een lade")
 	Do $$$AssertEquals(Product.GeefVariant(),##class(DOM.PM.enu.LadeVariant).TBXPlus(),"Product is een TBX plus")
 	Do $$$AssertEquals(Product.GeefInterneBreedte(),1134,"Interne breedte van 1134")
+	Do $$$AssertEquals(Product.GeefInschuifElementMatCode(),"","Materiaalcode van het inschuifelement")
 	Do $$$AssertEquals(Product.GeefLadeDiepte(),500,"Ladediepte van 500")
+	Do $$$AssertEquals(Product.GeefLadeType(),##class(DOM.PM.enu.TBXLadeType).Lade(),"Ladehoogte van 500")
+	Do $$$AssertEquals(Product.GeefPlaatMateriaal(),"HS","Ladehoogte van 500")
 	Do $$$AssertTrue(Product.GeefReling().%Extends("DOM.PM.TBXProduct.TBXReling"),"De reling is een tandembox reling")
 	Do $$$AssertEquals(Product.GeefRelingKleur(),"MG","Relingkleur metallic grijs")
 	Do $$$AssertEquals(Product.GeefRugBreedte(),1047,"De rugbreedte")
 	Do $$$AssertEquals(Product.GeefRugHoogte(),##class(DOM.PM.enu.TBXLadehoogte).D(),"D rughoogte")
-	Do $$$AssertEquals(Product.GeefRugKleur(),"MG","Rugkleur metaalgrijs")
+	Do $$$AssertEquals(Product.GeefRugHoogteMM(),199,"D rughoogte")
+	Do $$$AssertEquals(Product.GeefRugKleur(),"LG","Rugkleur metaalgrijs")
+	Do $$$AssertEquals(Product.GeefRugHouderKleur(),"MG","Rughouderkleur metaalgrijs")
 	Do $$$AssertEquals(Product.GeefRugMateriaal(),##class(DOM.PM.enu.TBXRugMateriaal).Hout(),"Rugmateriaal hout")
 	Do $$$AssertTrue('$IsObject(Product.GeefTussenReling()),"Product heeft geen tussenreling")
+	Do $$$AssertEquals(Product.GeefUittrekbaarheid(),##class(DOM.PM.enu.TBXUittrekbaarheid).Volledig(),"Enkele uittrekbaarheid")
 	Do $$$AssertEquals(Product.GeefWandDikte(),0,"Wanddikte 0 (niet ingesteld)")
 	Do $$$AssertEquals(Product.GeefZijkantDesign(),##class(DOM.PM.enu.TBXZijkantDesign).S(),"S design")
 	Do $$$AssertEquals(Product.GeefSpoelbakDiepte(),360,"SpoelbakDiepte 360")
+	Do $$$AssertEquals(Product.GeefVerpakking(),##class(DOM.PM.enu.TBXVerpakking).S(),"De verpakking")
+	Do $$$AssertEquals(Product.GeefZijkantHoogte(),##class(DOM.PM.enu.TBXZijkantHoogte).M(),"M hoogte")
+	Do $$$AssertEquals(Product.GeefZijkantKleur(),"MG","Zijkantkleur")
+	Do $$$AssertEquals(Product.GeefZijwandHoogte(),##class(DOM.PM.enu.TBXZijwandHoogte).D(),"M hoogte")
+	Do $$$AssertEquals(Product.GeefZijwandType(),##class(DOM.PM.enu.TBXZijwandType).BoxsideDubbelwandig(),"ZijwandType")
+	Do $$$AssertTrue($Length(Product.GeefFicheURL()) > 0,"De fiche url is ingesteld")
 ]]></Implementation>
 </Method>
 
@@ -81,6 +107,14 @@
 	Do $$$AssertTrue(Product.%Extends("DOM.PM.TBXProduct.TBXSpoelbaklade"),"Het product is een spoelbaklade")
 	Do $$$AssertEquals(Product.GeefLadeDiepte(),400,"Ladediepte van 400")
 	Do $$$AssertEquals(Product.GeefTussenstukDiepte(),120,"TussenstukDiepte van de spoelbaklade is 120")
+
+	// Testen TussenstukDiepte voor OnderdelenSpeciaal="Bodem" (bij LD=500) 
+	// De bouwsteen "Binnenzijkant v. spoelbak" is hier niet aanwezig 
+	Set Product = API.GeefProduct(511642)
+	Do $$$AssertTrue($IsObject(Product),"De API gaf een correct object terug")
+	Do $$$AssertTrue(Product.%Extends("DOM.PM.TBXProduct.TBXSpoelbaklade"),"Het product is een spoelbaklade")
+	Do $$$AssertEquals(Product.GeefLadeDiepte(),500,"Ladediepte van 400")
+	Do $$$AssertEquals(Product.GeefTussenstukDiepte(),140,"TussenstukDiepte van de spoelbaklade is 140")
 ]]></Implementation>
 </Method>
 
@@ -111,17 +145,6 @@
 	Do $$$AssertEquals(Product.GeefVerpakking(),##class(DOM.PM.enu.Verpakking).Industrie(),"Industrieverpakking")
 ]]></Implementation>
 </Method>
-
-<Method name="TestHangmap">
-<Implementation><![CDATA[
-	Set API = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-	Set Product = API.GeefProduct(611994)
-	
-	Do $$$AssertEquals(Product.GeefAantalHangmappen(),1,"Bevat 1 hangmapn")
-	Set PositiesLijst = Product.GeefHangmapBoringPosities()
-	Do $$$AssertEquals(PositiesLijst.Size,2,"2 posities te boren voor 1 hangmap")
-]]></Implementation>
-</Method>
 </Class>
-<Checksum value="3586272484"/>
+<Checksum value="2894483150"/>
 </Export>
Index: vhUnitTest/TestCase.cls.xml
===================================================================
diff -u -r867 -r915
--- vhUnitTest/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 867)
+++ vhUnitTest/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 915)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-09 15:02:15">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-24 10:36:02">
 <Class name="vhUnitTest.TestCase">
 <Description>
 Adopted from InterSystems's %UnitTest.TestCase by logist (Dimas ltd., Russia)
@@ -11,7 +11,7 @@
 <IncludeGenerator>%outUnitTest,vhUnitTest</IncludeGenerator>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62131,54184.589092</TimeChanged>
+<TimeChanged>62146,38225.206527</TimeChanged>
 <TimeCreated>59429,64520.016065</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -26,183 +26,193 @@
 <FormalSpec>AManager</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
- Set r%Manager=AManager
- Quit $$$OK
+	 Set r%Manager=AManager
+	 Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
- set %VarsInMemoryBefore = 0
- set Var = "%" for  set Var = $order(@Var) quit:Var=""  set %VarsInMemoryBefore=$i(%VarsInMemoryBefore)
  
- do WLIP^vhDBG(195,##this.%ClassName(1)_" before "_%VarsInMemoryBefore)
- 
- Quit $$$OK
+	 Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
- set %VarsInMemoryAfter = 0
- set Var = "%" for  set Var = $order(@Var) quit:Var=""  set %VarsInMemoryAfter=$i(%VarsInMemoryAfter)
- 
- do WLIP^vhDBG(195,##this.%ClassName(1)_" After "_%VarsInMemoryAfter)
- do WLIP^vhDBG(195,"")
- 
- if %VarsInMemoryAfter'=%VarsInMemoryBefore do ..Fail("Vars niet mooi opgekuisd")
- Quit $$$OK
+<Implementation><![CDATA[	 Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[ Quit $$$OK
+<Implementation><![CDATA[
+	set %VarsInMemoryBefore = 0
+	set Var = "%" for  set Var = $order(@Var) quit:Var=""  if ..ValidVar(Var) set %VarsInMemoryBefore=$i(%VarsInMemoryBefore)
+	
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+
+	set %VarsInMemoryAfter = 0
+	set Var = "%" for  set Var = $order(@Var) quit:Var=""  if ..ValidVar(Var) set %VarsInMemoryAfter=$i(%VarsInMemoryAfter)
+	 
+	;if %VarsInMemoryAfter'=%VarsInMemoryBefore do ..Fail("Vars niet mooi opgekuisd")
+	
 	While (0 '= $TLevel) {
-		Do ..Fail("Een openstaande transactie werd niet gesloten!")
 		TRollback
+		Do ..Fail("Een openstaande transactie werd niet gesloten!")
 	}
- Quit $$$OK
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="ValidVar">
+<FormalSpec>Var</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	quit:$extract(Var)="%" 0
+	quit:Var="SQLCODE" 0
+	quit:Var="sc" 0
+	
+	quit 1
+]]></Implementation>
+</Method>
+
 <Method name="AssertEqualsViaMacro">
 <FormalSpec>aAutoQuoted,aValue1,aValue2,aMessage</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
- Set manager=r%Manager
- Set aMessage=$g(aMessage)
-     _":("_aValue1_"=="_aValue2_"):"
-     _"["_..ParseAutoQuoted(aAutoQuoted,"equals")_"]"
- Set success = aValue1=aValue2
- Do manager.LogAssert(success,"AssertEquals",aMessage)
- Quit success
+	 Set manager=r%Manager
+	 Set aMessage=$g(aMessage)
+	     _":("_aValue1_"=="_aValue2_"):"
+	     _"["_..ParseAutoQuoted(aAutoQuoted,"equals")_"]"
+	 Set success = aValue1=aValue2
+	 Do manager.LogAssert(success,"AssertEquals",aMessage)
+	 Quit success
 ]]></Implementation>
 </Method>
 
 <Method name="AssertNotEqualsViaMacro">
 <FormalSpec>aAutoQuoted,aValue1,aValue2,aMessage</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
- Set manager=r%Manager
- Set aMessage=$g(aMessage)
-     _":("_aValue1_"'="_aValue2_"):"
-     _"["_..ParseAutoQuoted(aAutoQuoted,"equals")_"]"
- Set success=aValue1'=aValue2
- Do manager.LogAssert(success,"AssertNotEquals",aMessage)
- Quit success
+	 Set manager=r%Manager
+	 Set aMessage=$g(aMessage)
+	     _":("_aValue1_"'="_aValue2_"):"
+	     _"["_..ParseAutoQuoted(aAutoQuoted,"equals")_"]"
+	 Set success=aValue1'=aValue2
+	 Do manager.LogAssert(success,"AssertNotEquals",aMessage)
+	 Quit success
 ]]></Implementation>
 </Method>
 
 <Method name="AssertAlmostEqualsViaMacro">
 <FormalSpec>aAutoQuoted,aValue1,aValue2,aDifference,aMessage</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
- Set manager=r%Manager
- Set aMessage=$g(aMessage)
-     _":("_aValue1_"="_aValue2_" [margin = "_ aDifference _"]):"
-     _"["_..ParseAutoQuoted(aAutoQuoted,"equals")_"]"
- Set success=($zabs(aValue1-aValue2))'>(aDifference)
- Do manager.LogAssert(success,"AssertAlmostEquals",aMessage)
- Quit success
+	 Set manager=r%Manager
+	 Set aMessage=$g(aMessage)
+	     _":("_aValue1_"="_aValue2_" [margin = "_ aDifference _"]):"
+	     _"["_..ParseAutoQuoted(aAutoQuoted,"equals")_"]"
+	 Set success=($zabs(aValue1-aValue2))'>(aDifference)
+	 Do manager.LogAssert(success,"AssertAlmostEquals",aMessage)
+	 Quit success
 ]]></Implementation>
 </Method>
 
 <Method name="AssertTrueViaMacro">
 <FormalSpec>aAutoQuoted,aValue,aMessage</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
- Set manager=r%Manager
- Set aMessage=$g(aMessage)
-     _":("_aValue_"=TRUE):"
-     _"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
- Set success=''aValue
- Do manager.LogAssert(success,"AssertTrue",aMessage)
- Quit success
+	 Set manager=r%Manager
+	 Set aMessage=$g(aMessage)
+	     _":("_aValue_"=TRUE):"
+	     _"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
+	 Set success=''aValue
+	 Do manager.LogAssert(success,"AssertTrue",aMessage)
+	 Quit success
 ]]></Implementation>
 </Method>
 
 <Method name="AssertNotTrueViaMacro">
 <FormalSpec>aAutoQuoted,aValue,aMessage</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
- Set manager=r%Manager
- Set aMessage=$g(aMessage)
-     _":("_aValue_"=FALSE):"
-     _"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
- Set success='aValue
- Do manager.LogAssert(success,"AssertNotTrue",aMessage)
- Quit success
+	 Set manager=r%Manager
+	 Set aMessage=$g(aMessage)
+	     _":("_aValue_"=FALSE):"
+	     _"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
+	 Set success='aValue
+	 Do manager.LogAssert(success,"AssertNotTrue",aMessage)
+	 Quit success
 ]]></Implementation>
 </Method>
 
 <Method name="AssertStatusOKViaMacro">
 <FormalSpec>aAutoQuoted,status,aMessage</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
- Set manager=r%Manager
- Set aMessage=$g(aMessage)_"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
- Set success=$$$ISOK(status)
- If $$$ISERR(status) Do
- . Do $system.Status.DecomposeStatus(status,.errorarray,"-d")
- . Set aMessage=aMessage_" => "_$g(errorarray(1))
- Do manager.LogAssert(success,"AssertStatusOK",aMessage)
- Quit success
+	 Set manager=r%Manager
+	 Set aMessage=$g(aMessage)_"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
+	 Set success=$$$ISOK(status)
+	 If $$$ISERR(status) Do
+	 . Do $system.Status.DecomposeStatus(status,.errorarray,"-d")
+	 . Set aMessage=aMessage_" => "_$g(errorarray(1))
+	 Do manager.LogAssert(success,"AssertStatusOK",aMessage)
+	 Quit success
 ]]></Implementation>
 </Method>
 
 <Method name="AssertStatusNotOKViaMacro">
 <FormalSpec>aAutoQuoted,status,aMessage</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
- Set manager=r%Manager
- Set aMessage=$g(aMessage)_"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
- Set success=$$$ISERR(status)
- Do manager.LogAssert(success,"AssertStatusNotOK",aMessage)
- Quit success
+	 Set manager=r%Manager
+	 Set aMessage=$g(aMessage)_"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
+	 Set success=$$$ISERR(status)
+	 Do manager.LogAssert(success,"AssertStatusNotOK",aMessage)
+	 Quit success
 ]]></Implementation>
 </Method>
 
 <Method name="Fail">
 <FormalSpec>aMessage</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
- Set manager=r%Manager
- Do manager.LogAssert(0,"FAIL",$g(aMessage))
- Quit $$$OK
+	 Set manager=r%Manager
+	 Do manager.LogAssert(0,"FAIL",$g(aMessage))
+	 Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="AssertFilesSameViaMacro">
 <FormalSpec>aAutoQuoted,file1,file2,aMessage</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
- Set manager=r%Manager
- Set aMessage=$g(aMessage,"'"_file1_"'=='"_file2_"'")
- If file1=$tr(file1,"/","\") If file1'["\" Set file1=manager.CurrentDir_"\"_file1
- If file2=$tr(file2,"/","\") If file2'["\" Set file2=manager.CurrentDir_"\"_file2
- Set success=$$isfilesame^%qccKeyword(file1,file2)
- Do manager.LogAssert(success,"AssertFilesSame",aMessage)
- Quit success
+	 Set manager=r%Manager
+	 Set aMessage=$g(aMessage,"'"_file1_"'=='"_file2_"'")
+	 If file1=$tr(file1,"/","\") If file1'["\" Set file1=manager.CurrentDir_"\"_file1
+	 If file2=$tr(file2,"/","\") If file2'["\" Set file2=manager.CurrentDir_"\"_file2
+	 Set success=$$isfilesame^%qccKeyword(file1,file2)
+	 Do manager.LogAssert(success,"AssertFilesSame",aMessage)
+	 Quit success
 ]]></Implementation>
 </Method>
 
 <Method name="LogMessage">
 <FormalSpec>message</FormalSpec>
 <Implementation><![CDATA[
- Set manager=r%Manager
- Do manager.LogMessage($g(message))
- Quit
+	 Set manager=r%Manager
+	 Do manager.LogMessage($g(message))
+	 Quit
 ]]></Implementation>
 </Method>
 
@@ -212,18 +222,18 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
- s p=0,q=0,ptr=1,piece=0
- f i=1:1:$l(argline)+1 q:i>$l(argline)  s c=$e(argline,i) d
- . i c="""" s q='q
- . i c="("  s p=p+1
- . i c=")"  s p=p-1
- . i c=",",q=0,p=0 s args($increment(piece))=$e(argline,ptr,i-1),ptr=i+1
- s args($increment(piece))=$e(argline,ptr,i-1)
- i type="expr"   q $g(args(1))
- i type="equals" q $g(args(1))_"=="_$g(args(2))
- q ""
+	 s p=0,q=0,ptr=1,piece=0
+	 f i=1:1:$l(argline)+1 q:i>$l(argline)  s c=$e(argline,i) d
+	 . i c="""" s q='q
+	 . i c="("  s p=p+1
+	 . i c=")"  s p=p-1
+	 . i c=",",q=0,p=0 s args($increment(piece))=$e(argline,ptr,i-1),ptr=i+1
+	 s args($increment(piece))=$e(argline,ptr,i-1)
+	 i type="expr"   q $g(args(1))
+	 i type="equals" q $g(args(1))_"=="_$g(args(2))
+	 q ""
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3407290679"/>
+<Checksum value="1840044597"/>
 </Export>
Index: vhUnitTest/DOM/PM/Maatwerk/Kost/TestKostRepository.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/Kost/TestKostRepository.cls.xml	(.../TestKostRepository.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/Kost/TestKostRepository.cls.xml	(.../TestKostRepository.cls.xml)	(revision 915)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-21 09:53:37">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.Kost.TestKostRepository">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.Kost.TestKostRepository") </Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62115,39737.146057</TimeChanged>
+<TimeChanged>62143,35677.047236</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestKostRepository">
@@ -25,5 +25,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2850461954"/>
+<Checksum value="1786357478"/>
 </Export>
Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(revision 915)
@@ -0,0 +1,104 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-04 10:26:02">
+<Class name="vhUnitTest.APPS.PM.TestKenmerkenService">
+<Description>
+JBL + 2011-02-28</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62154,37631.393419</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	set %objTestData = ##class(vhUnitTest.DOM.PM.OL.Gamma.TestData).%New()
+	
+	do %objTestData.CreeerTestData()
+	do $$$AssertEquals($data(^KPR(1001,0)),1,"Producten aangemaakt")
+	
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	do %objTestData.VerwijderTestData()
+	do $$$AssertEquals($data(^KPR(1001,0)),0,"Producten verwijderd")
+	
+	set blnMetaDefOpgekuisd = %objTestData.IsMetaDefMooiOpgekuisd()
+	do $$$AssertEquals(blnMetaDefOpgekuisd,1,"Sorteringswaarde opgekuisd in metadefs")
+
+	kill %objTestData
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefProdKenmPRNrsKenmGroep">
+<Implementation><![CDATA[
+	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
+	
+	Set PRNrs = ##class(APPS.PM.dto.Kenm.StringList).%New()
+	Do PRNrs.Items.Insert(1001)
+	Do PRNrs.Items.Insert(1005)
+	
+	Set KenmerkGroepen = ##class(APPS.PM.dto.Kenm.StringList).%New()
+	Do KenmerkGroepen.Items.Insert("OL")
+	
+	Set ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs, KenmerkGroepen)
+	
+	do $$$AssertEquals(ProductenKenmerken.Kenmerken.Count(),PRNrs.Items.Count(),"Aantal gevonden productkenmerken is het gelijk aan het aantal gevraagde producten.")
+	
+	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).Kenmerken.Count(),7,"Juiste aantal gedefineerde kenmerken.")
+	
+	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).IDs.PRNr,PRNrs.Items.GetAt(1),"PRNr komt overeen.")
+	
+	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(2).Kenmerken.Count(),14,"Juiste aantal gedefineerde kenmerken.")
+	
+	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(2).Kenmerken.GetAt(1).KenmerkNaam,"ProductType","Kenmerknaam is correct ingevuld.")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefProdKenmViaPRNrs">
+<Description>
+Product met multipleNr's testen</Description>
+<Implementation><![CDATA[
+	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
+	
+	Set PRNrs = ##class(APPS.PM.dto.Kenm.StringList).%New()
+	Do PRNrs.Items.Insert(1003)
+	
+	Set ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs)
+	
+	do $$$AssertEquals(ProductenKenmerken.Kenmerken.Count(),2,"Aantal gevonden productkenmerken is het gelijk aan het aantal gevraagde producten, twee omdat het een multiple product is.")
+	
+	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).Kenmerken.Count(),18,"Juiste aantal gedefineerde kenmerken voor ProductKenmerken1.")
+	
+	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(1).IDs.PRNr,PRNrs.Items.GetAt(1),"PRNr komt overeen.")
+	
+	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(2).Kenmerken.Count(),18,"Juiste aantal gedefineerde kenmerken ProductKenmerken2.")
+	
+	do $$$AssertEquals(ProductenKenmerken.Kenmerken.GetAt(2).Kenmerken.GetAt(1).KenmerkNaam,"ProductType","Kenmerknaam is correct ingevuld.")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefMetadata">
+<Implementation><![CDATA[
+	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
+	
+	Set KenmerkGroepen = ##class(APPS.PM.dto.Kenm.StringList).%New()
+	Do KenmerkGroepen.Items.Insert("OL")	
+	
+	Set KenmerkMetadata = KenmerkenService.GeefMetadata(KenmerkGroepen).Items
+	
+	Do $$$AssertEquals(KenmerkMetadata.Count(),50,"Correct aantal kenmerken (#50)")
+	
+	Set EenKenmerkMetadata = KenmerkMetadata.GetAt(1)
+	Do $$$AssertEquals(EenKenmerkMetadata.Naam,"ProductType","Kenmerknaam is correct ingevuld.")
+	Do $$$AssertEquals(EenKenmerkMetadata.Multipliciteit.Minimum,0,"Multipliciteit minimum correct ingevuld.")
+	Do $$$AssertEquals(EenKenmerkMetadata.Multipliciteit.Maximum,3,"Multipliciteit maximum correct ingevuld.")
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2130388"/>
+</Export>
Index: vhUnitTest/APPS/CRM/Interacties.cls.xml
===================================================================
diff -u -r867 -r915
--- vhUnitTest/APPS/CRM/Interacties.cls.xml	(.../Interacties.cls.xml)	(revision 867)
+++ vhUnitTest/APPS/CRM/Interacties.cls.xml	(.../Interacties.cls.xml)	(revision 915)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-09 14:50:41">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-14 09:48:29">
 <Class name="vhUnitTest.APPS.CRM.Interacties">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62131,53491.162968</TimeChanged>
+<TimeChanged>62136,35363.973868</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="OnBeforeAllTests">
@@ -77,7 +77,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestAddRegistratie02">
+<Method name="aTestAddRegistratie02">
 <Description>
 TestAddRegistratie_GeenKlantOfLeverancier</Description>
 <Implementation><![CDATA[
@@ -108,7 +108,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestAddRegistratie03">
+<Method name="aTestAddRegistratie03">
 <Description>
 TestAddRegistratie_Onbestaande oorsprong ID</Description>
 <Implementation><![CDATA[
@@ -142,5 +142,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="592108482"/>
+<Checksum value="2407810763"/>
 </Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TestHalffabRepository.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/HF/TestHalffabRepository.cls.xml	(.../TestHalffabRepository.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TestHalffabRepository.cls.xml	(.../TestHalffabRepository.cls.xml)	(revision 915)
@@ -1,20 +1,23 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-02 08:54:46">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.TestHalffabRepository">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.TestHalffabRepository") </Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62115,40028.426683</TimeChanged>
+<TimeChanged>62152,32154.706902</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestHalffabRepository">
 <Implementation><![CDATA[
 	&SQL(DELETE FROM DOM_PM_Maatwerk_Calc_HF_impl.HalffabSpecInfo WHERE Familie = "UTFamilie")
 	
-	Set SpecInfo = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabSpecInfo).%New("UTFamilie", "UTVariant", "vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabSpec", "UTTag", $Piece($H,",")-1, $Piece($H,",")+1)
+	Set SpecInfo = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabSpecInfo).%New("UTFamilie", "UTVariant", "vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabSpec", "UTTag")
 	Set Status = SpecInfo.%Save()
 	
+	Set SpecInfo = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabSpecInfo).%New("UTFamilie", "UTVariant", "vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabSpec",, $Piece($H,",")-1, $Piece($H,",")+1)
+	Set Status = SpecInfo.%Save()
+	
 	Set HalffabRepository = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New()
 	Set GevondenSpec = HalffabRepository.GeefSpecTag("UTFamilie","UTVariant","UTTag")
 	Do $$$AssertEquals(GevondenSpec.%ClassName(1),"vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabSpec","De gevonden spec is gelijk")
@@ -25,5 +28,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="101975957"/>
+<Checksum value="1698457334"/>
 </Export>
Index: vhUnitTest/BL/PPS/TBX/TestTipon.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/BL/PPS/TBX/TestTipon.cls.xml	(.../TestTipon.cls.xml)	(revision 734)
+++ vhUnitTest/BL/PPS/TBX/TestTipon.cls.xml	(.../TestTipon.cls.xml)	(revision 915)
@@ -1,12 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-16 08:01:54">
 <Class name="vhUnitTest.BL.PPS.TBX.TestTipon">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","BL.PPS.TBX.TestTipon")
 </Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62019,52885.987777</TimeChanged>
+<TimeChanged>62138,28971.259267</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestNoTipon">
@@ -41,8 +41,8 @@
 
 <Method name="TestTiponInMiddle">
 <Implementation><![CDATA[
-	Set MultiProcessorZ = ##class(BL.PPS.TBX.MultiProcessor).%New()
-	Set MultiProcessorT = ##class(BL.PPS.TBX.MultiProcessor).%New()
+	Set MultiProcessorZ = ##class(BL.PPS.TBX.MultiProcessorEN).%New()
+	Set MultiProcessorT = ##class(BL.PPS.TBX.MultiProcessorEN).%New()
 	Set TestClassZ = ##class(BL.PPS.TBX.TiponLabelProcessor).%New(0)   //0
  	Set TestClassT = ##class(BL.PPS.TBX.TiponLabelProcessor).%New(1)   //1
  	Do MultiProcessorZ.VoegProcessorToe(TestClassZ)
@@ -109,5 +109,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3656646030"/>
+<Checksum value="3864335178"/>
 </Export>
Index: vhUnitTest/zTryout/JCL/Stock/MoederProdMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/zTryout/JCL/Stock/MoederProdMock.cls.xml	(revision 0)
+++ vhUnitTest/zTryout/JCL/Stock/MoederProdMock.cls.xml	(revision 915)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 10:39:40">
+<Class name="vhUnitTest.zTryout.JCL.Stock.MoederProdMock">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>zTryout.JCL.Stock.MoederProd</Super>
+<TimeChanged>62153,38449.058381</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="AantalOpOrder">
+<FormalSpec>PRNr</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set Result = 0	
+	if PRNr=1001 set Result = 10
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="FysischeStock">
+<FormalSpec>PRNr</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit 100
+]]></Implementation>
+</Method>
+
+<Method name="AantalOpToelevering">
+<FormalSpec>PRNr</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit 0
+]]></Implementation>
+</Method>
+
+<Method name="AantalInReservatie">
+<FormalSpec>PRNr</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit 0
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="1986468820"/>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugv001.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 915)
@@ -1,41 +1,50 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-18 11:05:47">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFRugv001">
 <Description>
 Oproepen via 
 	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.TBX.HFRugv001") 
 	</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestCaseTBX</Super>
-<TimeChanged>62115,49483.274957</TimeChanged>
+<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder</Super>
+<TimeChanged>62140,40006.215238</TimeChanged>
 <TimeCreated>62012,63523.617197</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="IsBuilderMeestRecenteVersie">
-<Description>
-Dient om aan te duiden of welke halffabTabel gebruikt wordt : Productie (persistent) of UnitTest (in-memory, artificial data) </Description>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="HalffabTabelVullen">
-<FormalSpec>HalffabTabel:DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</ReturnType>
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
-	// HalffabTabel vullen met artificiële halffab data 
-	; Do HalffabTabel.AddHalffab(...)
-	; Do HalffabTabel.AddHalffab(...)
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRug).%New()
+	Set Halffab.Rol = "RUG"
+	Set Halffab.MateriaalType = "RUGSTRK"
+	Set Halffab.LadeBreedte = 2840
+	Set Halffab.RugHoogte = "D"
+	Set Halffab.Kleur = "LG"
+	Do Halffab.BewerkbareProperties.Insert("LadeBreedte")
+	Set Halffab.UnID = 86490
+	Do HalffabTabel.VoegToeHalffab(Halffab)
+	
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabRug).%New()
+	Set Halffab.Rol = "RUG"
+	Set Halffab.MateriaalType = "RUGSTAAL"
+	Set Halffab.LadeBreedte = 863
+	Set Halffab.RugHoogte = "D"
+	Set Halffab.Kleur = "LG"
+	Set Halffab.UnID = 567902
+	Do HalffabTabel.VoegToeHalffab(Halffab)
 ]]></Implementation>
 </Method>
 
 <Method name="TestHoutenRug">
 <Implementation><![CDATA[
-	Set Context=..ContextPROD(##class(DOM.PM.enu.LadeVariant).TBXPlus())
-	Set IngegevenKenmerken=..DataTBX.GeefIngegevenKenmerken("Plus","MG","D")
-	Set HalffabItemLadeZijkant=..DataTBX.GeefHFItemLadeZijkantMx500xMG(Context)
-	Do Context.HalffabItemsBoom.AddHalffabItem(HalffabItemLadeZijkant)
-	 ;d WLIP^vhDBG(97,$$ObjToText^vhLib(HalffabItemLadeZijkant.Halffab))
+	Set Context = ..GeefContext()
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set IngegevenKenmerken.RugKleur ="LG"
+	Set IngegevenKenmerken.RugHoogte = "D"
+	Set IngegevenKenmerken.InbouwBreedte = 863
+	
+	Do Context.HalffabItemsBoom.AddHalffabItem(..GeefLadeZijkantHalffab(Context))
 
 	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFRugv001).%New("")
 	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
@@ -44,46 +53,49 @@
 	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem"),"HalffabItem is een BewerktHalffabItem")
 	Do $$$AssertTrue($IsObject(HalffabItem.Halffab),"HalffabItem heeft een halffab")
 	Do $$$AssertEquals(HalffabItem.Halffab.UnID,86490,"Halffab UnID voor TBX Rug")
-	Do $$$AssertEquals(HalffabItem.AfwijkendeKenmerkenToString(),"","Halffab heeft AfwijkendeKenmerken Breedte")   ; ToDo. 
-
-	Quit
+	Do $$$AssertEquals(HalffabItem.AfwijkendeKenmerkenToString(),"LadeBreedte","Halffab heeft AfwijkendeKenmerken Breedte")   ; ToDo.
 ]]></Implementation>
 </Method>
 
 <Method name="TestStalenRug">
 <Implementation><![CDATA[
- /*
-	Set Context=..ContextPROD
-	Set IngegevenKenmerken=..DataTBX.GeefIngegevenKenmerken("Plus","MG","D")
-	Set IngegevenKenmerken.RugMateriaal="S"                         ; Wijzig naar StalenRug --> selector geeft een stalen rug 
+	Set Context = ..GeefContext()
 	
-	Set HalffabItemLadeZijkant=..DataTBX.GeefHFItemLadeZijkantMx500xMG(Context)
-	Do Context.HalffabItemsBoom.AddHalffabItem(HalffabItemLadeZijkant)
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set IngegevenKenmerken.RugKleur = "LG"
+	Set IngegevenKenmerken.RugMateriaal = ##class(DOM.PM.enu.TBXRugMateriaal).Staal()
+	Set IngegevenKenmerken.RugHoogte = "D"
+	Set IngegevenKenmerken.InbouwBreedte = 863
 	
-	Set HFBuilder=##class(vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderRug).%New("")
+	Do Context.HalffabItemsBoom.AddHalffabItem(..GeefLadeZijkantHalffab(Context))
+	
+	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFRugv001).%New("")
 	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
 	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
 	;Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"),"HalffabItem is een StandaardHalffabItem")   ; ToDo. 
 	Do $$$AssertTrue($IsObject(HalffabItem.Halffab),"HalffabItem heeft een halffab")
 	Do $$$AssertEquals(HalffabItem.Halffab.UnID,567902,"Halffab UnID voor TBX Rug")
- */
-	Quit
 ]]></Implementation>
 </Method>
 
-<Method name="TestXX">
-<Implementation><![CDATA[	; ToDo
+<Method name="GeefLadeZijkantHalffab">
+<FormalSpec>Context:vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabContext</FormalSpec>
+<Implementation><![CDATA[
+	Set Rol = "LadeZijkant"
+	Set SamengesteldItem=##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(Context,Rol)
+
+	Set HalffabItemLinks=##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context,"Links")
+	Set HalffabItemLinks.Halffab=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabLadeZijkant).%New()
+	Set HalffabItemLinks.Halffab.AftrekVoorBodem = 75
+	Do SamengesteldItem.VoegToe(HalffabItemLinks)
+
+	Set HalffabItemRechts=##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(Context,"Rechts")
+	Set HalffabItemRechts.HalffabItem=HalffabItemLinks
+	Do SamengesteldItem.VoegToe(HalffabItemRechts)
+
+	Quit SamengesteldItem
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-// Methods ter voorbereiding van de testen
-// ======= === ============= === == ====== 
-*/
-]]></Content>
-</UDLText>
 </Class>
-<Checksum value="1471481609"/>
+<Checksum value="2586428098"/>
 </Export>
Index: vhUnitTest/DOM/PM/OL/Gamma/Verkoophandboek.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/OL/Gamma/Verkoophandboek.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/OL/Gamma/Verkoophandboek.cls.xml	(revision 915)
@@ -0,0 +1,180 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-25 16:30:42">
+<Class name="vhUnitTest.DOM.PM.OL.Gamma.Verkoophandboek">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62147,59505.440663</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<UDLText name="T">
+<Content><![CDATA[
+// do ##class(vhUnitTest.Manager).RunTest("/Display=All","DOM.PM.OL.Gamma.Verkoophandboek")
+
+]]></Content>
+</UDLText>
+
+<Method name="aTestXMLStructuur">
+<Implementation><![CDATA[
+	#define TestInfo "DOM.PM.OL.Gamma.Verkoophandboek","TestXMLStructuur"
+
+	set XML = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbRoot).%New()
+	
+	set XML.Document = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbDocument).%New()
+	set XML.Document.Taal = "N"
+		
+	set Subgroep = ..BepaalSubgroep1()
+	do XML.Document.Subgroepen.Insert(Subgroep)
+			
+	set Subgroep = ..BepaalSubgroep2()
+	do XML.Document.Subgroepen.Insert(Subgroep)
+		
+	set File = $$$UnitTestUtils.LoadFile($$$TestInfo)
+	do XML.Document.XMLExportToStream(.strXML,"","literal,indent")
+	
+	set sc=$$$UnitTestUtils.CreateNewTestFile(strXML,$$$TestInfo)
+	
+	do $$$AssertEquals($$$UnitTestUtils.CheckSum(strXML),$$$UnitTestUtils.CheckSum(File),"Compare resultaat met ref inhoud ZoekProductGroepInhoudTest1")
+]]></Implementation>
+</Method>
+
+<Method name="BepaalSubgroep1">
+<ReturnType>DOM.PM.OL.Gamma.impl.XML.vkhbSubgroep</ReturnType>
+<Implementation><![CDATA[
+	set Subgroep = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbSubgroep).%New()
+	set Subgroep.Omschrijving = "Indelingen ORGA-LINE voor bestekladen"
+		
+	set Product = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbProduct).%New()
+	do Subgroep.Producten.Insert(Product)
+	set Product.Omschrijving = "Flexibele indeling met 2 bestekschalen in roestvrij staal (inox) gecombineerd met vakverdelingen met kruidenhouder in beukenhout met 7 kruidendoosjes in aluminium en 1 foliehouder voor aluminiumfolie"
+		
+	set BestandsInfo = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbBestandsInfo).%New()
+	set BestandsInfo.Bestand = "file://Notes01/Shared/Common/FOP/Orgalux/DynSpace/DS_Opbergen.svg"
+	set BestandsInfo.Omschrijving = "Opbergen"
+	do Product.DynamicspaceItems.Insert(BestandsInfo)
+		
+	set BestandsInfo = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbBestandsInfo).%New()
+	set BestandsInfo.Bestand = "file://Notes01/Shared/Common/FOP/Orgalux/DynSpace/DS_Voorbereiden.svg"
+	set BestandsInfo.Omschrijving = "Voorbereiden"
+	do Product.DynamicspaceItems.Insert(BestandsInfo)
+		
+	set BestandsInfo = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbBestandsInfo).%New()
+	set BestandsInfo.Bestand = "file://Notes01/Shared/Common/FOP/Orgalux/DynSpace/DS_Koken.svg"
+	set BestandsInfo.Omschrijving = "Koken"
+	do Product.DynamicspaceItems.Insert(BestandsInfo)
+		
+	set BestandsInfo = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbBestandsInfo).%New()
+	set BestandsInfo.Bestand = "file://Notes01/Shared/Common/FOP/Orgalux/DynSpace/BO5060B2.jpg"
+	set BestandsInfo.Omschrijving = "fixedtext"
+		
+	do Product.Fotos.Insert(BestandsInfo)
+		
+	set Product.Omschrijving = "Flexibele indeling met 2 bestekschalen in roestvrij staal (inox) gecombineerd met vakverdelingen met kruidenhouder in beukenhout met 7 kruidendoosjes in aluminium en 1 foliehouder voor aluminiumfolie"
+		
+	do Product.Toepassingen.Insert("Folies (aluminium-, vershoudfolie, ....)")
+	do Product.Toepassingen.Insert("Kruiden")
+	do Product.Toepassingen.Insert("Werkbestek")
+		
+	do Product.Vereisten.Insert("Kastbreedte: 60cm en groter")
+	do Product.Vereisten.Insert("Ladediepte: 50cm")
+	do Product.Vereisten.Insert("Blum Tandembox")
+		
+	do Product.Tips.Insert("Antislipmat aan te raden (separaat te bestellen)")
+		
+	set Groep = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbGroep).%New()	
+	set Groep.Code = "B05060B2"
+	set Groep.Prijs = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbPrijs).%New()
+	set Groep.Prijs.Munt = "EUR"
+	set Groep.Prijs.Bedrag = "299.09"
+	
+	do Product.Groepen.Insert(Groep)
+	
+	quit Subgroep
+]]></Implementation>
+</Method>
+
+<Method name="BepaalSubgroep2">
+<ReturnType>DOM.PM.OL.Gamma.impl.XML.vkhbSubgroep</ReturnType>
+<Implementation><![CDATA[
+	set Subgroep = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbSubgroep).%New()
+	set Subgroep.Omschrijving = "Bestek Excellent"
+	set Subgroep.PageBreak = "auto"
+		
+	set Product = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbProduct).%New()
+	do Subgroep.Producten.Insert(Product)
+	set Product.Omschrijving = "Bestekindeling in zilvergrijze kunststof"
+		
+	set BestandsInfo = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbBestandsInfo).%New()
+	set BestandsInfo.Bestand = "file://Notes01/Shared/Common/FOP/Orgalux/DynSpace/DS_Opbergen.svg"
+	set BestandsInfo.Omschrijving = "Opbergen"
+	do Product.DynamicspaceItems.Insert(BestandsInfo)
+		
+	set BestandsInfo = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbBestandsInfo).%New()
+	set BestandsInfo.Bestand = "file://Notes01/Shared/Common/FOP/Orgalux/DynSpace/DS_Voorbereiden.svg"
+	set BestandsInfo.Omschrijving = "Voorbereiden"
+	do Product.DynamicspaceItems.Insert(BestandsInfo)
+		
+	set BestandsInfo = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbBestandsInfo).%New()
+	set BestandsInfo.Bestand = "file://Notes01/Shared/Common/FOP/Orgalux/DynSpace/DS_Koken.svg"
+	set BestandsInfo.Omschrijving = "Koken"
+	do Product.DynamicspaceItems.Insert(BestandsInfo)
+		
+	set BestandsInfo = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbBestandsInfo).%New()
+	set BestandsInfo.Bestand = "file://Notes01/Shared/Common/FOP/Orgalux/DynSpace/BO5060B2.jpg"
+	set BestandsInfo.Omschrijving = "fixedtext"
+		
+	do Product.Fotos.Insert(BestandsInfo)
+		
+	set Product.Omschrijving = "Flexibele indeling met 2 bestekschalen in roestvrij staal (inox) gecombineerd met vakverdelingen met kruidenhouder in beukenhout met 7 kruidendoosjes in aluminium en 1 foliehouder voor aluminiumfolie"
+	
+	do Product.Vereisten.Insert("Kastbreedte: 60cm")
+	do Product.Vereisten.Insert("Ladediepte: 50cm")
+	do Product.Vereisten.Insert("Blum Tandembox")
+		
+	set Groep = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbGroep).%New()
+	set Groep.Code = "B0506016"
+	set Groep.Prijs = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbPrijs).%New()
+	set Groep.Prijs.Munt = "EUR"
+	set Groep.Prijs.Bedrag = "13.84"
+	set Groep.WandDikte = "16mm"
+	do Product.Groepen.Insert(Groep)
+	
+	set Groep = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbGroep).%New()
+	set Groep.Code = "B0506018"
+	set Groep.Prijs = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbPrijs).%New()
+	set Groep.Prijs.Munt = "EUR"
+	set Groep.Prijs.Bedrag = "11.50"
+	set Groep.WandDikte = "18-19mm"
+	do Product.Groepen.Insert(Groep)
+	
+	quit Subgroep
+]]></Implementation>
+</Method>
+
+<Method name="TestVerkoophandboek">
+<Implementation><![CDATA[
+	do ##class(TestData).%New().CreeerTestData()
+	
+	set ExportFilter = ##class(DOM.PM.OL.Gamma.dto.ExportFilter).%New()
+	set ExportFilter.KlantNr = 1000
+	set ExportFilter.Taal = ##class(DOM.enu.Taal).Nederlands()
+	set ExportFilter.BTW = "InclBTW-BE"
+	
+	set listProducten = ##class(%ListOfDataTypes).%New()
+	
+	do listProducten.Insert(1001)
+	do listProducten.Insert(1002)
+	do listProducten.Insert(1003.1)
+	do listProducten.Insert(1003.2)
+	do listProducten.Insert(1099.1)
+	do listProducten.Insert(1099.2)
+	
+	set implVerkoophandboek = ##class(DOM.PM.OL.Gamma.impl.ProductenNaarVerkoophandboek).%New(ExportFilter)
+	do implVerkoophandboek.ExportProducten(listProducten)
+	set implVerkoophandboek = ""
+	
+	do ##class(TestData).%New().VerwijderTestData()
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="467245684"/>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontRelingHouderv001.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontRelingHouderv001.cls.xml	(.../HFFrontRelingHouderv001.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontRelingHouderv001.cls.xml	(.../HFFrontRelingHouderv001.cls.xml)	(revision 915)
@@ -1,62 +1,59 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-16 15:10:17">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFFrontRelingHouderv001">
 <Description>
 Oproepen via 
 	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.TBX.HFFrontRelingHouderv001") 
 	</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestCaseTBX</Super>
-<TimeChanged>62115,49232.234207</TimeChanged>
+<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder</Super>
+<TimeChanged>62138,54673.152459</TimeChanged>
 <TimeCreated>62012,63523.617197</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="IsBuilderMeestRecenteVersie">
-<Description>
-Dient om aan te duiden of welke halffabTabel gebruikt wordt : Productie (persistent) of UnitTest (in-memory, artificial data) </Description>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 0
-]]></Implementation>
-</Method>
-
-<Method name="HalffabTabelVullen">
-<FormalSpec>HalffabTabel:DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</ReturnType>
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
-	// HalffabTabel vullen met artificiële halffab data 
-	; Do HalffabTabel.AddHalffab(...)
-	; Do HalffabTabel.AddHalffab(...)
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontRelingHouder).%New()
+	Set Halffab.Rol = "FrontRelingHouder"
+	Set Halffab.FrontType = "B"
+	Set Halffab.Kleur = "SW"
+	Set Halffab.ZijwandHoogte = "C"
+	Set Halffab.UnID = 449726
+	Do HalffabTabel.VoegToeHalffab(Halffab)
 ]]></Implementation>
 </Method>
 
 <Method name="TestFrontRelingHouderV1">
 <Implementation><![CDATA[
-	Set Context=..ContextUT(##class(DOM.PM.enu.LadeVariant).TBXIntivo())
-	Set IngegevenKenmerken=..DataTBX.GeefIngegevenKenmerken("I","SW","CLZ")
-	Set IngegevenKenmerken.VoorwandType="R"
-	Set HalffabItemFrontHouder=..DataTBX.GeefHFItemFrontHouderOldV1(Context)
-	Do Context.HalffabItemsBoom.AddHalffabItem(HalffabItemFrontHouder)
+	Set Context = ..GeefContext()
 	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	// Ingegeven kenmerken zijn hier totaal irrelevant omdat de builder niet moet werken
+	// als de fronthouder in een V1 verpakking zit (want dan zitten de houders ook in deze verpakking)
+	
+	Do Context.HalffabItemsBoom.AddHalffabItem(..GeefFrontHouder(Context,##class(DOM.PM.enu.Verpakking).V1()))
+	
 	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFFrontRelingHouderv001).%New("")
 	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
 	Do $$$AssertTrue('$IsObject(HalffabItem),"HalffabItem is geen object")
-	; Kan ook Testen of method BuilderMoetWerken() resultaat 0 geeft 
-
-	Quit
 ]]></Implementation>
 </Method>
 
 <Method name="TestFrontRelingHouderI">
 <Implementation><![CDATA[
-	 quit 
-
-	Set Context=..ContextUT(##class(DOM.PM.enu.LadeVariant).TBXIntivo())
-	Set IngegevenKenmerken=..DataTBX.GeefIngegevenKenmerken("I","SW","CLZ")
-	Set IngegevenKenmerken.VoorwandType="R"
-	Set HalffabItemFrontHouder=..DataTBX.GeefHFItemFrontHouderOldI(Context)
-	Do Context.HalffabItemsBoom.AddHalffabItem(HalffabItemFrontHouder)
+	Set Context = ..GeefContext()
 	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set IngegevenKenmerken.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
+	Set IngegevenKenmerken.VoorwandType = "R"
+	Set IngegevenKenmerken.IsBinnenLade = 1
+	Set IngegevenKenmerken.FrontHouderKleur = "SW"
+	Set IngegevenKenmerken.ZijwandHoogte = "C"
+	
+	Do Context.HalffabItemsBoom.AddHalffabItem(..GeefFrontHouder(Context,##class(DOM.PM.enu.Verpakking).Industrie()))
+	
 	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFFrontRelingHouderv001).%New("")
 	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
@@ -69,19 +66,26 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestXX">
-<Implementation><![CDATA[	; ToDo
+<Method name="GeefFrontHouder">
+<FormalSpec>Context:vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabContext,Verpakking:DOM.PM.enu.Verpakking</FormalSpec>
+<Implementation><![CDATA[
+	Set SamengesteldItem=##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(Context,"FrontHouder")
+
+	Set HalffabItemLinks=##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context,"Links")
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New()
+	Set Halffab.Rol = "Links"
+	Set Halffab.UnID = 1000
+	Set Halffab.Verpakking = Verpakking
+	Set HalffabItemLinks.Halffab = Halffab
+	Do SamengesteldItem.VoegToe(HalffabItemLinks)
+	
+	Set HalffabItemRechts=##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(Context,"Rechts")
+	Set HalffabItemRechts.HalffabItem=HalffabItemLinks
+	Do SamengesteldItem.VoegToe(HalffabItemRechts)
+
+	Quit SamengesteldItem
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-// Methods ter voorbereiding van de testen
-// ======= === ============= === == ====== 
-*/
-]]></Content>
-</UDLText>
 </Class>
-<Checksum value="4221278009"/>
+<Checksum value="3722175002"/>
 </Export>
Index: vhUnitTest/PRA/Concurrency/TestDirtyWrite.cls.xml
===================================================================
diff -u -r860 -r915
--- vhUnitTest/PRA/Concurrency/TestDirtyWrite.cls.xml	(.../TestDirtyWrite.cls.xml)	(revision 860)
+++ vhUnitTest/PRA/Concurrency/TestDirtyWrite.cls.xml	(.../TestDirtyWrite.cls.xml)	(revision 915)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-08 11:50:58">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-21 08:49:33">
 <Class name="vhUnitTest.PRA.Concurrency.TestDirtyWrite">
 <Description>
 Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","PRA.Concurrency.TestDirtyWrite")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62130,42708.115275</TimeChanged>
+<TimeChanged>62143,31834.150703</TimeChanged>
 <TimeCreated>62103,52915.709341</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -94,5 +94,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3912053401"/>
+<Checksum value="3444454356"/>
 </Export>
Index: vhUnitTest/WS/Web/OLParticulier/OrgaluxDotComLadeSelector.cls.xml
===================================================================
diff -u -r867 -r915
--- vhUnitTest/WS/Web/OLParticulier/OrgaluxDotComLadeSelector.cls.xml	(.../OrgaluxDotComLadeSelector.cls.xml)	(revision 867)
+++ vhUnitTest/WS/Web/OLParticulier/OrgaluxDotComLadeSelector.cls.xml	(.../OrgaluxDotComLadeSelector.cls.xml)	(revision 915)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-09 15:04:30">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 14:17:09">
 <Class name="vhUnitTest.WS.Web.OLParticulier.OrgaluxDotComLadeSelector">
 <Description>
 Commando om tests uit te voeren: Do ##class(vhUnitTest.Manager).RunTest(,"WS.Web.OLParticulier.OrgaluxDotComLadeSelector")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase,TECH.Error.ErrorAdaptor</Super>
-<TimeChanged>62131,54319.153176</TimeChanged>
+<TimeChanged>62158,51428.267336</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="wsLadeSelector">
@@ -19,7 +19,6 @@
 <Method name="OnAfterAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	
 	$$$TECHErrorTrapOff
  	Quit $$$OK
 ]]></Implementation>
@@ -253,6 +252,7 @@
 	Do $$$AssertEquals(##class(APPS.Web.OLParticulier.enu.Website).OrgaluxDotCom(),APPSContext.Website,"Website conversie")
 	Do $$$AssertEquals(Sessie.Taal,APPSContext.Taal,"Taal")
 	Do $$$AssertEquals("BE",APPSContext.LandCode,"Regio")
+	;$$$TECHErrorTrapOff
 ]]></Implementation>
 </Method>
 
@@ -267,6 +267,7 @@
 	Set Sessie=..GetSessieFoutief()
 	Set APPSContext=##class(WS.Web.OLParticulier.impl.Sessie2APPSContext).CreateAPPSContextFromSessie(Sessie)
 	Do $$$AssertEquals(1,..ResultTrap,"Foutieve website")
+	$$$TECHErrorTrapOff
 ]]></Implementation>
 </Method>
 
@@ -315,5 +316,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3278854166"/>
+<Checksum value="329656727"/>
 </Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFInschuifElementv001.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFInschuifElementv001.cls.xml	(.../HFInschuifElementv001.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFInschuifElementv001.cls.xml	(.../HFInschuifElementv001.cls.xml)	(revision 915)
@@ -1,112 +1,114 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-10 08:06:03">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFInschuifElementv001">
 <Description>
 Oproepen via 
 	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.TBX.HFInschuifElementv001") 
 	</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestCaseTBX</Super>
-<TimeChanged>62115,49430.992537</TimeChanged>
+<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder</Super>
+<TimeChanged>62132,29214.841714</TimeChanged>
 <TimeCreated>62012,63523.617197</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="IsBuilderMeestRecenteVersie">
-<Description>
-Dient om aan te duiden of welke halffabTabel gebruikt wordt : Productie (persistent) of UnitTest (in-memory, artificial data) </Description>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="HalffabTabelVullen">
-<FormalSpec>HalffabTabel:DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</ReturnType>
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
-	// HalffabTabel vullen met artificiële halffab data 
-	; Do HalffabTabel.AddHalffab(...)
-	; Do HalffabTabel.AddHalffab(...)
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabInschuifElement).%New()
+	Set Halffab.Rol = "INSCHUIF8"
+	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
+	Set Halffab.LadeDiepte = 500
+	Set Halffab.ZijwandHoogte = "D"
+	Set Halffab.Kleur = "DIA8"
+	Set Halffab.UnID = 425414
+	Do HalffabTabel.VoegToeHalffab(Halffab)
+
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabInschuifElement).%New()
+	Set Halffab.Rol = "INSCHUIF8"
+	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
+	Set Halffab.LadeDiepte = 1050
+	Set Halffab.LadeBreedte = 1145
+	Set Halffab.ZijwandHoogte = "D"
+	Set Halffab.Kleur = "DIA8"
+	Do Halffab.BewerkbareProperties.Insert("LadeDiepte")
+	Set Halffab.UnID = 454732
+	Do HalffabTabel.VoegToeHalffab(Halffab)
+	
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabInschuifElement).%New()
+	Set Halffab.Rol = "INSCHUIF8"
+	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
+	Set Halffab.LadeDiepte = 500
+	Set Halffab.ZijwandHoogte = "D"
+	Set Halffab.Kleur = "LE.DBR"
+	Do Halffab.BewerkbareProperties.Insert("LadeDiepte")
+	Do Halffab.BewerkbareProperties.Insert("ZijwandHoogte")
+	Set Halffab.UnID = 506222
+	Do HalffabTabel.VoegToeHalffab(Halffab)
 ]]></Implementation>
 </Method>
 
-<Method name="TestInschuifElement">
+<Method name="TestInschuifExact">
 <Implementation><![CDATA[
-	// Op te splitsen in verschillende Test-methods 
+	Set Context = ..GeefContext()
+	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFInschuifElementv001).%New("")
 
-	Set Context=..ContextPROD(##class(DOM.PM.enu.LadeVariant).TBXIntivo())
-	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFInschuifElementv001).%New("")
-	Set IngegevenKenmerkenBasis=..DataTBX.GeefIngegevenKenmerken("I","SW","CLZ")
-
-	// Deel 1 : Glas D-hoogte op LD=500 : Resultaat is een Standaard HalffabItem 
-	Set IngegevenKenmerken1=IngegevenKenmerkenBasis.%ConstructClone(1)
-	Set IngegevenKenmerken1.LadeDiepte="500"
-	Set IngegevenKenmerken1.ZijwandHoogte="D"
-	Set IngegevenKenmerken1.InschuifElementMatCode="DIA8"
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set IngegevenKenmerken.LadeDiepte = "500"
+	Set IngegevenKenmerken.ZijwandHoogte = "D"
+	Set IngegevenKenmerken.InschuifElementMatCode = "DIA8"
+	Set IngegevenKenmerken.ZijwandType = "COV"
+	Set IngegevenKenmerken.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	
-	Set HalffabItem1=HFBuilder.Bereken(IngegevenKenmerken1,Context)
+	Set HalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
-	Do $$$AssertTrue(HalffabItem1.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"),"HalffabItem1 is een StandaardHalffabItem")
-	Do $$$AssertTrue($IsObject(HalffabItem1.Halffab),"HalffabItem1 heeft een halffab")
-	Do $$$AssertEquals(HalffabItem1.Halffab.UnID,425414,"Halffab1 UnID voor TBX InschuifElement")
+	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"),"HalffabItem is een StandaardHalffabItem")
+	Do $$$AssertTrue($IsObject(HalffabItem.Halffab),"HalffabItem heeft een halffab")
+	Do $$$AssertEquals(HalffabItem.Halffab.UnID,425414,"Halffab UnID voor TBX InschuifElement")
+]]></Implementation>
+</Method>
 
+<Method name="TestInschuifInkortDiepteHoogte">
+<Implementation><![CDATA[
+	Set Context = ..GeefContext()
+	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFInschuifElementv001).%New("")
 
-	// Deel 2 : Glas C-hoogte op LD=500 : Resultaat is een Standaard HalffabItem 
-	Set IngegevenKenmerken2=IngegevenKenmerkenBasis.%ConstructClone(1)
-	Set IngegevenKenmerken2.LadeDiepte="500"
-	Set IngegevenKenmerken2.ZijwandHoogte="C"
-	Set IngegevenKenmerken2.InschuifElementMatCode="DIA8"
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set IngegevenKenmerken.LadeDiepte = "600"
+	Set IngegevenKenmerken.ZijwandHoogte = "C"
+	Set IngegevenKenmerken.InschuifElementMatCode = "DIA8"  
+	Set IngegevenKenmerken.ZijwandType = "COV"
+	Set IngegevenKenmerken.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	
-	Set HalffabItem2=HFBuilder.Bereken(IngegevenKenmerken2,Context)
+	Set HalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
-	Do $$$AssertTrue(HalffabItem2.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"),"HalffabItem2 is een StandaardHalffabItem")
-	Do $$$AssertTrue($IsObject(HalffabItem2.Halffab),"HalffabItem2 heeft een halffab")
-	Do $$$AssertEquals(HalffabItem2.Halffab.UnID,454738,"Halffab2 UnID voor TBX InschuifElement")
+	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem"),"HalffabItem is een BewerktHalffabItem")
+	Do $$$AssertTrue($IsObject(HalffabItem.Halffab),"HalffabItem heeft een halffab")
+	Do $$$AssertEquals(HalffabItem.Halffab.UnID,454732,"Halffab UnID voor TBX InschuifElement")
+	Do $$$AssertEquals(HalffabItem.AfwijkendeKenmerkenToString(),"LadeDiepte;ZijwandHoogte","Halffab heeft AfwijkendeKenmerken LadeDiepte/ZijwandHoogte")
+]]></Implementation>
+</Method>
 
+<Method name="TestInschuiftInkortDiepte">
+<Implementation><![CDATA[
+	Set Context = ..GeefContext()
+	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFInschuifElementv001).%New("")
 
-	// Deel 3 : Glas C-hoogte op LD=600 : Resultaat is een Bewerkt HalffabItem 
-	Set IngegevenKenmerken3=IngegevenKenmerkenBasis.%ConstructClone(1)
-	Set IngegevenKenmerken3.LadeDiepte="600"
-	Set IngegevenKenmerken3.ZijwandHoogte="C"
-	Set IngegevenKenmerken3.InschuifElementMatCode="DIA8"
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set IngegevenKenmerken.LadeDiepte = "350"
+	Set IngegevenKenmerken.ZijwandHoogte = "D"
+	Set IngegevenKenmerken.InschuifElementMatCode = "DIA8"
+	Set IngegevenKenmerken.ZijwandType = "COV"
+	Set IngegevenKenmerken.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
+	Set IngegevenKenmerken.InschuifElementMatCode="LE.DBR"
 	
-	Set HalffabItem3=HFBuilder.Bereken(IngegevenKenmerken3,Context)
+	Set HalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
-	Do $$$AssertTrue(HalffabItem3.%Extends("DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem"),"HalffabItem3 is een BewerktHalffabItem")
-	Do $$$AssertTrue($IsObject(HalffabItem3.Halffab),"HalffabItem3 heeft een halffab")
-	Do $$$AssertEquals(HalffabItem3.Halffab.UnID,454732,"Halffab3 UnID voor TBX InschuifElement")
-	;Do $$$AssertEquals(HalffabItem3.AfwijkendeKenmerken,"","Halffab3 heeft AfwijkendeKenmerken Lengte/LadeDiepte")   ; 
-
-
-	// Deel 4 : Leder D-hoogte op LD=350 : Resultaat is een Bewerkt HalffabItem 
-	Set IngegevenKenmerken4=IngegevenKenmerkenBasis.%ConstructClone(1)
-	Set IngegevenKenmerken4.LadeDiepte="350"
-	Set IngegevenKenmerken4.ZijwandHoogte="D"
-	Set IngegevenKenmerken4.InschuifElementMatCode="LE.DBR"
-	
-	Set HalffabItem4=HFBuilder.Bereken(IngegevenKenmerken4,Context)
-	
-	Do $$$AssertTrue(HalffabItem4.%Extends("DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem"),"HalffabItem4 is een BewerktHalffabItem")
-	Do $$$AssertTrue($IsObject(HalffabItem4.Halffab),"HalffabItem4 heeft een halffab")
-	Do $$$AssertEquals(HalffabItem4.Halffab.UnID,506222,"Halffab4 UnID voor TBX InschuifElement")
-	;Do $$$AssertEquals(HalffabItem4.AfwijkendeKenmerken,"","Halffab4 heeft AfwijkendeKenmerken Lengte/LadeDiepte")   ; 
-
-	Quit
+	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem"),"HalffabItem is een BewerktHalffabItem")
+	Do $$$AssertTrue($IsObject(HalffabItem.Halffab),"HalffabItem heeft een halffab")
+	Do $$$AssertEquals(HalffabItem.Halffab.UnID,506222,"Halffab UnID voor TBX InschuifElement")
+	Do $$$AssertEquals(HalffabItem.AfwijkendeKenmerkenToString(),"LadeDiepte","Halffab heeft AfwijkendeKenmerken LadeDiepte")   ;
 ]]></Implementation>
 </Method>
-
-<Method name="TestXX">
-<Implementation><![CDATA[	; ToDo
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-// Methods ter voorbereiding van de testen
-// ======= === ============= === == ====== 
-*/
-]]></Content>
-</UDLText>
 </Class>
-<Checksum value="1469756434"/>
+<Checksum value="3223463345"/>
 </Export>
Index: vhUnitTest/APPS/PM/Maatwerk/TBX/Productie/TestLadeZijkantBeschrijver.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/TBX/Productie/TestLadeZijkantBeschrijver.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/TBX/Productie/TestLadeZijkantBeschrijver.cls.xml	(revision 915)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-18 14:48:56">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.TBX.Productie.TestLadeZijkantBeschrijver">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.Maatwerk.TBX.Productie.TestLadeZijkantBeschrijver")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62140,53393.890116</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestLadeZijkantBeschrijver">
+<Implementation><![CDATA[
+	Set LadeZijkantBeschrijver = ##class(APPS.PM.Maatwerk.TBX.Productie.impl.LadeZijkantBeschrijver).%New()
+	Do $$$AssertTrue(1,"hoi")
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="410098993"/>
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv00.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv00.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv00.cls.xml	(revision 915)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 17:01:05">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv00">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Super>
+<TimeChanged>62157,61337.174629</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ProptA">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProptB">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVersieNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 0
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>UTKenmerkenv00DefaultData</DefaultData>
+<Data name="UTKenmerkenv00DefaultData">
+<Structure>listnode</Structure>
+<Subscript>"UTKenmerkenv00"</Subscript>
+<Value name="1">
+<Value>ProptA</Value>
+</Value>
+<Value name="2">
+<Value>ProptB</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+<Checksum value="4205890593"/>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataKAD.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataKAD.cls.xml	(.../CreateDataKAD.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataKAD.cls.xml	(.../CreateDataKAD.cls.xml)	(revision 915)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-14 08:37:54">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.CreateDataKAD">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62102,32319.503489</TimeChanged>
+<TimeChanged>62136,31128.319375</TimeChanged>
 <TimeCreated>62012,63523.617197</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -18,10 +18,9 @@
 	Set KAD.Hoogte=450
 	Set KAD.ProfielType="PSV"
 	Set KAD.ProfielAfwerking="EV"
-	Set Vulling=##class(DOM.PM.Maatwerk.Calc.Common.impl.KADVullingBeschrijving).%New("FG")
-	Do KAD.Vullingen.SetAt(Vulling,"STD")
+	Set KAD.Vulling = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADVullingBeschrijving).%New("FG")
 	
-	Set KAD.Gemonteerd="KV"
+	Set KAD.Montage="KV"
 	Set KAD.Verpakking="K"
 	Set KAD.ProductieWijze="Volledig"
 	;Set KAD.Onderdelen=""
@@ -47,10 +46,9 @@
 	Set KAD.Hoogte=450
 	Set KAD.ProfielType="PBG"
 	Set KAD.ProfielAfwerking="EV"
-	Set Vulling=##class(DOM.PM.Maatwerk.Calc.Common.impl.KADVullingBeschrijving).%New("FZ")
-	Do KAD.Vullingen.SetAt(Vulling,"STD")
+	Set KAD.Vulling = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADVullingBeschrijving).%New("FZ")
 	
-	Set KAD.Gemonteerd="KV"
+	Set KAD.Montage="KV"
 	Set KAD.Verpakking="K"
 	Set KAD.ProductieWijze="Volledig"
 	;Set KAD.Onderdelen=""
@@ -112,5 +110,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="4029482948"/>
+<Checksum value="2570625466"/>
 </Export>
Index: vhUnitTest/DOM/LEV/TestToelevering.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/LEV/TestToelevering.cls.xml	(revision 0)
+++ vhUnitTest/DOM/LEV/TestToelevering.cls.xml	(revision 915)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-22 10:29:06">
+<Class name="vhUnitTest.DOM.LEV.TestToelevering">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.LEV.TestToelevering")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62144,37807.79331</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	Set ^KTO1(298006)="6332\"
+ 	
+ 	Set ^KTO(6332,298006,0)=103                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
+	Set ^KTO(6332,298006,1)="\16.02.11\KOMM. TESTKLANT VAN HOECK\\\6332\122882\1000\\\\\\\\\\EUR\62151,43200\\\2\\\\"
+	Set ^KTO(6332,298006,4)=3
+	Set ^KTO(6332,298006,101)="\529744\250\\\44.33\#\\11082.50\11082.50\\L\1\\100\11082.50\KTRPL\\\\E\EUR\\\11/08\\122882\101\\\\\\\\"
+	Set ^KTO(6332,298006,102)="\595226\1\\\64.71\#\\64.71\64.71\\L\2\\200\64.71\KTRPL\\\\E\EUR\\\11/08\\122882\102\\\\\\\\"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestToelevering">
+<Implementation><![CDATA[
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	
+	Do $$$AssertTrue(ToeleveringAPI.%Extends("DOM.LEV.ToeleveringAPI"),"Het object is van het juiste type")
+	
+	Set Toelevering = ToeleveringAPI.GeefToelevering(298006)
+	
+	Do $$$AssertTrue(Toelevering.%Extends("DOM.LEV.Toelevering"),"De toelevering is van het juiste type")
+	Do $$$AssertEquals(Toelevering.GeefDueOutTime(),"62151,43200","De due out time")
+	
+	Set Iterator = Toelevering.GeefToeleveringLijnIterator()
+	
+	Do $$$AssertTrue(Iterator.HasNext(),"De iterator heeft een volgende lijn")
+	
+	Set ProductLijn = Iterator.Next()
+	
+	Do $$$AssertTrue(ProductLijn.%Extends("DOM.LEV.ProductToeleveringLijn"),"De huidige lijn is een productlijn")
+	Do $$$AssertTrue(ProductLijn.GeefProduct().%Extends("DOM.PM.Product"),"Het product is van het juiste type")
+	Do $$$AssertEquals(ProductLijn.GeefAantal(),250,"250 bestelde items")
+	Do $$$AssertTrue(Iterator.HasNext(),"De iterator heeft een volgende lijn")
+	
+	Set ProductLijn = Iterator.Next()
+	
+	Do $$$AssertTrue(ProductLijn.%Extends("DOM.LEV.ProductToeleveringLijn"),"De huidige lijn is een productlijn")
+	Do $$$AssertFalse(Iterator.HasNext(),"De iterator heeft een volgende lijn")
+	
+	
+	Set Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product())
+	
+	Do $$$AssertTrue(Iterator.HasNext(),"De iterator heeft een volgende lijn")
+	
+	Set ProductLijn = Iterator.Next()
+	
+	Do $$$AssertTrue(ProductLijn.%Extends("DOM.LEV.ProductToeleveringLijn"),"De huidige lijn is een productlijn")
+	Do $$$AssertTrue(ProductLijn.GeefProduct().%Extends("DOM.PM.Product"),"Het product is van het juiste type")
+	Do $$$AssertEquals(ProductLijn.GeefAantal(),250,"250 bestelde items")
+	Do $$$AssertTrue(Iterator.HasNext(),"De iterator heeft een volgende lijn")
+	
+	Set ProductLijn = Iterator.Next()
+	
+	Do $$$AssertTrue(ProductLijn.%Extends("DOM.LEV.ProductToeleveringLijn"),"De huidige lijn is een productlijn")
+	Do $$$AssertFalse(Iterator.HasNext(),"De iterator heeft een volgende lijn")
+	
+	
+	Set Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Tekst())
+	
+	Do $$$AssertFalse(Iterator.HasNext(),"De iterator heeft geen volgende lijn")
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2628324814"/>
+</Export>
Index: vhUnitTest/APPS/Halux/Docs/TestLadeProductLijst.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Docs/TestLadeProductLijst.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Docs/TestLadeProductLijst.cls.xml	(revision 915)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-23 11:34:26">
+<Class name="vhUnitTest.APPS.Halux.Docs.TestLadeProductLijst">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Docs.TestLadeProductLijst")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62145,41728.82537</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestToevoegenLade">
+<Implementation><![CDATA[
+	Set Lijst = ##class(APPS.Halux.Docs.LadeProductLijst).%New("TBX")
+	Set LadeProduct = ##class(vhUnitTest.APPS.Halux.Docs.impl.TBXLadeProduct).%New()
+	Set Resultaat = Lijst.VoegToe(LadeProduct)
+	Do $$$AssertTrue(Resultaat,"Het product is toegevoegd")
+]]></Implementation>
+</Method>
+
+<Method name="TestToevoegenGeenLade">
+<Implementation><![CDATA[
+	Set Lijst = ##class(APPS.Halux.Docs.LadeProductLijst).%New("TBX")
+	Set LadeProduct = ##class(vhUnitTest.APPS.Halux.Docs.impl.GeenLadeProduct).%New()
+	Set Resultaat = Lijst.VoegToe(LadeProduct)
+	Do $$$AssertFalse(Resultaat,"Het product is toegevoegd")
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="1036152374"/>
+</Export>
Index: vhUnitTest/BL/MB/UGLYPicking/Aventosbak.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/BL/MB/UGLYPicking/Aventosbak.cls.xml	(.../Aventosbak.cls.xml)	(revision 734)
+++ vhUnitTest/BL/MB/UGLYPicking/Aventosbak.cls.xml	(.../Aventosbak.cls.xml)	(revision 915)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-14 17:04:28">
 <Class name="vhUnitTest.BL.MB.UGLYPicking.Aventosbak">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>61786,58332.366528</TimeChanged>
+<TimeChanged>62136,61521.855414</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestIngevuldeAventosBak">
@@ -251,5 +251,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="273724669"/>
+<Checksum value="3904757097"/>
 </Export>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv02.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv02.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv02.cls.xml	(revision 915)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 17:01:23">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv02">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv01</Super>
+<TimeChanged>62157,61355.06661</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ProptC">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVersieNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 2
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>UTKenmerkenv02DefaultData</DefaultData>
+<Data name="UTKenmerkenv02DefaultData">
+<Structure>listnode</Structure>
+<Subscript>"UTKenmerkenv02"</Subscript>
+<Value name="1">
+<Value>ProptC</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+<Checksum value="228083421"/>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv002.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv002.cls.xml	(.../HFFrontHouderv002.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv002.cls.xml	(.../HFFrontHouderv002.cls.xml)	(revision 915)
@@ -1,116 +1,88 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-16 15:09:57">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFFrontHouderv002">
 <Description>
 Oproepen via 
 	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.TBX.HFFrontHouderv002") 
 	</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestCaseTBX</Super>
-<TimeChanged>62115,51457.850511</TimeChanged>
+<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder</Super>
+<TimeChanged>62138,54652.775942</TimeChanged>
 <TimeCreated>62012,63523.617197</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="IsBuilderMeestRecenteVersie">
-<Description>
-Dient om aan te duiden of welke halffabTabel gebruikt wordt : Productie (persistent) of UnitTest (in-memory, artificial data) </Description>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="HalffabTabelVullen">
-<FormalSpec>HalffabTabel:DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</ReturnType>
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
-	// HalffabTabel vullen met artificiële halffab data 
-
-	; Oude ZIF-intivo HF voor D-hoogte : 
-	Set arHFFrontHouders(1001)=$LB($LB("LadeVariant",##class(DOM.PM.enu.LadeVariant).TBXIntivo()),$LB("ZijkantDesign","A"),$LB("ZijwandHoogte","D"),$LB("FrontType","B"),$LB("Kleur","SW"),$LB("Frontbevestiging","RELING;GLAS"),$LB("Opties","ZIF_OLD"),$LB("Verpakking","I"),$LB("LiRe","LI"))
-	Set arHFFrontHouders(1002)=$LB($LB("LadeVariant",##class(DOM.PM.enu.LadeVariant).TBXIntivo()),$LB("ZijkantDesign","A"),$LB("ZijwandHoogte","D"),$LB("FrontType","B"),$LB("Kleur","SW"),$LB("Frontbevestiging","RELING;GLAS"),$LB("Opties","ZIF_OLD"),$LB("Verpakking","I"),$LB("LiRe","RE"))
-	; Nieuwe ZIF-intivo HF voor C-hoogte : 
-	Set arHFFrontHouders(1003)=$LB($LB("LadeVariant",##class(DOM.PM.enu.LadeVariant).TBXIntivo()),$LB("ZijkantDesign","A"),$LB("ZijwandHoogte","C"),$LB("FrontType","B"),$LB("Kleur","SW"),$LB("Frontbevestiging","GLAS")       ,                        $LB("Verpakking","I"),$LB("LiRe","LI"))
-	Set arHFFrontHouders(1004)=$LB($LB("LadeVariant",##class(DOM.PM.enu.LadeVariant).TBXIntivo()),$LB("ZijkantDesign","A"),$LB("ZijwandHoogte","C"),$LB("FrontType","B"),$LB("Kleur","SW"),$LB("Frontbevestiging","GLAS")       ,                        $LB("Verpakking","I"),$LB("LiRe","RE"))
-	Set arHFFrontHouders(1005)=$LB($LB("LadeVariant",##class(DOM.PM.enu.LadeVariant).TBXIntivo()),$LB("ZijkantDesign","A"),$LB("ZijwandHoogte","C"),$LB("FrontType","B"),$LB("Kleur","SW"),$LB("Frontbevestiging","RELING")     ,                        $LB("Verpakking","I"),$LB("LiRe","LI"))
-	Set arHFFrontHouders(1006)=$LB($LB("LadeVariant",##class(DOM.PM.enu.LadeVariant).TBXIntivo()),$LB("ZijkantDesign","A"),$LB("ZijwandHoogte","C"),$LB("FrontType","B"),$LB("Kleur","SW"),$LB("Frontbevestiging","RELING")     ,                        $LB("Verpakking","I"),$LB("LiRe","RE"))
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New()
+	Set Halffab.Rol = "FrontHouder"
+	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
+	Set Halffab.ZijkantDesign = "A"
+	Set Halffab.ZijwandHoogte = "C"
+	Set Halffab.FrontType = "B"
+	Set Halffab.Kleur = "SW"
+	Set Halffab.Verpakking = "I"
+	Set Halffab.LiRe = "LI"
+	Set Halffab.Frontbevestiging = "GLAS"
+	Set Halffab.UnID = 1003
+	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
-	Set UnID=""
-	For {
-		Set UnID=$O(arHFFrontHouders(UnID))
-		Quit:(UnID)=""
-		
-		Do HalffabTabel.VoegToeHalffab(..DataTBX.MaakHalffab("FrontHouder",UnID,"", arHFFrontHouders(UnID) ))
-	}
-
- /*
-
-	// SelectieKenmerken invullen
-	Do SelectieKenmerken.SetAt("FrontHouder","Rol")
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant")
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantDesign,"ZijkantDesign")
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandHoogte,"ZijwandHoogte")
-	Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeType,"FrontType")
-	;Do SelectieKenmerken.SetAt("FRONTB_OLD","MateriaalType")   ; BasisType OLD 
-	;Do SelectieKenmerken.SetAt("ZIF_OLD","Opties")
-	If (IngegevenKenmerken.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo())||(IngegevenKenmerken.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXAntaro()) {
-		Do SelectieKenmerken.SetAt(IngegevenKenmerken.FronthouderKleur,"Kleur")
-	}
-	Else {
-		If (IngegevenKenmerken.ZijwandHoogte="D") {
-			Set RelingType=$S(IngegevenKenmerken.ZijwandType="DR":"DubRel",1:"OneRel")
-			Do SelectieKenmerken.SetAt(RelingType,Opties)
-		}
-	}
-
-	// Kenmerken GEWIJZIGD t.o.v. de vorige versie 
-	Do SelectieKenmerken.SetAt("FRONTB","MateriaalType")   ; in v001 : "FRONTB_OLD" 
-
-	// Kenmerken TOEGEVOEGD t.o.v. de vorige versie 
-	If (IngegevenKenmerken.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo())||(IngegevenKenmerken.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXAntaro()) {
-		Set VoorwandType=$CASE(IngegevenKenmerken.VoorwandType, "R":"RELING", "RG":"RELING", "RM":"RELING", "V":"GLAS", :"LAAGFRONT")
-		Do SelectieKenmerken.SetAt(VoorwandType,"Frontbevestiging")
-	}
-
-I	A	FrontHouder		B	I			SW	LI			C		RELING;GLAS			A	ZIF_OLD		FRONTB_OLD
-I	A	FrontHouder		B	I			SW	RE			C		RELING;GLAS			A	ZIF_OLD		FRONTB_OLD
-I	A	FrontHouder		B	I			SW	LI			C		GLAS			A			FRONTB
-I	A	FrontHouder		B	I			SW	RE			C		GLAS			A			FRONTB
-I	A	FrontHouder		B	I			SW	LI			C		RELING			A			FRONTB
-I	A	FrontHouder		B	I			SW	RE			C		RELING			A			FRONTB
-
- */
-]]></Implementation>
-</Method>
-
-<Method name="TestFrontHouderPROD">
-<Description>
-Test Builder met data uit Productie tabel </Description>
-<Implementation><![CDATA[
-	Set Context=..ContextPROD(##class(DOM.PM.enu.LadeVariant).TBXIntivo())
-	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFFrontHouderv002).%New("")
-	Set IngegevenKenmerken=..DataTBX.GeefIngegevenKenmerken("I","SW","CLZ")
-
-	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New()
+	Set Halffab.Rol = "FrontHouder"
+	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
+	Set Halffab.ZijkantDesign = "A"
+	Set Halffab.ZijwandHoogte = "C"
+	Set Halffab.FrontType = "B"
+	Set Halffab.Kleur = "SW"
+	Set Halffab.Verpakking = "I"
+	Set Halffab.LiRe = "RE"
+	Set Halffab.Frontbevestiging = "GLAS"
+	Set Halffab.UnID = 1004
+	Do HalffabTabel.VoegToeHalffab(Halffab)
 	
-	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.Halffab.UnID,585815,"Halffab UnID voor Rughouder LI")
-	Do $$$AssertEquals(HFItemRE.Halffab.UnID,585836,"Halffab UnID voor Rughouder RE")
-	Quit
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New()
+	Set Halffab.Rol = "FrontHouder"
+	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
+	Set Halffab.ZijkantDesign = "A"
+	Set Halffab.ZijwandHoogte = "C"
+	Set Halffab.FrontType = "B"
+	Set Halffab.Kleur = "SW"
+	Set Halffab.Verpakking = "I"
+	Set Halffab.LiRe = "LI"
+	Set Halffab.Frontbevestiging = "RELING"
+	Set Halffab.UnID = 1005
+	Do HalffabTabel.VoegToeHalffab(Halffab)
+	
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New()
+	Set Halffab.Rol = "FrontHouder"
+	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
+	Set Halffab.ZijkantDesign = "A"
+	Set Halffab.ZijwandHoogte = "C"
+	Set Halffab.FrontType = "B"
+	Set Halffab.Kleur = "SW"
+	Set Halffab.Verpakking = "I"
+	Set Halffab.LiRe = "RE"
+	Set Halffab.Frontbevestiging = "RELING"
+	Set Halffab.UnID = 1006
+	Do HalffabTabel.VoegToeHalffab(Halffab)
 ]]></Implementation>
 </Method>
 
 <Method name="TestFrontHouder">
 <Description>
 Test Builder met data uit (UT) in-memory tabel </Description>
 <Implementation><![CDATA[
-	Set Context=..ContextUT(##class(DOM.PM.enu.LadeVariant).TBXIntivo())
+	Set Context = ..GeefContext()
 	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFFrontHouderv002).%New("")
-	Set IngegevenKenmerken=..DataTBX.GeefIngegevenKenmerken("I","SW","CLZ")
+	
+	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.ZijwandType = "COV"
+	Set IngegevenKenmerken.VoorwandType = "R"
 
 	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
@@ -120,26 +92,10 @@
 	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.Halffab.UnID,1003,"Halffab UnID voor Rughouder LI")
-	Do $$$AssertEquals(HFItemRE.Halffab.UnID,1004,"Halffab UnID voor Rughouder RE")
-
-	Quit
+	Do $$$AssertEquals(HFItemLI.Halffab.UnID,1005,"Halffab UnID voor Rughouder LI")
+	Do $$$AssertEquals(HFItemRE.Halffab.UnID,1006,"Halffab UnID voor Rughouder RE")
 ]]></Implementation>
 </Method>
-
-<Method name="TestXX">
-<Implementation><![CDATA[	; ToDo
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-// Methods ter voorbereiding van de testen
-// ======= === ============= === == ====== 
-*/
-]]></Content>
-</UDLText>
 </Class>
-<Checksum value="3921917702"/>
+<Checksum value="1847605391"/>
 </Export>
Index: vhUnitTest/APPS/PM/Maatwerk/TestDBGIngegevenKenmConverter.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/TestDBGIngegevenKenmConverter.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/TestDBGIngegevenKenmConverter.cls.xml	(revision 915)
@@ -0,0 +1,110 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 19:26:00">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.TestDBGIngegevenKenmConverter">
+<Description>
+Oproepen via 
+  do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.Maatwerk.TestDBGIngegevenKenmConverter") </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase,TECH.Error.ErrorAdaptor</Super>
+<TimeChanged>62153,70028.537612</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ErrorMsg">
+<Type>%String</Type>
+</Property>
+
+<Method name="aTestUpgraderViaCopy">
+<Implementation><![CDATA[
+	Set UTKenmVersie00=##class(vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv00).%New()
+	Set UTKenmVersie00.ProptA="AX"
+	Set UTKenmVersie00.ProptB="BX"
+	
+	Set UTKenmVersie01=##class(vhUnitTest.APPS.PM.Maatwerk.UTKenmv00v01Upgrader).UpgradeIngegevenKenmerken(UTKenmVersie00)
+	
+	Do $$$AssertTrue($IsObject(UTKenmVersie01),"UTKenmVersie01 is een object")
+	Do $$$AssertEquals(UTKenmVersie01.VersieNr,1,"Het versieNr is 1")
+	Do $$$AssertEquals(UTKenmVersie01.ProptA,"AX+Y","ProptA is gewijzigd naar AX+Y")
+	Do $$$AssertEquals(UTKenmVersie01.ProptB,"BX","ProptB is niet gewijzigd")
+]]></Implementation>
+</Method>
+
+<Method name="aTestUpgradeVerwachteVersieFout">
+<Implementation><![CDATA[
+	Set ..ErrorMsg=""
+	Set UTKenmVersie02=##class(vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv02).%New()
+
+
+	$$$LocalErrorTrapOn
+	
+	 w !," LocalTrap on.",!
+	 zw %TECHErrorLocalTrap
+	 w !,!
+	
+	  d WLIP^vhDBG(97,"In den UpgradeWithErrorTrap - ES="_$ESTACK)
+	Set UTKenmVersie01=##class(vhUnitTest.APPS.PM.Maatwerk.UTKenmv00v01Upgrader).UpgradeIngegevenKenmerken(UTKenmVersie02)
+	  d WLIP^vhDBG(97,"Einde van den UpgradeWithErrorTrap - ES="_$ESTACK)
+	
+	$$$ClearError
+	$$$LocalErrorTrapOff
+	
+	 w !," LocalTrap off.",!
+	 zw %TECHErrorLocalTrap
+	 w !,!
+
+
+		
+ /*
+		d WLIP^vhDBG(97,"Voor den upgrade - ES="_$ESTACK)
+	Do ..UpgradeWithErrorTrap(UTKenmVersie02)
+		d WLIP^vhDBG(97,"Na den upgrade - ES="_$ESTACK)
+*/
+	Set ExpectedError="`1005:InvalidInput`KenmerkVersie Onjuist`"
+	Do $$$AssertEquals(..ErrorMsg,ExpectedError,"De error is gethrowed")
+
+	Set ..ErrorMsg=""
+]]></Implementation>
+</Method>
+
+<Method name="UpgradeWithErrorTrap">
+<FormalSpec>Kenmerken</FormalSpec>
+<Implementation><![CDATA[
+	
+	$$$LocalErrorTrapOn
+	
+	 w !," LocalTrap on.",!
+	 zw %TECHErrorLocalTrap
+	 w !,!
+	
+	  d WLIP^vhDBG(97,"In den UpgradeWithErrorTrap - ES="_$ESTACK)
+	Set UTKenmVersie01=##class(vhUnitTest.APPS.PM.Maatwerk.UTKenmv00v01Upgrader).UpgradeIngegevenKenmerken(Kenmerken)
+	  d WLIP^vhDBG(97,"Einde van den UpgradeWithErrorTrap - ES="_$ESTACK)
+	
+	$$$ClearError
+	$$$LocalErrorTrapOff
+	
+	 w !," LocalTrap off.",!
+	 zw %TECHErrorLocalTrap
+	 w !,!
+	
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="TrapHandler">
+<FormalSpec>Label,Options</FormalSpec>
+<Implementation><![CDATA[
+	 w !,!
+	 zw %TECHErrorLocalTrap
+	 w !,!
+	
+	 d WLIP^vhDBG(97,"in den trap - ES="_$ESTACK)   ; _$$ArrayToText^vhLib("%TECHErrorLocalTrap"))
+
+	Set ..ErrorMsg=$ECODE
+
+	Set ErrorLevelTrapOn=$O(%TECHErrorLocalTrap(""),-1)
+	If $ES=(ErrorLevelTrapOn+2) $$$ClearError
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="1163904750"/>
+</Export>
Index: vhUnitTest/APPS/Halux/Planning/impl/ResourceGebruikCalcMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Planning/impl/ResourceGebruikCalcMock.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Planning/impl/ResourceGebruikCalcMock.cls.xml	(revision 915)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-07 11:11:08">
+<Class name="vhUnitTest.APPS.Halux.Planning.impl.ResourceGebruikCalcMock">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.Planning.impl.ResourceGebruikCalculator</Super>
+<TimeChanged>62129,40317.13933</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="BepaalResourceGebruikProduct">
+<FormalSpec>Product:DOM.PM.Product,ResourceGebruikDataFactory:APPS.Halux.Planning.impl.IResourceGebruikDataFactory</FormalSpec>
+<Implementation><![CDATA[	Do ##super(Product, ResourceGebruikDataFactory)
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="1772541992"/>
+</Export>
Index: vhUnitTest/PRAFMA/Design/TestsDesignVerpakking.cls.xml
===================================================================
diff -u -r860 -r915
--- vhUnitTest/PRAFMA/Design/TestsDesignVerpakking.cls.xml	(.../TestsDesignVerpakking.cls.xml)	(revision 860)
+++ vhUnitTest/PRAFMA/Design/TestsDesignVerpakking.cls.xml	(.../TestsDesignVerpakking.cls.xml)	(revision 915)
@@ -1,12 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-08 08:17:29">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-21 10:36:15">
 <Class name="vhUnitTest.PRAFMA.Design.TestsDesignVerpakking">
 <Description>
-Commando om tests uit te voeren: Do ##class(vhUnitTest.Manager).RunTest(,"PRAFMA.Design")</Description>
+Commando om tests uit te voeren: Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","PRAFMA.Design")</Description>
 <Import>zTryout.PRAFMA.Design.DOM.Verpakking,zTryout.PRAFMA.Design.DOM.Verpakking.Aventosbak</Import>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62130,29899.201308</TimeChanged>
+<TimeChanged>62143,38235.659244</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestIngevuldeAventosBak">
@@ -317,5 +317,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1573938880"/>
+<Checksum value="82163324"/>
 </Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml	(.../CreateDataTBX.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/CreateDataTBX.cls.xml	(.../CreateDataTBX.cls.xml)	(revision 915)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-18 11:07:07">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.CreateDataTBX">
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62115,48373.41336</TimeChanged>
+<TimeChanged>62140,40086.313695</TimeChanged>
 <TimeCreated>62012,63523.617197</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -38,12 +38,12 @@
 	;Set TBX.DesignCode="S"
 	;Set TBX.LadeDesign="GS"
 	Set TBX.ZijkantKleur="MG"       ; LadeKleur = Kleur zijwand + ... 
-	Set TBX.FronthouderKleur="MG"
-	Set TBX.RughouderKleur="MG"
+	Set TBX.FrontHouderKleur="MG"
+	Set TBX.RugHouderKleur="MG"
 	Set TBX.Draagkracht=30
 	Set TBX.LadeDiepte=500
-	Set TBX.LadeBreedte=863
-	Set TBX.LadeType="L"
+	Set TBX.InbouwBreedte=863
+	Set TBX.IsBinnenLade=0
 	Set TBX.Uittrekbaarheid="V"
 	Set TBX.ZijkantHoogte="M"
 	Set TBX.ZijwandHoogte="D"
@@ -53,7 +53,7 @@
 	Set TBX.BodemKleur="UTLG"       ; = UnitTest LichtGrijs 
 	Set TBX.RugHoogte="D"
 	Set TBX.RugKleur="UTLG"       ; = UnitTest LichtGrijs 
-	Set TBX.RugMateriaal="H"
+	Set TBX.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Hout()
 	
 	// Calculated Properties 
 	;Set TBX.CorpusBinnenmaat=863
@@ -77,12 +77,12 @@
 	;Set TBX.DesignCode="I"
 	;Set TBX.LadeDesign="WI"
 	Set TBX.ZijkantKleur="SW"       ; LadeKleur = Kleur zijwand + ... 
-	Set TBX.FronthouderKleur="SW"
-	Set TBX.RughouderKleur="SW"
+	Set TBX.FrontHouderKleur="SW"
+	Set TBX.RugHouderKleur="SW"
 	Set TBX.Draagkracht=30
 	Set TBX.LadeDiepte=500
-	Set TBX.LadeBreedte=863
-	Set TBX.LadeType="B"
+	Set TBX.InbouwBreedte=863
+	Set TBX.IsBinnenLade=1
 	Set TBX.Uittrekbaarheid="V"
 	Set TBX.ZijkantHoogte="L"
 	Set TBX.ZijwandHoogte="C"
@@ -93,7 +93,7 @@
 	Set TBX.BodemKleur="UTLG"       ; = UnitTest LichtGrijs 
 	Set TBX.RugHoogte="C"
 	Set TBX.RugKleur="UTLG"       ; = UnitTest LichtGrijs 
-	Set TBX.RugMateriaal="H"
+	Set TBX.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Hout()
 	
 	// Calculated Properties 
 	;Set TBX.CorpusBinnenmaat=863
@@ -131,13 +131,13 @@
 	;Set TBX.DesignCode="A"
 	;Set TBX.LadeDesign="WA"
 	Set TBX.ZijkantKleur="SW"       ; LadeKleur = Kleur zijwand + ... 
-	Set TBX.FronthouderKleur="SW"
-	Set TBX.RughouderKleur="SW"
+	Set TBX.FrontHouderKleur="SW"
+	Set TBX.RugHouderKleur="SW"
 	Set TBX.RelingKleur="SW"
 	Set TBX.Draagkracht=30
 	Set TBX.LadeDiepte=500
-	Set TBX.LadeBreedte=863
-	Set TBX.LadeType="L"
+	Set TBX.InbouwBreedte=863
+	Set TBX.IsBinnenLade = 0
 	Set TBX.Uittrekbaarheid="V"
 	Set TBX.ZijkantHoogte="M"
 	Set TBX.ZijwandHoogte="B"
@@ -147,7 +147,7 @@
 	Set TBX.BodemKleur="UTLG"       ; = UnitTest LichtGrijs 
 	Set TBX.RugHoogte="B"
 	Set TBX.RugKleur="UTLG"       ; = UnitTest LichtGrijs 
-	Set TBX.RugMateriaal="H"
+	Set TBX.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Hout()
 	
 	// Calculated Properties 
 	;Set TBX.CorpusBinnenmaat=863
@@ -314,5 +314,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2764836396"/>
+<Checksum value="2513577808"/>
 </Export>
Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(revision 915)
@@ -0,0 +1,165 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-23 08:25:31">
+<Class name="vhUnitTest.APPS.Halux.Planning.TestPlanningService">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestPlanningService")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62145,30393.86532</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ^KTO1(296195)="6332\"
+	
+	Set ^KTO(6332,296195,0)=103
+	Set ^KTO(6332,296195,1)="\02.02.11\KOMM. OPTIMA PACK\\\6332\118153\6279\\\\\\\\\\EUR\62137,43200\\\2\\\\"
+	Set ^KTO(6332,296195,4)=2
+	Set ^KTO(6332,296195,101)="\629192\1\\\47.68\#\\47.68\47.68\\L\1\\100\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\101\\\\\\\\"
+	Set ^KTO(6332,296195,102)="\629192\1\\\47.68\#\\47.68\47.68\\L\1\\100\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\102\\\\\\\\"
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestInstellingen">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
+	
+	Set Instellingen = Service.GeefInstellingen()
+	
+	Do $$$AssertTrue($IsObject(Instellingen),"De instellingen zijn een object")
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels),"De resourcedrempels zijn gezet")
+	
+	Set ResourceDrempels = Instellingen.ResourceDrempels
+	
+	Do $$$AssertTrue($IsObject(ResourceDrempels.ALUFrees),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.ALUOperator),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.ALUZaag),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.CorpusMontageVerpakken),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.CorpusVoorbereiding),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.KartonMachine),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXBoxpressKeller),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXBoxpressLijn1),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXBoxpressLijn2),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXSpecialsMontage),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXVoormontage),"De drempel is ingesteld")
+	Do $$$AssertTrue($IsObject(ResourceDrempels.TBXZaag),"De drempel is ingesteld")
+]]></Implementation>
+</Method>
+
+<Method name="TestVerplaatsToelevering">
+<Implementation><![CDATA[
+	/// Maak het dataitem voor de toelevering
+	Set ToeleveringsNummer = 296195
+	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringsNummer)
+ 	Set ToeleveringCreatedEventData = ##class(TECH.Events.ToeleveringCreatedEventData).%New(Toelevering)
+ 	Set ToeleveringCreatedEvent = ##class(TECH.Events.ToeleveringCreatedEvent).%New(ToeleveringCreatedEventData)
+	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringCreatedEventListener(ToeleveringCreatedEvent)
+	
+	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
+	Set ToeleveringsNummers = ##class(%ListOfDataTypes).%New()
+	Do ToeleveringsNummers.Insert(296195)
+	Do ToeleveringsNummers.Insert(296196)
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62135, ToeleveringsNummers)
+
+	Do $$$AssertTrue($IsObject(Resultaat),"Het resultaat is ingesteld")
+	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),ToeleveringsNummer,"Toelevering 296195 is geslaagd")
+	Do $$$AssertEquals(Resultaat.MislukteVerplaatsingen.GetAt(1),296196,"Verplaatsing gefaald omdat deze niet aanwezig is in de databank")
+	
+	&SQL(SELECT ID INTO :Bestaat FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE ToeleveringsNummer = :ToeleveringsNummer)
+	Set Bestaat = $Get(Bestaat,0) > 0
+	Do $$$AssertTrue(Bestaat, "De data voor de expliciete planning is bewaard")
+	
+	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
+	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62135,3),"Het item is gepland op de nieuwe datum")
+	
+	Set Bestaat = ""
+	&SQL(SELECT ID INTO :Bestaat FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE ToeleveringsNummer = 296196)
+	Set Bestaat = $Get(Bestaat,0) > 0
+	Do $$$AssertFalse(Bestaat, "De data voor de expliciete planning is niet bewaard")
+
+ 	Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringsNummer)
+ 	Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ 	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent)
+]]></Implementation>
+</Method>
+
+<Method name="TestWisLaatsteVerplaatsing">
+<Implementation><![CDATA[
+	/// Maak het dataitem voor de toelevering
+	Set ToeleveringsNummer = 296195
+	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringsNummer)
+ 	Set ToeleveringCreatedEventData = ##class(TECH.Events.ToeleveringCreatedEventData).%New(Toelevering)
+ 	Set ToeleveringCreatedEvent = ##class(TECH.Events.ToeleveringCreatedEvent).%New(ToeleveringCreatedEventData)
+	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringCreatedEventListener(ToeleveringCreatedEvent)
+	
+	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
+	Set ToeleveringsNummers = ##class(%ListOfDataTypes).%New()
+	Do ToeleveringsNummers.Insert(ToeleveringsNummer)
+	
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62135, ToeleveringsNummers)
+	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
+	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
+	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62135,3),"Het item is gepland op de nieuwe datum")
+	
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62133, ToeleveringsNummers)
+	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
+	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
+	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62133,3),"Het item is gepland op de nieuwe datum")
+	
+	Set Resultaat = Service.VerwijderLaatsteVerplaatsing(ToeleveringsNummer)
+	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
+	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
+	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62135,3),"Het item is terug geplaatst op de vorige verplaatsing")
+	
+	Set Resultaat = Service.VerwijderLaatsteVerplaatsing(ToeleveringsNummer)
+	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
+	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
+	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62137,3),"Het item is terug geplaatst op de vorige verplaatsing")
+	
+	Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringsNummer)
+ 	Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ 	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent)
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwijderAlleVerplaatsingen">
+<Implementation><![CDATA[
+	/// Maak het dataitem voor de toelevering
+	Set ToeleveringsNummer = 296195
+	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringsNummer)
+ 	Set ToeleveringCreatedEventData = ##class(TECH.Events.ToeleveringCreatedEventData).%New(Toelevering)
+ 	Set ToeleveringCreatedEvent = ##class(TECH.Events.ToeleveringCreatedEvent).%New(ToeleveringCreatedEventData)
+	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringCreatedEventListener(ToeleveringCreatedEvent)
+	
+	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
+	Set ToeleveringsNummers = ##class(%ListOfDataTypes).%New()
+	Do ToeleveringsNummers.Insert(ToeleveringsNummer)
+	
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62135, ToeleveringsNummers)
+	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
+	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
+	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62135,3),"Het item is gepland op de nieuwe datum")
+	
+	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62133, ToeleveringsNummers)
+	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
+	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
+	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62133,3),"Het item is gepland op de nieuwe datum")
+	
+	Set Resultaat = Service.VerwijderAlleVerplaatsingen(ToeleveringsNummer)
+	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
+	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
+	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62137,3),"Het item is terug geplaatst op de dueout time")
+	
+	Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringsNummer)
+ 	Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ 	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent)
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="1450744821"/>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv001.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv001.cls.xml	(.../HFFrontHouderv001.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontHouderv001.cls.xml	(.../HFFrontHouderv001.cls.xml)	(revision 915)
@@ -1,47 +1,57 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-16 15:09:38">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFFrontHouderv001">
 <Description>
 Oproepen via 
 	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.TBX.HFFrontHouderv001") 
 	</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestCaseTBX</Super>
-<TimeChanged>62115,51235.155867</TimeChanged>
+<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder</Super>
+<TimeChanged>62138,54633.703398</TimeChanged>
 <TimeCreated>62012,63523.617197</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="IsBuilderMeestRecenteVersie">
-<Description>
-Dient om aan te duiden of welke halffabTabel gebruikt wordt : Productie (persistent) of UnitTest (in-memory, artificial data) </Description>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 0
-]]></Implementation>
-</Method>
-
-<Method name="HalffabTabelVullen">
-<FormalSpec>HalffabTabel:DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</ReturnType>
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
-	// HalffabTabel vullen met artificiële halffab data 
-	Set arHFFrontHouders(1001)=$LB($LB("LadeVariant",##class(DOM.PM.enu.LadeVariant).TBXIntivo()),$LB("ZijkantDesign","A"),$LB("ZijwandHoogte","C"),$LB("FrontType","B"),$LB("Kleur","SW"),$LB("Verpakking","I"),$LB("LiRe","LI"))
-	Set arHFFrontHouders(1002)=$LB($LB("LadeVariant",##class(DOM.PM.enu.LadeVariant).TBXIntivo()),$LB("ZijkantDesign","A"),$LB("ZijwandHoogte","C"),$LB("FrontType","B"),$LB("Kleur","SW"),$LB("Verpakking","I"),$LB("LiRe","RE"))
-
-	Set UnID=""
-	For {
-		Set UnID=$O(arHFFrontHouders(UnID))
-		Quit:(UnID)=""
-		
-		Do HalffabTabel.VoegToeHalffab(..DataTBX.MaakHalffab("FrontHouder",UnID,"", arHFFrontHouders(UnID) ))
-	}
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New()
+	Set Halffab.Rol = "FrontHouder"
+	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
+	Set Halffab.ZijkantDesign = "A"
+	Set Halffab.ZijwandHoogte = "C"
+	Set Halffab.FrontType = "B"
+	Set Halffab.Kleur = "SW"
+	Set Halffab.Verpakking = "I"
+	Set Halffab.LiRe = "LI"
+	Set Halffab.UnID = 1001
+	Do HalffabTabel.VoegToeHalffab(Halffab)
+	
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabFrontHouder).%New()
+	Set Halffab.Rol = "FrontHouder"
+	Set Halffab.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
+	Set Halffab.ZijkantDesign = "A"
+	Set Halffab.ZijwandHoogte = "C"
+	Set Halffab.FrontType = "B"
+	Set Halffab.Kleur = "SW"
+	Set Halffab.Verpakking = "I"
+	Set Halffab.LiRe = "RE"
+	Set Halffab.UnID = 1002
+	Do HalffabTabel.VoegToeHalffab(Halffab)
 ]]></Implementation>
 </Method>
 
 <Method name="TestFrontHouder">
 <Implementation><![CDATA[
-	Set Context=..ContextUT(##class(DOM.PM.enu.LadeVariant).TBXIntivo())
+	Set Context = ..GeefContext()
 	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFFrontHouderv001).%New("")
-	Set IngegevenKenmerken=..DataTBX.GeefIngegevenKenmerken("I","SW","CLZ")
+	
+	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.ZijwandType = "COV"
 
 	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
@@ -55,20 +65,6 @@
 	Do $$$AssertEquals(HFItemRE.Halffab.UnID,1002,"Halffab UnID voor Rughouder RE")
 ]]></Implementation>
 </Method>
-
-<Method name="TestXX">
-<Implementation><![CDATA[	; ToDo
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-// Methods ter voorbereiding van de testen
-// ======= === ============= === == ====== 
-*/
-]]></Content>
-</UDLText>
 </Class>
-<Checksum value="2626869589"/>
+<Checksum value="2270262919"/>
 </Export>
Index: vhUnitTest/DOM/OV/TestFactuur.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/OV/TestFactuur.cls.xml	(.../TestFactuur.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/OV/TestFactuur.cls.xml	(.../TestFactuur.cls.xml)	(revision 915)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 10:51:59">
 <Class name="vhUnitTest.DOM.OV.TestFactuur">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.OV.TestFactuur")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62109,43713.022912</TimeChanged>
+<TimeChanged>62158,39192.28006</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestBonInFactuur">
@@ -25,7 +25,7 @@
 	
 	Set BonIterator = Factuur.GeefBonIterator()
 	Set Bon = BonIterator.Next()
-	Set BonLijnIterator = Bon.GeefBonLijnIterator()
+	Set BonLijnIterator = Bon.GeefBonlijnIterator()
 	Do $$$AssertTrue(BonLijnIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
 	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
 	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMOrderlijn"),"De lijn is een product order lijn")
@@ -37,7 +37,7 @@
 	
 	Set BonIterator = Factuur.GeefBonIterator()
 	Set Bon = BonIterator.Next()
-	Set TypedBonIterator = Bon.GeefTypeBonLijnIterator(##class(DOM.OV.enu.BonlijnType).Product())
+	Set TypedBonIterator = Bon.GeefTypeBonlijnIterator(##class(DOM.OV.enu.BonlijnType).Product())
 	Do $$$AssertTrue(TypedBonIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
 	Do $$$AssertTrue(TypedBonIterator.HasNext(),"De bon bevat een volgende product type lijn")
 	Do $$$AssertTrue(TypedBonIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
@@ -47,5 +47,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="4222885383"/>
+<Checksum value="2413665653"/>
 </Export>
Index: vhUnitTest/DOM/OV/TestBon.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/OV/TestBon.cls.xml	(.../TestBon.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/OV/TestBon.cls.xml	(.../TestBon.cls.xml)	(revision 915)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-04 08:01:32">
 <Class name="vhUnitTest.DOM.OV.TestBon">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.OV.TestBon")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62109,44706.555528</TimeChanged>
+<TimeChanged>62154,28962.399797</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestBon">
@@ -18,29 +18,29 @@
 	Set Bon = OrderAPI.GeefBon(BonNr)
 	Do $$$AssertTrue(Bon.%Extends("DOM.OV.Bon"),"Het object is een bon")
 	
-	Set BonLijnIterator = Bon.GeefBonLijnIterator()
-	Do $$$AssertTrue(BonLijnIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertFalse(BonLijnIterator.HasNext(),"De bon bevat geen volgende lijn")
+	Set BonlijnIterator = Bon.GeefBonlijnIterator()
+	Do $$$AssertTrue(BonlijnIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertFalse(BonlijnIterator.HasNext(),"De bon bevat geen volgende lijn")
 	
-	Set TypedBonIterator = Bon.GeefTypeBonLijnIterator(##class(DOM.OV.enu.BonlijnType).Tekst())
+	Set TypedBonIterator = Bon.GeefTypeBonlijnIterator(##class(DOM.OV.enu.BonlijnType).Tekst())
 	Do $$$AssertTrue(TypedBonIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
 	Do $$$AssertFalse(TypedBonIterator.HasNext(),"De bon bevat geen tekstlijnen")
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3485194033"/>
+<Checksum value="2654868308"/>
 </Export>
Index: vhUnitTest/APPS/TBXWeb/TestActies.cls.xml
===================================================================
diff -u -r867 -r915
--- vhUnitTest/APPS/TBXWeb/TestActies.cls.xml	(.../TestActies.cls.xml)	(revision 867)
+++ vhUnitTest/APPS/TBXWeb/TestActies.cls.xml	(.../TestActies.cls.xml)	(revision 915)
@@ -1,13 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-09 11:49:46">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-14 10:05:16">
 <Class name="vhUnitTest.APPS.TBXWeb.TestActies">
 <Description>
 Oproepen via 
 	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.TBXWeb.TestActies") 
 	</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62131,42635.614232</TimeChanged>
+<TimeChanged>62136,36370.37295</TimeChanged>
 <TimeCreated>62012,63523.617197</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -176,6 +176,7 @@
 
 	Set WSOrd=..CreateWSOrd("OFF",DatumVervallen,$LB("SFS_GRATIS_KORPUSSCHIENEN_2011"))
 
+	
 	Do $$$AssertEquals(WSOrd.ZijnActiesNogGeldig(DatumVooraf),0,"De ActiesList bevat geen items")
 	Do $$$AssertEquals(WSOrd.ZijnActiesNogGeldig(DatumTijdens),1,"De ActiesList bevat geen items")
 	Do $$$AssertEquals(WSOrd.ZijnActiesNogGeldig(DatumAchteraf),0,"De ActiesList bevat geen items")
@@ -303,5 +304,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="941908376"/>
+<Checksum value="1721186721"/>
 </Export>
Index: vhUnitTest/ClassInfo/TestClassInfo.cls.xml
===================================================================
diff -u
--- vhUnitTest/ClassInfo/TestClassInfo.cls.xml	(revision 0)
+++ vhUnitTest/ClassInfo/TestClassInfo.cls.xml	(revision 915)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 14:03:08">
+<Class name="vhUnitTest.ClassInfo.TestClassInfo">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","ClassInfo.TestClassInfo")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62157,50660.263553</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestClassDefinition">
+<Implementation><![CDATA[
+	Set ClassDefinition = ##class(TECH.ClassInfo.ClassDefinition).%New("vhUnitTest.ClassInfo.impl.sub.Subklasse")
+	
+	Do $$$AssertEquals(ClassDefinition.GeefNaam(),"vhUnitTest.ClassInfo.impl.sub.Subklasse","De naam van de klasse")
+	Do $$$AssertEquals(ClassDefinition.GeefPackage(),"vhUnitTest.ClassInfo.impl.sub","De package naam")
+	
+	Set Imports = ClassDefinition.GeefImports()
+	
+	Do $$$AssertEquals(Imports.Next(),"vhUnitTest.ClassInfo.impl.sub2","De import")
+	Do $$$AssertEquals(Imports.Next(),"vhUnitTest.ClassInfo.impl.sub","De import van de bovenklasse")
+	
+	Set SuperKlassen = ClassDefinition.GeefSuperKlassen()
+	
+	Do $$$AssertEquals(SuperKlassen.Next(),"vhUnitTest.ClassInfo.impl.ImplKlasse","De superklasse")
+]]></Implementation>
+</Method>
+
+<Method name="TestProperties">
+<Implementation><![CDATA[
+	Set ClassDefinition = ##class(TECH.ClassInfo.ClassDefinition).%New("vhUnitTest.ClassInfo.impl.sub.Subklasse")
+	
+	Set Properties = ClassDefinition.GeefProperties()
+	Set Property = Properties.Next()
+	
+	Do $$$AssertEquals(Property.GeefNaam(),"TestProperty","De naam van de property")
+	Do $$$AssertEquals(Property.GeefType(),"vhUnitTest.ClassInfo.impl.sub2.SubKlasse2","Het volledige type van de property")
+]]></Implementation>
+</Method>
+
+<Method name="TestMethods">
+<Implementation><![CDATA[
+	Set ClassDefinition = ##class(TECH.ClassInfo.ClassDefinition).%New("vhUnitTest.ClassInfo.impl.sub.Subklasse")
+	
+	Set Methods = ClassDefinition.GeefMethods()
+	Set Method = Methods.Next()
+	
+	Do $$$AssertEquals(Method.GeefNaam(),"TestMethod","De naam van de method")
+	Do $$$AssertEquals(Method.GeefType(),"vhUnitTest.ClassInfo.impl.sub2.SubKlasse2","Het type van de method")
+	
+	Set Parameters = Method.GeefParameters()
+	Set Parameter = Parameters.Next()
+	
+	Do $$$AssertEquals(Parameter.GeefNaam(),"Param1","De naam van de parameter")
+	Do $$$AssertEquals(Parameter.GeefType(),"vhUnitTest.ClassInfo.impl.TestKlasse3","Het type van de parameter")
+	Do $$$AssertEquals(Parameter.GeefDefaultWaarde(),1,"De default waarde van de parameter")
+	
+	Set Parameter = Parameters.Next()
+	
+	Do $$$AssertEquals(Parameter.GeefNaam(),"Param2","De naam van de parameter")
+	Do $$$AssertEquals(Parameter.GeefType(),"vhUnitTest.ClassInfo.impl.sub2.SubKlasse2","Het type van de parameter")
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="51075898"/>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFVullingv001.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFVullingv001.cls.xml	(.../HFVullingv001.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFVullingv001.cls.xml	(.../HFVullingv001.cls.xml)	(revision 915)
@@ -1,41 +1,36 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-11 14:07:09">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.KAD.HFVullingv001">
 <Description>
 Oproepen via 
 	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.KAD.HFVullingv001") 
 	</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestCaseKAD</Super>
-<TimeChanged>62063,35054.465544</TimeChanged>
+<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder</Super>
+<TimeChanged>62133,50880.705143</TimeChanged>
 <TimeCreated>62012,63523.617197</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="IsBuilderMeestRecenteVersie">
-<Description>
-Dient om aan te duiden of welke halffabTabel gebruikt wordt : Productie (persistent) of UnitTest (in-memory, artificial data) </Description>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="HalffabTabelVullen">
-<FormalSpec>HalffabTabel:DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</ReturnType>
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
-	// HalffabTabel vullen met artificiële halffab data 
-	; Do HalffabTabel.AddHalffab(...)
-	; Do HalffabTabel.AddHalffab(...)
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabVulling).%New()
+	Set Halffab.Rol = "VULLING"
+	Set Halffab.VullingSoort = "FG"
+	Set Halffab.UnID = 598305
+	Do HalffabTabel.VoegToeHalffab(Halffab)
 ]]></Implementation>
 </Method>
 
 <Method name="TestVulling">
 <Implementation><![CDATA[
-	Set Context=..ContextPROD
-	Set IngegevenKenmerken=..DataKAD.GeefIngegevenKenmerkenPSV()
-	Set HalffabItemKADProfiel=..DataKAD.GeefHFItemProfielPSV(Context)
-	Do Context.HalffabItemsBoom.AddHalffabItem(HalffabItemKADProfiel)
+	Set Context = ..GeefContext()
 	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken).%New()
+	Set IngegevenKenmerken.Vulling = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADVullingBeschrijving).%New("FG")
+	
+	Do Context.HalffabItemsBoom.AddHalffabItem(..GeefProfielHalffabItem(Context))
+	
 	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HFVullingv001).%New("")
 	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
@@ -47,38 +42,37 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestVullingLosProfiel">
-<Implementation><![CDATA[	; ToDo
-]]></Implementation>
-</Method>
+<Method name="GeefProfielHalffabItem">
+<FormalSpec>Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
+<Implementation><![CDATA[
+	Set SamengesteldItem=##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(Context,"Profiel")
 
-<Method name="TestVullingHerstelling">
-<Implementation><![CDATA[	; ToDo
-]]></Implementation>
-</Method>
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabProfiel).%New()
+	Set Halffab.AftrekVoorDichting = 18
 
-<Method name="TestVullingZonderKader">
-<Implementation><![CDATA[	; ToDo
-]]></Implementation>
-</Method>
+	Set SubHalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(Context, "Links")
+	Set SubHalffabItem.Halffab=Halffab
+	Set SubHalffabItem.Aantal=1
+	Do SamengesteldItem.VoegToe(SubHalffabItem)
 
-<Method name="TestKaderZonderVulling">
-<Implementation><![CDATA[
-	// Kader zonder vulling 
-	; IngegevenKenmerken.Vullingen=""
+	Set SubHalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(Context, "Rechts")
+	Set SubHalffabItem.Halffab=Halffab
+	Set SubHalffabItem.Aantal=1
+	Do SamengesteldItem.VoegToe(SubHalffabItem)
+
+	Set SubHalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(Context, "Boven")
+	Set SubHalffabItem.Halffab=Halffab
+	Set SubHalffabItem.Aantal=1
+	Do SamengesteldItem.VoegToe(SubHalffabItem)
+
+	Set SubHalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(Context, "Onder")
+	Set SubHalffabItem.Halffab=Halffab
+	Set SubHalffabItem.Aantal=1
+	Do SamengesteldItem.VoegToe(SubHalffabItem)
 	
-	; ToDo
+	Quit SamengesteldItem
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-// Methods ter voorbereiding van de testen
-// ======= === ============= === == ====== 
-*/
-]]></Content>
-</UDLText>
 </Class>
-<Checksum value="18198119"/>
+<Checksum value="3990319518"/>
 </Export>
Index: vhUnitTest/APPS/Halux/Docs/impl/TBXLadeProduct.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Docs/impl/TBXLadeProduct.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Docs/impl/TBXLadeProduct.cls.xml	(revision 915)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-23 11:30:27">
+<Class name="vhUnitTest.APPS.Halux.Docs.impl.TBXLadeProduct">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,DOM.PM.Product</Super>
+<TimeChanged>62145,41489.273465</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefFamilie">
+<ReturnType>DOM.PM.enu.Familie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.Familie).Lade()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVariant">
+<ReturnType>DOM.PM.enu.LadeVariant</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.LadeVariant).TBXPlus()
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="1606026263"/>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFDichtingv001.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFDichtingv001.cls.xml	(.../HFDichtingv001.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/KAD/HFDichtingv001.cls.xml	(.../HFDichtingv001.cls.xml)	(revision 915)
@@ -1,75 +1,79 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-11 14:06:29">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.KAD.HFDichtingv001">
 <Description>
 Oproepen via 
 	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.KAD.HFDichtingv001") 
 	</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestCaseKAD</Super>
-<TimeChanged>62063,34962.748017</TimeChanged>
+<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder</Super>
+<TimeChanged>62133,50840.530235</TimeChanged>
 <TimeCreated>62012,63523.617197</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="IsBuilderMeestRecenteVersie">
-<Description>
-Dient om aan te duiden of welke halffabTabel gebruikt wordt : Productie (persistent) of UnitTest (in-memory, artificial data) </Description>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="HalffabTabelVullen">
-<FormalSpec>HalffabTabel:DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</ReturnType>
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
 <Implementation><![CDATA[
-	// HalffabTabel vullen met artificiële halffab data 
-	; Do HalffabTabel.AddHalffab(...)
-	; Do HalffabTabel.AddHalffab(...)
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabDichting).%New()
+	Set Halffab.Rol = "DICHTING"
+	Set Halffab.ProfielType = "PSV"
+	Set Halffab.Opties = "S"
+	Set Halffab.UnID = 254237
+	Do HalffabTabel.VoegToeHalffab(Halffab)
 ]]></Implementation>
 </Method>
 
 <Method name="TestDichting">
 <Implementation><![CDATA[
-	Set Context=..ContextPROD
-	Set IngegevenKenmerken=..DataKAD.GeefIngegevenKenmerkenPSV()
-	Set HalffabItemKADProfiel=..DataKAD.GeefHFItemProfielPSV(Context)
-	Do Context.HalffabItemsBoom.AddHalffabItem(HalffabItemKADProfiel)
+	Set Context = ..GeefContext()
 	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken).%New()
+	Set IngegevenKenmerken.ProfielType="PSV"
+	Set IngegevenKenmerken.Vulling = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADVullingBeschrijving).%New("FG")
+	
+	// De builder is afhankelijk van profielen, deze moet dus aanwezig zijn in de HFItemsBoom
+	Do Context.HalffabItemsBoom.AddHalffabItem(..GeefProfielHalffabItem(Context))
+	
 	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HFDichtingv001).%New("")
 	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
 	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
 	Do $$$AssertTrue($IsObject(HalffabItem.Halffab),"HalffabItem heeft een halffab")
 	Do $$$AssertEquals(HalffabItem.Halffab.UnID,254237,"Halffab UnID voor Vulling")
-
-	Quit
 ]]></Implementation>
 </Method>
 
-<Method name="TestDichtingLosProfiel">
-<Implementation><![CDATA[	; ToDo
-]]></Implementation>
-</Method>
+<Method name="GeefProfielHalffabItem">
+<FormalSpec>Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
+<Implementation><![CDATA[
+	Set SamengesteldItem=##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(Context,"Profiel")
 
-<Method name="TestDichtingHerstelling">
-<Implementation><![CDATA[	; ToDo
-]]></Implementation>
-</Method>
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.KAD.HalffabProfiel).%New()
+	Set Halffab.AftrekVoorDichting = 18
 
-<Method name="TestDichtingGlasOnly">
-<Implementation><![CDATA[	; ToDo
+	Set SubHalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(Context, "Links")
+	Set SubHalffabItem.Halffab=Halffab
+	Set SubHalffabItem.Aantal=1
+	Do SamengesteldItem.VoegToe(SubHalffabItem)
+
+	Set SubHalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(Context, "Rechts")
+	Set SubHalffabItem.Halffab=Halffab
+	Set SubHalffabItem.Aantal=1
+	Do SamengesteldItem.VoegToe(SubHalffabItem)
+
+	Set SubHalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(Context, "Boven")
+	Set SubHalffabItem.Halffab=Halffab
+	Set SubHalffabItem.Aantal=1
+	Do SamengesteldItem.VoegToe(SubHalffabItem)
+
+	Set SubHalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(Context, "Onder")
+	Set SubHalffabItem.Halffab=Halffab
+	Set SubHalffabItem.Aantal=1
+	Do SamengesteldItem.VoegToe(SubHalffabItem)
+	
+	Quit SamengesteldItem
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-// Methods ter voorbereiding van de testen
-// ======= === ============= === == ====== 
-*/
-]]></Content>
-</UDLText>
 </Class>
-<Checksum value="3011230705"/>
+<Checksum value="1749475303"/>
 </Export>
Index: vhUnitTest/BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r860 -r915
--- vhUnitTest/BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 860)
+++ vhUnitTest/BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 915)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-08 12:02:16">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-14 16:45:12">
 <Class name="vhUnitTest.BL.Flow.Proxy.pxLevering">
 <IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase,%XML.Adaptor</Super>
-<TimeChanged>62130,43385.693432</TimeChanged>
+<TimeChanged>62136,60365.57562</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestKlantIsAfzender">
@@ -237,5 +237,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3728972388"/>
+<Checksum value="2270683164"/>
 </Export>
Index: vhUnitTest/DOM/OV/TestOrder.cls.xml
===================================================================
diff -u -r867 -r915
--- vhUnitTest/DOM/OV/TestOrder.cls.xml	(.../TestOrder.cls.xml)	(revision 867)
+++ vhUnitTest/DOM/OV/TestOrder.cls.xml	(.../TestOrder.cls.xml)	(revision 915)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-09 14:57:23">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 16:34:46">
 <Class name="vhUnitTest.DOM.OV.TestOrder">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.OV.TestOrder")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62131,53892.63501</TimeChanged>
+<TimeChanged>62158,59685.22643</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="OnBeforeAllTests">
@@ -28,6 +28,8 @@
 	Do $$$AssertEquals(Order.GeefOrderNr(),OrderNr,"Order nummer")
 	Do $$$AssertEquals(Order.GeefKlantNr(),1000,"Order voor testklant VH")
 	Do $$$AssertTrue('Order.BevatLangGoed(),"Het order bevat geen langgoed")
+	Do $$$AssertFalse(Order.IsASAP(),"Het order is ASAP")
+	Do $$$AssertEquals(Order.GeefIngegevenDoor(),"Christiaan Willems","Order ingegeven door")
 	
 	Set Adres = Order.GeefAfleveradres()
 	Do $$$AssertEquals(Adres.GeefNaam(),"TESTKLANT VAN HOECKE nv","Testklant VH")
@@ -36,11 +38,12 @@
 	Do $$$AssertEquals(Adres.GeefStraat(),"Europark noord 9","Straat")
 	Do $$$AssertEquals(Adres.GeefPostcode(),9100,"Postcode")
 	Do $$$AssertEquals(Adres.GeefGemeente(),"Sint-Niklaas","Gemeente")
+	Do $$$AssertEquals(Adres.GeefLandNr(),"1019","Land")
 	
-	Set OrderIterator = Order.GeefOrderLijnIterator()
+	Set OrderIterator = Order.GeefOrderlijnIterator()
 	Do $$$AssertTrue($IsObject(OrderIterator),"De iterator is ingesteld")
 	
-	Set OrderIterator = Order.GeefTypeOrderLijnIterator(##class(DOM.OV.enu.OrderlijnType).Manueel())
+	Set OrderIterator = Order.GeefTypeOrderlijnIterator(##class(DOM.OV.enu.OrderlijnType).Manueel())
 	Do $$$AssertTrue($IsObject(OrderIterator),"De iterator is ingesteld")
 ]]></Implementation>
 </Method>
@@ -53,5 +56,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="304294642"/>
+<Checksum value="1790982475"/>
 </Export>
Index: vhUnitTest/DOM/PM/Maatwerk/Kost/impl/UTKostContext.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Kost/impl/UTKostContext.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Kost/impl/UTKostContext.cls.xml	(revision 915)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 08:00:50">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Kost.impl.UTKostContext">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Kost.KostContext</Super>
+<TimeChanged>62153,28919.300773</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefPrijs">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 3
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="1180237104"/>
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/UTKenmv01v02Upgrader.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/UTKenmv01v02Upgrader.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/UTKenmv01v02Upgrader.cls.xml	(revision 915)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 16:33:19">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.UTKenmv01v02Upgrader">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.PM.Maatwerk.IngegevenKenmUpgrader</Super>
+<TimeChanged>62157,59671.350869</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="UseUpgradeViaInherit">
+<Default>1</Default>
+</Parameter>
+
+<Method name="GeefVerwachteVersieNr">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 1   ; VerwachteVersie
+]]></Implementation>
+</Method>
+
+<Method name="UpgradeViaInherit">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set ClassNameNew="vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv02"
+	
+	// Copy maken van alle overeenkomstige properties 
+	Set NewVersionIK=..ConstructCloneToNewVersion(Kenmerken,ClassNameNew)
+	
+	// Properties aan te passen 
+	Set NewVersionIK.ProptB=Kenmerken.ProptB_"+B.v2"
+	Set NewVersionIK.ProptC="C.v2"
+	
+	Quit NewVersionIK
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2739390442"/>
+</Export>
Index: vhUnitTest/TECH/Error.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/TECH/Error.cls.xml	(.../Error.cls.xml)	(revision 734)
+++ vhUnitTest/TECH/Error.cls.xml	(.../Error.cls.xml)	(revision 915)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 16:13:35">
 <Class name="vhUnitTest.TECH.Error">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase,TECH.Error.ErrorAdaptor</Super>
-<TimeChanged>62109,59274.536992</TimeChanged>
+<TimeChanged>62158,58414.557381</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ResultTrap">
@@ -18,11 +18,13 @@
 	do $$$LogMessage("TrapOff")
 	do ..TrapOff()
 	
-	;do $$$LogMessage("TrapOffOnError")
-	;do ..TrapOffOnError()
+	do $$$LogMessage("TrapOffOnError")
+	do ..TrapOffOnError()
 	
-	;do $$$LogMessage("TrapNotOffOnError")
-	;do ..TrapNotOffOnError()
+	do $$$LogMessage("TrapNotOffOnError")
+	do ..TrapNotOffOnError()	
+	
+	quit
 ]]></Implementation>
 </Method>
 
@@ -32,61 +34,54 @@
 	$$$LocalErrorTrapOff
 	
 	do $$$AssertFalse($data(%TECHErrorLocalTrap),"Controle mooie opkuis error trap")
+	
 	quit
 ]]></Implementation>
 </Method>
 
 <Method name="TrapOffOnError">
 <Implementation><![CDATA[
 	$$$LocalErrorTrapOn
-	set %ErrorTrapped = 0
-	set $ETRAP="do ##class(vhUnitTest.TECH.Error).OnError()"
-	write 10/0  // Een error veroorzaken
+	do ..RaiseError() 
 	$$$LocalErrorTrapOff
 	
-	do $$$AssertTrue(%ErrorTrapped)
+	do $$$AssertTrue(..ResultTrap)
 	do $$$AssertFalse($data(%TECHErrorLocalTrap),"Controle mooie opkuis error trap")
 	
-	kill %ErrorTrapped
 	quit
 ]]></Implementation>
 </Method>
 
 <Method name="TrapNotOffOnError">
 <Implementation><![CDATA[
 	$$$LocalErrorTrapOn
-	set %ErrorTrapped = 0
-	set $ETRAP="do ##class(vhUnitTest.TECH.Error).OnError()"
-	$$$LocalErrorTrapOn
+	do ..RaiseError() 
 	
-	$$$LocalErrorTrapOff
+	do $$$AssertTrue(..ResultTrap)
+	do $$$AssertTrue($data(%TECHErrorLocalTrap),"Controle niet opgekuiste error trap")
+	do $$$AssertFalse($ETRAP="")
 	
-	do $$$AssertTrue(%ErrorTrapped)
+	$$$LocalErrorTrapOff
 	do $$$AssertFalse($data(%TECHErrorLocalTrap),"Controle mooie opkuis error trap")
+	do $$$AssertTrue($ETRAP="")
 	
-	kill %ErrorTrapped
-	
 	quit
 ]]></Implementation>
 </Method>
 
+<Method name="RaiseError">
+<Implementation><![CDATA[	write 10/0  // Een error veroorzaken
+]]></Implementation>
+</Method>
+
 <Method name="TrapHandler">
 <FormalSpec>Label,Options</FormalSpec>
 <Implementation><![CDATA[
 	set ..ResultTrap = 1
-	$$$ClearError
+	$$$ClearLocalError
 	quit
 ]]></Implementation>
 </Method>
-
-<Method name="OnError">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	$$$ClearError
-	set %ErrorTrapped = 1
-	quit
-]]></Implementation>
-</Method>
 </Class>
-<Checksum value="2409129654"/>
+<Checksum value="2353373059"/>
 </Export>
Index: vhUnitTest/APPS/PM/Maatwerk/UTKenmv00v01Upgrader.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/UTKenmv00v01Upgrader.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/UTKenmv00v01Upgrader.cls.xml	(revision 915)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 17:35:03">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.UTKenmv00v01Upgrader">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.PM.Maatwerk.IngegevenKenmUpgrader</Super>
+<TimeChanged>62157,63375.084472</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="UseUpgradeViaCopy">
+<Default>1</Default>
+</Parameter>
+
+<Method name="GeefVerwachteVersieNr">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="UpgradeViaCopy">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set ClassNameNew="vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv01"
+
+	// Copy maken van alle overeenkomstige properties 
+	Set NewVersionIK=..ConstructCloneToNewVersion(Kenmerken,ClassNameNew)
+		
+	// Properties aan te passen 
+	Set NewVersionIK.ProptB=Kenmerken.ProptB_"+B.v1"
+	
+	Quit NewVersionIK
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="4138510073"/>
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv01.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv01.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv01.cls.xml	(revision 915)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 17:00:35">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv01">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Super>
+<TimeChanged>62157,61306.807124</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ProptA">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProptB">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVersieNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>UTKenmerkenv01DefaultData</DefaultData>
+<Data name="UTKenmerkenv01DefaultData">
+<Structure>listnode</Structure>
+<Subscript>"UTKenmerkenv01"</Subscript>
+<Value name="1">
+<Value>ProptA</Value>
+</Value>
+<Value name="2">
+<Value>ProptB</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+<Checksum value="2491042877"/>
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/UTKenmUpgWrapperv01v02.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/UTKenmUpgWrapperv01v02.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/UTKenmUpgWrapperv01v02.cls.xml	(revision 915)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 12:24:16">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.UTKenmUpgWrapperv01v02">
+<Description>
+Deze wrapper doet zich in alles voor als TBXKenmerkenV02.
+
+Wanneer de waarde van een kenmerk (property) wordt opgevraagd, kijkt
+de wrapper of het kenmerk al een waarde heeft in het basisobject van
+klasse TBXKenmerkenV2. Indien dit het geval is, wordt deze waarde
+teruggegeven.  Indien dit niet het geval is, wordt de waarde berekend
+uit een of meerdere kenmerken van het gewrapte object van klasse
+TBXKenmerkenV1, en opgeslagen in het basisobject.  De volgende keer
+dat de waarde wordt gevraagd kan deze meteen gegeven worden vermits
+ze al eens berekend is.  Op deze manier wordt on the fly een
+conversie gedaan.
+
+Wanneer een wrapper-object gesaved wordt, moet het alle waarden
+converteren vooraleer te saven.</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenV02</Super>
+<TimeChanged>62153,44725.352261</TimeChanged>
+<TimeCreated>62153,33910.500773</TimeCreated>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="UTKenmerkenV01">
+<Type>vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenV01</Type>
+</Property>
+</Class>
+<Checksum value="4053255154"/>
+</Export>
Index: vhUnitTest/DOM/PM/OL/Gamma/OPGZoekProductInhoud.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/OL/Gamma/OPGZoekProductInhoud.cls.xml	(.../OPGZoekProductInhoud.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/OL/Gamma/OPGZoekProductInhoud.cls.xml	(.../OPGZoekProductInhoud.cls.xml)	(revision 915)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-23 08:09:40">
 <Class name="vhUnitTest.DOM.PM.OL.Gamma.OPGZoekProductInhoud">
 <Description>
 Oproepen via 
@@ -14,7 +14,7 @@
 <IncludeCode>DOM.PM.OL,BL.Derde.KlantSpecifiek</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62096,31778.37346</TimeChanged>
+<TimeChanged>62145,29442.767062</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="CanCreateFiles">
@@ -736,5 +736,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3335323533"/>
+<Checksum value="1262436043"/>
 </Export>
Index: vhUnitTest/DOM/PM/Maatwerk/OLM/impl/UTContext.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/OLM/impl/UTContext.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/OLM/impl/UTContext.cls.xml	(revision 915)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-28 08:32:56">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.OLM.impl.UTContext">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.HF.HalffabContext</Super>
+<TimeChanged>62150,30842.796471</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Familie:DOM.PM.enu.Familie,Variant:DOM.PM.enu.Variant,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Familie = Familie
+	Set ..Variant = Variant
+	Set ..BerekeningsSpecificatie = BerekeningsSpecificatie
+	
+	Set HalffabRepository = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New()
+	//Set ..HalffabSpec = HalffabRepository.GeefSpecDatum(..Familie, ..Variant)
+	//Set ..HalffabTabel = HalffabRepository.GeefHalffabTabel(..Familie, ..Variant, ..BerekeningsSpecificatie.GeefKlantID(), ..BerekeningsSpecificatie.GeefPersonality())
+	
+	Set ..BewerkingsInfoTabel = ##class(DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfoTabel).%New()
+ 	Set ..HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+ 	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2731463940"/>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/OLM/impl/UTKostContext.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/OLM/impl/UTKostContext.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/OLM/impl/UTKostContext.cls.xml	(revision 915)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 08:03:49">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.OLM.impl.UTKostContext">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Kost.KostContext</Super>
+<TimeChanged>62153,29098.08923</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="BepaalKostSpec">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Kost.KostSpec</ReturnType>
+<Implementation><![CDATA[	Set ..KostSpec = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.OLM.SpecOpMaatKostv001).%New()
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrijs">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 3
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="844648289"/>
+</Export>
Index: vhUnitTest/DOM/OV/OrderData.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/OV/OrderData.cls.xml	(revision 0)
+++ vhUnitTest/DOM/OV/OrderData.cls.xml	(revision 915)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-22 10:48:13">
+<Class name="vhUnitTest.DOM.OV.OrderData">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<TimeChanged>62144,38954.728426</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Create">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ^KO1(118382,"F") = "1000\"
+	
+	Set ^KOD(1000,"F",118382,0) = 104
+	Set ^KOD(1000,"F",118382,1) = "\04.02.11\Test voor CSC\\\1000\EX;1`EX;3`EX;5\3#1027#62126,28751\\cw@vanhoecke.be\\\\\\\\EUR\\\60\1\\DIV#62126,28751#118382\\\\\\\\\\\\\\\\\\\\\62126,28751"
+	Set ^KOD(1000,"F",118382,2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",118382,3) = "1\TESTKLANT VAN HOECKE nv\\FIRMA\Europark noord 9\9100\Sint-Niklaas\1019\N\\\\\\\\\\.\\\\test cw\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",118382,4) = 4
+	
+	Set ^KOD(1000,"F",118382,101) = "\\\\Dit is een tekstlijn.\\\\\\\\\\100\\KF11#1\28591;T;;OWBFI\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",118382,102) = "703000\\1\\Dit is een manuele lijn\25.00\\8\25.00\25.00\703000\\\\110\25.00\KF1925###\\\\\EUR\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",118382,103) = "703000 \11611\1000\\\1.98\0#\8\19.80\19.80\703000 \L\\\120\19.80\KF0\\\\H1\EUR\\1\62129\\\\\\\\\\\\\\\\\\\\\1\\"
+]]></Implementation>
+</Method>
+
+<Method name="Delete">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Kill ^KO1(118382,"F")
+	Kill ^KOD(1000,"F",118382)
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="637226214"/>
+</Export>
Index: vhUnitTest/APPS/PM/TestProductService.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/TestProductService.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/TestProductService.cls.xml	(revision 915)
@@ -0,0 +1,202 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 15:17:59">
+<Class name="vhUnitTest.APPS.PM.TestProductService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62157,55150.790172</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	set %objTestData = ##class(vhUnitTest.DOM.PM.OL.Gamma.TestData).%New()
+	
+	do %objTestData.CreeerTestData()
+	do $$$AssertEquals($data(^KPR(1001,0)),1,"Producten aangemaakt")
+	
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	do %objTestData.VerwijderTestData()
+	do $$$AssertEquals($data(^KPR(1001,0)),0,"Producten verwijderd")
+	
+	set blnMetaDefOpgekuisd = %objTestData.IsMetaDefMooiOpgekuisd()
+	do $$$AssertEquals(blnMetaDefOpgekuisd,1,"Sorteringswaarde opgekuisd in metadefs")
+
+	kill %objTestData
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestSearchKorttekstOLUTPROD95">
+<Implementation><![CDATA[
+	Set Korttekst = "OL.UTPROD95"
+	Do ..SearchKorttekst(Korttekst,1)
+]]></Implementation>
+</Method>
+
+<Method name="TestSearchKorttekstOLUTPROD2">
+<Implementation><![CDATA[
+	Set Korttekst = "OL.UTPROD2"
+	Do ..SearchKorttekst(Korttekst,10)
+]]></Implementation>
+</Method>
+
+<Method name="SearchKorttekst">
+<FormalSpec>Korttekst:%String,VerwachtAantal:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set Criteria=##class(APPS.PM.dto.SelectCriteria).%New()
+	Set Criteria.At="K"
+	Set Criteria.Actief = ""
+	Set Criteria.KLNr = ""
+	Set Criteria.LevNr = ""
+	Set Criteria.LijnMax=""
+	Set Criteria.StockType = ""
+	Set Criteria.SubAt = ""
+	Set Criteria.Zoek = Korttekst
+	Set ProductService =  ##class(APPS.PM.ProductService).%New()
+	Set ProductenLijst = ProductService.Select(Criteria).Items
+	Do $$$AssertEquals(ProductenLijst.Count(),VerwachtAantal,"Aantal gevonden producten met Korttekst "_Korttekst_" is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSearchIdentNr">
+<Implementation><![CDATA[
+	Set IdentNr = "0.123.45"
+	
+	Set Criteria=##class(APPS.PM.dto.SelectCriteria).%New()
+	Set Criteria.At="I"
+	Set Criteria.Actief = ""
+	Set Criteria.KLNr = ""
+	Set Criteria.LevNr = ""
+	Set Criteria.LijnMax=""
+	Set Criteria.StockType = ""
+	Set Criteria.SubAt = ""
+	Set Criteria.Zoek = IdentNr
+	Set ProductService =  ##class(APPS.PM.ProductService).%New()
+	Set ProductenLijst = ProductService.Select(Criteria).Items
+	Do $$$AssertEquals(ProductenLijst.Count(),100,"Aantal gevonden producten met IdentNr "_IdentNr_" is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSearchActief">
+<Implementation><![CDATA[
+	Set IdentNr = "0.123.45"
+	
+	Set Criteria=##class(APPS.PM.dto.SelectCriteria).%New()
+	Set Criteria.At="I"
+	Set Criteria.Actief = "A"
+	Set Criteria.KLNr = ""
+	Set Criteria.LevNr = ""
+	Set Criteria.LijnMax=""
+	Set Criteria.StockType = ""
+	Set Criteria.SubAt = ""
+	Set Criteria.Zoek = IdentNr
+	Set ProductService =  ##class(APPS.PM.ProductService).%New()
+	Set ProductenLijst = ProductService.Select(Criteria).Items
+	Do $$$AssertEquals(ProductenLijst.Count(),100,"Aantal gevonden producten met IdentNr "_IdentNr_" is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSearchKlassificatie">
+<Implementation><![CDATA[
+	Set Klassificaties = ##class(APPS.PM.dto.Kenm.StringList).%New()
+	Do Klassificaties.Items.Insert(892)
+
+	Set Criteria=##class(APPS.PM.dto.SelectCriteria).%New()
+	Set Criteria.At="B"
+	Set Criteria.Actief = ""
+	Set Criteria.KLNr = ""
+	Set Criteria.LevNr = ""
+	Set Criteria.LijnMax=""
+	Set Criteria.StockType = ""
+	Set Criteria.SubAt = ""
+	Set Criteria.Klassificaties =  Klassificaties
+	
+	Set ProductService =  ##class(APPS.PM.ProductService).%New()
+	Set ProductenLijst = ProductService.Select(Criteria).Items
+	Do $$$AssertEquals(ProductenLijst.Count(),8,"Aantal gevonden producten met Klassificatie "_Klassificaties.Items.GetAt(1)_" is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSearchKlassificaties">
+<Implementation><![CDATA[
+	Set Klassificaties = ##class(APPS.PM.dto.Kenm.StringList).%New()
+	Do Klassificaties.Items.Insert(892)
+	Do Klassificaties.Items.Insert(23)
+
+	Set Criteria=##class(APPS.PM.dto.SelectCriteria).%New()
+	Set Criteria.At="B"
+	Set Criteria.Actief = ""
+	Set Criteria.KLNr = ""
+	Set Criteria.LevNr = ""
+	Set Criteria.LijnMax=""
+	Set Criteria.StockType = ""
+	Set Criteria.SubAt = ""
+	Set Criteria.Klassificaties =  Klassificaties
+	Set ProductService =  ##class(APPS.PM.ProductService).%New()
+	Set ProductenLijst = ProductService.Select(Criteria).Items
+	Do $$$AssertEquals(ProductenLijst.Count(),14,"Aantal gevonden producten met Klassificatie "_Klassificaties.Items.GetAt(1)_" en "_Klassificaties.Items.GetAt(2)_" is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSearchLeverancier">
+<Implementation><![CDATA[
+	
+	Set Leverancier = 5005
+	Set Zoek = "358M"
+	
+	Set Criteria=##class(APPS.PM.dto.SelectCriteria).%New()
+	Set Criteria.At="K"
+	Set Criteria.Actief = ""
+	Set Criteria.KLNr = ""
+	Set Criteria.LevNr = Leverancier
+	Set Criteria.LijnMax=""
+	Set Criteria.StockType = ""
+	Set Criteria.SubAt = ""
+	Set Criteria.Zoek = Zoek
+	Set ProductService =  ##class(APPS.PM.ProductService).%New()
+	Set ProductenLijst = ProductService.Select(Criteria).Items
+	Do $$$AssertEquals(ProductenLijst.Count(),200,"Aantal gevonden producten met leverancier "_Leverancier_" is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefClassificatieStructuur">
+<Implementation><![CDATA[
+	Set ProductService =  ##class(APPS.PM.ProductService).%New()
+	Set ClassificatieRoot = ProductService.GeefClassificatieStructuur()
+	
+	Do $$$AssertTrue(ClassificatieRoot.%Extends("APPS.PM.dto.Classificatie"),"Het object is een dto classificatie.")
+	
+	Do $$$AssertEquals(ClassificatieRoot.Omschrijving,"ROOT", "De rootnode van de structuur is correct.")
+	
+	Do $$$AssertTrue(ClassificatieRoot.SubClassificaties.Count() > 0, "Er zijn hoofdgroepen classificaties aanwezig.")
+	
+	Do ..ClassificatieControle(ClassificatieRoot.SubClassificaties.GetAt(1),"Hoofdgroep")
+	
+	Do $$$AssertTrue(ClassificatieRoot.SubClassificaties.GetAt(1).SubClassificaties.Count() > 0, "Er zijn groepen classificaties aanwezig.")
+	
+	Do ..ClassificatieControle(ClassificatieRoot.SubClassificaties.GetAt(1).SubClassificaties.GetAt(1),"Groep")
+	
+	Do $$$AssertTrue(ClassificatieRoot.SubClassificaties.GetAt(1).SubClassificaties.GetAt(1).SubClassificaties.Count() > 0, "Er zijn subgroepen classificaties aanwezig.")
+	
+	Do ..ClassificatieControle(ClassificatieRoot.SubClassificaties.GetAt(1).SubClassificaties.GetAt(1).SubClassificaties.GetAt(1),"Subgroep")
+]]></Implementation>
+</Method>
+
+<Method name="ClassificatieControle">
+<FormalSpec>Classificatie:DOM.PM.Classificatie,Groep:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+		Do $$$AssertTrue(Classificatie.Code '= "","Er is een code aanwezig van deze classificatie ("_Groep_").")	
+		Do $$$AssertTrue(Classificatie.KKey '= "","Er is een KKey aanwezig van deze classificatie.("_Groep_")")	
+		Do $$$AssertTrue(Classificatie.Omschrijving '= "","Er is een omschrijving aanwezig van deze classificatie.("_Groep_")")
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="3463564020"/>
+</Export>
Index: vhUnitTest/APPS/Halux/Docs/impl/GeenLadeProduct.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Docs/impl/GeenLadeProduct.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Docs/impl/GeenLadeProduct.cls.xml	(revision 915)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-23 11:33:48">
+<Class name="vhUnitTest.APPS.Halux.Docs.impl.GeenLadeProduct">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,DOM.PM.Product</Super>
+<TimeChanged>62145,41690.273199</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefFamilie">
+<ReturnType>DOM.PM.enu.Familie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.Familie).AluKader()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVariant">
+<ReturnType>DOM.PM.enu.LadeVariant</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.AluKaderVariant).Basis()
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2324200140"/>
+</Export>
Index: vhUnitTest/DOM/OV/TestProforma.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/OV/TestProforma.cls.xml	(.../TestProforma.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/OV/TestProforma.cls.xml	(.../TestProforma.cls.xml)	(revision 915)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-04 08:16:09">
 <Class name="vhUnitTest.DOM.OV.TestProforma">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.OV.TestProforma")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62109,44192.802387</TimeChanged>
+<TimeChanged>62154,29839.280096</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestBonInProforma">
@@ -27,21 +27,21 @@
 	
 	Set BonIterator = Proforma.GeefBonIterator()
 	Set Bon = BonIterator.Next()
-	Set BonLijnIterator = Bon.GeefBonLijnIterator()
-	Do $$$AssertTrue(BonLijnIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMOrderlijn"),"De lijn is een orderverwijzing lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMTekstOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertFalse(BonLijnIterator.HasNext(),"De bon bevat geen volgende lijn")
+	Set BonlijnIterator = Bon.GeefBonlijnIterator()
+	Do $$$AssertTrue(BonlijnIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMOrderlijn"),"De lijn is een orderverwijzing lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMTekstOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertFalse(BonlijnIterator.HasNext(),"De bon bevat geen volgende lijn")
 	
 	Set BonIterator = Proforma.GeefBonIterator()
 	Set Bon = BonIterator.Next()
-	Set TypedBonIterator = Bon.GeefTypeBonLijnIterator(##class(DOM.OV.enu.BonlijnType).Product())
+	Set TypedBonIterator = Bon.GeefTypeBonlijnIterator(##class(DOM.OV.enu.BonlijnType).Product())
 	Do $$$AssertTrue(TypedBonIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
 	Do $$$AssertTrue(TypedBonIterator.HasNext(),"De bon bevat een volgende product type lijn")
 	Do $$$AssertTrue(TypedBonIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
@@ -51,5 +51,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="4108972385"/>
+<Checksum value="3236696920"/>
 </Export>
Index: vhUnitTest/PRA/Concurrency/TestAtomaireInstructie.cls.xml
===================================================================
diff -u -r860 -r915
--- vhUnitTest/PRA/Concurrency/TestAtomaireInstructie.cls.xml	(.../TestAtomaireInstructie.cls.xml)	(revision 860)
+++ vhUnitTest/PRA/Concurrency/TestAtomaireInstructie.cls.xml	(.../TestAtomaireInstructie.cls.xml)	(revision 915)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-08 11:51:06">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-21 08:49:56">
 <Class name="vhUnitTest.PRA.Concurrency.TestAtomaireInstructie">
 <Description>
 Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","PRA.Concurrency.TestAtomaireInstructie")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62130,42715.660732</TimeChanged>
+<TimeChanged>62143,31856.852319</TimeChanged>
 <TimeCreated>62104,32532.58712</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -75,5 +75,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2001170500"/>
+<Checksum value="996976580"/>
 </Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TestBewerkingsInfoTabel.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/PM/Maatwerk/HF/TestBewerkingsInfoTabel.cls.xml	(.../TestBewerkingsInfoTabel.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TestBewerkingsInfoTabel.cls.xml	(.../TestBewerkingsInfoTabel.cls.xml)	(revision 915)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-02 08:57:46">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.HF.TestBewerkingsInfoTabel">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.TestBewerkingsInfoTabel") </Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62115,40427.111333</TimeChanged>
+<TimeChanged>62152,32334.49455</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestBewerkingsInfoTabel">
@@ -16,19 +16,22 @@
 	Set BrutoVast = 2.3
 	Set Calculator = ##class(DOM.PM.Maatwerk.Calc.HF.impl.DiscreetFlowCalculator).%New(BrutoPercentage,BrutoVast)
 	
-	Set BewerkingsInfo = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTBewerkingsInfo).%New("UTFamilie","UTVariant","UTProductID",Calculator,"UTTag",$Piece($H,",")-1,$Piece($H,",")+1)
-	Set Status = BewerkingsInfo.%Save()
+	Set BewerkingsInfoTag = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTBewerkingsInfo).%New("UTFamilie","UTVariant","UTProductID",Calculator,"UTTag")
+	Set Status = BewerkingsInfoTag.%Save()
 	
+	Set BewerkingsInfoDatum = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTBewerkingsInfo).%New("UTFamilie","UTVariant","UTProductID",Calculator,,$Piece($H,",")-1,$Piece($H,",")+1)
+	Set Status = BewerkingsInfoDatum.%Save()
+	
 	Set BewerkingsInfoTabel = ##class(DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfoTabel).%New()
 	Set BewerkingsInfoGevonden = BewerkingsInfoTabel.GeefBewerkingsInfoDatum("UTFamilie","UTVariant","UTProductID")
-	Do $$$AssertEquals(BewerkingsInfo,BewerkingsInfoGevonden,"Het zelfde object werd gevonden")
+	Do $$$AssertEquals(BewerkingsInfoDatum,BewerkingsInfoGevonden,"Het zelfde object werd gevonden")
 	Set BewerkingsInfoGevonden = BewerkingsInfoTabel.GeefBewerkingsInfoTag("UTFamilie","UTVariant","UTProductID","UTTag")
-	Do $$$AssertEquals(BewerkingsInfo,BewerkingsInfoGevonden,"Het zelfde object werd gevonden")
+	Do $$$AssertEquals(BewerkingsInfoTag,BewerkingsInfoGevonden,"Het zelfde object werd gevonden")
 	Do $$$AssertEquals(Calculator,BewerkingsInfoGevonden.GeefBewerkingsCalculator(),"De calculator is aanwezig")
 	
 	&SQL(DELETE FROM DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsInfo WHERE ProductID = "UTProductID")
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="525356456"/>
+<Checksum value="494801130"/>
 </Export>
Index: vhUnitTest/APPS/Halux/Planning/TestEventCatcher.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Planning/TestEventCatcher.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Planning/TestEventCatcher.cls.xml	(revision 915)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-22 08:16:45">
+<Class name="vhUnitTest.APPS.Halux.Planning.TestEventCatcher">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestEventCatcher")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<TimeChanged>62144,29867.008511</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ^KTO1(296195)="6332\"
+	
+	Set ^KTO(6332,296195,0)=103
+	Set ^KTO(6332,296195,1)="\02.02.11\KOMM. OPTIMA PACK\\\6332\118153\6279\\\\\\\\\\EUR\62137,43200\\\2\\\\"
+	Set ^KTO(6332,296195,4)=2
+	Set ^KTO(6332,296195,101)="\629192\1\\\47.68\#\\47.68\47.68\\L\1\\100\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\101\\\\\\\\"
+	Set ^KTO(6332,296195,102)="\629192\1\\\47.68\#\\47.68\47.68\\L\1\\100\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\102\\\\\\\\"
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestEvents">
+<Implementation><![CDATA[
+	Set ToeleveringsNummer = 296195
+	
+	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringsNummer)
+ 	Set ToeleveringCreatedEventData = ##class(TECH.Events.ToeleveringCreatedEventData).%New(Toelevering)
+ 	Set ToeleveringCreatedEvent = ##class(TECH.Events.ToeleveringCreatedEvent).%New(ToeleveringCreatedEventData)
+	
+	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringCreatedEventListener(ToeleveringCreatedEvent)
+	
+	&SQL(SELECT ID INTO :ID FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
+	Set Bestaat = ($Get(ID,0) > 0)
+	
+	Set Gepland = "2011-02-11 12:00:00"
+	&SQL(UPDATE APPS_Halux_Planning_impl.PlanningDataItem SET Gepland = :Gepland WHERE ToeleveringsNummer = :ToeleveringsNummer)
+	
+	Do $$$AssertTrue(Bestaat,"Het data item voor de planning werd bewaard")
+	
+	Set NieuweDueOut = "62136,43200"
+	Set ^KTO(6332,296195,1)="\02.02.11\KOMM. OPTIMA PACK\\\6332\118153\6279\\\\\\\\\\EUR\"_NieuweDueOut_"\\\2\\\\"
+	
+	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringsNummer)
+ 	Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
+ 	Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
+ 	
+ 	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringModEventListener(ToeleveringModifiedEvent)
+ 	
+ 	&SQL(SELECT DueOut,Gepland INTO :GevondenTijd,:GevondenGepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
+ 	
+ 	Do $$$AssertEquals($zdt(NieuweDueOut,3),GevondenTijd,"De tijd werd niet overschreven bij het herberekenen")
+ 	Do $$$AssertEquals(Gepland,GevondenGepland,"De geplande tijd is niet gewijzigd")
+ 	
+ 	Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringsNummer)
+ 	Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ 	
+ 	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent)
+ 	
+	&SQL(SELECT ID INTO :DELID FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
+		
+	Do $$$AssertEquals(DELID,"","Het data item voor de planning werd verwijderd")
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2697964196"/>
+</Export>
Index: vhUnitTest/ClassInfo/impl/sub/Subklasse.cls.xml
===================================================================
diff -u
--- vhUnitTest/ClassInfo/impl/sub/Subklasse.cls.xml	(revision 0)
+++ vhUnitTest/ClassInfo/impl/sub/Subklasse.cls.xml	(revision 915)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 13:42:58">
+<Class name="vhUnitTest.ClassInfo.impl.sub.Subklasse">
+<Import>vhUnitTest.ClassInfo.impl.sub2</Import>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.ClassInfo.impl.ImplKlasse</Super>
+<TimeChanged>62157,49450.207547</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="TestProperty">
+<Type>SubKlasse2</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="TestMethod">
+<FormalSpec>Param1:TestKlasse3=1,Param2:SubKlasse2</FormalSpec>
+<ReturnType>SubKlasse2</ReturnType>
+</Method>
+</Class>
+<Checksum value="1632968182"/>
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/UTKenmUpgradeWrapperv02v03.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/UTKenmUpgradeWrapperv02v03.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/UTKenmUpgradeWrapperv02v03.cls.xml	(revision 915)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 17:33:55">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.UTKenmUpgradeWrapperv02v03">
+<Description>
+Deze wrapper doet zich in alles voor als TBXKenmerkenV02.
+
+Wanneer de waarde van een kenmerk (property) wordt opgevraagd, kijkt
+de wrapper of het kenmerk al een waarde heeft in het basisobject van
+klasse TBXKenmerkenV2. Indien dit het geval is, wordt deze waarde
+teruggegeven.  Indien dit niet het geval is, wordt de waarde berekend
+uit een of meerdere kenmerken van het gewrapte object van klasse
+TBXKenmerkenV1, en opgeslagen in het basisobject.  De volgende keer
+dat de waarde wordt gevraagd kan deze meteen gegeven worden vermits
+ze al eens berekend is.  Op deze manier wordt on the fly een
+conversie gedaan.
+
+Wanneer een wrapper-object gesaved wordt, moet het alle waarden
+converteren vooraleer te saven.</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv03</Super>
+<TimeChanged>62157,63307.28774</TimeChanged>
+<TimeCreated>62153,33910.500773</TimeCreated>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="UTKenmerkenv02">
+<Type>vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv02</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..UTKenmerkenv02=Kenmerken
+	Quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="ProptBGet">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..UTKenmerkenv02.ProptB
+]]></Implementation>
+</Method>
+
+<Method name="ProptCGet">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..UTKenmerkenv02.ProptC_"+"_..UTKenmerkenv02.ProptA_"+C.v3"
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>UTKenmUpgradeWrapperv02v03DefaultData</DefaultData>
+<Data name="UTKenmUpgradeWrapperv02v03DefaultData">
+<Structure>listnode</Structure>
+<Subscript>"UTKenmUpgradeWrapperv02v03"</Subscript>
+<Value name="1">
+<Value>UTKenmerkenv02</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+<Checksum value="970778273"/>
+</Export>
Index: vhUnitTest/ClassInfo/impl/sub2/SubKlasse2.cls.xml
===================================================================
diff -u
--- vhUnitTest/ClassInfo/impl/sub2/SubKlasse2.cls.xml	(revision 0)
+++ vhUnitTest/ClassInfo/impl/sub2/SubKlasse2.cls.xml	(revision 915)
@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-07 13:40:16">
+<Class name="vhUnitTest.ClassInfo.impl.sub2.SubKlasse2">
+<Description>
+</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<TimeChanged>62157,49288.86528</TimeChanged>
+</Class>
+<Checksum value="3047863715"/>
+</Export>