Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml
===================================================================
diff -u -r53256 -r53949
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53256)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53949)
@@ -334,7 +334,7 @@
 	Do LeverAdresServiceMock.VerwachtMethodCall("GeefRecentsteUniekIdVolgensAxLeveradresId",..#AxLocationId1).ExactAantalKeer(1).DanReturn(..#UniekId2)
 	
 	Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
-	Do LeverAdresRepositoryMock.VerwachtMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).ExactAantalKeer(2).DanReturn($$$True)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).ExactAantalKeer(1).DanReturn($$$True)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).ExactAantalKeer(1).DanReturn(BestaandAdres)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres))
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).ExactAantalKeer(1).DanReturn($$$True)
Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r50205 -r53949
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 50205)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 53949)
@@ -756,14 +756,7 @@
 <Method name="VoegToeLeverAdres">
 <FormalSpec>LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
 <Implementation><![CDATA[
-	#dim LaasteAdresKey As %String = $Order(^KKL(..GeefKlantIndexKKL(),"L999"), -1)
-	#dim VolgendNummer As %Integer = ""
-	If $Extract(LaasteAdresKey,1) = "L" {
-		#dim LaatsteNummer As %Integer = $Number($Extract(LaasteAdresKey,2,4),0)
-		Set VolgendNummer = LaatsteNummer + 1
-	}Else{
-		Set VolgendNummer = 1
-	}
+	#dim VolgendNummer As %Integer = ..GeefVolgendVrijKlantAdresNr()
 	#dim AdresNode As %String = ""
 	Set $Piece(AdresNode,"\",1) = VolgendNummer
 	Set $Piece(AdresNode,"\",2) = LeverAdres.GeefNaam()
@@ -794,6 +787,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVolgendVrijKlantAdresNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim VolgendVrijKlantAdresNr As %Integer = ""
+	#dim LaasteAdresKey As %String = $Order(^KKL(..GeefKlantIndexKKL(),"L999"), -1)
+	
+	If $Extract(LaasteAdresKey,1) = "L" {
+		#dim LaatsteNummer As %Integer = $Number($Extract(LaasteAdresKey,2,4),0)
+		Set VolgendVrijKlantAdresNr = LaatsteNummer + 1
+	}Else{
+		Set VolgendVrijKlantAdresNr = 1
+	}
+	
+	Quit VolgendVrijKlantAdresNr
+]]></Implementation>
+</Method>
+
 <Method name="GeefAdresObjectVanData">
 <FormalSpec>AdresData:%String</FormalSpec>
 <Private>1</Private>
Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r53256 -r53949
--- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 53256)
+++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 53949)
@@ -83,14 +83,27 @@
 <Implementation><![CDATA[
 	#dim LijstVanAxLocationIds As %ListOfDataTypes = ..GeefAxLocationIdsVanKlant(Klant)
 	#dim KlantNummer As %String = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klant.GeefID())
+	#dim Adres As DOM.VKP.LeverAdres
+	#dim BestaandLeverAdres As DOM.VKP.LeverAdres
+	#dim BestaatLeverAdres As %Boolean
+	
 	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, KlantNummer),..LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer(Address.LocationId, KlantNummer),Adres)
+			Set Adres = ..LeverAdresFactory.MaakLeverAdres()
+			Set BestaatLeverAdres = ..LeveradresRepository.BestaatViaAXLeverAdresIdEnKlantNummer(Address.LocationId, KlantNummer)
+			
+			If BestaatLeverAdres {
+				Set BestaandLeverAdres = ..LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer(Address.LocationId, KlantNummer)
+			} Else {
+				Set BestaandLeverAdres = Adres
+			}
+			
 			Do ..AdresZetter.ZetAdres(Adres, Address, Cust, BestaandLeverAdres, $$$False)
-			If $$$Not(..LeveradresRepository.BestaatViaAXLeverAdresIdEnKlantNummer(Address.LocationId, KlantNummer)) {
+			
+			If $$$Not(BestaatLeverAdres) {
 				Do Klant.VoegToeLeverAdres(Adres)
 			} Else {
 				Do ..LeveradresRepository.Bewaar(Klant, Adres)