Index: APPS/Halux/common/impl/ProductieAansturingService.cls.xml
===================================================================
diff -u -r63143 -r72876
--- APPS/Halux/common/impl/ProductieAansturingService.cls.xml (.../ProductieAansturingService.cls.xml) (revision 63143)
+++ APPS/Halux/common/impl/ProductieAansturingService.cls.xml (.../ProductieAansturingService.cls.xml) (revision 72876)
@@ -33,6 +33,21 @@
1
+
+APPS.Halux.common.impl.Encoway.ProductieAansturingService
+1
+
+
+
+DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarDotNetBepaler
+1
+
+
+
+DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarEncowayBepaler
+1
+
+
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=""
1
@@ -46,6 +61,9 @@
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())
+ Set ..EncowayProductieAansturingService = ##class(APPS.Halux.common.impl.Encoway.ProductieAansturingService).%New()
+ Set ..OmleidingNaarDotNetBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarDotNetBepaler).%New()
+ Set ..OmleidingNaarEncowayBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarEncowayBepaler).%New()
Quit $$$OK
]]>
@@ -59,12 +77,17 @@
#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()) {
+ If ..OmleidingNaarEncowayBepaler.IsMaatwerkCalculatieInEncoway(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.GeefVersieNr()) {
+ #dim CID As %String = Product.GeefCID()
+ Set HalffabItemsBoom = ..EncowayProductieAansturingService.GeefHalffabItemsBoomEncowayBased(CID, IngegevenKenmerken)
+ } ElseIf ..OmleidingNaarDotNetBepaler.IsMaatwerkCalculatieInDotNet(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.GeefVersieNr()) {
#dim KlantId As DOM.VKP.VanHoeckeKlantID = BerekeningsSpecificatie.GeefKlantID()
#dim Aantal As %Integer = BerekeningsSpecificatie.GeefHoeveelheid()
+ #dim BerekeningWijze As DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze = BerekeningsSpecificatie.GeefBerekeningWijze()
- Set HalffabItemsBoom = ..DotNetProductieAansturingService.GeefHalffabItemsBoomDotNetBased(IngegevenKenmerken, KlantId, Aantal)
+ Set HalffabItemsBoom = ..DotNetProductieAansturingService.GeefHalffabItemsBoomDotNetBased(IngegevenKenmerken, KlantId, Aantal, BerekeningWijze)
} Else {
Set HalffabItemsBoom = ..GeefHalffabItemsBoomCacheBased(BatchID, ProductID, BerekeningsSpecificatie)
}