Index: DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml
===================================================================
diff -u -r1482 -r2053
--- DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 1482)
+++ DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 2053)
@@ -41,6 +41,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BerekenDatum">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
 <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>
@@ -53,14 +58,17 @@
 	
 	Set $ZTRAP = "FoutOnNew"
 	
+	Set ..BerekenDatum = ..BerekeningsSpecificatie.GeefBerekenDatum()
+	If (..BerekenDatum = "") { Set ..BerekenDatum = ##class(TECH.DateTime).CurrentDate() }
+	
 	Set HalffabRepository = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New()
 	If (..BerekeningsSpecificatie.GeefBerekenTag() '= "")
 	{
 		Set ..HalffabSpec = HalffabRepository.GeefSpecTag(..Familie, ..Variant, ..BerekeningsSpecificatie.GeefBerekenTag())
 	}
 	Else
 	{
-		Set ..HalffabSpec = HalffabRepository.GeefSpecDatum(..Familie, ..Variant)
+		Set ..HalffabSpec = HalffabRepository.GeefSpecDatum(..Familie, ..Variant, ..BerekenDatum)
 	}
 	Set ..HalffabTabel = HalffabRepository.GeefHalffabTabel(..Familie, ..Variant, ..BerekeningsSpecificatie.GeefKlantID(), ..BerekeningsSpecificatie.GeefPersonality())
 	
@@ -82,7 +90,7 @@
 <Method name="SelecteerHalffabrikaten">
 <FormalSpec>IHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,SelectieKenmerken:%ArrayOfDataTypes</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[	Quit ..HalffabTabel.SelecteerHalffabrikaten(IHalffabItemBuilder, SelectieKenmerken,..Familie,$Piece($H,","))
+<Implementation><![CDATA[	Quit ..HalffabTabel.SelecteerHalffabrikaten(IHalffabItemBuilder, SelectieKenmerken,..Familie,..BerekenDatum)
 ]]></Implementation>
 </Method>
 
@@ -100,7 +108,7 @@
 	
 	If ('$IsObject(BewerkingsInfo))
 	{
-		Set BewerkingsInfo = ..BewerkingsInfoTabel.GeefBewerkingsInfoDatum(..Familie,..Variant,ProductID,$Piece($H,","))
+		Set BewerkingsInfo = ..BewerkingsInfoTabel.GeefBewerkingsInfoDatum(..Familie,..Variant,ProductID,..BerekenDatum)
 	}
 	
 	Set BewerkingsInfo.GeefBewerkingsCalculator().NettoAfmetingHalffabrikaat = ##class(Prod.Product).GetPropViaNr(ProductID,"HFNettoLengte")