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>