Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r50031 -r50112
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 50031)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 50112)
@@ -212,7 +212,7 @@
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,LeverAdresID:%String</FormalSpec>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
-	Quit:((+LeverAdresID>1000)||(##class(TECH.StringUtils).StartsWith(LeverAdresID,"000"))) ..GeefViaAXLeverAdresIdEnKlantNummer(LeverAdresID, ..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID))
+	Quit:..IsAXLeverAdresId(LeverAdresID) ..GeefViaAXLeverAdresIdEnKlantNummer(LeverAdresID, ..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID))
 	
 	#Dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantID)	
 	#Dim LeverAdres As DOM.VKP.LeverAdres = ""
@@ -265,6 +265,14 @@
 	Quit KlantIndexKKL
 ]]></Implementation>
 </Method>
+
+<Method name="IsAXLeverAdresId">
+<FormalSpec>LeverAdresId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((+LeverAdresId>1000)||(##class(TECH.StringUtils).StartsWith(LeverAdresId,"000")))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49999 -r50112
--- vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49999)
+++ vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 50112)
@@ -23,8 +23,7 @@
 
 <Method name="VerwijderLeverAdressenZonderAxLeveradresIdVanKlant">
 <FormalSpec>KlantID:%String</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="BestaatViaAXLeverAdresIdEnKlantNummer">