Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml =================================================================== diff -u -r60795 -r66786 --- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml (.../OnderdelenPicking.cls.xml) (revision 60795) +++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml (.../OnderdelenPicking.cls.xml) (revision 66786) @@ -171,10 +171,15 @@ Set ..Document = "" #dim DataVoorVorigeLijn As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = "" #dim GesorteerdeUitvoeringInfoIterator As TECH.Iterator = GesorteerdeOnderdeelPickingsVoor1Toelevering.GeefKindIterator() + #dim IsProductiegroepProbox As %Boolean = (Productiegroep = ##class(APPS.Halux.common.enu.ProductieGroep).Probox()) + #dim IsProductiegroepFlatackV1 As %Boolean = (Productiegroep = ##class(APPS.Halux.common.enu.ProductieGroep).FlatpackV1()) - If ((Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) && (Productiegroep = ##class(APPS.Halux.common.enu.ProductieGroep).Probox())) { + If ((Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) && (IsProductiegroepProbox || IsProductiegroepFlatackV1)) { Set GesorteerdeUitvoeringInfoIterator = ..GeefAlleProductenMetSamengeteldeGeleiders(GesorteerdeUitvoeringInfoIterator) - Set GesorteerdeUitvoeringInfoIterator = ..GeefAlleProductenBehalveBodemplatenIterator(GesorteerdeUitvoeringInfoIterator) //Bodemplaten horen niet thuis op een pickinglijst + + If (IsProductiegroepProbox) { + Set GesorteerdeUitvoeringInfoIterator = ..GeefAlleProductenBehalveBodemplatenIterator(GesorteerdeUitvoeringInfoIterator) //Bodemplaten horen niet thuis op een pickinglijst + } } While GesorteerdeUitvoeringInfoIterator.HasNext() {