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>