Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladInhoudBuilderTemplate.cls.xml =================================================================== diff -u -r31908 -r31909 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladInhoudBuilderTemplate.cls.xml (.../BladInhoudBuilderTemplate.cls.xml) (revision 31908) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladInhoudBuilderTemplate.cls.xml (.../BladInhoudBuilderTemplate.cls.xml) (revision 31909) @@ -171,7 +171,7 @@ Set HalffabItemsBoom = Product.GeefHalffabItemsBoom(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing()) } - #dim HalffabItemIterator As TECH.Iterator = HalffabItemsBoom.GeefHalffabItemsIteratorZonderSamengesteldNiveau() + #dim HalffabItemIterator As TECH.Iterator = ..GeefHalffabItemIteratorVoorDetailLijnenGroepering(HalffabItemsBoom, Product) While (HalffabItemIterator.HasNext()) { #dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemIterator.Next() @@ -192,6 +192,35 @@ ]]> + +HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Product:DOM.PM.MaatwerkProduct +1 +TECH.Iterator + + + HalffabItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem 1 Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/DetailBladGroepenBepaler.cls.xml =================================================================== diff -u -r31901 -r31909 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/DetailBladGroepenBepaler.cls.xml (.../DetailBladGroepenBepaler.cls.xml) (revision 31901) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/DetailBladGroepenBepaler.cls.xml (.../DetailBladGroepenBepaler.cls.xml) (revision 31909) @@ -54,6 +54,7 @@ ElseIf (Rol = ..Enum.Rol.TiponSynchronisatieStang) { Set GroepNaam = ..Groepen.Onderdelen2 } ElseIf (Rol = ..Enum.Rol.TiponSynchronisatieTandwiel) { Set GroepNaam = ..Groepen.Onderdelen2 } ElseIf (Rol = ..Enum.Rol.Verpakking) { Set GroepNaam = ..Groepen.Verpakking } + ElseIf ((Rol [ "FPV1") || (Rol = "Rug Horizontaal")) { Set GroepNaam = ..GeefGroepNaamVoorFlatpackV1(Rol) } ElseIf (Rol [ "Probox ") { Set GroepNaam = ..Groepen.Verpakking } ElseIf (Rol [ "V1 ") { Set GroepNaam = ..Groepen.Verpakking } ElseIf (Rol = ..Enum.Rol.ZijkantLinks) { Set GroepNaam = ..Groepen.NietVermelden } @@ -88,6 +89,24 @@ Quit GroepNaam ]]> + + +Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol +1 +TECH.String + + Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestFlatpackV1.cls.xml =================================================================== diff -u -r31637 -r31909 --- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestFlatpackV1.cls.xml (.../TestFlatpackV1.cls.xml) (revision 31637) +++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestFlatpackV1.cls.xml (.../TestFlatpackV1.cls.xml) (revision 31909) @@ -20,8 +20,8 @@ set LadenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New() set Laden = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New() - do Laden.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())),$$$Aantal)) - do Laden.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).BiColourBodemAfwBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())),$$$Aantal)) + do Laden.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(..Enum.VerpakkingType.FlatpackV1)),$$$Aantal)) + do Laden.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).BiColourBodemAfwBinnenladeVerpaktIn(..Enum.VerpakkingType.FlatpackV1)),$$$Aantal)) do LadenPerToeleveringArray.SetAt(Laden, 222222) Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/Productie_004_PRODUCTIEDETAILBLAD.xml =================================================================== diff -u -r31901 -r31909 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/Productie_004_PRODUCTIEDETAILBLAD.xml (.../Productie_004_PRODUCTIEDETAILBLAD.xml) (revision 31901) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/Productie_004_PRODUCTIEDETAILBLAD.xml (.../Productie_004_PRODUCTIEDETAILBLAD.xml) (revision 31909) @@ -97,22 +97,16 @@ VPK.DP700X250 TAXFLA B - FPV1_omdoos (VTL) - - - VPK.OD700X300 TAXFLA B - - FPV1_vork (VTL) 2st VPK.USTUK390 TAXFLA B - FPV1_wikkelfolie (VTL) - 37.5mm + FPV1_omdoos (VTL) + - VPK.WIKFOL TAXFLA TRP + VPK.OD700X300 TAXFLA B Horizontaal tussenschot @@ -221,22 +215,16 @@ VPK.DP700X250 TAXFLA B - FPV1_omdoos (VTL) - - - VPK.OD700X300 TAXFLA B - - FPV1_vork (VTL) 2st VPK.USTUK390 TAXFLA B - FPV1_wikkelfolie (VTL) - 37.5mm + FPV1_omdoos (VTL) + - VPK.WIKFOL TAXFLA TRP + VPK.OD700X300 TAXFLA B Horizontaal tussenschot