Index: vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49779 -r49907
--- vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49779)
+++ vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49907)
@@ -28,10 +28,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefViaAXLeverAdresId">
-<FormalSpec>AXLeverAdresId:%String</FormalSpec>
+<Method name="GeefViaAXLeverAdresIdEnKlantNummer">
+<FormalSpec>AXLeverAdresId:%String,KlantNummer:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaAXLeverAdresId",AXLeverAdresId)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",AXLeverAdresId,KlantNummer)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml
===================================================================
diff -u -r49736 -r49907
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 49736)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 49907)
@@ -23,6 +23,10 @@
 <Default>0000567890</Default>
 </Parameter>
 
+<Parameter name="KlantNummer">
+<Default>1234</Default>
+</Parameter>
+
 <Method name="Test: Leveradres bestaat al, inhoud moet veranderen (zelfde AxLocationId)">
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
@@ -36,7 +40,7 @@
 	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)
+	Do LeverAdresRepositoryMock.IndienMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn(BestaandAdres)
 	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1))
 	
@@ -65,9 +69,9 @@
 	
 	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.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$False)
-	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",..#AxLocationId2).ExactAantalKeer(0)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).ExactAantalKeer(0)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres))
 	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2))
@@ -98,9 +102,9 @@
 	
 	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.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$True)
-	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",..#AxLocationId2).ExactAantalKeer(0)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).ExactAantalKeer(0)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres))
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(0)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId2).ExactAantalKeer(1)
@@ -131,9 +135,9 @@
 	
 	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("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId4).DanReturn($$$True)
-	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",..#AxLocationId4).DanReturn(BestaandAdres).ExactAantalKeer(1)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId4,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres))
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId3).ExactAantalKeer(1)
@@ -277,7 +281,7 @@
 	
 	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("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).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)
Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml
===================================================================
diff -u -r49735 -r49907
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 49735)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 49907)
@@ -23,6 +23,10 @@
 <Default>0000567890</Default>
 </Parameter>
 
+<Parameter name="KlantNummer">
+<Default>1234</Default>
+</Parameter>
+
 <Method name="Test: Leveradres bestaat al, inhoud moet veranderen (zelfde AxLocationId)">
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
@@ -36,7 +40,7 @@
 	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)
+	Do LeverAdresRepositoryMock.IndienMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn(BestaandAdres)
 	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1))
 	
@@ -65,9 +69,9 @@
 	
 	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.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$False)
-	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",..#AxLocationId2).ExactAantalKeer(0)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).ExactAantalKeer(0)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres))
 	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2))
@@ -98,9 +102,9 @@
 	
 	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.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$True)
-	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",..#AxLocationId2).ExactAantalKeer(0)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).ExactAantalKeer(0)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres))
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(0)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId2).ExactAantalKeer(1)
@@ -131,9 +135,9 @@
 	
 	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("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId4).DanReturn($$$True)
-	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",..#AxLocationId4).DanReturn(BestaandAdres).ExactAantalKeer(1)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId4,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres))
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(1)
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId3).ExactAantalKeer(1)
@@ -277,7 +281,7 @@
 	
 	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("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer ).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)
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml
===================================================================
diff -u -r49897 -r49907
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 49897)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 49907)
@@ -172,7 +172,7 @@
 	} Else {
 		If ..LeverAdresRepository.BestaatViaAXLeverAdresId(BestelWinkelkarRequest.LeverAdres.Id) {
 			Set Hoofding.LeveringDetail.Adres = ##class(APPS.TRANSP.dto.LeveringAdres).%New()
-			#dim AxLeverAdres As DOM.VKP.impl.LeverAdres = ..LeverAdresRepository.GeefViaAXLeverAdresId(BestelWinkelkarRequest.LeverAdres.Id)
+			#dim AxLeverAdres As DOM.VKP.impl.LeverAdres = ..LeverAdresRepository.GeefViaAXLeverAdresIdEnKlantNummer(BestelWinkelkarRequest.LeverAdres.Id, BestelWinkelkarRequest.Winkelkar.KlantId)
 			Set Hoofding.LeveringDetail.Adres.Aanspreking =  AxLeverAdres.Aanspreking
 			Set Hoofding.LeveringDetail.Adres.Naam = AxLeverAdres.Naam 
 			Set Hoofding.LeveringDetail.Adres.Toenaam = AxLeverAdres.Toenaam 
Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml
===================================================================
diff -u -r49046 -r49907
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml	(.../LeverAdresMaker.cls.xml)	(revision 49046)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml	(.../LeverAdresMaker.cls.xml)	(revision 49907)
@@ -59,7 +59,7 @@
 		
 	If ($$$HasLength(OrderHeader.LocationId) && (..ProjectSettingsApi.IsActiefAxLeverancierId())){
 		If ..LeverAdresRepository.BestaatViaAXLeverAdresId(OrderHeader.LocationId) {
-			Set LeverAdres = ..LeverAdresRepository.GeefViaAXLeverAdresId(OrderHeader.LocationId)
+			Set LeverAdres = ..LeverAdresRepository.GeefViaAXLeverAdresIdEnKlantNummer(OrderHeader.LocationId, OrderHeader.CustAccount)
 		} Else {
 			Do ..LogAdresNietGevonden(OrderHeader)
 		}
Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml
===================================================================
diff -u -r49046 -r49907
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml	(.../Test.cls.xml)	(revision 49046)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml	(.../Test.cls.xml)	(revision 49907)
@@ -65,7 +65,7 @@
 	
 	#dim StandaardAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
 	Do StandaardAdres.ZetTelefoon("+123456789")
-	Do LeverAdresRepositoryStub.IndienMethodCall("GeefViaAXLeverAdresId",..#AXLeverAdresId).DanReturn(StandaardAdres)
+	Do LeverAdresRepositoryStub.IndienMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AXLeverAdresId,StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1).CustAccount).DanReturn(StandaardAdres)
 	
 	
 	Set LeverAdresMaker = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker).%New(ProjectSettingsApiStub,LeverAdresRepositoryStub)
Index: vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49779 -r49907
--- vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49779)
+++ vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49907)
@@ -21,6 +21,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefViaAXLeverAdresIdEnKlantNummer">
+<FormalSpec>AXLeverAdresId:%String,KlantNummer:%String</FormalSpec>
+<ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefViaKlantIDEnLeverAdresID">
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,LeverAdresID:%String</FormalSpec>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49779 -r49907
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49779)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49907)
@@ -171,25 +171,37 @@
 <FormalSpec>AXLeverAdresId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(127).String("axleveradresid = "_AXLeverAdresId)
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
 	#dim Query As %String = "SELECT count(ID) from Derde_Klant.LevAdres where AxLeveradresId = ?"
 	#dim Params As %List = $ListBuild(AXLeverAdresId)
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, Params)
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 	
 	Do ResultSet.Next()
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 	Quit ResultSet.GetData(1)>0
 ]]></Implementation>
 </Method>
 
-<Method name="GeefViaAXLeverAdresId">
-<FormalSpec>AXLeverAdresId:%String</FormalSpec>
+<Method name="GeefViaAXLeverAdresIdEnKlantNummer">
+<FormalSpec>AXLeverAdresId:%String,KlantNummer:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
 <Implementation><![CDATA[
-	#dim Query As %String = "SELECT ID from Derde_Klant.LevAdres where AxLeveradresId = ?"
-	#dim Params As %List = $ListBuild(AXLeverAdresId)
+	Do ##class(Tools.Wlip).%New(127).String("axleveradresid = "_AXLeverAdresId)
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
+	#dim Query As %String = "SELECT ID from Derde_Klant.LevAdres where Klant = ? and AxLeveradresId = ?"
+	#dim Params As %List = $ListBuild(KlantNummer, AXLeverAdresId)
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, Params)
 	#dim LeverAdres As DOM.VKP.impl.LeverAdres
 	
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 	Do ResultSet.Next()
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 	Try {
 		Set LeverAdres = ..GeefViaKlantIdEnKlantAdresNr("K||"_$p(ResultSet.GetData(1),"||",1),##class(TECH.StringUtils).StripAllExceptNumeric($p(ResultSet.GetData(1),"||",2)))
 	} Catch {
@@ -204,7 +216,7 @@
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,LeverAdresID:%String</FormalSpec>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
-	Quit:+LeverAdresID>1000 ..GeefViaAXLeverAdresId(LeverAdresID)
+	Quit:+LeverAdresID>1000 ..GeefViaAXLeverAdresIdEnKlantNummer(LeverAdresID)
 	
 	#Dim Klant As DOM.VKP.Klant = ..VerkoopAPI.GeefKlant(KlantID)	
 	#Dim LeverAdres As DOM.VKP.LeverAdres = ""
Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r49735 -r49907
--- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49735)
+++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49907)
@@ -8,8 +8,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="AxToAdminUtils">
-<Type>AXimpl.AxToAdminUtils</Type>
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
 <Private>1</Private>
 </Property>
 
@@ -40,7 +40,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..AxToAdminUtils = ##class(AXimpl.AxToAdminUtils).%New()
+	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())
@@ -69,27 +69,56 @@
 <Method name="ZetLeverAdressen">
 <FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
 <Implementation><![CDATA[
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
 	#dim LijstVanAxLocationIds As %ListOfDataTypes = ..GeefAxLocationIdsVanKlant(Klant)
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 
 	Set PostalAddressIterator = ##class(TECH.ListIterator).%New(Cust.PostalAddress)
 	While PostalAddressIterator.HasNext() {
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" while ")
 		#dim Address As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress = PostalAddressIterator.Next()
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" A ")
 		If ..RolesContains(Address.Role ,"Delivery" ) {
 			#dim Adres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres()
-			#dim BestaandLeverAdres As DOM.VKP.LeverAdres = $$$If(..LeveradresRepository.BestaatViaAXLeverAdresId(Address.LocationId),..LeveradresRepository.GeefViaAXLeverAdresId(Address.LocationId),Adres)
+	
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" B ")
+	
+			#dim BestaandLeverAdres As DOM.VKP.LeverAdres = $$$If(..LeveradresRepository.BestaatViaAXLeverAdresId(Address.LocationId),..LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer(Address.LocationId, ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klant.GeefID())),Adres)
+	
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" C ")
+	
 			Do ..AdresZetter.ZetAdres(Adres, Address, Cust, BestaandLeverAdres, $$$False)
+	
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" D ")
+	
 			If $$$Not(..LeveradresRepository.BestaatViaAXLeverAdresId(Address.LocationId)) {
+	
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" E ")
+	
 				Do Klant.VoegToeLeverAdres(Adres)
+	
 			} Else {
+	
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" F ")
+	
 				Do ..LeveradresRepository.Bewaar(Klant, Adres)
+	
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" G ")
+	
 				Do ##class(TECH.ListUtils).RemoveItemFromList(Address.LocationId,LijstVanAxLocationIds)
+	
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" H ")
+	
 			}
 		}
 	}
 	Set LijstVanAxLocationIdsIterator = ##class(TECH.ListIterator).%New(LijstVanAxLocationIds)
 	While LijstVanAxLocationIdsIterator.HasNext() {
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 		Do ..LeveradresRepository.VerwijderViaAXLeverAdresId(LijstVanAxLocationIdsIterator.Next())
 	}
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml
===================================================================
diff -u -r49898 -r49907
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 49898)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 49907)
@@ -192,6 +192,7 @@
 	Do ..WinkelkarRepositoryMock.IndienMethodCall("GeefOfferteIDViaID", "WinkelkarExterneId").DanReturn("InterneId")
 
 	#dim AxLeverAdresId As %String = "1001"
+	#dim KlantNummer As %String = "1000"
 	
 	#dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofdingMetVolmachtEnOpmerkingen()
 	#dim TeConverterenLeverAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
@@ -206,12 +207,13 @@
 	
 	Set LeverAdresRepositoryMock =  ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
 	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",AxLeverAdresId).DanReturn($$$True)
-	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",AxLeverAdresId).DanReturn(TeConverterenLeverAdres)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",AxLeverAdresId,KlantNummer).DanReturn(TeConverterenLeverAdres)
 	
 	#dim Service As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock, ,..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock, LeverAdresRepositoryMock)
 
 	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
 	Set BestelWinkelkarRequest.Winkelkar.Id = "WinkelkarExterneId"
+	Set BestelWinkelkarRequest.Winkelkar.KlantId = KlantNummer
 	Set BestelWinkelkarRequest.LeverAdres.Id = AxLeverAdresId
 	
 	Do Service.BestelWinkelkar(BestelWinkelkarRequest)
Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaAxLeveradresId.cls.xml
===================================================================
diff -u -r49367 -r49907
--- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaAxLeveradresId.cls.xml	(.../GeefViaAxLeveradresId.cls.xml)	(revision 49367)
+++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaAxLeveradresId.cls.xml	(.../GeefViaAxLeveradresId.cls.xml)	(revision 49907)
@@ -40,7 +40,7 @@
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
 	
 	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
-	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaAXLeverAdresId("AXID1234")
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer("AXID1234",..#TestKlantnummer)
 ]]></Implementation>
 </Method>
 
@@ -56,7 +56,7 @@
 	Do ..VoegToeLeveradres("1")
 	
 	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
-	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaAXLeverAdresId("AXID12341")
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer("AXID12341",..#TestKlantnummer)
 	
 	Do $$$AssertTrue(LeveradresRepository.BestaatViaAXLeverAdresId("AXID12341"),"")
 	
@@ -83,7 +83,7 @@
 	Do $$$AssertTrue(LeveradresRepository.BestaatViaAXLeverAdresId("AXID12342"),"")
 	Do $$$AssertFalse(LeveradresRepository.BestaatViaAXLeverAdresId("AXID12343"),"")
 	
-	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaAXLeverAdresId("AXID12342")
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer("AXID12342",..#TestKlantnummer)
 	
 	Do $$$AssertEquals(LeverAdres.GeefUniekId(),"84692")
 	Do $$$AssertEquals(LeverAdres.Straat,"TRADEBOULEVARD 5 A")