Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r48781 -r49679
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 48781)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 49679)
@@ -466,33 +466,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLeverAdresViaAxId">
-<FormalSpec>AxLeveradresId:%String</FormalSpec>
-<ReturnType>DOM.VKP.LeverAdres</ReturnType>
-<Implementation><![CDATA[
-	#Dim Adressen As %ListOfObjects = ##class(%ListOfObjects).%New()
-	#Dim LijnNr As %Integer = 1
-	#Dim Node As %String = "L" _ $$$LeftPadding(LijnNr, 3, " ")
-	#Dim IndexKKL As %String = ..GeefKlantIndexKKL()
-	#Dim AdresKey As %String = "L"
-	
-	Set AdresKey = $Order(^KKL(IndexKKL, AdresKey))
-	
-	While ($Extract(AdresKey) = "L") {
-		#Dim AdresGegevens As %String = ^KKL(..GeefKlantIndexKKL(), AdresKey)	
-		
-		If (AxLeveradresId = $Piece(AdresGegevens, "\", 29)){
-			Do Adressen.Insert(..GeefSpecifiekAdres(AdresKey))
-			Quit
-		}
-		
-		Set AdresKey = $Order(^KKL(IndexKKL, AdresKey))
-	}
-	
-	Quit Adressen
-]]></Implementation>
-</Method>
-
 <Method name="GeefSpecifiekAdres">
 <FormalSpec>Node:%String</FormalSpec>
 <ReturnType>DOM.common.Adres</ReturnType>