Index: APPS/Verpakking/Doos.cls.xml
===================================================================
diff -u -r69658 -r70204
--- APPS/Verpakking/Doos.cls.xml	(.../Doos.cls.xml)	(revision 69658)
+++ APPS/Verpakking/Doos.cls.xml	(.../Doos.cls.xml)	(revision 70204)
@@ -46,6 +46,14 @@
 <Parameter name="XMLPROJECTION" value="COLLECTION"/>
 </Property>
 
+<Property name="PackageDesignItems">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="DESIGNITEM"/>
+<Parameter name="XMLNAME" value="PACKAGEDESIGNITEMS"/>
+<Parameter name="XMLPROJECTION" value="COLLECTION"/>
+</Property>
+
 <Property name="Priority">
 <Type>%String</Type>
 <Parameter name="XMLNAME" value="PRIORITY"/>
Index: APPS/Verpakking/DoosService.cls.xml
===================================================================
diff -u -r69952 -r70204
--- APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 69952)
+++ APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 70204)
@@ -88,7 +88,7 @@
 				While ResultSetLink.Next() {
 					Set BoxDataID = ResultSetLink.Data("ID")
 				 	Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
-				 	#dim SubAantal As %Integer = $Select(BoxData.Aantal = "Aantal": Aantal, 1:BoxData.Aantal)
+				 	#dim SubAantal As %Integer = $Select(BoxData.Aantal = "Aantal": 1, 1:BoxData.Aantal)
 				 	Do ..GeefDoos(ProductGroep, BoxData.Meta.Name, MachineID, (Aantal * SubAantal), "", ProductId, Prioriteit, BaseRef, CallBack, BoxDataID)
 				}
 				Do ResultSetLink.Close()
Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r70081 -r70204
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70081)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70204)
@@ -12,6 +12,9 @@
 <FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,&Params:%String,ProductGroep:%String,Prioriteit:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,BoxDataID:%String=""]]></FormalSpec>
 <Implementation><![CDATA[
 	Set ..MachineTechnologie = MachineTechnologie
+	Set ListOfPackageDesignItems = ##class(%ListOfDataTypes).%New()
+	Do ListOfPackageDesignItems.Insert("Item1")
+	Set BasisDoos.PackageDesignItems = ListOfPackageDesignItems	
 	
 	If (BasisDoos.%Extends("APPS.Verpakking.V1HogeRug")) {
 		Do ..VulAanV1HogeRug(.BasisDoos, .Params)
@@ -530,7 +533,7 @@
 	}
 	
 	//in boxdata zit niets ivm overdoos, dat zit in de snijdata.. Snijdata op te halen adhv ObjRef = bonnr?
-	
+	Do BasisDoos.PackageDesignItems.Insert("Item2")
 	Set BasisDoos.Depth = BoxData.DiepteExec
 	Set BasisDoos.Height = BoxData.HoogteExec
 	Set BasisDoos.Width = BoxData.BreedteExec