Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml
===================================================================
diff -u -r49731 -r49735
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml	(.../Test.cls.xml)	(revision 49731)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml	(.../Test.cls.xml)	(revision 49735)
@@ -25,6 +25,7 @@
 	Do $$$AssertEquals(GezetAdres.GeefLandNr(),"1019")
 	Do $$$AssertEquals(GezetAdres.GeefVerzendingWijze(),"OD4;2`OD4;5")
 	Do $$$AssertEquals(GezetAdres.GeefType(),"")
+	Do $$$AssertEquals(GezetAdres.GeefTelefoon(),"")
 	Do $$$AssertEquals(GezetAdres.GeefOpmerking1(),"")
 	Do $$$AssertEquals(GezetAdres.GeefOpmerking2(),"")
 	Do $$$AssertEquals(GezetAdres.GeefAxLeveradresId(),"")
@@ -39,6 +40,7 @@
 	#dim Address As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress = ..GeefAxLeverAdres()
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCust()
 	#dim BestaandLeverAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	Do BestaandLeverAdres.ZetTelefoon("03/1234567")
 	#dim IsPrimairAdres As %Boolean = $$$False
 	#dim GezetAdres As DOM.VKP.LeverAdres = AdresZetter.ZetAdres(Adres, Address, Cust, BestaandLeverAdres, IsPrimairAdres)
 	
@@ -50,6 +52,7 @@
 	Do $$$AssertEquals(GezetAdres.GeefLandNr(),"1019")
 	Do $$$AssertEquals(GezetAdres.GeefVerzendingWijze(),"OD4;2`OD4;5")
 	Do $$$AssertEquals(GezetAdres.GeefType(),"")
+	Do $$$AssertEquals(GezetAdres.GeefTelefoon(),"03/1234567")
 	Do $$$AssertEquals(GezetAdres.GeefOpmerking1(),"Opmerking1 LeverAdres")
 	Do $$$AssertEquals(GezetAdres.GeefOpmerking2(),"Opmerking2 LeverAdres")
 	Do $$$AssertEquals(GezetAdres.GeefAxLeveradresId(),..#AxLocationId)
Index: AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml
===================================================================
diff -u -r49728 -r49735
--- AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml	(.../AdresZetter.cls.xml)	(revision 49728)
+++ AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml	(.../AdresZetter.cls.xml)	(revision 49735)
@@ -48,23 +48,22 @@
 <FormalSpec>Adres:DOM.VKP.LeverAdres,Address:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,BestaandLeverAdres:DOM.VKP.LeverAdres,IsPrimairAdres:%Boolean</FormalSpec>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
-	Do Adres.ZetNaam($$$If($$$HasLength(Address.Description),Address.Description,BestaandLeverAdres.GeefNaam()))
+	Do Adres.ZetNaam(Address.Description)
 	Do Adres.ZetAanspreking("")
-	Do Adres.ZetStraat($$$If($$$HasLength(Address.Street),Address.Street,BestaandLeverAdres.GeefStraat()))
-	Do Adres.ZetPostcode($$$If($$$HasLength(Address.ZipCode),Address.ZipCode,BestaandLeverAdres.GeefPostcode()))
-	Do Adres.ZetGemeente($$$If($$$HasLength(Address.City),Address.City,BestaandLeverAdres.GeefGemeente()))
-	Do Adres.ZetLandNr($$$If($$$HasLength(Address.CountryRegionId),..LandRepository.GeefViaLandCodeIso3(Address.CountryRegionId).GeefID(),BestaandLeverAdres.GeefLandNr()))
-	Do Adres.ZetTaal($$$If($$$HasLength(Cust.LanguageId),..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId),BestaandLeverAdres.GeefTaal()))
-	If (($$$HasLength(Address.DlvModeId)) || ($$$HasLength(BestaandLeverAdres.GeefVerzendingWijze()))) {
-		Do Adres.ZetVerzendingWijze($$$If($$$HasLength(Address.DlvModeId),..MaakVerzendingWijze(Address.DlvModeId, Cust.CustAccount, Address.LocationId),BestaandLeverAdres.GeefVerzendingWijze()))
-	}
+	Do Adres.ZetStraat(Address.Street)
+	Do Adres.ZetPostcode(Address.ZipCode)
+	Do Adres.ZetGemeente(Address.City)
+	Do Adres.ZetLandNr(..LandRepository.GeefViaLandCodeIso3(Address.CountryRegionId).GeefID())
+	Do Adres.ZetTaal(..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId))
+	Do Adres.ZetVerzendingWijze(..MaakVerzendingWijze(Address.DlvModeId, Cust.CustAccount, Address.LocationId))
 	Do Adres.ZetType("")
 	If $$$Not(IsPrimairAdres) {
-		Do Adres.ZetOpmerking1($$$If($$$HasLength(Address.Nota1External),Address.Nota1External,BestaandLeverAdres.GeefOpmerking1()))
-		Do Adres.ZetOpmerking2($$$If($$$HasLength(Address.Nota2External),Address.Nota2External,BestaandLeverAdres.GeefOpmerking2()))
-		Do Adres.ZetType($$$If($$$HasLength(Address.Role),..AxToAdminUtils.ConvertLeverAdresType(Address.Role),BestaandLeverAdres.GeefType()))
-		Do Adres.ZetAxLeveradresId($$$If($$$HasLength(Address.LocationId),Address.LocationId,BestaandLeverAdres.GeefAxLeveradresId()))
-		Do Adres.ZetVolmacht($$$If($$$HasLength(Address.TransporterAuth),Address.TransporterAuth,BestaandLeverAdres.GeefVolmacht()))
+		Do Adres.ZetTelefoon(BestaandLeverAdres.GeefTelefoon())
+		Do Adres.ZetOpmerking1(Address.Nota1External)
+		Do Adres.ZetOpmerking2(Address.Nota2External)
+		Do Adres.ZetType(..AxToAdminUtils.ConvertLeverAdresType(Address.Role))
+		Do Adres.ZetAxLeveradresId(Address.LocationId)
+		Do Adres.ZetVolmacht(Address.TransporterAuth)
 	}
 	Quit Adres
 ]]></Implementation>
Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r49728 -r49735
--- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49728)
+++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49735)
@@ -23,11 +23,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="LandRepository">
-<Type>DOM.common.Locatie.impl.LandRepository</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="VerkoopApi">
 <Type>DOM.VKP.VerkoopAPI</Type>
 <Private>1</Private>
@@ -39,7 +34,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>LandRepository:DOM.common.Locatie.impl.LandRepository,Logger:vhLib.Logger,LeverAdresFactory:DOM.VKP.impl.LeverAdresFactory,LeveradresRepository:DOM.VKP.impl.LeverAdresRepository,VerkoopApi:DOM.VKP.VerkoopAPI,AdresZetter:AXimpl.Dynamics.CustomerIn.Converter.AdresZetter</FormalSpec>
+<FormalSpec>Logger:vhLib.Logger,LeverAdresFactory:DOM.VKP.impl.LeverAdresFactory,LeveradresRepository:DOM.VKP.impl.LeverAdresRepository,VerkoopApi:DOM.VKP.VerkoopAPI,AdresZetter:AXimpl.Dynamics.CustomerIn.Converter.AdresZetter</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -48,7 +43,6 @@
 	Set ..AxToAdminUtils = ##class(AXimpl.AxToAdminUtils).%New()
 	Set ..AdresZetter = $$$Inject(AdresZetter,##class(AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New())
 	Set ..LeverAdresFactory = $$$Inject(LeverAdresFactory,##class(DOM.VKP.impl.LeverAdresFactory).%New())
-	Set ..LandRepository  = $$$Inject(LandRepository,##class(DOM.common.Locatie.impl.LandRepository).%New())
 	Set ..LeveradresRepository = $$$Inject(LeveradresRepository,##class(DOM.VKP.impl.LeverAdresRepository).%New())
 	Set ..VerkoopApi = $$$Inject(VerkoopApi,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml
===================================================================
diff -u -r49725 -r49735
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 49725)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 49735)
@@ -25,27 +25,29 @@
 
 <Method name="Test: Leveradres bestaat al, inhoud moet veranderen (zelfde AxLocationId)">
 <Implementation><![CDATA[
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds($lb(..#AxLocationId1))
 	#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()
 	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds($lb(..#AxLocationId1))
+	
 	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("BestaatViaAXLeverAdresId",..#AxLocationId1).DanReturn($$$True)
 	Do LeverAdresRepositoryMock.IndienMethodCall("GeefViaAXLeverAdresId",..#AxLocationId1).DanReturn(BestaandAdres)
 	
-	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
-	Do LeverAdresUtils.ZetLeverAdressen(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1)))
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1))
 	
-	Do LeverAdresRepositoryMock.Verifieer()
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,BestaandAdres,$$$False).ExactAantalKeer(1)
 	
-	Do $$$AssertEquals(Adres.GeefAxLeveradresId(),..#AxLocationId1)
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,AdresZetterMock)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
+	
+	Do LeverAdresRepositoryMock.Verifieer()
+	Do AdresZetterMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -61,23 +63,25 @@
 	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",..#AxLocationId1).DanReturn($$$True)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",..#AxLocationId1).DanReturn(BestaandAdres).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$False)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",..#AxLocationId2).ExactAantalKeer(0)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres))
 	
-	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
-	Do LeverAdresUtils.ZetLeverAdressen(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2)))
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2))
 	
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(1)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(2),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(1)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,AdresZetterMock)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
+	
 	Do LeverAdresRepositoryMock.Verifieer()
 	Do Klant.Verifieer()
-	
-	Do $$$AssertEquals(Adres.GeefAxLeveradresId(),..#AxLocationId2)
+	Do AdresZetterMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -92,9 +96,6 @@
 	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",..#AxLocationId1).DanReturn($$$True)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",..#AxLocationId1).DanReturn(BestaandAdres).ExactAantalKeer(1)
@@ -104,10 +105,16 @@
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(0)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId2).ExactAantalKeer(1)
 	
-	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
-	Do LeverAdresUtils.ZetLeverAdressen(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1)))
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1))
 	
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(1)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,AdresZetterMock)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
+	
 	Do LeverAdresRepositoryMock.Verifieer()
+	Do AdresZetterMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -122,9 +129,6 @@
 	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($$$True)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",..#AxLocationId2).DanReturn(BestaandAdres).ExactAantalKeer(1)
@@ -137,10 +141,17 @@
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId2).ExactAantalKeer(0)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId4).ExactAantalKeer(0)
 	
-	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
-	Do LeverAdresUtils.ZetLeverAdressen(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId2,..#AxLocationId4)))
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId2,..#AxLocationId4))
 	
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(1)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(2),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(1)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,AdresZetterMock)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
+	
 	Do LeverAdresRepositoryMock.Verifieer()
+	Do AdresZetterMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -156,18 +167,21 @@
 	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)
-	Do LeverAdresUtils.ZetLeverAdressen(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId2)))
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId2))
 	
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(1)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,AdresZetterMock)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
+	
 	Do LeverAdresRepositoryMock.Verifieer()
 	Do Klant.Verifieer()
+	Do AdresZetterMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -182,18 +196,16 @@
 	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.ZetLeverAdressen(Klant,InkomendeAxCustomer)
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1))
+	Set Cust.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery"
 	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
+	
 	Do LeverAdresRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -203,16 +215,16 @@
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds("")
 	
 	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
-	Set LandRepository = ##class(vhTest.Mock.DOM.common.Locatie.impl.LandRepository).%New()
 	
 	Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(0)
 	
-	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
-	#dim InkomendeAxCustomer As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1))
-	Set InkomendeAxCustomer.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery"
-	Do LeverAdresUtils.ZetLeverAdressen(Klant,InkomendeAxCustomer)
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1))
+	Set Cust.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery"
 	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
+	
 	Do LeverAdresRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -224,25 +236,30 @@
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds("")
 	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",Adres).ExactAantalKeer(2)
 	
+	#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.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.ZetLeverAdressen(Klant,InkomendeAxCustomer)
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3,..#AxLocationId4,..#AxLocationId5))
+	Set Cust.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery"
+	Set Cust.PostalAddress.GetAt(3).Role.GetAt(1).Name = "NotDelivery"
+	Set Cust.PostalAddress.GetAt(5).Role.GetAt(1).Name = "NotDelivery"
 	
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(2),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(1)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(4),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(1)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,AdresZetterMock)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
+	
 	Do LeverAdresFactoryStub.Verifieer()
 	Do Klant.Verifieer()
+	Do AdresZetterMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -258,25 +275,28 @@
 	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($$$True)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",..#AxLocationId2).DanReturn(BestaandAdres).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres)).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId4).DanReturn($$$False)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId5).ExactAantalKeer(1)
 	
-	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))
-	Set InkomendeAxCustomer.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery"
-	Set InkomendeAxCustomer.PostalAddress.GetAt(3).Role.GetAt(1).Name = "NotDelivery"
-	Do LeverAdresUtils.ZetLeverAdressen(Klant,InkomendeAxCustomer)
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3,..#AxLocationId4))
+	Set Cust.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery"
+	Set Cust.PostalAddress.GetAt(3).Role.GetAt(1).Name = "NotDelivery"
 	
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(2),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(1)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(4),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(1)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,AdresZetterMock)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
+	
 	Do LeverAdresRepositoryMock.Verifieer()
 	Do LeverAdresFactoryStub.Verifieer()
 	Do Klant.Verifieer()
+	Do AdresZetterMock.Verifieer()
 ]]></Implementation>
 </Method>