Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49779 -r49907
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49779)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49907)
@@ -171,25 +171,37 @@
 <FormalSpec>AXLeverAdresId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(127).String("axleveradresid = "_AXLeverAdresId)
+	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)
+	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)
 	
 	Do ResultSet.Next()
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 	Quit ResultSet.GetData(1)>0
 ]]></Implementation>
 </Method>
 
-<Method name="GeefViaAXLeverAdresId">
-<FormalSpec>AXLeverAdresId:%String</FormalSpec>
+<Method name="GeefViaAXLeverAdresIdEnKlantNummer">
+<FormalSpec>AXLeverAdresId:%String,KlantNummer:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
 <Implementation><![CDATA[
-	#dim Query As %String = "SELECT ID from Derde_Klant.LevAdres where AxLeveradresId = ?"
-	#dim Params As %List = $ListBuild(AXLeverAdresId)
+	Do ##class(Tools.Wlip).%New(127).String("axleveradresid = "_AXLeverAdresId)
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
+	#dim Query As %String = "SELECT 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)
 	#dim LeverAdres As DOM.VKP.impl.LeverAdres
 	
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 	Do ResultSet.Next()
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 	Try {
 		Set LeverAdres = ..GeefViaKlantIdEnKlantAdresNr("K||"_$p(ResultSet.GetData(1),"||",1),##class(TECH.StringUtils).StripAllExceptNumeric($p(ResultSet.GetData(1),"||",2)))
 	} Catch {
@@ -204,7 +216,7 @@
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,LeverAdresID:%String</FormalSpec>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
-	Quit:+LeverAdresID>1000 ..GeefViaAXLeverAdresId(LeverAdresID)
+	Quit:+LeverAdresID>1000 ..GeefViaAXLeverAdresIdEnKlantNummer(LeverAdresID)
 	
 	#Dim Klant As DOM.VKP.Klant = ..VerkoopAPI.GeefKlant(KlantID)	
 	#Dim LeverAdres As DOM.VKP.LeverAdres = ""