Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r54119 -r55930
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 54119)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 55930)
@@ -199,6 +199,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatViaAXLeverAdresId">
+<FormalSpec>AXLeverAdresId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Query As %String = "SELECT count(ID) from Derde_Klant.LevAdres where AxLeveradresId = ?"
+	#dim Params As %List = $ListBuild(AXLeverAdresId)
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, Params)
+	
+	Do ResultSet.Next()
+	Quit ResultSet.GetData(1)>0
+]]></Implementation>
+</Method>
+
 <Method name="GeefViaAXLeverAdresIdEnKlantNummer">
 <FormalSpec>AXLeverAdresId:%String,KlantNummer:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
@@ -223,6 +236,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefViaAXLeverAdresId">
+<FormalSpec>AXLeverAdresId:%String</FormalSpec>
+<ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim Query As %String = "SELECT ID from Derde_Klant.LevAdres where AxLeveradresId = ?"
+	#dim Params As %List = $ListBuild(AXLeverAdresId)
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, Params)
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres
+	
+	Do ResultSet.Next()
+	Try {
+		Set LeverAdres = ..GeefViaKlantIdEnKlantAdresNr("K||"_$p(ResultSet.GetData(1),"||",1),##class(TECH.StringUtils).StripAllExceptNumeric($p(ResultSet.GetData(1),"||",2)))
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Exception.GeefOmschrijving()_" voor AxLeverAdresId '"_AXLeverAdresId_"'"))
+	}
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+
 <Method name="BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer">
 <FormalSpec>AXLeverAdresId:%String,KlantNummer:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>