Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r53128 -r53248
--- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 53128)
+++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 53248)
@@ -76,14 +76,15 @@
 <FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
 <Implementation><![CDATA[
 	#dim LijstVanAxLocationIds As %ListOfDataTypes = ..GeefAxLocationIdsVanKlant(Klant)
+	#dim KlantNummer As %String = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klant.GeefID())
 	Set PostalAddressIterator = ##class(TECH.ListIterator).%New(Cust.PostalAddress)
 	While PostalAddressIterator.HasNext() {
 		#dim Address As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress = PostalAddressIterator.Next()
 		If ..RolesContains(Address.Role ,"Delivery" ) {
 			#dim Adres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres()
-			#dim BestaandLeverAdres As DOM.VKP.LeverAdres = $$$If(..LeveradresRepository.BestaatViaAXLeverAdresIdEnKlantNummer(Address.LocationId, ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klant.GeefID())),..LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer(Address.LocationId, ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klant.GeefID())),Adres)
+			#dim BestaandLeverAdres As DOM.VKP.LeverAdres = $$$If(..LeveradresRepository.BestaatViaAXLeverAdresIdEnKlantNummer(Address.LocationId, KlantNummer),..LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer(Address.LocationId, KlantNummer),Adres)
 			Do ..AdresZetter.ZetAdres(Adres, Address, Cust, BestaandLeverAdres, $$$False)
-			If $$$Not(..LeveradresRepository.BestaatViaAXLeverAdresIdEnKlantNummer(Address.LocationId, ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klant.GeefID()))) {
+			If $$$Not(..LeveradresRepository.BestaatViaAXLeverAdresIdEnKlantNummer(Address.LocationId, KlantNummer)) {
 				Do Klant.VoegToeLeverAdres(Adres)
 			} Else {
 				Do ..LeveradresRepository.Bewaar(Klant, Adres)
@@ -93,11 +94,17 @@
 	}
 	
 	#dim NogAdressenVerwijderen As %Boolean = $$$False
+	#dim UniekId As %String
 	Set LijstVanAxLocationIdsIterator = ##class(TECH.ListIterator).%New(LijstVanAxLocationIds)
 	While LijstVanAxLocationIdsIterator.HasNext() {
 		#dim AXLeverAdresId As %String = LijstVanAxLocationIdsIterator.Next()
 		If $$$HasLength(AXLeverAdresId) {
-			Do ..LeveradresRepository.VerwijderViaAXLeverAdresId(AXLeverAdresId)
+			If (..LeveradresRepository.BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer(AXLeverAdresId, KlantNummer)) {
+				Set UniekId = ..LeveradresRepository.GeefRecentsteUniekIdVolgensAxLeveradresId(AXLeverAdresId)
+				Do ..LeveradresRepository.VerwijderViaID(UniekId)
+			} Else {
+				Do ..LeveradresRepository.VerwijderViaAXLeverAdresId(AXLeverAdresId)
+			}
 		} Else {
 			Set NogAdressenVerwijderen = $$$True
 		}
Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml
===================================================================
diff -u -r49909 -r53248
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 49909)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53248)
@@ -27,12 +27,20 @@
 <Default>1234</Default>
 </Parameter>
 
+<Parameter name="UniekId1">
+<Default>1000001</Default>
+</Parameter>
+
+<Parameter name="UniekId2">
+<Default>1000002</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()
 	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds($lb(..#AxLocationId1))
+	#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)
@@ -59,7 +67,7 @@
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds($lb(..#AxLocationId1))
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressen($lb(..#AxLocationId1))
 	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",Adres)
 	
 	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
@@ -93,7 +101,7 @@
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2))
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressen($lb(..#AxLocationId1,..#AxLocationId2))
 	
 	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
@@ -106,6 +114,7 @@
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$True)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).ExactAantalKeer(0)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres))
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$False)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(0)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId2).ExactAantalKeer(1)
 	
@@ -126,7 +135,7 @@
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3,..#AxLocationId4,..#AxLocationId5))
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressen($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3,..#AxLocationId4,..#AxLocationId5))
 	
 	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
@@ -139,6 +148,9 @@
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId4,..#KlantNummer).DanReturn($$$True)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId4,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres))
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$False)
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer",..#AxLocationId3,..#KlantNummer).DanReturn($$$False)
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer",..#AxLocationId5,..#KlantNummer).DanReturn($$$False)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId3).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId5).ExactAantalKeer(1)
@@ -163,7 +175,7 @@
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds($lb(..#AxLocationId1))
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressen($lb(..#AxLocationId1))
 	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",Adres)
 	
 	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
@@ -173,6 +185,7 @@
 	
 	Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$False)
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$False)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(1)
 	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId2))
@@ -193,7 +206,7 @@
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds($lb(..#AxLocationId1))
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressen($lb(..#AxLocationId1))
 	
 	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
@@ -202,6 +215,7 @@
 	
 	Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$False)
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$False)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(1)
 	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1))
@@ -216,7 +230,7 @@
 
 <Method name="Test: 1 PostalAddress heeft niet de Delivery-rol en AxLocationId is niet gekend: negeren">
 <Implementation><![CDATA[
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds("")
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressen("")
 	
 	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
 	
@@ -237,7 +251,7 @@
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds("")
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressen("")
 	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",Adres).ExactAantalKeer(2)
 	
 	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
@@ -271,7 +285,7 @@
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds($lb(..#AxLocationId5))
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressen($lb(..#AxLocationId5))
 	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",Adres).ExactAantalKeer(1)
 	
 	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
@@ -284,6 +298,7 @@
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres)).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId4,..#KlantNummer).DanReturn($$$False)
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer",..#AxLocationId5,..#KlantNummer).DanReturn($$$False)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId5).ExactAantalKeer(1)
 	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3,..#AxLocationId4))
@@ -304,20 +319,55 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakKlantMetLeveradressenMetAxLocationIds">
-<FormalSpec>AxLocationIdLijst:%List</FormalSpec>
+<Method name="Test: Klant heeft al meerdere adressen, AxLocationId komt meermaals voor -&gt; het juiste verwijderen -&gt; volgens recentste UniekId">
+<Implementation><![CDATA[
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressen($lb(..#AxLocationId1_"||"_..#UniekId1, ..#AxLocationId1_"||"_..#UniekId2))
+	
+	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	
+	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).DanReturn(BestaandAdres).ExactAantalKeer(1)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres))
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$True)
+	Do LeverAdresRepositoryMock.IndienMethodCall("GeefRecentsteUniekIdVolgensAxLeveradresId",..#AxLocationId1).DanReturn(..#UniekId2)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(0)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaID",..#UniekId2).ExactAantalKeer(1)
+	
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1))
+	
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(1)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,AdresZetterMock)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
+	
+	Do LeverAdresRepositoryMock.Verifieer()
+	Do AdresZetterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="MaakKlantMetLeveradressen">
+<FormalSpec>IdLijst:%List</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
 <Implementation><![CDATA[
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
 
 	#dim AdresLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	
-	#dim AxLocationID As %String
-	#dim LijstIterator = ##class(TECH.ListbuildIterator).%New(AxLocationIdLijst)
+	#dim Ids, AxLocationId, UniekId As %String
+	#dim LijstIterator = ##class(TECH.ListbuildIterator).%New(IdLijst)
 	While LijstIterator.HasNext() {
-		Set AxLocationID = LijstIterator.Next()
-		Do AdresLijst.Insert(..GeefLeverAdres(AxLocationID))
+		Set Ids = LijstIterator.Next()
+		Set AxLocationId = $Piece(Ids,"||",1)
+		Set UniekId = $Piece(Ids,"||",2)
+		Do AdresLijst.Insert(..GeefLeverAdres(AxLocationId, UniekId))
 	}
 
 	Do Klant.IndienMethodCall("GeefLeverAdressen").DanReturn(AdresLijst)
@@ -327,12 +377,13 @@
 </Method>
 
 <Method name="GeefLeverAdres">
-<FormalSpec>AxLocationId:%List</FormalSpec>
+<FormalSpec>AxLocationId:%String,UniekId:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
 	#Dim Adres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
 	Do Adres.ZetAxLeveradresId(AxLocationId)
+	Do Adres.ZetUniekId(UniekId)
 		
 	Quit Adres
 ]]></Implementation>