Index: APPS/CRM/KlantService.cls.xml
===================================================================
diff -u -r35977 -r40096
--- APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 35977)
+++ APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 40096)
@@ -14,20 +14,42 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijApi">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..VerkoopApi = $$$Inject(VerkoopApi,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	set ..PartijApi = ##class(DOM.DomeinContext).Instance().GeefPartijAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantLijst">
 <Description>
 Lijst van DOM.CRM.dto.KlantId</Description>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim VerkoopAPI As DOM.VKP.VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
-	#dim KlantIt As TECH.Iterator = VerkoopAPI.GeefKlantIterator()
+	#dim KlantIt As TECH.Iterator = ..VerkoopApi.GeefKlantIterator()
 	
 	Set Klanten = ##class(%ListOfObjects).%New()
 	
 	While KlantIt.HasNext(){
 		#dim Klant As DOM.VKP.VanHoeckeKlant = KlantIt.Next()
-		#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Klant.GeefID())
-		Set dtoKlantId = ..Partij2KlantId(Partij)			
+		#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Klant.GeefID())
+		#dim dtoKlantId As DOM.CRM.dto.KlantId = ..Partij2KlantId(Partij)			
 		Do Klanten.Insert(dtoKlantId)
 	}
 	Quit Klanten