Index: vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorVolgensAxInventTransId/Test.cls.xml
===================================================================
diff -u -r58343 -r58345
--- vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorVolgensAxInventTransId/Test.cls.xml	(.../Test.cls.xml)	(revision 58343)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorVolgensAxInventTransId/Test.cls.xml	(.../Test.cls.xml)	(revision 58345)
@@ -3,11 +3,16 @@
 <Class name="vhUnitTest.DOM.VKP.impl.DataM.DataMOrder.OrderLijnIteratorVolgensAxInventTransId.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="GezochteAxInventTransId">
+<Parameter name="AxInventTransId1">
 <Type>%String</Type>
 <Default>00011111</Default>
 </Parameter>
 
+<Parameter name="AxInventTransId2">
+<Type>%String</Type>
+<Default>00022222</Default>
+</Parameter>
+
 <Parameter name="KlantId">
 <Type>%String</Type>
 <Default>K||1234</Default>
@@ -21,9 +26,9 @@
 <Method name="Test: Er zitten geen OrderLijnen op het order">
 <Implementation><![CDATA[
 	#dim Order As DOM.VKP.Order = ..GeefOrder()
-	Do Order.ZetAantalOrderLijnen(0)
+	Do Order.ZetOrderLijnenLijst(..GeefOrderLijnenLijst(0))
 	
-	#dim OrderLijnIteratorVolgensAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorVolgensAxInventTransId(..#GezochteAxInventTransId)
+	#dim OrderLijnIteratorVolgensAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorVolgensAxInventTransId(..#AxInventTransId1)
 	
 	Do $$$AssertFalse(OrderLijnIteratorVolgensAxInventTransId.HasNext())
 ]]></Implementation>
@@ -32,9 +37,9 @@
 <Method name="Test: Er zitten geen OrderLijnen op het order met de GezochteAxInventTransId">
 <Implementation><![CDATA[
 	#dim Order As DOM.VKP.Order = ..GeefOrder()
-	Do Order.ZetAantalOrderLijnen(1)
+	Do Order.ZetOrderLijnenLijst(..GeefOrderLijnenLijst(1))
 	
-	#dim OrderLijnIteratorVolgensAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorVolgensAxInventTransId(..#GezochteAxInventTransId)
+	#dim OrderLijnIteratorVolgensAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorVolgensAxInventTransId(..#AxInventTransId1)
 	
 	Do $$$AssertFalse(OrderLijnIteratorVolgensAxInventTransId.HasNext())
 ]]></Implementation>
@@ -43,27 +48,27 @@
 <Method name="Test: Er zitten 1 OrderLijn op het order met de GezochteAxInventTransId">
 <Implementation><![CDATA[
 	#dim Order As DOM.VKP.Order = ..GeefOrder()
-	Do Order.ZetAantalOrderLijnen(3)
+	Do Order.ZetOrderLijnenLijst(..GeefOrderLijnenLijst(3))
 	
-	#dim OrderLijnIteratorVolgensAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorVolgensAxInventTransId(..#GezochteAxInventTransId)
+	#dim OrderLijnIteratorVolgensAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorVolgensAxInventTransId(..#AxInventTransId1)
 	
 	Do $$$AssertTrue(OrderLijnIteratorVolgensAxInventTransId.HasNext())
-	Do $$$AssertEquals(OrderLijnIteratorVolgensAxInventTransId.Next().GeefAxInventTransId(), ..#GezochteAxInventTransId)
+	Do $$$AssertEquals(OrderLijnIteratorVolgensAxInventTransId.Next().GeefAxInventTransId(), ..#AxInventTransId1)
 	Do $$$AssertFalse(OrderLijnIteratorVolgensAxInventTransId.HasNext())
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Er zitten 2 OrderLijnen op het order met de GezochteAxInventTransId">
 <Implementation><![CDATA[
 	#dim Order As DOM.VKP.Order = ..GeefOrder()
-	Do Order.ZetAantalOrderLijnen(5)
+	Do Order.ZetOrderLijnenLijst(..GeefOrderLijnenLijst(5))
 	
-	#dim OrderLijnIteratorVolgensAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorVolgensAxInventTransId(..#GezochteAxInventTransId)
+	#dim OrderLijnIteratorVolgensAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorVolgensAxInventTransId(..#AxInventTransId1)
 	
 	Do $$$AssertTrue(OrderLijnIteratorVolgensAxInventTransId.HasNext())
-	Do $$$AssertEquals(OrderLijnIteratorVolgensAxInventTransId.Next().GeefAxInventTransId(), ..#GezochteAxInventTransId)
+	Do $$$AssertEquals(OrderLijnIteratorVolgensAxInventTransId.Next().GeefAxInventTransId(), ..#AxInventTransId1)
 	Do $$$AssertTrue(OrderLijnIteratorVolgensAxInventTransId.HasNext())
-	Do $$$AssertEquals(OrderLijnIteratorVolgensAxInventTransId.Next().GeefAxInventTransId(), ..#GezochteAxInventTransId)
+	Do $$$AssertEquals(OrderLijnIteratorVolgensAxInventTransId.Next().GeefAxInventTransId(), ..#AxInventTransId1)
 	Do $$$AssertFalse(OrderLijnIteratorVolgensAxInventTransId.HasNext())
 ]]></Implementation>
 </Method>
@@ -74,6 +79,30 @@
 <Implementation><![CDATA[	Quit ##class(vhUnitTest.DOM.VKP.impl.DataM.DataMOrder.OrderLijnIteratorVolgensAxInventTransId.Mock).%New(..#OrderId, ..#KlantId)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOrderLijnenLijst">
+<FormalSpec>AantalOrderLijnen:%Integer</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderLijnenLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim OrderLijnStub As DOM.VKP.Orderlijn
+	#dim Nr As %Integer
+	#dim ProductNr As %String
+	
+	For Nr=1:1:AantalOrderLijnen {
+		Set ProductNr = $Parameter($this,"ProductId"_Nr)
+		Set OrderLijnStub = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
+		If ((Nr = 2) || (Nr = 4)) {
+			Do OrderLijnStub.IndienMethodCall("GeefAxInventTransId").DanReturn(..#AxInventTransId1)
+		} Else {
+			Do OrderLijnStub.IndienMethodCall("GeefAxInventTransId").DanReturn(..#AxInventTransId2)
+		}
+		Do OrderLijnenLijst.Insert(OrderLijnStub)
+	}
+	
+	Quit OrderLijnenLijst
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorVolgensAxInventTransId/Mock.cls.xml
===================================================================
diff -u -r58343 -r58345
--- vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorVolgensAxInventTransId/Mock.cls.xml	(.../Mock.cls.xml)	(revision 58343)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorVolgensAxInventTransId/Mock.cls.xml	(.../Mock.cls.xml)	(revision 58345)
@@ -3,18 +3,8 @@
 <Class name="vhUnitTest.DOM.VKP.impl.DataM.DataMOrder.OrderLijnIteratorVolgensAxInventTransId.Mock">
 <Super>DOM.VKP.impl.DataM.DataMOrder</Super>
 
-<Parameter name="AxInventTransId1">
-<Type>%String</Type>
-<Default>00011111</Default>
-</Parameter>
-
-<Parameter name="AxInventTransId2">
-<Type>%String</Type>
-<Default>00022222</Default>
-</Parameter>
-
-<Property name="AantalOrderLijnen">
-<Type>%Integer</Type>
+<Property name="OrderLijnenLijst">
+<Type>%ListOfObjects</Type>
 <Private>1</Private>
 </Property>
 
@@ -34,50 +24,25 @@
 
 <Method name="GeefOrderLijnIterator">
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[
-	#dim OrderLijnenLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
-	#dim OrderLijnStub As DOM.VKP.Orderlijn
-	#dim Nr As %Integer
-	#dim ProductNr As %String
-	
-	For Nr=1:1:..AantalOrderLijnen {
-		Set ProductNr = $Parameter($this,"ProductId"_Nr)
-		Set OrderLijnStub = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
-		If ((Nr = 2) || (Nr = 4)) {
-			Do OrderLijnStub.IndienMethodCall("GeefAxInventTransId").DanReturn(..#AxInventTransId1)
-		} Else {
-			Do OrderLijnStub.IndienMethodCall("GeefAxInventTransId").DanReturn(..#AxInventTransId2)
-		}
-		Do OrderLijnenLijst.Insert(OrderLijnStub)
-	}
-	
-	Quit ##class(TECH.ListIterator).%New(OrderLijnenLijst)
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..OrderLijnenLijst)
 ]]></Implementation>
 </Method>
 
-<Method name="ZetAantalOrderLijnen">
-<FormalSpec>AantalLijnen:%Integer</FormalSpec>
-<Implementation><![CDATA[	Set ..AantalOrderLijnen = AantalLijnen
+<Method name="ZetOrderLijnenLijst">
+<FormalSpec>OrderLijnenLijst:%ListOfObjects</FormalSpec>
+<Implementation><![CDATA[	Set ..OrderLijnenLijst = OrderLijnenLijst
 ]]></Implementation>
 </Method>
 
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>MockDefaultData</DefaultData>
 <Data name="MockDefaultData">
+<Structure>listnode</Structure>
 <Subscript>"Mock"</Subscript>
 <Value name="1">
-<Value>FormalSpecParser</Value>
+<Value>OrderLijnenLijst</Value>
 </Value>
-<Value name="2">
-<Value>AantalOrderLijnen</Value>
-</Value>
-<Value name="3">
-<Value>IsMethodCallVerwacht</Value>
-</Value>
-<Value name="4">
-<Value>MethodCallStubs</Value>
-</Value>
 </Data>
 </Storage>
 </Class>