Index: APPS/Halux/common/impl/ProductieAansturingService.cls.xml =================================================================== diff -u -r71431 -r72785 --- APPS/Halux/common/impl/ProductieAansturingService.cls.xml (.../ProductieAansturingService.cls.xml) (revision 71431) +++ APPS/Halux/common/impl/ProductieAansturingService.cls.xml (.../ProductieAansturingService.cls.xml) (revision 72785) @@ -33,11 +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 @@ -51,7 +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 ]]> @@ -67,7 +79,10 @@ #dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = Product.GeefBerekeningsSpecificatie() Do BerekeningsSpecificatie.ZetBerekeningWijze(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing()) - If ..OmleidingNaarDotNetBepaler.IsMaatwerkCalculatieInDotNet(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.GeefVersieNr()) { + If ..OmleidingNaarEncowayBepaler.IsMaatwerkCalculatieInEncoway(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.GeefVersieNr()) { + #dim CID As %String = Product.GeefCID() + Set HalffabItemsBoom = ..EncowayProductieAansturingService.GeefHalffabItemsBoomEncowayBased(CID) + } 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()