Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49774 -r49779
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49774)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49779)
@@ -13,13 +13,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="QueryAPI">
 <Type>TECH.Query.QueryAPI</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>QueryAPI:TECH.Query.QueryAPI,LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI,PartijApi:DOM.PARTIJ.PartijAPI</FormalSpec>
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI,LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI,PartijApi:DOM.PARTIJ.PartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -28,6 +33,7 @@
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
 	Set ..LegacyPartijApi = $$$Inject(LegacyPartijApi,##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
 	Set ..PartijApi = $$$Inject(PartijApi,##class(DOM.DomeinContext).Instance().GeefPartijAPI())
+	Set ..VerkoopAPI = $$$Implementation(VerkoopAPI, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -194,6 +200,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefViaKlantIDEnLeverAdresID">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,LeverAdresID:%String</FormalSpec>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	Quit:+LeverAdresID>1000 ..GeefViaAXLeverAdresId(LeverAdresID)
+	
+	#Dim Klant As DOM.VKP.Klant = ..VerkoopAPI.GeefKlant(KlantID)	
+	#Dim LeverAdres As DOM.VKP.LeverAdres = ""
+	#Dim Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Klant.GeefLeverAdressen())
+	
+	While (Iterator.HasNext() && ($$$Not($IsObject(LeverAdres)))) {
+		#Dim Adres As DOM.VKP.LeverAdres = Iterator.Next()
+		
+		If (Adres.GeefID() = LeverAdresID) {
+			Set LeverAdres = Adres	
+		}
+	}
+	
+	If ($$$Not($IsObject(LeverAdres))) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("LeverAdres '" _ LeverAdresID _ "' bestaat niet voor klant '" _ KlantID _ "'"))
+	}
+	
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantIndexKKL">
 <FormalSpec>KlantNummer:%String</FormalSpec>
 <Private>1</Private>