Index: APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml =================================================================== diff -u -r74671 -r74828 --- APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml (.../Legrabox.cls.xml) (revision 74671) +++ APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml (.../Legrabox.cls.xml) (revision 74828) @@ -12,24 +12,31 @@ #dim Batch As APPS.Halux.common.Batch = ..GeefBatch() #dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator() #dim SequentieNummer As %Integer = 0 - #dim ProductieGroepMetVolumetrie As %Boolean = (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox()) + #dim ProductieGroepMetVolumetrie As %Boolean = $$$False #dim MesFaseActief As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase") While (ToeleveringIterator.HasNext()) { #dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next() Kill Sortering - #dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product()) + #dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product()) + If (ProductLijnIterator.HasNext()) { + #dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijnIterator.Next().GeefProductID()) + #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = MaatwerkProduct.GeefIngegevenKenmerken() + Set ProductieGroepMetVolumetrie = (##class(TECH.StringUtils).Equals(IngegevenKenmerken.VerpakkingType, ##class(DOM.PM.enu.LBXVerpakkingType).Probox())) + } + Set ProductLijnIterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product()) + If ((MesFaseActief > 1) && (ProductieGroepMetVolumetrie) && $$$Not((##class(TECH.StringUtils).Equals(##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie(), "UnitTest", "IntegratieTest")))) { Do ..VulAanSorteringVoorProductieSequentieItemsViaVolumetrie(.Sortering, ProductLijnIterator, Toelevering) } Else { While (ProductLijnIterator.HasNext()) { #dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next() // TODOPA vertaling van ProductID As %String naar DOM.common.ProductID - #dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID()) + Set MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID()) #dim ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn) Do ..VulAanSorteringVoorProductieSequentieItems(.Sortering, ProductieSequentieItems, MaatwerkProduct) Index: APPS/Halux/common/impl/ProductieSequentie/Tandembox.cls.xml =================================================================== diff -u -r74671 -r74828 --- APPS/Halux/common/impl/ProductieSequentie/Tandembox.cls.xml (.../Tandembox.cls.xml) (revision 74671) +++ APPS/Halux/common/impl/ProductieSequentie/Tandembox.cls.xml (.../Tandembox.cls.xml) (revision 74828) @@ -12,7 +12,7 @@ #dim Batch As APPS.Halux.common.Batch = ..GeefBatch() #dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator() #dim SequentieNummer As %Integer = 0 - #dim ProductieGroepMetVolumetrie As %Boolean = (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox()) + #dim ProductieGroepMetVolumetrie As %Boolean = $$$False #dim MesFaseActief As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase") While (ToeleveringIterator.HasNext()) { @@ -21,15 +21,23 @@ Kill Sortering #dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product()) + If (ProductLijnIterator.HasNext()) { + #dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijnIterator.Next().GeefProductID()) + #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = MaatwerkProduct.GeefIngegevenKenmerken() + Set ProductieGroepMetVolumetrie = (##class(TECH.StringUtils).Equals(##class(DOM.PM.enu.TBXVerpakking).NaarVerpakkingType(IngegevenKenmerken.VerpakkingType), ##class(DOM.PM.enu.TBXVerpakkingType).Probox())) + } + Set ProductLijnIterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product()) + If ((MesFaseActief > 1) && (ProductieGroepMetVolumetrie) && $$$Not((##class(TECH.StringUtils).Equals(##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie(), "UnitTest", "IntegratieTest")))) { Do ..VulAanSorteringVoorProductieSequentieItemsViaVolumetrie(.Sortering, ProductLijnIterator, Toelevering) } Else { While (ProductLijnIterator.HasNext()) { #dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next() // TODOPA vertaling van ProductID As %String naar DOM.common.ProductID - #dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID()) + Set MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID()) + #dim ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn) Do ..VulAanSorteringVoorProductieSequentieItems(.Sortering, ProductieSequentieItems, MaatwerkProduct) Index: APPS/Halux/common/impl/ProductieSequentie/Merivobox.cls.xml =================================================================== diff -u -r74671 -r74828 --- APPS/Halux/common/impl/ProductieSequentie/Merivobox.cls.xml (.../Merivobox.cls.xml) (revision 74671) +++ APPS/Halux/common/impl/ProductieSequentie/Merivobox.cls.xml (.../Merivobox.cls.xml) (revision 74828) @@ -12,7 +12,7 @@ #dim Batch As APPS.Halux.common.Batch = ..GeefBatch() #dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator() #dim SequentieNummer As %Integer = 0 - #dim ProductieGroepMetVolumetrie As %Boolean = (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox()) + #dim ProductieGroepMetVolumetrie As %Boolean = $$$False #dim MesFaseActief As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase") While (ToeleveringIterator.HasNext()) { @@ -21,15 +21,22 @@ Kill Sortering #dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product()) + If (ProductLijnIterator.HasNext()) { + #dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijnIterator.Next().GeefProductID()) + #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = MaatwerkProduct.GeefIngegevenKenmerken() + Set ProductieGroepMetVolumetrie = (##class(TECH.StringUtils).Equals(IngegevenKenmerken.VerpakkingType, ##class(DOM.PM.enu.MVXVerpakkingType).Probox())) + } + Set ProductLijnIterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product()) + If ((MesFaseActief > 1) && (ProductieGroepMetVolumetrie) && $$$Not((##class(TECH.StringUtils).Equals(##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie(), "UnitTest", "IntegratieTest")))) { Do ..VulAanSorteringVoorProductieSequentieItemsViaVolumetrie(.Sortering, ProductLijnIterator, Toelevering) } Else { While (ProductLijnIterator.HasNext()) { #dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next() // TODOPA vertaling van ProductID As %String naar DOM.common.ProductID - #dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID()) + Set MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID()) #dim ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn) Do ..VulAanSorteringVoorProductieSequentieItems(.Sortering, ProductieSequentieItems, MaatwerkProduct)