Index: vhUnitTest/DOM/PM/Maatwerk/HF/ITestDataSetIngegevenKenmerken.cls.xml
===================================================================
diff -u -r1074 -r1184
--- vhUnitTest/DOM/PM/Maatwerk/HF/ITestDataSetIngegevenKenmerken.cls.xml	(.../ITestDataSetIngegevenKenmerken.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/ITestDataSetIngegevenKenmerken.cls.xml	(.../ITestDataSetIngegevenKenmerken.cls.xml)	(revision 1184)
@@ -27,6 +27,22 @@
 ]]></Content>
 </UDLText>
 
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DOM.PM.Maatwerk.FrameworkData).Create()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DOM.PM.Maatwerk.FrameworkData).Delete()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefFamilie">
 <Abstract>1</Abstract>
 <ReturnType>DOM.PM.enu.Familie</ReturnType>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/HalffabBuilder.cls.xml
===================================================================
diff -u -r1074 -r1184
--- vhUnitTest/DOM/PM/Maatwerk/HF/HalffabBuilder.cls.xml	(.../HalffabBuilder.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/HalffabBuilder.cls.xml	(.../HalffabBuilder.cls.xml)	(revision 1184)
@@ -23,18 +23,29 @@
 	set sc = ##super()
 	
 	Set ..DataTBX=##class(vhUnitTest.DOM.PM.Maatwerk.HF.CreateDataTBX).%New()
-	Set ..DataKAD=##class(vhUnitTest.DOM.PM.Maatwerk.HF.CreateDataKAD).%New()	
+	Set ..DataKAD=##class(vhUnitTest.DOM.PM.Maatwerk.HF.CreateDataKAD).%New()
+	
+	Do ##class(vhUnitTest.DOM.PM.Maatwerk.FrameworkData).Create()
+		
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DOM.PM.Maatwerk.FrameworkData).Delete()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="TestContextInvullen">
 <Implementation><![CDATA[
 	Set Familie = ##class(DOM.PM.enu.Familie).AluKader()
 	Set ProductType = ##class(DOM.PM.enu.AluKaderVariant).Basis()
 	Set KlantID = 1000
 	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality,"UnitTest")
 	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie,ProductType,BerekeningsSpecificatie)
 	
 	Do $$$AssertTrue($IsObject(Context),"Context bestaat")
@@ -106,7 +117,7 @@
 	Set ProductType = ##class(DOM.PM.enu.AluKaderVariant).Basis()
 	Set KlantID = 1000
 	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality,"UnitTest")
 	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie,ProductType,BerekeningsSpecificatie)
 	Quit Context
 ]]></Implementation>
Index: vhUnitTest/DOM/PM/Maatwerk/FrameworkData.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/FrameworkData.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/FrameworkData.cls.xml	(revision 1184)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.FrameworkData">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Create">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..Delete()
+	Set HalffabSpecInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(##class(DOM.PM.enu.Familie).AluKader(),##class(DOM.PM.enu.AluKaderVariant).Basis(),"DOM.PM.Maatwerk.Calc.HF.impl.KAD.SpecMainHFv001","UnitTest")
+	Do HalffabSpecInfo.%Save()
+	Set HalffabSpecInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXIntivo(),"DOM.PM.Maatwerk.Calc.HF.impl.TBX.SpecIntivoHFv002","UnitTest")
+	Do HalffabSpecInfo.%Save()
+	Set HalffabSpecInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXAntaro(),"DOM.PM.Maatwerk.Calc.HF.impl.TBX.SpecAntaroHFv001","UnitTest")
+	Do HalffabSpecInfo.%Save()
+	Set HalffabSpecInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%New(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXPlus(),"DOM.PM.Maatwerk.Calc.HF.impl.TBX.SpecPlusHFv001","UnitTest")
+	Set Status = HalffabSpecInfo.%Save()
+	
+	
+	// Data voor profielen van kaderdeuren
+	Set BrutoPercentage = 0
+	Set BrutoVast = 15
+	Set UitvalPercentage = 0
+	Set UitvalVast = 0
+	Set Calculator = ##class(DOM.PM.Maatwerk.Calc.HF.impl.StandaardContinuFlowCalculator).%New(BrutoPercentage,BrutoVast,UitvalPercentage,UitvalVast)
+	
+	For i = 254150,254161,254163,254166,268026,254167,254168,254173,254179,254189,254193,254195,254198,254203,254204,254205,254206,254207,254208,254210,254264,254211,254214,254217,254226
+	{
+		Set BewerkingsInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo).%New(##class(DOM.PM.enu.Familie).AluKader(),##class(DOM.PM.enu.AluKaderVariant).Basis(),i,Calculator,"UnitTest")
+		Do BewerkingsInfo.%Save()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Delete">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	&SQL(DELETE FROM DOM_PM_Maatwerk_Calc_HF_impl.HalffabSpecInfo WHERE Tag = "UnitTest")
+	&SQL(DELETE FROM DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsInfo WHERE Tag = "UnitTest")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/DataSet.cls.xml
===================================================================
diff -u -r1074 -r1184
--- vhUnitTest/DOM/PM/Maatwerk/HF/DataSet.cls.xml	(.../DataSet.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/DataSet.cls.xml	(.../DataSet.cls.xml)	(revision 1184)
@@ -39,7 +39,7 @@
 <Implementation><![CDATA[
 	Set:(KlantID="") KlantID=1000
 	Set:('$IsObject(Personality)) Personality=##class(DOM.common.VanHoeckePersonality).Instance()
-	Set BerekeningsSpecificatie=##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Hoeveelheid,KlantID,Personality,,.BerekenDatum)   ; 4e arg is BerekenTag 
+	Set BerekeningsSpecificatie=##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Hoeveelheid,KlantID,Personality,"UnitTest")   ; 4e arg is BerekenTag 
 	Quit BerekeningsSpecificatie
 ]]></Implementation>
 </Method>
Index: DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml
===================================================================
diff -u -r1177 -r1184
--- DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 1177)
+++ DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 1184)
@@ -54,7 +54,14 @@
 	Set $ZTRAP = "FoutOnNew"
 	
 	Set HalffabRepository = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New()
-	Set ..HalffabSpec = HalffabRepository.GeefSpecDatum(..Familie, ..Variant)
+	If (..BerekeningsSpecificatie.GeefBerekenTag() '= "")
+	{
+		Set ..HalffabSpec = HalffabRepository.GeefSpecTag(..Familie, ..Variant, ..BerekeningsSpecificatie.GeefBerekenTag())
+	}
+	Else
+	{
+		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()
Index: Default_ChristopherS.prj.xml
===================================================================
diff -u
--- Default_ChristopherS.prj.xml	(revision 0)
+++ Default_ChristopherS.prj.xml	(revision 1184)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="Default_ChristopherS" LastModified="2011-05-19 11:42:33">
+  <Items>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.HalffabImport" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.HalffabImportTBXMock" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.FrameworkData" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.CreateDataKAD" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.CreateDataTBX" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.DataSet" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.DataSetTestItem" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.HalffabBuilder" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.ITestCaseKAD" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.ITestDataSetIngegevenKenmerken" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.KAD.HFDichtingv001" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.KAD.HFHoekVerbinderv001" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.KAD.HFProfielv001" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.KAD.HFVullingv001" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.DataSetTBXAntaro" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.DataSetTBXIntivo" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.DataSetTBXPlus" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFBodemv001" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFFrontHouderv001" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFFrontHouderv002" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFFrontRelingHouderv001" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFInschuifElementv001" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFLadeZijkantv001" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFRugHouderv001" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFRugv001" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.TestDataSet" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TestBewerkingsInfoTabel" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.TestHalffabRepository" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.enu.UTFamilie" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.enu.UTVariant" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTBewerkingsInfo" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabContext" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabSpec" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabSpecInfo" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.KAD.Core.TestCoordinaatHelper" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.KAD.Core.TestPlaatsbaarElement" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.KAD.Deur.ControleerBoringBewerkingVis" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.KAD.Deur.TestBewerkingen" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.KAD.Deur.TestBoring" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.KAD.Deur.TestUtils" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.KAD.Zone.TestZoneOverlap" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.TestBewerkingsCalculator" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.TestHalffabKostItemBuilder" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.TestKostItem" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.TestKostRepository" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.TestKostenPlaatsen" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.UTKostSpec" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.enu.UTFamilie" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.enu.UTVariant" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.impl.KostItemBuilderA" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.impl.KostItemBuilderB" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.impl.UTKostContext" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Kost.impl.UTKostSpecInfo" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.OLM.TestBuilders" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.OLM.impl.UTContext" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.OLM.impl.UTKostContext" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.TBXProduct.TestTBXLade" type="CLS"/>
+  </Items>
+</Project>
+</Export>
FishEye: Tag 1184 refers to a dead (removed) revision in file `vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontRelingHouderv002.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?