Index: APPS/common/KlantInstellingenService.cls.xml
===================================================================
diff -u -r31276 -r38539
--- APPS/common/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 31276)
+++ APPS/common/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 38539)
@@ -17,6 +17,12 @@
 <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 -r31276 -r38539
--- vhTest/Mock/APPS/common/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 31276)
+++ vhTest/Mock/APPS/common/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 38539)
@@ -91,6 +91,13 @@
 <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: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r38401 -r38539
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 38401)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 38539)
@@ -22,19 +22,27 @@
 <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)
 	{
-		#dim BestaandAdres As DOM.VKP.LeverAdres = AdresIt.Next()
+		Set BestaandAdres = AdresIt.Next()
 		If Adres.GeefNaam() = BestaandAdres.GeefNaam() {
 			Set Bestaat = (Adres.ToString() = BestaandAdres.ToString())
 		}
 	}
-	Quit Bestaat
+	Quit $$$If(Bestaat,BestaandAdres,$$$NULLOREF)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/OV/TestKlantInstellingenService.cls.xml
===================================================================
diff -u -r29059 -r38539
--- vhUnitTest/APPS/OV/TestKlantInstellingenService.cls.xml	(.../TestKlantInstellingenService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/OV/TestKlantInstellingenService.cls.xml	(.../TestKlantInstellingenService.cls.xml)	(revision 38539)
@@ -36,10 +36,30 @@
 	Set LeverAdres = ""
 	Set LeverAdres = ..GeefLeverAdres()
 	Set LeverAdres.Straat = "Nieuwe Straat"
-	Do $$$AssertFalse(KlantInstellingenService.BestaatLeverAdres(KlantID,LeverAdres),"Nieuw LeverAdres niet bestaat.")
+	Do $$$AssertFalse(KlantInstellingenService.BestaatLeverAdres(KlantID,LeverAdres),"Nieuw LeverAdres bestaat niet.")
 ]]></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[