Index: DOM/VKP/VanHoeckeKlant.cls.xml
===================================================================
diff -u -r48212 -r48257
--- DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 48212)
+++ DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 48257)
@@ -144,6 +144,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefLeverAdresViaAxId">
+<Abstract>1</Abstract>
+<FormalSpec>AxLeveradresId:%String</FormalSpec>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+</Method>
+
 <Method name="GeefLeveringVoorwaarde">
 <Abstract>1</Abstract>
 <ReturnType>DOM.CRM.enu.LeveringVoorwaarde</ReturnType>
Index: vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml
===================================================================
diff -u -r48212 -r48257
--- vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 48212)
+++ vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 48257)
@@ -225,6 +225,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverAdresViaAxId">
+<FormalSpec>AxLeveradresId:%String</FormalSpec>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLeverAdresViaAxId",AxLeveradresId)
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeverAdressen">
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLeverAdressen")
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>