Index: vhUnitTest/DOM/AKP/ToeleveringService/GeefKlant/Test.cls.xml
===================================================================
diff -u -r33209 -r38035
--- vhUnitTest/DOM/AKP/ToeleveringService/GeefKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 33209)
+++ vhUnitTest/DOM/AKP/ToeleveringService/GeefKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 38035)
@@ -8,24 +8,25 @@
 	#dim ToeleveringAPIMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
 	
 	#dim ToeleveringID As TECH.String = "123456"
-	#dim ToeleveringService As DOM.AKP.ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New()
 	
-	#dim OrderAPIMock As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
 	
 	#dim KlantID As %String = "UT_KlantID"
-	#dim VerkoopAPIMock As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
 	#dim KlantDummy As vhTest.Dummy.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New()
-	do VerkoopAPIMock.VerwachtMethodCall("GeefKlant",KlantID).DanReturn(KlantDummy)
+	#dim VerkoopAPIMock As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant",KlantID).DanReturn(KlantDummy)
 		
 	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
-	do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn(KlantID)
-	do OrderAPIMock.VerwachtMethodCall("GeefOrder",1).DanReturn(OrderMock)
+	Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn(KlantID)
+
+	#dim OrderAPIMock As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderAPIMock.VerwachtMethodCall("GeefOrder",1).DanReturn(OrderMock)
 	
 	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
-	do ToeleveringMock.VerwachtMethodCall("GeefOrderID").DanReturn(1)
+	Do ToeleveringMock.VerwachtMethodCall("GeefOrderID").DanReturn(1)
 		
-	do ToeleveringAPIMock.VerwachtMethodCall("GeefToelevering",ToeleveringID).DanReturn(ToeleveringMock)
+	Do ToeleveringAPIMock.VerwachtMethodCall("GeefToelevering",ToeleveringID).DanReturn(ToeleveringMock)
 	
+	#dim ToeleveringService As DOM.AKP.ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New(,,OrderAPIMock,,VerkoopAPIMock)
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ToeleveringService.GeefKlant(ToeleveringID)
 	Do $$$AssertEquals(Klant,KlantDummy)
 	
Index: DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r38033 -r38035
--- DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 38033)
+++ DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 38035)
@@ -28,8 +28,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI,ProductTypeApi:DOM.PM.ProductTypeAPI,OrderApi:DOM.VKP.OrderAPI,TransportWaarborgTypeBepaler:DOM.VKP.impl.TransportWaarborgTypeBepaler</FormalSpec>
+<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI,ProductTypeApi:DOM.PM.ProductTypeAPI,OrderApi:DOM.VKP.OrderAPI,TransportWaarborgTypeBepaler:DOM.VKP.impl.TransportWaarborgTypeBepaler,VerkoopApi:DOM.VKP.VerkoopAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -39,7 +44,7 @@
 	Set ..ProductTypeApi = $$$Inject(ProductTypeApi,##class(DOM.DomeinContext).Instance().GeefProductTypeAPI())
 	Set ..OrderApi = $$$Inject(OrderApi,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
 	Set ..TransportWaarborgTypeBepaler = $$$Inject(TransportWaarborgTypeBepaler, ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New())
-	
+	Set ..VerkoopApi = $$$Inject(VerkoopApi,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -80,7 +85,7 @@
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = Order.GeefKlantID()
 	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
 	
-	Quit ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
+	Quit ..VerkoopApi.GeefKlant(KlantID)
 ]]></Implementation>
 </Method>