Index: vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorViaAxInventTransId/Mock.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorViaAxInventTransId/Mock.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorViaAxInventTransId/Mock.cls.xml	(revision 58746)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.DataM.DataMOrder.OrderLijnIteratorViaAxInventTransId.Mock">
+<Super>DOM.VKP.impl.DataM.DataMOrder</Super>
+
+<Property name="OrderLijnenLijst">
+<Type>%ListOfObjects</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[	Quit ##class(TECH.ListIterator).%New(..OrderLijnenLijst)
+]]></Implementation>
+</Method>
+
+<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>OrderLijnenLijst</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorViaAxInventTransId/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorViaAxInventTransId/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorViaAxInventTransId/Test.cls.xml	(revision 58746)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.DataM.DataMOrder.OrderLijnIteratorViaAxInventTransId.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<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>
+</Parameter>
+
+<Parameter name="OrderId">
+<Type>%String</Type>
+<Default>123456</Default>
+</Parameter>
+
+<Method name="Test: Order heeft geen OrderLijnen">
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.Order = ..GeefOrder()
+	Do Order.ZetOrderLijnenLijst(..GeefOrderLijnenLijst(0))
+	
+	#dim OrderLijnIteratorViaAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorViaAxInventTransId(..#AxInventTransId1)
+	
+	Do $$$AssertFalse(OrderLijnIteratorViaAxInventTransId.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er zitten geen OrderLijnen op het order met die AxInventTransId">
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.Order = ..GeefOrder()
+	Do Order.ZetOrderLijnenLijst(..GeefOrderLijnenLijst(1))
+	
+	#dim OrderLijnIteratorViaAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorViaAxInventTransId(..#AxInventTransId1)
+	
+	Do $$$AssertFalse(OrderLijnIteratorViaAxInventTransId.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Order heeft 1 orderlijn met die InventransId">
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.Order = ..GeefOrder()
+	Do Order.ZetOrderLijnenLijst(..GeefOrderLijnenLijst(3))
+	
+	#dim OrderLijnIteratorViaAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorViaAxInventTransId(..#AxInventTransId1)
+	
+	If ($$$AssertTrue(OrderLijnIteratorViaAxInventTransId.HasNext())) {
+		Do $$$AssertEquals(OrderLijnIteratorViaAxInventTransId.Next().GeefAxInventTransId(), ..#AxInventTransId1)
+		Do $$$AssertFalse(OrderLijnIteratorViaAxInventTransId.HasNext())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er zitten 2 OrderLijnen op het order met die AxInventTransId">
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.Order = ..GeefOrder()
+	Do Order.ZetOrderLijnenLijst(..GeefOrderLijnenLijst(5))
+	
+	#dim OrderLijnIteratorViaAxInventTransId As TECH.Iterator = Order.GeefOrderLijnIteratorViaAxInventTransId(..#AxInventTransId1)
+	
+	If ($$$AssertTrue(OrderLijnIteratorViaAxInventTransId.HasNext())) {
+		Do $$$AssertEquals(OrderLijnIteratorViaAxInventTransId.Next().GeefAxInventTransId(), ..#AxInventTransId1)
+		If ($$$AssertTrue(OrderLijnIteratorViaAxInventTransId.HasNext())) {
+			Do $$$AssertEquals(OrderLijnIteratorViaAxInventTransId.Next().GeefAxInventTransId(), ..#AxInventTransId1)
+			Do $$$AssertFalse(OrderLijnIteratorViaAxInventTransId.HasNext())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrder">
+<Private>1</Private>
+<ReturnType>DOM.VKP.Order</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhUnitTest.DOM.VKP.impl.DataM.DataMOrder.OrderLijnIteratorViaAxInventTransId.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>
+
+
+</Export>
FishEye: Tag 58746 refers to a dead (removed) revision in file `vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorVolgensAxInventTransId/Mock.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 58746 refers to a dead (removed) revision in file `vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/OrderLijnIteratorVolgensAxInventTransId/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?