Index: APPS/Halux/common/impl/ProductieAansturingService.cls.xml
===================================================================
diff -u -r37967 -r63143
--- APPS/Halux/common/impl/ProductieAansturingService.cls.xml	(.../ProductieAansturingService.cls.xml)	(revision 37967)
+++ APPS/Halux/common/impl/ProductieAansturingService.cls.xml	(.../ProductieAansturingService.cls.xml)	(revision 63143)
@@ -28,18 +28,24 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DotNetProductieAansturingService">
+<Type>APPS.Halux.common.impl.DotNet.ProductieAansturingService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>BatchService:APPS.Halux.common.BatchService,BerekeningService:APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken="",IngegevenKenmerkenBepaler:APPS.Halux.common.impl.ProductieAansturingIngegevenKenmerkenBepaler="",ProductAPI:DOM.PM.ProductAPI="",LadeInfoApi:DOM.PM.Maatwerk.LadeInfoAPI=""</FormalSpec>
+<FormalSpec>BatchService:APPS.Halux.common.BatchService,BerekeningService:APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken="",IngegevenKenmerkenBepaler:APPS.Halux.common.impl.ProductieAansturingIngegevenKenmerkenBepaler="",ProductAPI:DOM.PM.ProductAPI="",LadeInfoApi:DOM.PM.Maatwerk.LadeInfoAPI="",DotNetProductieAansturingService:APPS.Halux.common.impl.DotNet.ProductieAansturingService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..BatchService = $$$Implementation(BatchService, ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService())
-	set ..ProductAPI = $$$Implementation(ProductAPI,##class(DOM.DomeinContext).Instance().GeefProductAPI())
-	set ..IngegevenKenmerkenBepaler = $$$Implementation(IngegevenKenmerkenBepaler,##class(APPS.Halux.common.impl.ProductieAansturingIngegevenKenmerkenBepaler).%New())
+	Set ..BatchService = $$$Implementation(BatchService, ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService())
+	Set ..ProductAPI = $$$Implementation(ProductAPI,##class(DOM.DomeinContext).Instance().GeefProductAPI())
+	Set ..IngegevenKenmerkenBepaler = $$$Implementation(IngegevenKenmerkenBepaler,##class(APPS.Halux.common.impl.ProductieAansturingIngegevenKenmerkenBepaler).%New())
 	Set ..LadeInfoApi = $$$Inject(LadeInfoApi, ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
 	Set ..BerekeningService = $$$Inject(BerekeningService, ##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New())
+	Set ..DotNetProductieAansturingService = $$$Inject(DotNetProductieAansturingService, ##class(APPS.Halux.common.impl.DotNet.ProductieAansturingService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -49,14 +55,21 @@
 <FormalSpec>BatchID:%String,ProductID:%String</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
 <Implementation><![CDATA[
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefIngegevenKenmerken(BatchID,ProductID)
 	#dim Product As DOM.PM.MaatwerkProduct = ..ProductAPI.GeefProduct(ProductID)
-	
 	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = Product.GeefBerekeningsSpecificatie()
-	Do BerekeningsSpecificatie.ZetBerekeningWijze(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing())
+	
+	If (IngegevenKenmerken.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).MVX()) {
+		#dim KlantId As DOM.VKP.VanHoeckeKlantID = BerekeningsSpecificatie.GeefKlantID()
+		#dim Aantal As %Integer = BerekeningsSpecificatie.GeefHoeveelheid()
 
-	#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)
-	quit HalffabItemsBoom
+		Set HalffabItemsBoom = ..DotNetProductieAansturingService.GeefHalffabItemsBoomDotNetBased(IngegevenKenmerken, KlantId, Aantal)
+	} Else {
+		Set HalffabItemsBoom = ..GeefHalffabItemsBoomCacheBased(BatchID, ProductID, BerekeningsSpecificatie)
+	}
+	
+	Quit HalffabItemsBoom
 ]]></Implementation>
 </Method>
 
@@ -77,6 +90,20 @@
 <Implementation><![CDATA[	Quit ..LadeInfoApi.GeefLade(..GeefHalffabItemsBoom(BatchId, ProductId), ..GeefIngegevenKenmerken(BatchId, ProductId))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHalffabItemsBoomCacheBased">
+<FormalSpec>BatchID:%String,ProductID:%String,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
+<Implementation><![CDATA[
+	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)
+	
+	Quit HalffabItemsBoom
+]]></Implementation>
+</Method>
 </Class>