Index: vhTest/Mock/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r48475 -r48501
--- vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 48475)
+++ vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 48501)
@@ -45,6 +45,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalOrderLijnenMetAxInventTransId">
+<FormalSpec>AxInventTransId:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAantalOrderLijnenMetAxInventTransId",AxInventTransId)
+]]></Implementation>
+</Method>
+
 <Method name="GeefAfleveradres">
 <ReturnType>DOM.common.Adres</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAfleveradres")
Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r48476 -r48501
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 48476)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 48501)
@@ -442,6 +442,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalOrderLijnenMetAxInventTransId">
+<FormalSpec>AxInventTransId:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Do ..LaadOrderLijnenIndienNodig()
+	#dim AantalOrderLijnenMetAxInventTransId 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 AantalOrderLijnenMetAxInventTransId = AantalOrderLijnenMetAxInventTransId + 1
+		}
+	}
+	Quit AantalOrderLijnenMetAxInventTransId
+]]></Implementation>
+</Method>
+
 <Method name="GeefOrderLijnViaVolgnummer">
 <FormalSpec>Volgnummer:%Integer</FormalSpec>
 <ReturnType>DOM.VKP.Orderlijn</ReturnType>
Index: DOM/VKP/Order.cls.xml
===================================================================
diff -u -r48475 -r48501
--- DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 48475)
+++ DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 48501)
@@ -450,6 +450,12 @@
 <ReturnType>%Boolean</ReturnType>
 </Method>
 
+<Method name="GeefAantalOrderLijnenMetAxInventTransId">
+<Abstract>1</Abstract>
+<FormalSpec>AxInventTransId:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
 <Method name="GeefOrderLijnViaAxInventTransId">
 <Abstract>1</Abstract>
 <FormalSpec>AxInventTransId:%String</FormalSpec>