Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml
===================================================================
diff -u -r53961 -r53962
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53961)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53962)
@@ -363,7 +363,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: IsPrimaryDlvAddr -&gt; Yes en bestond nog niet -&gt; VoegToeLeverAdres gebruikt 1 als 2e parameter zijnde KlantAdresNr">
+<Method name="Test: IsPrimaryDlvAddr -&gt; Yes en bestond nog niet en L  1 was vrij -&gt; VoegToeLeverAdres op L  1">
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
@@ -395,7 +395,7 @@
 ]]></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">
+<Method name="Test: IsPrimaryDlvAddr -&gt; Yes en bestond nog niet en bestaande L  1 is bezet -&gt; bestaande L  1 verzet naar nieuwe L-nr en VoegToeLeverAdres op L  1">
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
@@ -436,6 +436,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: IsPrimaryDlvAddr -&gt; Yes en bestond al en staat al op L  1 -&gt; Bewaar op L  1">
+<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)
+	
+	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($$$True)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).ExactAantalKeer(1).DanReturn(BestaandAdres)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres)).ExactAantalKeer(1)
+	
+	#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,BestaandAdres,$$$False).ExactAantalKeer(1)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,AdresZetterMock)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
+	
+	Do $$$AssertEquals(BestaandAdres.GeefKlantAdresNr(),..#KlantAdresNr1)
+	Do LeverAdresRepositoryMock.Verifieer()
+	Do AdresZetterMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="MaakKlantMetLeveradressen">
 <FormalSpec>IdLijst:%List</FormalSpec>
 <Private>1</Private>