Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml
===================================================================
diff -u -r49652 -r49668
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 49652)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 49668)
@@ -3,7 +3,33 @@
 <Class name="vhUnitTest.AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils.ZetLeverAdressenBestaandeKlant.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="AxLocationId">
+<Default>0000123456</Default>
+</Parameter>
+
 <Method name="Test: Leveradres bestaat al, inhoud moet veranderen (zelfde AxLocationId)">
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..GeefKlantMetLeveradressenMetAxLocationIds(..#AxLocationId)
+	#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()
+	
+	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
+	Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres)
+	
+	Set LandRepository = ##class(vhTest.Mock.DOM.common.Locatie.impl.LandRepository).%New()
+	Do LandRepository.IndienMethodCall("GeefViaLandCodeIso3",$$$ElkeWaarde).DanReturn(Adres.GeefLand())
+	
+	Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres))
+	Do LeverAdresRepositoryMock.IndienMethodCall("GeefViaAXLeverAdresId",..#AxLocationId).DanReturn(BestaandAdres)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
+	Do LeverAdresUtils.ZetLeverAdressenBestaandeKlant(Klant,..GeefAxCustMetAxLocationIds(..#AxLocationId))
+	
+	Do LeverAdresRepositoryMock.Verifieer()
+	
+	Do $$$AssertEquals(Adres.GeefAxLeveradresId(),..#AxLocationId)
+]]></Implementation>
 </Method>
 
 <Method name="Test: Klant heeft al adres (gekend AxLocationId), er komt een nieuw bij (met nieuw AxLocationId)">
@@ -12,14 +38,56 @@
 <Method name="Test: Klant heeft al meerdere adressen, er komt een minder binnen -&gt; het juist verwijderen">
 </Method>
 
-<Method name="Test: Klant heeft al adres (gekend AxLocationId), er komt een binnen met nieuw AxLocationId -&gt; oude weg, nieuwe opslaan">
+<Method name="Test: Klant heeft al adres (gekend AxLocationId), er komt slechts een binnen met nieuw AxLocationId -&gt; oude weg, nieuwe opslaan">
 </Method>
 
 <Method name="Test: PostalAddress met rol Business én Delivery: Leveradres aanmaken">
 </Method>
 
 <Method name="Test: PostalAddress heeft niet meer de Delivery-rol: Leveradres verwijderen">
 </Method>
+
+<Method name="GeefKlantMetLeveradressenMetAxLocationIds">
+<FormalSpec>AxLocationId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+
+	Do Klant.IndienMethodCall("GeefLeverAdressen").DanReturn(##class(%ListOfDataTypes).%New(..GeefLeverAdres(AxLocationId)))
+	
+	Quit Klant
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverAdres">
+<FormalSpec>AxLocationId:%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)
+		
+	Quit Adres
+]]></Implementation>
+</Method>
+
+<Method name="GeefAxCustMetAxLocationIds">
+<FormalSpec>AxLocationId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</ReturnType>
+<Implementation><![CDATA[
+	Set AxCust = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust).%New()
+	Set AxPostalAddress = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress).%New()
+	Set AxPostalAddress.LocationId = ..#AxLocationId
+	Set AxRole = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityRole).%New()
+	Set AxRole.Name = "Delivery"
+	Do AxPostalAddress.Role.Insert(AxRole)
+	Do AxCust.PostalAddress.Insert(AxPostalAddress)
+	
+	Quit AxCust
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r49543 -r49668
--- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49543)
+++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49668)
@@ -80,14 +80,14 @@
 			#dim IsNieuwLeverAdres As %Boolean
 			#dim InsertOfUpdate As %String
 			Set IsNieuwLeverAdres = $$$If($$$Not(##class(TECH.ListUtils).Contains(CacheIdLeverAdresLijst,CacheLeverAdresId)),$$$True,$$$False)
-			If IsNieuwLeverAdres {
+			/*If IsNieuwLeverAdres {
 				#dim NieuwAdres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres()
 				Set InsertOfUpdate = "Insert"
 				Do ..ZetNieuwLeverAdres(NieuwAdres, Address, Cust, InsertOfUpdate)
 				Do Klant.VoegToeLeverAdres(NieuwAdres)
-			} Else {
+			} Else {*/
 				#Dim Node As %String = "L"_##class(TECH.StringUtils).AddLeadingSpace(CacheLeverAdresId,3)
-				#dim BestaandLeverAdres As DOM.VKP.LeverAdres = Klant.GeefSpecifiekAdres(Node)
+				#dim BestaandLeverAdres As DOM.VKP.LeverAdres = ..LeveradresRepository.GeefViaAXLeverAdresId(Address.LocationId)  //Klant.GeefSpecifiekAdres(Node)
 				#dim Adres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres()
 				Set InsertOfUpdate = "Update"
 				Do Adres.ZetNaam($$$If($$$HasLength(Address.Description),$Piece(Address.Description," ",1),BestaandLeverAdres.GeefNaam()))
@@ -107,7 +107,7 @@
 				Do Adres.ZetVolmacht($$$If($$$HasLength(Address.TransporterAuth),$Piece(Address.TransporterAuth,"$$##",1),BestaandLeverAdres.GeefVolmacht()))
 				Set Adres.ID = CacheLeverAdresId
 				Do ..LeveradresRepository.Bewaar(Klant, Adres)
-			}
+			//}
 		}
 	}
 ]]></Implementation>