Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml
===================================================================
diff -u -r44359 -r49779
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 44359)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 49779)
@@ -27,13 +27,13 @@
 <Private>1</Private>
 </Property>
 
-<Property name="KlantAdresRepository">
-<Type>DOM.VKP.Klant.impl.KlantAdresRepository</Type>
+<Property name="LeverAdresRepository">
+<Type>DOM.VKP.impl.LeverAdresRepository</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,MogelijkeLeverdatumsBepaler:APPS.common.VKP.MogelijkeLeverdatumsBepaler,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService,KlantAdresRepository:DOM.VKP.Klant.impl.KlantAdresRepository</FormalSpec>
+<FormalSpec>WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,MogelijkeLeverdatumsBepaler:APPS.common.VKP.MogelijkeLeverdatumsBepaler,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService,LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -43,7 +43,7 @@
 	Set ..MogelijkeLeverdatumsBepaler = $$$Inject(MogelijkeLeverdatumsBepaler, ##class(APPS.common.VKP.MogelijkeLeverdatumsBepaler).%New())
 
 	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
-	Set ..KlantAdresRepository = $$$Inject(KlantAdresRepository, ##class(DOM.VKP.Klant.impl.KlantAdresRepository).%New())
+	Set ..LeverAdresRepository = $$$Inject(LeverAdresRepository, ##class(DOM.VKP.impl.LeverAdresRepository).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -84,7 +84,7 @@
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
 	Quit:..IsHoofdLeverAdres(LeverAdres) ""
-	Quit ..KlantAdresRepository.GeefLeverAdres(KlantPartijID, LeverAdres.Id)
+	Quit ..LeverAdresRepository.GeefViaKlantIDEnLeverAdresID(KlantPartijID, LeverAdres.Id)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService/Test.cls.xml
===================================================================
diff -u -r44359 -r49779
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService/Test.cls.xml	(.../Test.cls.xml)	(revision 44359)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService/Test.cls.xml	(.../Test.cls.xml)	(revision 49779)
@@ -79,18 +79,18 @@
 	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest()
 	Set BereidVoorBestellingRequest.LeverAdres.Id = "1"
 
-	Set KlantAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.Klant.KlantAdresRepository).%New()
-	Do KlantAdresRepositoryMock.VerwachtMethodCall("GeefLeverAdres", "PartijID", "1").DanReturn(LeverAdresDummy)
+	Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaKlantIDEnLeverAdresID", "PartijID", "1").DanReturn(LeverAdresDummy)
 	
-	Set VerzendingService = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New(WinkelkarRepositoryMock, MogelijkeLeverdatumsBepalerMock, WinkelkarServiceMock, KlantAdresRepositoryMock)
+	Set VerzendingService = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New(WinkelkarRepositoryMock, MogelijkeLeverdatumsBepalerMock, WinkelkarServiceMock, LeverAdresRepositoryMock)
 	#dim MogelijkeLeverdatumsResult As %ListOfDataTypes = VerzendingService.GeefMogelijkeLeverDatums(BereidVoorBestellingRequest,"PartijID")
 	
 	Do $$$AssertEquals(MogelijkeLeverdatums, MogelijkeLeverdatumsResult)
 	
 	Do WinkelkarRepositoryMock.Verifieer()
 	Do MogelijkeLeverdatumsBepalerMock.Verifieer()
 	Do WinkelkarServiceMock.Verifieer()
-	Do KlantAdresRepositoryMock.Verifieer()
+	Do LeverAdresRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -141,18 +141,18 @@
 	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest()
 	Set BereidVoorBestellingRequest.LeverAdres.Id = "1"
 
-	Set KlantAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.Klant.KlantAdresRepository).%New()
-	Do KlantAdresRepositoryMock.VerwachtMethodCall("GeefLeverAdres", "PartijID", "1").DanReturn(LeverAdresDummy)
+	Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaKlantIDEnLeverAdresID", "PartijID", "1").DanReturn(LeverAdresDummy)
 	
-	Set VerzendingService = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New(WinkelkarRepositoryMock, MogelijkeLeverdatumsBepalerMock, WinkelkarServiceMock, KlantAdresRepositoryMock)
+	Set VerzendingService = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New(WinkelkarRepositoryMock, MogelijkeLeverdatumsBepalerMock, WinkelkarServiceMock, LeverAdresRepositoryMock)
 	#dim IsAsapMogelijk As %Boolean = VerzendingService.GeefIsAsapMogelijk(BereidVoorBestellingRequest,"PartijID")
 	
 	Do $$$AssertTrue(IsAsapMogelijk)
 	
 	Do WinkelkarRepositoryMock.Verifieer()
 	Do MogelijkeLeverdatumsBepalerMock.Verifieer()
 	Do WinkelkarServiceMock.Verifieer()
-	Do KlantAdresRepositoryMock.Verifieer()
+	Do LeverAdresRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/VKP/OrderIngave/impl/AdresUtils/ConverteerNaarLeverAdres/Test.cls.xml
===================================================================
diff -u -r44106 -r49779
--- vhUnitTest/APPS/VKP/OrderIngave/impl/AdresUtils/ConverteerNaarLeverAdres/Test.cls.xml	(.../Test.cls.xml)	(revision 44106)
+++ vhUnitTest/APPS/VKP/OrderIngave/impl/AdresUtils/ConverteerNaarLeverAdres/Test.cls.xml	(.../Test.cls.xml)	(revision 49779)
@@ -63,13 +63,13 @@
 
 <Method name="TestBestaandLeverAdresWordtOpgehaald">
 <Implementation><![CDATA[
-	#Dim KlantAdresRepositoryMock As vhTest.Mock.DOM.VKP.Klant.KlantAdresRepository = ##class(vhTest.Mock.DOM.VKP.Klant.KlantAdresRepository).%New()
-	#Dim AdresUtils As APPS.VKP.OrderIngave.impl.AdresUtils = ##class(APPS.VKP.OrderIngave.impl.AdresUtils).%New(KlantAdresRepositoryMock)
+	#Dim LeverAdresRepositoryMock As vhTest.Mock.DOM.VKP.impl.LeverAdresRepository = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
+	#Dim AdresUtils As APPS.VKP.OrderIngave.impl.AdresUtils = ##class(APPS.VKP.OrderIngave.impl.AdresUtils).%New(LeverAdresRepositoryMock)
 	#Dim ReturnAdres As DOM.VKP.LeverAdres = ##class(vhTest.Dummy.DOM.VKP.LeverAdres).%New()
 	#Dim Adres As DOM.common.impl.VH.Adres = ##class(DOM.common.impl.VH.Adres).%New()
 
 	Do Adres.ZetLeverAdresID(..#DummyLeverAdresID)
-	Do KlantAdresRepositoryMock.VerwachtMethodCall("GeefLeverAdres", ..#DummyKlantID, ..#DummyLeverAdresID).ExactAantalKeer(1).DanReturn(ReturnAdres)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaKlantIDEnLeverAdresID", ..#DummyKlantID, ..#DummyLeverAdresID).ExactAantalKeer(1).DanReturn(ReturnAdres)
 
 	#Dim LeverAdres As DOM.VKP.LeverAdres = AdresUtils.ConverteerNaarLeverAdres(..#DummyKlantID, Adres)
 
@@ -84,7 +84,7 @@
 
 	Do ..AssertLeverAdres(LeverAdres)
 	
-	Do KlantAdresRepositoryMock.Verifieer()
+	Do LeverAdresRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/VKP/Klant/impl/KlantAdresRepository/GeefLeverAdres/Test.cls.xml
===================================================================
diff -u -r44927 -r49779
--- vhUnitTest/DOM/VKP/Klant/impl/KlantAdresRepository/GeefLeverAdres/Test.cls.xml	(.../Test.cls.xml)	(revision 44927)
+++ vhUnitTest/DOM/VKP/Klant/impl/KlantAdresRepository/GeefLeverAdres/Test.cls.xml	(.../Test.cls.xml)	(revision 49779)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.DOM.VKP.Klant.impl.KlantAdresRepository.GeefLeverAdres.Test">
 <Super>vhUnitTest.TestCase,vhTest.DOM.VKP.Klant.Base</Super>
 
-<Method name="Test: KlantAdresRepository geeft LeverAdres op basis van KlantId en LeverAdresId">
+<Method name="Test: LeverAdresRepository geeft LeverAdres op basis van KlantId en LeverAdresId">
 <Implementation><![CDATA[
 	#dim RandomKlantId As %String = "RandomKlantId"
 	
@@ -23,8 +23,8 @@
 	#dim VerkoopApiMock As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
 	Do VerkoopApiMock.VerwachtMethodCall("GeefKlant", RandomKlantId).DanReturn(KlantMock)
 	
-	#dim KlantAdresRepository As DOM.VKP.Klant.KlantAdresRepository = ##class(DOM.VKP.Klant.impl.KlantAdresRepository).%New(VerkoopApiMock)
-	#dim LeverAdres As DOM.VKP.LeverAdres = KlantAdresRepository.GeefLeverAdres(RandomKlantId, LeverAdresId1)
+	#dim LeverAdresRepository As DOM.VKP.impl.LeverAdresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New(,,,VerkoopApiMock)
+	#dim LeverAdres As DOM.VKP.LeverAdres = LeverAdresRepository.GeefViaKlantIDEnLeverAdresID(RandomKlantId, LeverAdresId1)
 	
 	Do $$$AssertEquals(LeverAdres, LeverAdresDummy1)
 	
@@ -33,7 +33,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: KlantAdresRepository raised Exceptie indien geen LeverAdres gevonden voor een LeverAdresId">
+<Method name="Test: LeverAdresRepository raised Exceptie indien geen LeverAdres gevonden voor een LeverAdresId">
 <Implementation><![CDATA[
 	#dim RandomKlantId As %String = "RandomKlantId"
 	#dim OnbestaandeLeverAdresId As %String = "OnbestaandeLeverAdresId"
@@ -44,12 +44,12 @@
 	#dim VerkoopApiStub As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
 	Do VerkoopApiStub.IndienMethodCall("GeefKlant", RandomKlantId).DanReturn(KlantStub)
 	
-	#dim KlantAdresRepository As DOM.VKP.Klant.KlantAdresRepository = ##class(DOM.VKP.Klant.impl.KlantAdresRepository).%New(VerkoopApiStub)
+	#dim LeverAdresRepository As DOM.VKP.impl.LeverAdresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New(,,,VerkoopApiStub)
 	
 	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LeverAdres", OnbestaandeLeverAdresId, "bestaat niet voor klant", RandomKlantId)
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
 	
-	#dim LeverAdres As DOM.VKP.LeverAdres = KlantAdresRepository.GeefLeverAdres(RandomKlantId, "OnbestaandeLeverAdresId")
+	#dim LeverAdres As DOM.VKP.LeverAdres = LeverAdresRepository.GeefViaKlantIDEnLeverAdresID(RandomKlantId, "OnbestaandeLeverAdresId")
 ]]></Implementation>
 </Method>
 
Index: vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49774 -r49779
--- vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49774)
+++ vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49779)
@@ -42,6 +42,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefViaKlantIDEnLeverAdresID">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,LeverAdresID:%String</FormalSpec>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaKlantIDEnLeverAdresID",KlantID,LeverAdresID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefViaKlantIdEnKlantAdresNr">
 <FormalSpec>KlantId:%String,KlantAdresNr:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
Index: vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49774 -r49779
--- vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49774)
+++ vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49779)
@@ -21,6 +21,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefViaKlantIDEnLeverAdresID">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,LeverAdresID:%String</FormalSpec>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="Bewaar">
 <Implementation><![CDATA[]]></Implementation>
 </Method>
Index: APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml
===================================================================
diff -u -r49637 -r49779
--- APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 49637)
+++ APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 49779)
@@ -3,8 +3,8 @@
 <Class name="APPS.VKP.OrderIngave.impl.AdresUtils">
 <Super>TECH.Mockable</Super>
 
-<Property name="KlantAdresRepository">
-<Type>DOM.VKP.Klant.impl.KlantAdresRepository</Type>
+<Property name="LeverAdresRepository">
+<Type>DOM.VKP.impl.LeverAdresRepository</Type>
 <Private>1</Private>
 </Property>
 
@@ -14,10 +14,10 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>KlantAdresRepository:DOM.VKP.Klant.impl.KlantAdresRepository,VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
+<FormalSpec>LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository,VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..KlantAdresRepository = $$$Inject(KlantAdresRepository ,##class(DOM.VKP.Klant.impl.KlantAdresRepository).%New())
+	Set ..LeverAdresRepository = $$$Inject(LeverAdresRepository ,##class(DOM.VKP.impl.LeverAdresRepository).%New())
 	Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	
 	Quit $$$OK
@@ -50,7 +50,7 @@
 		Do LeverAdres.ZetVerzendingWijze(Klant.GeefVerzendingWijze())
 		Do LeverAdres.ZetID("")
 	} Else {	
-		Set LeverAdres = ..KlantAdresRepository.GeefLeverAdres(KlantID, Adres.GeefLeverAdresID())	
+		Set LeverAdres = ..LeverAdresRepository.GeefViaKlantIDEnLeverAdresID(KlantID, Adres.GeefLeverAdresID())	
 	}
 	
 	Quit LeverAdres
Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49774 -r49779
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49774)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49779)
@@ -13,13 +13,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="QueryAPI">
 <Type>TECH.Query.QueryAPI</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>QueryAPI:TECH.Query.QueryAPI,LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI,PartijApi:DOM.PARTIJ.PartijAPI</FormalSpec>
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI,LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI,PartijApi:DOM.PARTIJ.PartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -28,6 +33,7 @@
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
 	Set ..LegacyPartijApi = $$$Inject(LegacyPartijApi,##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
 	Set ..PartijApi = $$$Inject(PartijApi,##class(DOM.DomeinContext).Instance().GeefPartijAPI())
+	Set ..VerkoopAPI = $$$Implementation(VerkoopAPI, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -194,6 +200,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefViaKlantIDEnLeverAdresID">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,LeverAdresID:%String</FormalSpec>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	Quit:+LeverAdresID>1000 ..GeefViaAXLeverAdresId(LeverAdresID)
+	
+	#Dim Klant As DOM.VKP.Klant = ..VerkoopAPI.GeefKlant(KlantID)	
+	#Dim LeverAdres As DOM.VKP.LeverAdres = ""
+	#Dim Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Klant.GeefLeverAdressen())
+	
+	While (Iterator.HasNext() && ($$$Not($IsObject(LeverAdres)))) {
+		#Dim Adres As DOM.VKP.LeverAdres = Iterator.Next()
+		
+		If (Adres.GeefID() = LeverAdresID) {
+			Set LeverAdres = Adres	
+		}
+	}
+	
+	If ($$$Not($IsObject(LeverAdres))) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("LeverAdres '" _ LeverAdresID _ "' bestaat niet voor klant '" _ KlantID _ "'"))
+	}
+	
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantIndexKKL">
 <FormalSpec>KlantNummer:%String</FormalSpec>
 <Private>1</Private>