Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r53959 -r53961
--- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 53959)
+++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 53961)
@@ -193,9 +193,11 @@
 	If (..LeveradresRepository.BestaatViaKlantIdEnKlantAdresNr(KlantId, "1")) {
 		#dim TeVerplaatsenAdres As DOM.VKP.LeverAdres = ..LeveradresRepository.GeefViaKlantIdEnKlantAdresNr(KlantId, "1")
 		#dim VolgendVrijKlantAdresNr As %String = Klant.GeefVolgendVrijKlantAdresNr()
-	} Else {
-		Do LeverAdres.ZetKlantAdresNr("1")
+		Do TeVerplaatsenAdres.ZetKlantAdresNr(VolgendVrijKlantAdresNr)
+		Do ..LeveradresRepository.Bewaar(Klant, TeVerplaatsenAdres)
 	}
+	
+	Do LeverAdres.ZetKlantAdresNr("1")
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml
===================================================================
diff -u -r53959 -r53961
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53959)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53961)
@@ -35,6 +35,14 @@
 <Default>1000002</Default>
 </Parameter>
 
+<Parameter name="KlantAdresNr1">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="NieuwKlantAdresNr">
+<Default>5</Default>
+</Parameter>
+
 <Method name="Test: Leveradres bestaat al, inhoud moet veranderen (zelfde AxLocationId)">
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
@@ -355,25 +363,62 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Adres heeft IsPrimaryDlvAddr -&gt; Yes en het bestond nog niet -&gt; VoegToeLeverAdres gebruikt 1 als 2e parameter zijnde KlantAdresNr">
+<Method name="Test: IsPrimaryDlvAddr -&gt; Yes en bestond nog niet -&gt; VoegToeLeverAdres gebruikt 1 als 2e parameter zijnde KlantAdresNr">
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
 	#dim AdresLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
 	Do Klant.IndienMethodCall("GeefLeverAdressen").DanReturn(AdresLijst)
-	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",Adres, 1)
+	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",Adres, ..#KlantAdresNr1)
 	
+	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
+	Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres)
+	
+	Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$False)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).ExactAantalKeer(0)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("BestaatViaKlantIdEnKlantAdresNr", "K||1234", ..#KlantAdresNr1).ExactAantalKeer(1).DanReturn($$$False)
+	
+	#dim IsPrimaryDlvAddrInbegrepen As %Boolean = $$$True
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1), IsPrimaryDlvAddrInbegrepen)
+	
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,Adres,$$$False).ExactAantalKeer(1)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,AdresZetterMock)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
+	
+	Do LeverAdresRepositoryMock.Verifieer()
+	Do Klant.Verifieer()
+	Do AdresZetterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsPrimaryDlvAddr -&gt; Yes en bestond nog niet -&gt; VoegToeLeverAdres gebruikt 1 als 2e parameter zijnde KlantAdresNr en bestaande L  1 verzet">
+<Implementation><![CDATA[
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	
 	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	Do BestaandAdres.ZetKlantAdresNr("1")
 	
+	#dim AdresLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do Klant.IndienMethodCall("GeefLeverAdressen").DanReturn(AdresLijst)
+	Do Klant.IndienMethodCall("GeefVolgendVrijKlantAdresNr").DanReturn(..#NieuwKlantAdresNr)
+	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",Adres, ..#KlantAdresNr1)
+	
 	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
 	Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres)
 	
 	Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$False)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).ExactAantalKeer(0)
-	Do LeverAdresRepositoryMock.VerwachtMethodCall("BestaatViaKlantIdEnKlantAdresNr", "K||1234", 1).ExactAantalKeer(1).DanReturn($$$False)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("BestaatViaKlantIdEnKlantAdresNr", "K||1234", ..#KlantAdresNr1).ExactAantalKeer(1).DanReturn($$$True)
+	Do LeverAdresRepositoryMock.IndienMethodCall("GeefViaKlantIdEnKlantAdresNr", "K||1234", ..#KlantAdresNr1).DanReturn(BestaandAdres)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,BestaandAdres)
 	
+	
 	#dim IsPrimaryDlvAddrInbegrepen As %Boolean = $$$True
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1), IsPrimaryDlvAddrInbegrepen)
 	
@@ -383,6 +428,8 @@
 	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,AdresZetterMock)
 	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
 	
+	Do $$$AssertEquals(Adres.GeefKlantAdresNr(),..#KlantAdresNr1)
+	Do $$$AssertEquals(BestaandAdres.GeefKlantAdresNr(),..#NieuwKlantAdresNr)
 	Do LeverAdresRepositoryMock.Verifieer()
 	Do Klant.Verifieer()
 	Do AdresZetterMock.Verifieer()