Index: AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml
===================================================================
diff -u -r54311 -r54365
--- AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml	(.../BouwsteenIterator.cls.xml)	(revision 54311)
+++ AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml	(.../BouwsteenIterator.cls.xml)	(revision 54365)
@@ -67,21 +67,24 @@
 </Method>
 
 <Method name="GeefBouwstenen">
-<FormalSpec>Product:DOM.PM.Product,Id:%Integer=1,ParentId:%Integer=""</FormalSpec>
+<FormalSpec>Product:DOM.PM.Product,Id:%Integer=1,ParentId:%Integer="",Aantal:%Integer=""</FormalSpec>
 <Private>1</Private>
-<ReturnType>%ListOfDataTypes</ReturnType>
+<ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim Bouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim Bouwstenen As %ListOfObjects = ##class(%ListOfObjects).%New()
 	#dim HalffabricaatBouwstenenIterator As TECH.ListIterator = Product.GeefHFBouwstenenIterator()
 	#dim KindBouwstenenIterator As TECH.ListIterator = Product.GeefKindBouwstenenIterator()
 	#dim Bouwsteen As AXimpl.Admin.DOM.PM.Bouwsteen = ""
-	#dim AantalBouwstenen As %Integer
 	
 	While (HalffabricaatBouwstenenIterator.HasNext()) {
 		#dim HalffabricaatBouwsteen As DOM.PM.Bouwstenen.BouwsteenHalfFabr = HalffabricaatBouwstenenIterator.Next()
 		
 		Set Bouwsteen = ..BouwsteenConverter.Convert(HalffabricaatBouwsteen, Id, ParentId)
+		If ($$$HasLength(Aantal)) {
+			Set Bouwsteen.Aantal = Bouwsteen.Aantal * Aantal
+		}
 		Do Bouwstenen.Insert(Bouwsteen)
+			
 		Set Id = Id + 1
 	}
 	
@@ -92,16 +95,15 @@
 		Set Id = Id + 1
 		
 		#dim KindProduct As DOM.PM.Product = ..ProductApi.GeefProduct(Bouwsteen.ProductId)
+
 		Set Bouwsteen.HeeftKindBouwstenen = ..HeeftBouwstenen(KindProduct)
-		
-		For AantalBouwstenen=1:1:Bouwsteen.Aantal {
-			Do Bouwstenen.Insert(Bouwsteen)
+		Do Bouwstenen.Insert(Bouwsteen)
 
-			#dim KindBouwstenen AS %ListOfDataTypes = ..GeefBouwstenen(KindProduct, Id, Bouwsteen.Id)
-			Do ##class(TECH.ListUtils).AppendList(Bouwstenen, KindBouwstenen)
+		#dim KindBouwstenen AS %ListOfObjects = ..GeefBouwstenen(KindProduct, Id, Bouwsteen.Id, Bouwsteen.Aantal)
 		
-			Set Id = Id + KindBouwstenen.Count()
-		}
+		Do ##class(TECH.ListUtils).AppendList(Bouwstenen, KindBouwstenen)
+		
+		Set Id = Id + KindBouwstenen.Count()
 	}
 	
 	Quit Bouwstenen