Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r38539 -r38543
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 38539)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 38543)
@@ -22,27 +22,19 @@
 <Method name="BestaatLeverAdres">
 <FormalSpec>KlantNr:%String,Adres:DOM.VKP.LeverAdres</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $IsObject(..ZoekLeverAdresViaAdres(KlantNr,Adres))
-]]></Implementation>
-</Method>
-
-<Method name="ZoekLeverAdresViaAdres">
-<FormalSpec>KlantNr:%String,Adres:DOM.VKP.LeverAdres</FormalSpec>
-<ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
 	#dim Bestaat As %Boolean = 0
 	#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantNr)
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(PartijID)
 	Set AdresIt = ##class(TECH.ListIterator).%New(Klant.GeefLeverAdressen())
-	#dim BestaandAdres As DOM.VKP.LeverAdres
 	While (AdresIt.HasNext() && 'Bestaat)
 	{
-		Set BestaandAdres = AdresIt.Next()
+		#dim BestaandAdres As DOM.VKP.LeverAdres = AdresIt.Next()
 		If Adres.GeefNaam() = BestaandAdres.GeefNaam() {
 			Set Bestaat = (Adres.ToString() = BestaandAdres.ToString())
 		}
 	}
-	Quit $$$If(Bestaat,BestaandAdres,$$$NULLOREF)
+	Quit Bestaat
 ]]></Implementation>
 </Method>
 
Index: APPS/common/KlantInstellingenService.cls.xml
===================================================================
diff -u -r38539 -r38543
--- APPS/common/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 38539)
+++ APPS/common/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 38543)
@@ -17,12 +17,6 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="ZoekLeverAdresViaAdres">
-<Abstract>1</Abstract>
-<FormalSpec>KlantNr:%String,Adres:DOM.VKP.LeverAdres</FormalSpec>
-<ReturnType>DOM.VKP.LeverAdres</ReturnType>
-</Method>
-
 <Method name="GebruiktKlantOrderNummer">
 <Abstract>1</Abstract>
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
Index: vhTest/Mock/APPS/common/KlantInstellingenService.cls.xml
===================================================================
diff -u -r38539 -r38543
--- vhTest/Mock/APPS/common/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 38539)
+++ vhTest/Mock/APPS/common/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 38543)
@@ -91,13 +91,6 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("WilOrderTotaalZienOpOrderBevestiging",KlantID)
 ]]></Implementation>
 </Method>
-
-<Method name="ZoekLeverAdresViaAdres">
-<FormalSpec>KlantNr:%String,Adres:DOM.VKP.LeverAdres</FormalSpec>
-<ReturnType>DOM.VKP.LeverAdres</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekLeverAdresViaAdres",KlantNr,Adres)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/OV/TestKlantInstellingenService.cls.xml
===================================================================
diff -u -r38539 -r38543
--- vhUnitTest/APPS/OV/TestKlantInstellingenService.cls.xml	(.../TestKlantInstellingenService.cls.xml)	(revision 38539)
+++ vhUnitTest/APPS/OV/TestKlantInstellingenService.cls.xml	(.../TestKlantInstellingenService.cls.xml)	(revision 38543)
@@ -40,26 +40,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Zoek leveradres via bestaand adres">
-<Implementation><![CDATA[
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = 1000
-	#dim LeverAdres As DOM.VKP.LeverAdres = ..GeefLeverAdres()	
-	#dim KlantInstellingenService As APPS.common.KlantInstellingenService = ##class(APPS.ApplicatieContext).Instance().GeefOrderVerwerkingAPI().GeefKlantInstellingenService()
-	
-	Do $$$AssertNotIsObject(KlantInstellingenService.ZoekLeverAdresViaAdres(KlantID,LeverAdres),"LeverAdres bestaat nog niet.")
-	
-	Do KlantInstellingenService.BewaarLeverAdres(KlantID,LeverAdres)
-	
-	Do $$$AssertIsObject(KlantInstellingenService.ZoekLeverAdresViaAdres(KlantID,LeverAdres),"LeverAdres bestaat.")	
-	
-	Set LeverAdres = ""
-	Set LeverAdres = ..GeefLeverAdres()
-	Set LeverAdres.Straat = "Nieuwe Straat"
-	
-	Do $$$AssertNotIsObject(KlantInstellingenService.ZoekLeverAdresViaAdres(KlantID,LeverAdres),"Nieuw LeverAdres bestaat niet.")
-]]></Implementation>
-</Method>
-
 <Method name="GeefLeverAdres">
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[