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