Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataAantalAanvuller.cls.xml =================================================================== diff -u -r30912 -r30958 --- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataAantalAanvuller.cls.xml (.../KlantEtiketDataAantalAanvuller.cls.xml) (revision 30912) +++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataAantalAanvuller.cls.xml (.../KlantEtiketDataAantalAanvuller.cls.xml) (revision 30958) @@ -31,7 +31,7 @@ Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml =================================================================== diff -u -r30912 -r30958 --- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml (.../WerklijstItemsMaker.cls.xml) (revision 30912) +++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml (.../WerklijstItemsMaker.cls.xml) (revision 30958) @@ -87,9 +87,16 @@ #dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerd = HalffabItemsIterator.Next() If ..IsEtiketNodig(HalffabItem) { #dim i As %Integer - For i = 1 : 1 : HalffabItem.GeefAantalVerpakkingen() { - Set KlantEtiketInput = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput).%New() - Do EtiketItems.Insert(KlantEtiketInput) + #dim AantallenPerVerpakking As Array of %Integer = HalffabItem.GeefAantallenPerVerpakking() + Set AantallenPerVerpakkingIt = ##class(TECH.ListIterator).%New(AantallenPerVerpakking) + While (AantallenPerVerpakkingIt.HasNext()) { + #dim AantalVanVerpakkingGrootte As TECH.Integer = AantallenPerVerpakkingIt.Next() + #dim AantalInDoos As TECH.Integer = AantallenPerVerpakkingIt.Key() + For i = 1 : 1 : AantalVanVerpakkingGrootte { + Set KlantEtiketInput = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput).%New() + Set KlantEtiketInput.AantalInDoos = AantalInDoos + Do EtiketItems.Insert(KlantEtiketInput) + } } } } Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketInput.cls.xml =================================================================== diff -u -r30912 -r30958 --- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketInput.cls.xml (.../KlantEtiketInput.cls.xml) (revision 30912) +++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketInput.cls.xml (.../KlantEtiketInput.cls.xml) (revision 30958) @@ -11,6 +11,10 @@ TECH.String + + +TECH.Integer +