Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r48255 -r48257
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 48255)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 48257)
@@ -467,6 +467,33 @@
 ]]></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>
 <Private>1</Private>