Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r53247 -r53256
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 53247)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 53256)
@@ -271,19 +271,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRecentsteUniekIdVolgensAxLeveradresId">
-<FormalSpec>AXLeverAdresId:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim Query As %String = "SELECT max(UniekId) from Derde_Klant.LevAdres where AxLeveradresId = ?"
-	#dim Params As %List = $ListBuild(AXLeverAdresId)
-	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, Params)
-	
-	Do ResultSet.Next()
-	Quit ResultSet.GetData(1)
-]]></Implementation>
-</Method>
-
 <Method name="GeefKlantIndexKKL">
 <FormalSpec>KlantNummer:%String</FormalSpec>
 <Private>1</Private>
Index: vhTest/Fake/DOM/VKP/impl/LeverAdresService.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/VKP/impl/LeverAdresService.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/VKP/impl/LeverAdresService.cls.xml	(revision 53256)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.VKP.impl.LeverAdresService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.VKP.impl.LeverAdresService</Super>
+
+<Method name="GeefRecentsteUniekIdVolgensAxLeveradresId">
+<FormalSpec>AXLeverAdresId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/VKP/impl/LeverAdresService.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/VKP/impl/LeverAdresService.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/VKP/impl/LeverAdresService.cls.xml	(revision 53256)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.VKP.impl.LeverAdresService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.VKP.impl.LeverAdresService,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefRecentsteUniekIdVolgensAxLeveradresId">
+<FormalSpec>AXLeverAdresId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRecentsteUniekIdVolgensAxLeveradresId",AXLeverAdresId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r53248 -r53256
--- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 53248)
+++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 53256)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LeverAdresService">
+<Type>DOM.VKP.impl.LeverAdresService</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="VerkoopApi">
 <Type>DOM.VKP.VerkoopAPI</Type>
 <Private>1</Private>
@@ -34,18 +39,19 @@
 </Property>
 
 <Method name="%OnNew">
-<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>
+<FormalSpec>Logger:vhLib.Logger,LeverAdresFactory:DOM.VKP.impl.LeverAdresFactory,LeveradresRepository:DOM.VKP.impl.LeverAdresRepository,VerkoopApi:DOM.VKP.VerkoopAPI,AdresZetter:AXimpl.Dynamics.CustomerIn.Converter.AdresZetter,LeverAdresService:DOM.VKP.impl.LeverAdresService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
-	Set ..AdresZetter = $$$Inject(AdresZetter,##class(AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New())
-	Set ..LeverAdresFactory = $$$Inject(LeverAdresFactory,##class(DOM.VKP.impl.LeverAdresFactory).%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())
+	Set ..AdresZetter = $$$Inject(AdresZetter, ##class(AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New())
+	Set ..LeverAdresFactory = $$$Inject(LeverAdresFactory, ##class(DOM.VKP.impl.LeverAdresFactory).%New())
+	Set ..LeveradresRepository = $$$Inject(LeveradresRepository, ##class(DOM.VKP.impl.LeverAdresRepository).%New())
+	Set ..LeverAdresService = $$$Inject(LeverAdresService, ##class(DOM.VKP.impl.LeverAdresService).%New())
+	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -100,7 +106,7 @@
 		#dim AXLeverAdresId As %String = LijstVanAxLocationIdsIterator.Next()
 		If $$$HasLength(AXLeverAdresId) {
 			If (..LeveradresRepository.BestaatAXLeverAdresIdMeermaalsViaAXLeverAdresIdEnKlantNummer(AXLeverAdresId, KlantNummer)) {
-				Set UniekId = ..LeveradresRepository.GeefRecentsteUniekIdVolgensAxLeveradresId(AXLeverAdresId)
+				Set UniekId = ..LeverAdresService.GeefRecentsteUniekIdVolgensAxLeveradresId(AXLeverAdresId)
 				Do ..LeveradresRepository.VerwijderViaID(UniekId)
 			} Else {
 				Do ..LeveradresRepository.VerwijderViaAXLeverAdresId(AXLeverAdresId)
Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml
===================================================================
diff -u -r53250 -r53256
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53250)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53256)
@@ -330,12 +330,14 @@
 	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
 	Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres)
 	
+	Set LeverAdresServiceMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresService).%New()
+	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("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)
-	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefRecentsteUniekIdVolgensAxLeveradresId",..#AxLocationId1).ExactAantalKeer(1).DanReturn(..#UniekId2)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(0)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaID",..#UniekId2).ExactAantalKeer(1)
 	
@@ -344,9 +346,10 @@
 	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)
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,AdresZetterMock,LeverAdresServiceMock)
 	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
 	
+	Do LeverAdresServiceMock.Verifieer()
 	Do LeverAdresRepositoryMock.Verifieer()
 	Do AdresZetterMock.Verifieer()
 ]]></Implementation>
Index: vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r53247 -r53256
--- vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 53247)
+++ vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 53256)
@@ -35,13 +35,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRecentsteUniekIdVolgensAxLeveradresId">
-<FormalSpec>AXLeverAdresId:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRecentsteUniekIdVolgensAxLeveradresId",AXLeverAdresId)
-]]></Implementation>
-</Method>
-
 <Method name="GeefViaAXLeverAdresIdEnKlantNummer">
 <FormalSpec>AXLeverAdresId:%String,KlantNummer:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
Index: DOM/VKP/impl/LeverAdresService.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/LeverAdresService.cls.xml	(revision 0)
+++ DOM/VKP/impl/LeverAdresService.cls.xml	(revision 53256)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.LeverAdresService">
+<Super>TECH.RegisteredObject,TECH.Mockable</Super>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..QueryAPI = $$$Inject(QueryAPI, ##class(TECH.Query.impl.QueryAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefRecentsteUniekIdVolgensAxLeveradresId">
+<FormalSpec>AXLeverAdresId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Query As %String = "SELECT max(UniekId) from Derde_Klant.LevAdres where AxLeveradresId = ?"
+	#dim Params As %List = $ListBuild(AXLeverAdresId)
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, Params)
+	
+	Do ResultSet.Next()
+	Quit ResultSet.GetData(1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
+</Export>
Index: vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r53247 -r53256
--- vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 53247)
+++ vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 53256)
@@ -28,13 +28,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRecentsteUniekIdVolgensAxLeveradresId">
-<FormalSpec>AXLeverAdresId:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ""
-]]></Implementation>
-</Method>
-
 <Method name="VerwijderLeverAdressenZonderAxLeveradresIdVanKlant">
 <FormalSpec>KlantID:%String</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>