Index: vhTest/Utils/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r56860 -r58343
--- vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 56860)
+++ vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 58343)
@@ -21,6 +21,7 @@
 	Do Order.IndienMethodCall("ZetEmailAdresBesteller",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("ZetEmailAdresBevestiging",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("GeefKlantID").DanReturn("K||1234")
+	Do Order.IndienMethodCall("GeefKlantNr").DanReturn("1234")
 	Do Order.IndienMethodCall("GeefID").DanReturn(1000)
 	Do Order.IndienMethodCall("GeefCommissieReferentie").DanReturn("CommissieReferentie")
 	Do Order.IndienMethodCall("GeefOrderReferentie").DanReturn("OrderReferentie")
Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r56861 -r58343
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 56861)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 58343)
@@ -532,6 +532,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOrderLijnIteratorVolgensAxInventTransId">
+<FormalSpec>AxInventTransId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderLijnListVolgensAxInventTransId As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim OrderLijnIterator As TECH.Iterator = ..GeefOrderLijnIterator()
+	#dim OrderLijn As DOM.VKP.Orderlijn
+	
+	While (OrderLijnIterator.HasNext()) {
+		Set OrderLijn = OrderLijnIterator.Next()
+		If (OrderLijn.GeefAxInventTransId() = AxInventTransId) {
+			Do OrderLijnListVolgensAxInventTransId.Insert(OrderLijn)
+		}
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(OrderLijnListVolgensAxInventTransId)
+]]></Implementation>
+</Method>
+
 <Method name="LaadOrderLijnenIndienNodig">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorVolgensAxInventTransId/Mock.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorVolgensAxInventTransId/Mock.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorVolgensAxInventTransId/Mock.cls.xml	(revision 58343)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<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>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OrderID:%Integer,KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..OrderID = OrderID
+	
+	Do ..ZetKlantNr(##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID))
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<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>
+</Method>
+
+<Method name="ZetAantalOrderLijnen">
+<FormalSpec>AantalLijnen:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set ..AantalOrderLijnen = AantalLijnen
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>MockDefaultData</DefaultData>
+<Data name="MockDefaultData">
+<Subscript>"Mock"</Subscript>
+<Value name="1">
+<Value>FormalSpecParser</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>
+
+
+</Export>
Index: DOM/VKP/Order.cls.xml
===================================================================
diff -u -r58340 -r58343
--- DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 58340)
+++ DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 58343)
@@ -143,6 +143,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefOrderLijnIteratorVolgensAxInventTransId">
+<Abstract>1</Abstract>
+<FormalSpec>AxInventTransId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+
 <Method name="GeefTypeOrderLijnIterator">
 <Abstract>1</Abstract>
 <FormalSpec>Type:DOM.VKP.enu.OrderLijnType</FormalSpec>
Index: vhTest/Mock/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r58340 -r58343
--- vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 58340)
+++ vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 58343)
@@ -210,6 +210,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOrderLijnIteratorVolgensAxInventTransId">
+<FormalSpec>AxInventTransId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefOrderLijnIteratorVolgensAxInventTransId",AxInventTransId)
+]]></Implementation>
+</Method>
+
 <Method name="GeefOrderLijnViaAxInventTransId">
 <FormalSpec>AxInventTransId:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.DataM.DataMOrderlijn</ReturnType>
Index: vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorVolgensAxInventTransId/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorVolgensAxInventTransId/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorVolgensAxInventTransId/Test.cls.xml	(revision 58343)
@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.DataM.DataMOrder.OrderLijnIteratorVolgensAxInventTransId.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="GezochteAxInventTransId">
+<Type>%String</Type>
+<Default>00011111</Default>
+</Parameter>
+
+<Parameter name="KlantId">
+<Type>%String</Type>
+<Default>K||1234</Default>
+</Parameter>
+
+<Parameter name="OrderId">
+<Type>%String</Type>
+<Default>123456</Default>
+</Parameter>
+
+<Method name="Test: Er zitten geen OrderLijnen op het order">
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.Order = ..GeefOrder()
+	Do Order.ZetAantalOrderLijnen(0)
+	
+	#dim OrderLijnIteratorVolgensAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorVolgensAxInventTransId(..#GezochteAxInventTransId)
+	
+	Do $$$AssertFalse(OrderLijnIteratorVolgensAxInventTransId.HasNext())
+]]></Implementation>
+</Method>
+
+<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)
+	
+	#dim OrderLijnIteratorVolgensAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorVolgensAxInventTransId(..#GezochteAxInventTransId)
+	
+	Do $$$AssertFalse(OrderLijnIteratorVolgensAxInventTransId.HasNext())
+]]></Implementation>
+</Method>
+
+<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)
+	
+	#dim OrderLijnIteratorVolgensAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorVolgensAxInventTransId(..#GezochteAxInventTransId)
+	
+	Do $$$AssertTrue(OrderLijnIteratorVolgensAxInventTransId.HasNext())
+	Do $$$AssertEquals(OrderLijnIteratorVolgensAxInventTransId.Next().GeefAxInventTransId(), ..#GezochteAxInventTransId)
+	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)
+	
+	#dim OrderLijnIteratorVolgensAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorVolgensAxInventTransId(..#GezochteAxInventTransId)
+	
+	Do $$$AssertTrue(OrderLijnIteratorVolgensAxInventTransId.HasNext())
+	Do $$$AssertEquals(OrderLijnIteratorVolgensAxInventTransId.Next().GeefAxInventTransId(), ..#GezochteAxInventTransId)
+	Do $$$AssertTrue(OrderLijnIteratorVolgensAxInventTransId.HasNext())
+	Do $$$AssertEquals(OrderLijnIteratorVolgensAxInventTransId.Next().GeefAxInventTransId(), ..#GezochteAxInventTransId)
+	Do $$$AssertFalse(OrderLijnIteratorVolgensAxInventTransId.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrder">
+<Private>1</Private>
+<ReturnType>DOM.VKP.Order</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhUnitTest.DOM.VKP.impl.DataM.DataMOrder.OrderLijnIteratorVolgensAxInventTransId.Mock).%New(..#OrderId, ..#KlantId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>