Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r58743 -r58744
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 58743)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 58744)
@@ -473,15 +473,14 @@
 <FormalSpec>AxInventTransId:%String</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Do ..LaadOrderLijnenIndienNodig()
 	#dim AantalLijnenMetAxInventTransId As %Integer = 0
-	Set OrderLijnenIterator = ##class(TECH.ListIterator).%New(..OrderLijnen)
-	While OrderLijnenIterator.HasNext() {
-		#dim OrderLijn As DOM.VKP.impl.DataM.DataMOrderlijn = OrderLijnenIterator.Next()
-		If (OrderLijn.GeefAxInventTransId() = AxInventTransId) {
-			Set AantalLijnenMetAxInventTransId = AantalLijnenMetAxInventTransId + 1
-		}
+	#dim OrderLijnIterator As TECH.Iterator = ..GeefOrderLijnIteratorViaAxInventTransId(AxInventTransId)
+	
+	While OrderLijnIterator.HasNext() {
+		#dim OrderLijn As DOM.VKP.Orderlijn = OrderLijnIterator.Next()
+		Set AantalLijnenMetAxInventTransId = AantalLijnenMetAxInventTransId + 1
 	}
+	
 	Quit AantalLijnenMetAxInventTransId
 ]]></Implementation>
 </Method>