Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml
===================================================================
diff -u -r49698 -r49701
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 49698)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 49701)
@@ -171,10 +171,34 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: PostalAddress met rol Business én Delivery: Leveradres aanmaken">
+<Method name="Test: 1 PostalAddress heeft niet meer de Delivery-rol maar AxLocationId is wel gekend: Leveradres verwijderen">
+<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 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.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$False)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(1)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
+	#dim InkomendeAxCustomer As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId2))
+	Set InkomendeAxCustomer.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery"
+	Do LeverAdresUtils.ZetLeverAdressenBestaandeKlant(Klant,InkomendeAxCustomer)
+	
+	Do LeverAdresRepositoryMock.Verifieer()
+]]></Implementation>
 </Method>
 
-<Method name="Test: PostalAddress heeft niet meer de Delivery-rol: Leveradres verwijderen">
+<Method name="Test: 1 PostalAddress heeft niet de Delivery-rol en AxLocationId is niet gekend: negeren">
 </Method>
 
 <Method name="MaakKlantMetLeveradressenMetAxLocationIds">
Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r49696 -r49701
--- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49696)
+++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49701)
@@ -76,7 +76,7 @@
 				Do ..ZetNieuwLeverAdres(NieuwAdres, Address, Cust, InsertOfUpdate)
 				Do Klant.VoegToeLeverAdres(NieuwAdres)
 			} Else {
-				#dim BestaandLeverAdres As DOM.VKP.LeverAdres = ..LeveradresRepository.GeefViaAXLeverAdresId(Address.LocationId)  //Klant.GeefSpecifiekAdres(Node)
+				#dim BestaandLeverAdres As DOM.VKP.LeverAdres = ..LeveradresRepository.GeefViaAXLeverAdresId(Address.LocationId)
 				#dim Adres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres()
 				Set InsertOfUpdate = "Update"
 				Do Adres.ZetNaam($$$If($$$HasLength(Address.Description),$Piece(Address.Description," ",1),BestaandLeverAdres.GeefNaam()))