Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml
===================================================================
diff -u -r49704 -r49721
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 49704)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 49721)
@@ -217,6 +217,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Klant krijgt adressen 1,2,3,4,5 binnen met ongekende AxLocationId waarvan enkel 2 en 4 de Delivery-rol hebben -&gt; 2,4 opslaan en 1,3,5 negeren">
+<Implementation><![CDATA[
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds("")
+	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",Adres).ExactAantalKeer(2)
+	
+	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
+	Do LeverAdresFactoryStub.VerwachtMethodCall("MaakLeverAdres").DanReturn(Adres).ExactAantalKeer(2)
+	
+	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.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId4).DanReturn($$$False)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
+	#dim InkomendeAxCustomer As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3,..#AxLocationId4,..#AxLocationId5))
+	Set InkomendeAxCustomer.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery"
+	Set InkomendeAxCustomer.PostalAddress.GetAt(3).Role.GetAt(1).Name = "NotDelivery"
+	Set InkomendeAxCustomer.PostalAddress.GetAt(5).Role.GetAt(1).Name = "NotDelivery"
+	Do LeverAdresUtils.ZetLeverAdressenBestaandeKlant(Klant,InkomendeAxCustomer)
+	
+	Do LeverAdresFactoryStub.Verifieer()
+	Do Klant.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="MaakKlantMetLeveradressenMetAxLocationIds">
 <FormalSpec>AxLocationIdLijst:%List</FormalSpec>
 <Private>1</Private>