Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml
===================================================================
diff -u -r48497 -r49023
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 48497)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 49023)
@@ -33,8 +33,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LeverAdresRepository">
+<Type>DOM.VKP.impl.LeverAdresRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService="",WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",TransportService:APPS.EC.Transport.Service="",CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler="",WinkelkarServiceHelper:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper=""</FormalSpec>
+<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService="",WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",TransportService:APPS.EC.Transport.Service="",CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler="",WinkelkarServiceHelper:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper="",LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -45,6 +50,7 @@
 	Set ..TransportService = $$$Inject(TransportService, ##class(APPS.EC.Transport.Service).%New())
 	Set ..CheckoutTypeBepaler = $$$Inject(CheckoutTypeBepaler, ##class(APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New())
 	Set ..WinkelkarServiceHelper = $$$Inject(WinkelkarServiceHelper, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New())
+	Set ..LeverAdresRepository = $$$Inject(LeverAdresRepository, ##class(DOM.VKP.impl.LeverAdresRepository).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -98,16 +104,31 @@
 		Set Hoofding.LeveringDetail.WensDatum = BestelWinkelkarRequest.WensLeverDatum
 	}
 	Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.dto.Adres).%New()
-	Set Hoofding.LeveringDetail.Adres.ID = BestelWinkelkarRequest.LeverAdres.Id
-	Set Hoofding.LeveringDetail.Adres.Aanspreking =  BestelWinkelkarRequest.LeverAdres.Aanspreking
-	Set Hoofding.LeveringDetail.Adres.Naam = BestelWinkelkarRequest.LeverAdres.Naam 
-	Set Hoofding.LeveringDetail.Adres.Toenaam = BestelWinkelkarRequest.LeverAdres.Toenaam 
-	Set Hoofding.LeveringDetail.Adres.LandCode = BestelWinkelkarRequest.LeverAdres.Land 
-	Set Hoofding.LeveringDetail.Adres.Woonplaats = BestelWinkelkarRequest.LeverAdres.Woonplaats 
-	Set Hoofding.LeveringDetail.Adres.Postcode = BestelWinkelkarRequest.LeverAdres.PostCode  
-	Set Hoofding.LeveringDetail.Adres.Straat = BestelWinkelkarRequest.LeverAdres.StraatNrBus
-	Set Hoofding.LeveringDetail.Adres.Taal = BestelWinkelkarRequest.LeverAdres.Taal
 	
+	If (BestelWinkelkarRequest.LeverAdres.Id < 1000) {
+		Set Hoofding.LeveringDetail.Adres.ID = BestelWinkelkarRequest.LeverAdres.Id
+		Set Hoofding.LeveringDetail.Adres.Aanspreking =  BestelWinkelkarRequest.LeverAdres.Aanspreking
+		Set Hoofding.LeveringDetail.Adres.Naam = BestelWinkelkarRequest.LeverAdres.Naam 
+		Set Hoofding.LeveringDetail.Adres.Toenaam = BestelWinkelkarRequest.LeverAdres.Toenaam 
+		Set Hoofding.LeveringDetail.Adres.LandCode = BestelWinkelkarRequest.LeverAdres.Land 
+		Set Hoofding.LeveringDetail.Adres.Woonplaats = BestelWinkelkarRequest.LeverAdres.Woonplaats 
+		Set Hoofding.LeveringDetail.Adres.Postcode = BestelWinkelkarRequest.LeverAdres.PostCode  
+		Set Hoofding.LeveringDetail.Adres.Straat = BestelWinkelkarRequest.LeverAdres.StraatNrBus
+		Set Hoofding.LeveringDetail.Adres.Taal = BestelWinkelkarRequest.LeverAdres.Taal
+	} Else {
+		If ..LeverAdresRepository.BestaatViaAXLeverAdresId(BestelWinkelkarRequest.LeverAdres.Id) {
+			#dim LeverAdresViaAXid As DOM.VKP.impl.LeverAdres = ..LeverAdresRepository.GeefViaAXLeverAdresId(BestelWinkelkarRequest.LeverAdres.Id)
+			Set Hoofding.LeveringDetail.Adres.Aanspreking =  LeverAdresViaAXid.Aanspreking
+			Set Hoofding.LeveringDetail.Adres.Naam = LeverAdresViaAXid.Naam 
+			Set Hoofding.LeveringDetail.Adres.Toenaam = LeverAdresViaAXid.Toenaam 
+			Set Hoofding.LeveringDetail.Adres.LandCode = ##class(DOM.common.Locatie.impl.LandRepository).%New().GeefViaID(LeverAdresViaAXid.LandNr).GeefCode()
+			Set Hoofding.LeveringDetail.Adres.Woonplaats = LeverAdresViaAXid.Gemeente
+			Set Hoofding.LeveringDetail.Adres.Postcode = LeverAdresViaAXid.Postcode
+			Set Hoofding.LeveringDetail.Adres.Straat = LeverAdresViaAXid.Straat
+			Set Hoofding.LeveringDetail.Adres.Taal = LeverAdresViaAXid.Taal
+		}
+	}
+	
 	Set Hoofding.Referentie = ##class(APPS.VKP.dto.DocumentReferenties).%New()
 	Set Hoofding.Referentie.OrderReferentie = BestelWinkelkarRequest.Winkelkar.Referentie
 	Set Hoofding.Referentie.KlantOrderNummer = ""   
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml
===================================================================
diff -u -r48497 -r49023
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 48497)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 49023)
@@ -176,6 +176,41 @@
 	Do ..WinkelkarServiceHelperMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Bestelwinkelkar kan data ophalen via de AxLeverAdresIDs indien nodig">
+<Implementation><![CDATA[
+	Do ..VerkoopServiceMock.IndienMethodCall("BestelOfferte", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetTotaalBedragWebshop", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do ..CheckoutTypeBepalerMock.IndienMethodCall("Bepaal", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).Standaard())
+	Do ..WinkelkarServiceHelperMock.IndienMethodCall("GeefKlantPartijID",$$$ElkeWaarde, $$$ElkeWaarde).DanReturn("KlantId")
+	Do ..WinkelkarRepositoryMock.IndienMethodCall("GeefOfferteIDViaID", "WinkelkarExterneId").DanReturn("InterneId")
+
+	#dim AxLeverAdresId As %String = "1001"
+	
+	#dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofding()
+	
+	#dim TeConverterenLeverAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
+	Do TeConverterenLeverAdres.ZetID(AxLeverAdresId)
+	Do TeConverterenLeverAdres.ZetTaal("N")
+	Do TeConverterenLeverAdres.ZetAanspreking("Dhr")
+	
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding", "InterneId", ..Matches.DataTransferObject(VerwachteHoofding)).DanDoeNiks()
+	
+	Set LeverAdresRepositoryMock =  ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",AxLeverAdresId).DanReturn($$$True)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",AxLeverAdresId).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.LeverAdres.Id = AxLeverAdresId
+	
+	Do Service.BestelWinkelkar(BestelWinkelkarRequest)
+	
+	Do LeverAdresRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>