Index: AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml
===================================================================
diff -u -r47983 -r54311
--- AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml	(.../BouwsteenIterator.cls.xml)	(revision 47983)
+++ AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml	(.../BouwsteenIterator.cls.xml)	(revision 54311)
@@ -75,14 +75,13 @@
 	#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)
-			
 		Do Bouwstenen.Insert(Bouwsteen)
-			
 		Set Id = Id + 1
 	}
 	
@@ -93,15 +92,16 @@
 		Set Id = Id + 1
 		
 		#dim KindProduct As DOM.PM.Product = ..ProductApi.GeefProduct(Bouwsteen.ProductId)
-
 		Set Bouwsteen.HeeftKindBouwstenen = ..HeeftBouwstenen(KindProduct)
-		Do Bouwstenen.Insert(Bouwsteen)
+		
+		For AantalBouwstenen=1:1:Bouwsteen.Aantal {
+			Do Bouwstenen.Insert(Bouwsteen)
 
-		#dim KindBouwstenen AS %ListOfDataTypes = ..GeefBouwstenen(KindProduct, Id, Bouwsteen.Id)
+			#dim KindBouwstenen AS %ListOfDataTypes = ..GeefBouwstenen(KindProduct, Id, Bouwsteen.Id)
+			Do ##class(TECH.ListUtils).AppendList(Bouwstenen, KindBouwstenen)
 		
-		Do ##class(TECH.ListUtils).AppendList(Bouwstenen, KindBouwstenen)
-		
-		Set Id = Id + KindBouwstenen.Count()
+			Set Id = Id + KindBouwstenen.Count()
+		}
 	}
 	
 	Quit Bouwstenen
Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml
===================================================================
diff -u -r47983 -r54311
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml	(.../Test.cls.xml)	(revision 47983)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml	(.../Test.cls.xml)	(revision 54311)
@@ -173,6 +173,44 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: BouwsteenConverter maakt Bouwsteen voor elk KindProduct met Halffabricaat- en KindBouwstenen indien KindBouwsteenaantal &gt; 1">
+<Implementation><![CDATA[
+	#dim RandomBouwsteenId As %String = "RandomBouwsteenId"
+	#dim RandomProductId As %String = "RandomParentProductId"
+	
+	#dim KindBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do KindBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
+	
+	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(..EmptyIterator())
+	Do ProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(KindBouwstenen))
+	
+	#dim KindHalffabricaatBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do KindHalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	Do KindHalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	
+	#dim KindProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do KindProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(KindHalffabricaatBouwstenen))
+	Do KindProductStub.IndienMethodCall("GeefKindBouwstenenIterator").DanReturn(..EmptyIterator())
+	
+	#dim BouwsteenConverterMock As vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter).%New()
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(1), 1, "").DanReturn(..GeefBouwsteenDummy(RandomBouwsteenId, RandomProductId, 3))
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(1), 2, RandomBouwsteenId).DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(2), 3, RandomBouwsteenId).DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(1), 4, RandomBouwsteenId).DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(2), 5, RandomBouwsteenId).DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(1), 6, RandomBouwsteenId).DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(2), 7, RandomBouwsteenId).DanReturn(..GeefBouwsteenDummy())
+	
+	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiStub.IndienMethodCall("GeefProduct", RandomProductId).DanReturn(KindProductStub)
+	
+	#dim BouwsteenIterator As AXimpl.Admin.DOM.PM.BouwsteenIterator = ##class(AXimpl.Admin.DOM.PM.BouwsteenIterator).%New(ProductStub, "", BouwsteenConverterMock, ProductApiStub)
+	
+	Do BouwsteenConverterMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="AssertHeeftKindBouwstenen">
 <FormalSpec>KindProductKindBouwstenenIterator:TECH.Iterator,VerwachteWaarde:%Boolean</FormalSpec>
 <Private>1</Private>
@@ -182,6 +220,7 @@
 	#dim KindBouwsteen As DOM.PM.Bouwstenen.BouwsteenKind = ##class(DOM.PM.Bouwstenen.BouwsteenKind).%New()
 	Set KindBouwsteen.KindProduct = ##class(Prod.Product).%New()
 	Set KindBouwsteen.KindProduct.ProductNr = RandomProductNummer
+	Set KindBouwsteen.Aantal = 1
 	
 	#dim KindBouwstenen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(KindBouwsteen)	
 	
@@ -230,14 +269,15 @@
 </Method>
 
 <Method name="GeefBouwsteenDummy">
-<FormalSpec>Id:%String="",ProductId:%String=""</FormalSpec>
+<FormalSpec>Id:%String="",ProductId:%String="",Aantal:%Integer=1</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXimpl.Admin.DOM.PM.Bouwsteen</ReturnType>
 <Implementation><![CDATA[
 	#dim BouwsteenDummy As AXimpl.Admin.DOM.PM.Bouwsteen = ##class(AXimpl.Admin.DOM.PM.Bouwsteen).%New()
 	
 	Set BouwsteenDummy.Id = Id
 	Set BouwsteenDummy.ProductId = ProductId
+	Set BouwsteenDummy.Aantal = Aantal
 	
 	Quit BouwsteenDummy
 ]]></Implementation>