Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml
===================================================================
diff -u -r49762 -r49763
--- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml	(.../Bewaar.cls.xml)	(revision 49762)
+++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml	(.../Bewaar.cls.xml)	(revision 49763)
@@ -46,11 +46,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Het LeverAdres heeft een leeg ID">
+<Method name="Test: Het LeverAdres heeft een leeg AxLeveradresId">
 <Implementation><![CDATA[
 	Do ..VoegToeKlant()
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("LeverAdres ' ' van klant 'K||999999' heeft geen ID en kan daarom niet bewaard worden")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("LeverAdres ' ' van klant 'K||999999' heeft geen AxLeveradresId en kan daarom niet bewaard worden")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.IllegalArgumentException).%ClassName(1),Substrings))
 	
 	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
@@ -84,10 +84,11 @@
 	Do $$$AssertEquals(OpgehaaldLeverAdres.GeefTelefoon(),LeverAdres.GeefTelefoon())
 	Do $$$AssertEquals(OpgehaaldLeverAdres.GeefType(),LeverAdres.GeefType())
 	Do $$$AssertEquals(OpgehaaldLeverAdres.GeefVerzendingWijze(),LeverAdres.GeefVerzendingWijze())
+	Do $$$AssertEquals(OpgehaaldLeverAdres.GeefAxLeveradresId(),LeverAdres.GeefAxLeveradresId())
 ]]></Implementation>
 </Method>
 
-<Method name="Test: LeverAdres kan niet bewaard worden">
+<Method name="Test: LeverAdres kan niet bewaard worden vanwege KlantPartijID">
 <Implementation><![CDATA[
 	Do ..VoegToeKlant()
 	
Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49762 -r49763
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49762)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49763)
@@ -41,7 +41,7 @@
 <FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
 <Implementation><![CDATA[
 	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")
+		Set Exception = ##class(TECH.Exceptions.IllegalArgumentException).%New("LeverAdres '"_LeverAdres.GeefNaam()_" "_LeverAdres.GeefAanspreking()_"' van klant '"_Klant.GeefID()_"' heeft geen AxLeveradresId en kan daarom niet bewaard worden")
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	try {
@@ -152,6 +152,7 @@
 	Set Leveradres.Volmacht = $Piece(Key,"\",23)
 	Set Leveradres.Opmerking1 = $Piece(Key,"\",24)
 	Set Leveradres.Opmerking2 = $Piece(Key,"\",25)
+	Set Leveradres.AxLeveradresId = $Piece(Key,"\",29)
 	Do Leveradres.ZetAdresType($Piece(Key,"\",12))
 	Do Leveradres.ZetKlantId(KlantId)