Index: APPS/Halux/Planning/impl/ProductieLijnBepalerOBJTMES.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/impl/ProductieLijnBepalerOBJTMES.cls.xml (revision 0) +++ APPS/Halux/Planning/impl/ProductieLijnBepalerOBJTMES.cls.xml (revision 74477) @@ -0,0 +1,150 @@ + + + +TECH.RegisteredObject,APPS.Halux.common.enu.Categorie.Verwerker + + +TECH.String +1 + + + +APPS.Halux.common.enu.ProductieLijn +1 + + + +DOM.common.ProjectSettingsAPI +1 + + + +DOM.common.ProjectSettingsAPI +1 + + + +Categorie:APPS.Halux.common.enu.Categorie,ProductieGroep:APPS.Halux.common.enu.ProductieGroep,KlantId:%String +TECH.String + + + + +1 + + + + +1 + + + +1 + + + + +1 + + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + +1 + + + + + + Index: APPS/Halux/Planning/impl/BatchService.cls.xml =================================================================== diff -u -r72688 -r74477 --- APPS/Halux/Planning/impl/BatchService.cls.xml (.../BatchService.cls.xml) (revision 72688) +++ APPS/Halux/Planning/impl/BatchService.cls.xml (.../BatchService.cls.xml) (revision 74477) @@ -24,8 +24,12 @@ 1 + +DOM.PM.impl.ProductTypeAPIimpl + + -ProductieService:APPS.Halux.common.ProductieService="",BatchService:APPS.Halux.common.BatchService,ToeleveringAPI:DOM.AKP.ToeleveringAPI,MaatwerkBatchBuilderFactory:APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilderFactory +ProductieService:APPS.Halux.common.ProductieService="",BatchService:APPS.Halux.common.BatchService,ToeleveringAPI:DOM.AKP.ToeleveringAPI,MaatwerkBatchBuilderFactory:APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilderFactory,ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl 1 1 %Status @@ -35,6 +39,7 @@ Set ..ProductieService = $$$Inject(ProductieService, ##class(APPS.Halux.common.ProductieService).%New()) Set ..ToeleveringAPI = $$$Inject(ToeleveringAPI, ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()) Set ..MaatwerkBatchBuilderFactory = $$$Inject(MaatwerkBatchBuilderFactory, ##class(APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilderFactory).%New()) + Set ..ProductTypeAPI = $$$Inject(ProductTypeAPI, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New()) quit $$$OK ]]> @@ -217,8 +222,16 @@ #dim ProductLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product()).Next() #dim ProductieGroep As APPS.Halux.common.enu.ProductieGroep = ..ProductieService.GeefProductieGroep(Toelevering.GeefKlantID(), ProductLijn.GeefProductID()) #dim ProductieLijnBepaler As APPS.Halux.Planning.impl.ProductieLijnBepaler = ##class(APPS.Halux.Planning.impl.ProductieLijnBepaler).%New() + #dim ProductieLijnBepalerOBJTMES As APPS.Halux.Planning.impl.ProductieLijnBepaler = ##class(APPS.Halux.Planning.impl.ProductieLijnBepalerOBJTMES).%New() - set Lijn = ProductieLijnBepaler.BepaalLijn(Categorie, ProductieGroep) + #dim MesFaseActief As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase") + #dim CategorTLM As %Boolean = ((..ProductTypeAPI.IsLegraboxProduct(ProductLijn.GeefProductID()) || ..ProductTypeAPI.IsMerivoboxProduct(ProductLijn.GeefProductID()) || ..ProductTypeAPI.IsTandemboxProduct(ProductLijn.GeefProductID()))) + + If ((MesFaseActief > 1) && CategorTLM){ + set Lijn = ProductieLijnBepalerOBJTMES.BepaalLijn(Categorie, ProductieGroep, Toelevering.GeefKlantID()) + } Else { + set Lijn = ProductieLijnBepaler.BepaalLijn(Categorie, ProductieGroep) + } } quit Lijn