Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r52424 -r52867
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 52424)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 52867)
@@ -484,9 +484,9 @@
 	#dim OrderLijn As DOM.VKP.Orderlijn = ..OrderLijnen.GetAt(Volgnummer)
 	
 	If ( ('$IsObject(OrderLijn)) && ($Data(^KOD(..KlantNr,"F",..OrderID,Volgnummer))) ) {
-		#dim Lijn As %String = $G(^KOD(..KlantNr,"F",..OrderID,VolgendeLijnNummer))
-		Set Orderlijn = ##class(DOM.VKP.impl.DataM.DataMOrderlijnFactory).Create(##this,Volgnummer,$P(Lijn,"\",17))
-		Do ..OrderLijnen.SetAt(Orderlijn,Volgnummer)
+		#dim Lijn As %String = $G(^KOD(..KlantNr,"F",..OrderID,Volgnummer))
+		Set OrderLijn = ##class(DOM.VKP.impl.DataM.DataMOrderlijnFactory).Create(##this,Volgnummer,$P(Lijn,"\",17))
+		Do ..OrderLijnen.SetAt(OrderLijn,Volgnummer)
 	}
 	
 	Quit OrderLijn
Index: vhUnitTest/DOM/VKP/TestOrder.cls.xml
===================================================================
diff -u -r29059 -r52867
--- vhUnitTest/DOM/VKP/TestOrder.cls.xml	(.../TestOrder.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/VKP/TestOrder.cls.xml	(.../TestOrder.cls.xml)	(revision 52867)
@@ -183,6 +183,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestOrderLijnCacheAanvulling">
+<Implementation><![CDATA[
+	#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	Do $$$AssertTrue(OrderAPI.%Extends("DOM.VKP.OrderAPI"),"Het object is een OrderAPI")
+	
+	#dim OrderNr As %Integer = 123346
+	#dim Order As DOM.VKP.Order = OrderAPI.GeefOrder(OrderNr)
+	
+	#dim Orderlijn As DOM.VKP.Orderlijn = Order.GeefOrderLijnViaVolgnummer(103)
+	Do $$$AssertEquals(Orderlijn,"","Orderlijn is lege pointer, indien volgnummer nog niet in gebruik")
+	
+	Set ^KOD(1000,"F",123346,103)="703100 \620939\1\\\78.75\0#\8\78.75\78.75\703100 \L\\\120\78.75\KF0\\\\E1\EUR\\1\62171\\298104\103\\\\\\\\\\\\\\\\\\1\\MC;5894.136619718309859"
+	Set Orderlijn = Order.GeefOrderLijnViaVolgnummer(103)
+	Do $$$AssertTrue($IsObject(Orderlijn))
+	Do $$$AssertEquals(Orderlijn.GeefID(),"120")
+]]></Implementation>
+</Method>
+
 <Method name="TestOorsprongVanHoeckeTaorCubicsWebshop">
 <Implementation><![CDATA[	Do ..AssertOorsprongViaEDINummer(##class(BL.Flow.Offerte.enu.Oorsprong).VanHoeckeTaorCubicsWebshop())
 ]]></Implementation>