Index: vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r53954 -r55930
--- vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 53954)
+++ vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 55930)
@@ -8,13 +8,27 @@
 <Super>DOM.VKP.impl.LeverAdresRepository,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI,LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI,PartijApi:DOM.PARTIJ.PartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer">
 <FormalSpec>AXLeverAdresId:%String,KlantNummer:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer",AXLeverAdresId,KlantNummer)
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatViaAXLeverAdresId">
+<FormalSpec>AXLeverAdresId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatViaAXLeverAdresId",AXLeverAdresId)
+]]></Implementation>
+</Method>
+
 <Method name="BestaatViaAXLeverAdresIdEnKlantNummer">
 <FormalSpec>AXLeverAdresId:%String,KlantNummer:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -42,6 +56,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefViaAXLeverAdresId">
+<FormalSpec>AXLeverAdresId:%String</FormalSpec>
+<ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaAXLeverAdresId",AXLeverAdresId)
+]]></Implementation>
+</Method>
+
 <Method name="GeefViaAXLeverAdresIdEnKlantNummer">
 <FormalSpec>AXLeverAdresId:%String,KlantNummer:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
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>
FishEye: Tag 49908 refers to a dead (removed) revision in file `vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaAxLeveradresId.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?