Index: DOM/PM/impl/MaatwerkProductImpl.cls.xml
===================================================================
diff -u -r29059 -r30977
--- DOM/PM/impl/MaatwerkProductImpl.cls.xml	(.../MaatwerkProductImpl.cls.xml)	(revision 29059)
+++ DOM/PM/impl/MaatwerkProductImpl.cls.xml	(.../MaatwerkProductImpl.cls.xml)	(revision 30977)
@@ -10,12 +10,29 @@
 <Default>DOM.PM.impl.DataM.DataMMaatwerkProduct</Default>
 </Parameter>
 
+<Property name="BerekeningServiceProduct">
+<Type>APPS.PM.Maatwerk.impl.BerekeningServiceProduct</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="HalffabItemsBomen">
 <Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
 <Collection>array</Collection>
 <Private>1</Private>
 </Property>
 
+<Method name="%OnNew">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(ProductID)
+	Set ..BerekeningServiceProduct = ##class(APPS.ApplicatieContext).Instance().GeefMaatwerkAPI().GeefBerekeningService("P")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefBerekeningsSpecificatie">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</ReturnType>
 <Implementation><![CDATA[	Quit ..Product.GeefBerekeningsSpecificatie()
@@ -34,10 +51,9 @@
 <Implementation><![CDATA[
 	#dim BerekeningWijzeSleutel As TECH.String = ##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).LogicalToDisplay(BerekeningWijze)
 	If $$$Not(..HalffabItemsBomen.IsDefined(BerekeningWijzeSleutel)) {
-		Set BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
 		#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningsSpecificatie()
 		Do BerekeningsSpecificatie.ZetBerekeningWijze(BerekeningWijze)
-		Do ..HalffabItemsBomen.SetAt(BerekeningService.BerekenHalffabItemsBoom($this,BerekeningsSpecificatie), BerekeningWijzeSleutel)
+		Do ..HalffabItemsBomen.SetAt(..BerekeningServiceProduct.BerekenHalffabItemsBoom($this,BerekeningsSpecificatie), BerekeningWijzeSleutel)
 	}
 	Quit ..HalffabItemsBomen.GetAt(BerekeningWijzeSleutel)
 ]]></Implementation>