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>