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) }