Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49907 -r49909
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49907)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49909)
@@ -167,15 +167,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BestaatViaAXLeverAdresId">
-<FormalSpec>AXLeverAdresId:%String</FormalSpec>
+<Method name="BestaatViaAXLeverAdresIdEnKlantNummer">
+<FormalSpec>AXLeverAdresId:%String,KlantNummer:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(127).String("axleveradresid = "_AXLeverAdresId)
+	Do ##class(Tools.Wlip).%New(127).String("axleveradresid = "_AXLeverAdresId_"/"_KlantNummer_"/")
 	Set Timer=##class(TECH.Timing.Timer).%New("")
 	Do Timer.Start()
-	#dim Query As %String = "SELECT count(ID) from Derde_Klant.LevAdres where AxLeveradresId = ?"
-	#dim Params As %List = $ListBuild(AXLeverAdresId)
+	#dim Query As %String = "SELECT count(ID) from Derde_Klant.LevAdres where Klant = ? and AxLeveradresId = ?"
+	#dim Params As %List = $ListBuild(KlantNummer, AXLeverAdresId)
 	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, Params)
 	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)