Index: APPS/Halux/common/impl/ProductieSequentieItemService.cls.xml =================================================================== diff -u -r63084 -r72876 --- APPS/Halux/common/impl/ProductieSequentieItemService.cls.xml (.../ProductieSequentieItemService.cls.xml) (revision 63084) +++ APPS/Halux/common/impl/ProductieSequentieItemService.cls.xml (.../ProductieSequentieItemService.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 + + MaatwerkService:APPS.PM.Maatwerk.MaatwerkService="",ProductieAansturingIngegevenKenmerkenBepaler:APPS.Halux.common.ProductieAansturingIngegevenKenmerkenBepaler="",DotNetProductieAansturingService:APPS.Halux.common.impl.DotNet.ProductieAansturingService="" 1 @@ -43,9 +58,12 @@ Set ..MaatwerkService = $$$Inject(MaatwerkService, ##class(APPS.PM.Maatwerk.MaatwerkService).%New()) Set ..ProductieAansturingIngegevenKenmerkenBepaler = $$$Inject(ProductieAansturingIngegevenKenmerkenBepaler, ##class(APPS.Halux.common.impl.ProductieAansturingIngegevenKenmerkenBepaler).%New()) Set ..DotNetProductieAansturingService = $$$Inject(DotNetProductieAansturingService, ##class(APPS.Halux.common.impl.DotNet.ProductieAansturingService).%New()) + Set ..EncowayProductieAansturingService = ##class(APPS.Halux.common.impl.Encoway.ProductieAansturingService).%New() Set ..ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI() Set ..BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New() Set ..BatchService = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService() + Set ..OmleidingNaarDotNetBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarDotNetBepaler).%New() + Set ..OmleidingNaarEncowayBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarEncowayBepaler).%New() Quit $$$OK ]]> @@ -58,7 +76,10 @@ #dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefIngegevenKenmerken(ProductieSequentieItem) - If (..IsHalffabItemsBoomDotNetBasedCalculated(IngegevenKenmerken)) { + If (..IsHalffabItemsBoomEncowayBasedCalculated(IngegevenKenmerken)) { + #dim CID As %String = ..GeefCID(ProductieSequentieItem) + Set HalffabItemsBoom = ..GeefHalffabItemsBoomEncowayBased(CID, IngegevenKenmerken) + } ElseIf (..IsHalffabItemsBoomDotNetBasedCalculated(IngegevenKenmerken)) { Set HalffabItemsBoom = ..GeefHalffabItemsBoomDotNetBased(IngegevenKenmerken, ProductieSequentieItem) } Else { Set HalffabItemsBoom = ..GeefHalffabItemsBoomCacheBased(IngegevenKenmerken, ProductieSequentieItem) @@ -79,11 +100,31 @@ ]]> + +ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem +1 +%String + + + + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +1 +%Boolean + + + IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 %Boolean - @@ -107,11 +148,20 @@ + +CID:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +1 +DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom + + + ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem 1