Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml
===================================================================
diff -u -r53962 -r53963
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53962)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53963)
@@ -39,6 +39,10 @@
 <Default>1</Default>
 </Parameter>
 
+<Parameter name="KlantAdresNr3">
+<Default>3</Default>
+</Parameter>
+
 <Parameter name="NieuwKlantAdresNr">
 <Default>5</Default>
 </Parameter>
@@ -363,7 +367,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: IsPrimaryDlvAddr -&gt; Yes en bestond nog niet en L  1 was vrij -&gt; VoegToeLeverAdres op L  1">
+<Method name="Test: IsPrimaryDlvAddr -&gt; Yes en bestond nog niet en L1 was vrij -&gt; VoegToeLeverAdres op L1">
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
@@ -395,16 +399,14 @@
 ]]></Implementation>
 </Method>
 
-<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">
+<Method name="Test: IsPrimaryDlvAddr -&gt; Yes en bestond nog niet en L1 is bezet door ander adres -&gt; bestaande L1 verzet naar nieuwe L-nr en VoegToeLeverAdres op L1">
 <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")
+	Do BestaandAdres.ZetKlantAdresNr(..#KlantAdresNr1)
 	
-	#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)
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressen($lb(..#AxLocationId1))
 	Do Klant.IndienMethodCall("GeefVolgendVrijKlantAdresNr").DanReturn(..#NieuwKlantAdresNr)
 	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",Adres, ..#KlantAdresNr1)
 	
@@ -417,8 +419,9 @@
 	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)
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$False)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(1)
 	
-	
 	#dim IsPrimaryDlvAddrInbegrepen As %Boolean = $$$True
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1), IsPrimaryDlvAddrInbegrepen)
 	
@@ -436,16 +439,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: IsPrimaryDlvAddr -&gt; Yes en bestond al en staat al op L  1 -&gt; Bewaar op L  1">
+<Method name="Test: IsPrimaryDlvAddr -&gt; Yes en bestond al en staat al op L1 -&gt; Bewaar op L1">
 <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")
+	Do BestaandAdres.ZetKlantAdresNr(..#KlantAdresNr1)
 	
-	#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)
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressen($lb(..#AxLocationId1))
 	
 	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
 	Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres)
@@ -470,6 +471,48 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: IsPrimaryDlvAddr -&gt; Yes en bestond al op andere L-nr en L1 is bezet door ander adres -&gt; bestaande L1 verzet naar nieuwe L-nr en bewaar op L1">
+<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(..#KlantAdresNr3)
+	
+	#dim AnderBestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	Do AnderBestaandAdres.ZetKlantAdresNr(..#KlantAdresNr1)
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressen($lb(..#AxLocationId1, ..#AxLocationId2))
+	Do Klant.IndienMethodCall("GeefVolgendVrijKlantAdresNr").DanReturn(..#NieuwKlantAdresNr)
+	
+	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("BestaatViaKlantIdEnKlantAdresNr", "K||1234", ..#KlantAdresNr1).ExactAantalKeer(1).DanReturn($$$True)
+	Do LeverAdresRepositoryMock.IndienMethodCall("GeefViaKlantIdEnKlantAdresNr", "K||1234", ..#KlantAdresNr1).DanReturn(AnderBestaandAdres)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,Adres).ExactAantalKeer(1)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,AnderBestaandAdres).ExactAantalKeer(1)
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$False)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId2).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 $$$AssertEquals(AnderBestaandAdres.GeefKlantAdresNr(),..#NieuwKlantAdresNr)
+	Do LeverAdresRepositoryMock.Verifieer()
+	Do AdresZetterMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="MaakKlantMetLeveradressen">
 <FormalSpec>IdLijst:%List</FormalSpec>
 <Private>1</Private>