Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml
===================================================================
diff -u -r54311 -r54312
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml	(.../Test.cls.xml)	(revision 54311)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenIterator/Test.cls.xml	(.../Test.cls.xml)	(revision 54312)
@@ -3,6 +3,16 @@
 <Class name="vhUnitTest.AXimpl.Admin.DOM.PM.BouwsteenIterator.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="RandomBouwsteenId">
+<Type>%String</Type>
+<Default>RandomBouwsteenId</Default>
+</Parameter>
+
+<Parameter name="RandomProductId">
+<Type>%String</Type>
+<Default>RandomProductId</Default>
+</Parameter>
+
 <Method name="Test: Geen HasNext als geen Bouwstenen gevonden worden voor een Product">
 <Implementation><![CDATA[
 	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
@@ -24,10 +34,7 @@
 	#dim BouwsteenNietVoorraad As DOM.PM.Bouwstenen.BouwsteenHalfFabr = ##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New()
 	Set BouwsteenNietVoorraad.IsNietMeeTeRekenenVoorVoorraad = $$$True
 	
-	#dim HalffabricaatBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
-	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
-	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	#dim HalffabricaatBouwstenen As %ListOfDataTypes = ..GeefHalffabricaatBouwstenenLijst()
 	
 	#dim KindBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	Do KindBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
@@ -63,33 +70,27 @@
 
 <Method name="Test: BouwsteenConverter maakt Bouwsteen voor elk KindProduct met Halffabricaat- en KindBouwstenen">
 <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())
-	Do KindHalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	#dim KindHalffabricaatBouwstenen As %ListOfDataTypes = ..GeefHalffabricaatBouwstenenLijst()
 	
 	#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))
-	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(3), 4, RandomBouwsteenId).DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(1), 1, "").DanReturn(..GeefBouwsteenDummy(..#RandomBouwsteenId, ..#RandomProductId))
+	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(3), 4, ..#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)
+	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)
 	
@@ -99,10 +100,7 @@
 
 <Method name="Test: Bij reset van Iterator worden de Bouwstenen opnieuw opgehaald">
 <Implementation><![CDATA[
-	#dim HalffabricaatBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
-	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
-	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	#dim HalffabricaatBouwstenen As %ListOfDataTypes = ..GeefHalffabricaatBouwstenenLijst()
 	
 	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
 	Do ProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(HalffabricaatBouwstenen))
@@ -126,10 +124,7 @@
 	#dim HalffabricaatBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	Do HalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
 	
-	#dim KindHalffabricaatBouwstenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	Do KindHalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
-	Do KindHalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
-	Do KindHalffabricaatBouwstenen.Insert(##class(DOM.PM.Bouwstenen.BouwsteenKind).%New())
+	#dim KindHalffabricaatBouwstenen As %ListOfDataTypes = ..GeefHalffabricaatBouwstenenLijst()
 	
 	#dim ProductStub As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
 	Do ProductStub.IndienMethodCall("GeefHFBouwstenenIterator").DanReturn(##class(TECH.ListIterator).%New(HalffabricaatBouwstenen))
@@ -175,35 +170,30 @@
 
 <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 KindHalffabricaatBouwstenen As %ListOfDataTypes = ..GeefHalffabricaatBouwstenenLijst()
 	
 	#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())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindBouwstenen.GetAt(1), 1, "").DanReturn(..GeefBouwsteenDummy(..#RandomBouwsteenId, ..#RandomProductId, 2))
+	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(3), 4, ..#RandomBouwsteenId).DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(1), 5, ..#RandomBouwsteenId).DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(2), 6, ..#RandomBouwsteenId).DanReturn(..GeefBouwsteenDummy())
+	Do BouwsteenConverterMock.VerwachtMethodCall("Convert", KindHalffabricaatBouwstenen.GetAt(3), 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)
+	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)
 	
@@ -282,6 +272,19 @@
 	Quit BouwsteenDummy
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHalffabricaatBouwstenenLijst">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabricaatBouwstenenLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do HalffabricaatBouwstenenLijst.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	Do HalffabricaatBouwstenenLijst.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	Do HalffabricaatBouwstenenLijst.Insert(##class(DOM.PM.Bouwstenen.BouwsteenHalfFabr).%New())
+	
+	Quit HalffabricaatBouwstenenLijst
+]]></Implementation>
+</Method>
 </Class>