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>