Index: APPS/Halux/common/impl/ProductieAansturingService.cls.xml
===================================================================
diff -u -r29059 -r30975
--- APPS/Halux/common/impl/ProductieAansturingService.cls.xml	(.../ProductieAansturingService.cls.xml)	(revision 29059)
+++ APPS/Halux/common/impl/ProductieAansturingService.cls.xml	(.../ProductieAansturingService.cls.xml)	(revision 30975)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BerekeningService">
+<Type>APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>BatchService:APPS.Halux.common.BatchService,ProductAPI:DOM.PM.ProductAPI,IngegevenKenmerkenBepaler:APPS.Halux.common.impl.ProductieAansturingIngegevenKenmerkenBepaler</FormalSpec>
 <Private>1</Private>
@@ -28,6 +33,7 @@
 	set ..BatchService = $$$Implementation(BatchService,##class(APPS.Halux.common.impl.BatchService).%New())
 	set ..ProductAPI = $$$Implementation(ProductAPI,##class(DOM.DomeinContext).Instance().GeefProductAPI())
 	set ..IngegevenKenmerkenBepaler = $$$Implementation(IngegevenKenmerkenBepaler,##class(APPS.Halux.common.impl.ProductieAansturingIngegevenKenmerkenBepaler).%New())
+	Set ..BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -38,12 +44,11 @@
 <Implementation><![CDATA[
 	#dim Product As DOM.PM.MaatwerkProduct = ..ProductAPI.GeefProduct(ProductID)
 	
-	Set BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New()
 	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = Product.GeefBerekeningsSpecificatie()
 	Do BerekeningsSpecificatie.ZetBerekeningWijze(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing())
 
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefIngegevenKenmerken(BatchID,ProductID)
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = BerekeningService.BerekenHalffabItemsBoom(IngegevenKenmerken,BerekeningsSpecificatie)
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..BerekeningService.BerekenHalffabItemsBoom(IngegevenKenmerken,BerekeningsSpecificatie)
 	quit HalffabItemsBoom
 ]]></Implementation>
 </Method>