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
 		}