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
+