Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r48505 -r48510
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 48505)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 48510)
@@ -60,6 +60,22 @@
 	Quit Leveradres
 ]]></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)
+	
+	If ResultSet.HasNext() {
+		Quit ..GeefViaID(ResultSet.Next.GetData())
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen leveradres voor AXLeverAdresId '"_AXLeverAdresId_"'"))
+	}
+]]></Implementation>
+</Method>
 </Class>