Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml
===================================================================
diff -u -r53963 -r53964
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53963)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53964)
@@ -369,15 +369,15 @@
 
 <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()
+	#dim NieuwPrimaryDlvAddrAdres 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, ..#KlantAdresNr1)
+	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",NieuwPrimaryDlvAddrAdres, ..#KlantAdresNr1)
 	
 	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
-	Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres)
+	Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(NieuwPrimaryDlvAddrAdres)
 	
 	Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$False)
@@ -388,11 +388,12 @@
 	#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)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",NieuwPrimaryDlvAddrAdres,Cust.PostalAddress.GetAt(1),Cust,NieuwPrimaryDlvAddrAdres,$$$False).ExactAantalKeer(1)
 	
 	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,AdresZetterMock)
 	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
 	
+	Do $$$AssertEquals(NieuwPrimaryDlvAddrAdres.GeefKlantAdresNr(),..#KlantAdresNr1)
 	Do LeverAdresRepositoryMock.Verifieer()
 	Do Klant.Verifieer()
 	Do AdresZetterMock.Verifieer()
@@ -401,38 +402,38 @@
 
 <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 NieuwPrimaryDlvAddrAdres 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(..#KlantAdresNr1)
+	#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))
 	Do Klant.IndienMethodCall("GeefVolgendVrijKlantAdresNr").DanReturn(..#NieuwKlantAdresNr)
-	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",Adres, ..#KlantAdresNr1)
+	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",NieuwPrimaryDlvAddrAdres, ..#KlantAdresNr1)
 	
 	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
-	Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres)
+	Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(NieuwPrimaryDlvAddrAdres)
 	
 	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($$$True)
-	Do LeverAdresRepositoryMock.IndienMethodCall("GeefViaKlantIdEnKlantAdresNr", "K||1234", ..#KlantAdresNr1).DanReturn(BestaandAdres)
-	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,BestaandAdres)
+	Do LeverAdresRepositoryMock.IndienMethodCall("GeefViaKlantIdEnKlantAdresNr", "K||1234", ..#KlantAdresNr1).DanReturn(AnderBestaandAdres)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,AnderBestaandAdres)
 	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)
 	
 	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)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",NieuwPrimaryDlvAddrAdres,Cust.PostalAddress.GetAt(1),Cust,NieuwPrimaryDlvAddrAdres,$$$False).ExactAantalKeer(1)
 	
 	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 $$$AssertEquals(NieuwPrimaryDlvAddrAdres.GeefKlantAdresNr(),..#KlantAdresNr1)
+	Do $$$AssertEquals(AnderBestaandAdres.GeefKlantAdresNr(),..#NieuwKlantAdresNr)
 	Do LeverAdresRepositoryMock.Verifieer()
 	Do Klant.Verifieer()
 	Do AdresZetterMock.Verifieer()
@@ -443,8 +444,8 @@
 <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(..#KlantAdresNr1)
+	#dim BestaandPrimaryDlvAddrAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	Do BestaandPrimaryDlvAddrAdres.ZetKlantAdresNr(..#KlantAdresNr1)
 	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressen($lb(..#AxLocationId1))
 	
@@ -453,19 +454,19 @@
 	
 	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("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).ExactAantalKeer(1).DanReturn(BestaandPrimaryDlvAddrAdres)
 	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)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,BestaandPrimaryDlvAddrAdres,$$$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(BestaandPrimaryDlvAddrAdres.GeefKlantAdresNr(),..#KlantAdresNr1)
 	Do LeverAdresRepositoryMock.Verifieer()
 	Do AdresZetterMock.Verifieer()
 ]]></Implementation>
@@ -475,8 +476,8 @@
 <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 BestaandPrimaryDlvAddrAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	Do BestaandPrimaryDlvAddrAdres.ZetKlantAdresNr(..#KlantAdresNr3)
 	
 	#dim AnderBestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	Do AnderBestaandAdres.ZetKlantAdresNr(..#KlantAdresNr1)
@@ -489,7 +490,7 @@
 	
 	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("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).ExactAantalKeer(1).DanReturn(BestaandPrimaryDlvAddrAdres)
 	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)
@@ -501,12 +502,12 @@
 	#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)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,BestaandPrimaryDlvAddrAdres,$$$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(BestaandPrimaryDlvAddrAdres.GeefKlantAdresNr(),..#KlantAdresNr1)
 	Do $$$AssertEquals(AnderBestaandAdres.GeefKlantAdresNr(),..#NieuwKlantAdresNr)
 	Do LeverAdresRepositoryMock.Verifieer()
 	Do AdresZetterMock.Verifieer()