Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml
===================================================================
diff -u -r48865 -r49762
--- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml	(.../Bewaar.cls.xml)	(revision 48865)
+++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml	(.../Bewaar.cls.xml)	(revision 49762)
@@ -134,6 +134,7 @@
 	Do LeverAdres.ZetUniekId("84691")
 	Do LeverAdres.ZetVerzendingWijze("OD;4")
 	Do LeverAdres.ZetVolmacht("VOLMACHTGLS")
+	Do LeverAdres.ZetAxLeveradresId("AxLeveradresId")
 	Set LeverAdres.ID = "1"
 	
 	Quit LeverAdres
Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49694 -r49762
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49694)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49762)
@@ -40,7 +40,7 @@
 <Method name="Bewaar">
 <FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
 <Implementation><![CDATA[
-	If ($$$Not($$$HasLength(LeverAdres.ID))) {
+	If ($$$Not($$$HasLength(LeverAdres.GeefAxLeveradresId()))) {
 		Set Exception = ##class(TECH.Exceptions.IllegalArgumentException).%New("LeverAdres '"_LeverAdres.GeefNaam()_" "_LeverAdres.GeefAanspreking()_"' van klant '"_Klant.GeefID()_"' heeft geen ID en kan daarom niet bewaard worden")
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}