Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml
===================================================================
diff -u -r49763 -r49774
--- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml	(.../Bewaar.cls.xml)	(revision 49763)
+++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml	(.../Bewaar.cls.xml)	(revision 49774)
@@ -72,7 +72,7 @@
 	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New(,..LegacyPartijApi, ..PartijApi)
 	Do LeveradresRepository.Bewaar(##class(DOM.VKP.impl.DataM.DataMKlantNative).%New(..#TestKlantnummer), LeverAdres)
 	
-	#dim OpgehaaldLeverAdres As DOM.VKP.LeverAdres = LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer("K||"_..#TestKlantnummer,"1")
+	#dim OpgehaaldLeverAdres As DOM.VKP.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr("K||"_..#TestKlantnummer,"1")
 	
 	Do $$$AssertEquals(OpgehaaldLeverAdres.GeefAanspreking(),LeverAdres.GeefAanspreking())
 	Do $$$AssertEquals(OpgehaaldLeverAdres.GeefAdresKey(),LeverAdres.GeefAdresKey())
@@ -136,7 +136,7 @@
 	Do LeverAdres.ZetVerzendingWijze("OD;4")
 	Do LeverAdres.ZetVolmacht("VOLMACHTGLS")
 	Do LeverAdres.ZetAxLeveradresId("AxLeveradresId")
-	Set LeverAdres.ID = "1"
+	Do LeverAdres.ZetKlantAdresNr("1")
 	
 	Quit LeverAdres
 ]]></Implementation>