Index: vhUnitTest/AXimpl/Admin/VKP/OrderLijnLookup/Test.cls.xml
===================================================================
diff -u -r45639 -r45650
--- vhUnitTest/AXimpl/Admin/VKP/OrderLijnLookup/Test.cls.xml	(.../Test.cls.xml)	(revision 45639)
+++ vhUnitTest/AXimpl/Admin/VKP/OrderLijnLookup/Test.cls.xml	(.../Test.cls.xml)	(revision 45650)
@@ -3,36 +3,47 @@
 <Class name="vhUnitTest.AXimpl.Admin.VKP.OrderLijnLookup.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: prepare query statement en OrderLijn bestaat">
+<Method name="Test: BestaatOrderLijn geeft true indien OrderLijn bestaat">
 <Implementation><![CDATA[
-	#dim Columns as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ID")
-	#dim Values as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($ListBuild("1000"))
-	Set QueryAPIFake = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New(Values,Columns)
+	Set OrderLijnRepositoryMock = ##class(vhTest.Mock.DOM.VKP.Order.impl.OrderLijnRepository).%New()
+	Do OrderLijnRepositoryMock.VerwachtMethodCall("BestaatViaAxInventTransId","AxInventTransId").DanReturn($$$True)
 	
-	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(QueryAPIFake)
-	
+	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(,OrderLijnRepositoryMock)
 	Do $$$AssertTrue(OrderLijnLookup.BestaatOrderLijn("AxInventTransId"))
+	
+	Do OrderLijnRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: prepare query statement en OrderLijn bestaat niet">
+<Method name="Test: BestaatOrderLijn geeft false indien OrderLijn niet bestaat">
 <Implementation><![CDATA[
-	#dim Columns as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ID")
-	Set QueryAPIFake = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New("",Columns)
+	Set OrderLijnRepositoryMock = ##class(vhTest.Mock.DOM.VKP.Order.impl.OrderLijnRepository).%New()
+	Do OrderLijnRepositoryMock.VerwachtMethodCall("BestaatViaAxInventTransId","AxInventTransId").DanReturn($$$False)
 	
-	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(QueryAPIFake)
-	
+	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(,OrderLijnRepositoryMock)
 	Do $$$AssertFalse(OrderLijnLookup.BestaatOrderLijn("AxInventTransId"))
+	
+	Do OrderLijnRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: foutmelding indien OrderLijn_OrderID niet hetzelfde is als het OrderID">
+<Method name="Test prepare query statement en Bevestigd Order bestaat">
 <Implementation><![CDATA[
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("!!! Ernstig probleem : OrderLijn is niet meer in sync - AxId : 'OrderID' - AdminId : 'OrderLijn.AnderOrderID' !!!!")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(AXimpl.Admin.DatabaseOutOfSyncException).%ClassName($$$True),Substrings))
+	#dim OrderLijnDummy As Flow.Offerte.Lijn = ##class(vhTest.Utils.Flow.Offerte.Lijn).LeegOrderLijn()
+	
+	Set OrderLijnRepositoryMock = ##class(vhTest.Mock.DOM.VKP.Order.impl.OrderLijnRepository).%New()
+	Do OrderLijnRepositoryMock.VerwachtMethodCall("GeefViaID", 1000).DanReturn(OrderLijnDummy)
 
-	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New()
-	Do OrderLijnLookup.ValideerOrderLijnOrderID("OrderID","OrderLijn.AnderOrderID")
+	#dim Columns as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ID")
+	#dim Values as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($ListBuild("1000"))
+	Set QueryAPIFake = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New(Values,Columns)
+	
+	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(QueryAPIFake,OrderLijnRepositoryMock)
+	#dim OrderLijn As Flow.Order.Lijn = OrderLijnLookup.GeefOrderLijn("AxInventTransId")
+	
+	Do $$$AssertEquals(OrderLijn,OrderLijnDummy)
+	
+	Do OrderLijnRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -42,9 +53,12 @@
 	#dim Values as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($ListBuild("1000"),$ListBuild("1001"))
 	Set QueryAPIFake = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New(Values,Columns)
 	
-	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(QueryAPIFake)
+	Set OrderLijnRepositoryMock = ##class(vhTest.Mock.DOM.VKP.Order.impl.OrderLijnRepository).%New()
+	Do OrderLijnRepositoryMock.IndienMethodCall("GeefViaID", $$$ElkeWaarde).DanReturn("")
+
+	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(QueryAPIFake, OrderLijnRepositoryMock)
 	Try {		
-		#dim OrderId as %String = OrderLijnLookup.GeefOrderLijn("AxInventTransId")
+		#dim OrderLijn as %String = OrderLijnLookup.GeefOrderLijn("AxInventTransId")
 		Do ..Fail("Er werd een exceptie verwacht")
 	} Catch {
 		#dim Exception as TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -57,27 +71,27 @@
 
 <Method name="Test prepare query statement en Bevestigd Order niet gevonden">
 <Implementation><![CDATA[
+	Set OrderLijnRepositoryMock = ##class(vhTest.Mock.DOM.VKP.Order.impl.OrderLijnRepository).%New()
+	Do OrderLijnRepositoryMock.IndienMethodCall("GeefViaID", $$$ElkeWaarde).DanReturn("")
+
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("!!! Ernstig probleem : OrderLijn is niet meer in sync - AxId : 'AxInventTransId' - AdminId : '' !!!!")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(AXimpl.Admin.DatabaseOutOfSyncException).%ClassName($$$True),Substrings))
 	
 	#dim Columns as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ID")
 	Set QueryAPIFake = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New("",Columns)
 	
-	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(QueryAPIFake)
+	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(QueryAPIFake, OrderLijnRepositoryMock)
 	Do OrderLijnLookup.GeefOrderLijn("AxInventTransId")
 ]]></Implementation>
 </Method>
 
-<Method name="aTest prepare query statement en Bevestigd Order bestaat">
+<Method name="Test: foutmelding indien OrderLijn_OrderID niet hetzelfde is als het OrderID">
 <Implementation><![CDATA[
-	#dim Columns as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ID")
-	#dim Values as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($ListBuild("1000"))
-	Set QueryAPIFake = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New(Values,Columns)
-	
-	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New(QueryAPIFake)
-	Do OrderLijnLookup.GeefOrderLijn("AxInventTransId")
-	
-	;Do $$$AssertEquals(OrderId,1000)
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("!!! Ernstig probleem : OrderLijn is niet meer in sync - AxId : 'OrderID' - AdminId : 'OrderLijn.AnderOrderID' !!!!")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(AXimpl.Admin.DatabaseOutOfSyncException).%ClassName($$$True),Substrings))
+
+	Set OrderLijnLookup = ##class(AXimpl.Admin.VKP.OrderLijnLookup).%New()
+	Do OrderLijnLookup.ValideerOrderLijnOrderID("OrderID","OrderLijn.AnderOrderID")
 ]]></Implementation>
 </Method>
 </Class>
Index: AXimpl/Admin/VKP/OrderLijnLookup.cls.xml
===================================================================
diff -u -r45639 -r45650
--- AXimpl/Admin/VKP/OrderLijnLookup.cls.xml	(.../OrderLijnLookup.cls.xml)	(revision 45639)
+++ AXimpl/Admin/VKP/OrderLijnLookup.cls.xml	(.../OrderLijnLookup.cls.xml)	(revision 45650)
@@ -8,26 +8,29 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OrderLijnRepository">
+<Type>DOM.VKP.Order.impl.OrderLijnRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>QueryAPI:TECH.Query.QueryAPI</FormalSpec>
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI,OrderLijnRepository:DOM.VKP.Order.impl.OrderLijnRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..QueryAPI = $$$Inject(QueryAPI, ##class(TECH.Context).Instance().GeefQueryAPI())
+	Set ..OrderLijnRepository = $$$Inject(OrderLijnRepository, ##class(DOM.VKP.Order.impl.OrderLijnRepository).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="BestaatOrderLijn">
 <FormalSpec>AxInventTransId:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set Query = ##class(TECH.DynamicQuery).%New("SELECT ID FROM Flow_Order.Lijn WHERE AxInventTransId = ?",$ListBuild(AxInventTransId))
-	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
-	Quit ResultSet.Next()
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..OrderLijnRepository.BestaatViaAxInventTransId(AxInventTransId)
 ]]></Implementation>
 </Method>
 
@@ -49,7 +52,7 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(AXimpl.Admin.DatabaseOutOfSyncException).%New(##class(AXimpl.Admin.EntiteitType).OrderLijn(),AxInventTransId,""))		
 	}
 	
-	Quit ##class(Flow.Order.Lijn).%Open(OrderLijnID)
+	Quit ..OrderLijnRepository.GeefViaID(OrderLijnID)
 ]]></Implementation>
 </Method>
 
Index: vhTest/Mock/AXimpl/Admin/VKP/OrderLijnLookup.cls.xml
===================================================================
diff -u -r45639 -r45650
--- vhTest/Mock/AXimpl/Admin/VKP/OrderLijnLookup.cls.xml	(.../OrderLijnLookup.cls.xml)	(revision 45639)
+++ vhTest/Mock/AXimpl/Admin/VKP/OrderLijnLookup.cls.xml	(.../OrderLijnLookup.cls.xml)	(revision 45650)
@@ -10,7 +10,7 @@
 
 <Method name="BestaatOrderLijn">
 <FormalSpec>AxInventTransId:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatOrderLijn",AxInventTransId)
 ]]></Implementation>
 </Method>
Index: vhTest/Fake/AXimpl/Admin/VKP/OrderLijnLookup.cls.xml
===================================================================
diff -u -r45639 -r45650
--- vhTest/Fake/AXimpl/Admin/VKP/OrderLijnLookup.cls.xml	(.../OrderLijnLookup.cls.xml)	(revision 45639)
+++ vhTest/Fake/AXimpl/Admin/VKP/OrderLijnLookup.cls.xml	(.../OrderLijnLookup.cls.xml)	(revision 45650)
@@ -9,7 +9,7 @@
 
 <Method name="BestaatOrderLijn">
 <FormalSpec>AxInventTransId:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
@@ -23,8 +23,7 @@
 
 <Method name="ValideerOrderLijnOrderID">
 <FormalSpec>OrderID:%String,OrderLijnOrderID:%String</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>