Index: APPS/EDI/Bestel/BestelService/PlaatsBestelling/Aankoper.cls.xml
===================================================================
diff -u -r32161 -r38540
--- APPS/EDI/Bestel/BestelService/PlaatsBestelling/Aankoper.cls.xml	(.../Aankoper.cls.xml)	(revision 32161)
+++ APPS/EDI/Bestel/BestelService/PlaatsBestelling/Aankoper.cls.xml	(.../Aankoper.cls.xml)	(revision 38540)
@@ -34,6 +34,39 @@
 <Property name="LeveringLand">
 <Type>TECH.String</Type>
 </Property>
+
+<Property name="LeveringLandISO3">
+<Type>TECH.String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>AankoperState</State>
+<Data name="AankoperState">
+<Subscript>"Aankoper"</Subscript>
+<Value name="1">
+<Value>Naam</Value>
+</Value>
+<Value name="2">
+<Value>Code</Value>
+</Value>
+<Value name="3">
+<Value>LeveringNaam</Value>
+</Value>
+<Value name="4">
+<Value>LeveringStraatNrBus</Value>
+</Value>
+<Value name="5">
+<Value>LeveringPostcode</Value>
+</Value>
+<Value name="6">
+<Value>LeveringWoonplaats</Value>
+</Value>
+<Value name="7">
+<Value>LeveringLand</Value>
+</Value>
+</Data>
+</Storage>
 </Class>
 
 
Index: APPS/EDI/Bestel/impl/BestelService.cls.xml
===================================================================
diff -u -r37631 -r38540
--- APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 37631)
+++ APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 38540)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OfferteService">
+<Type>APPS.VKP.impl.OfferteService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>UnishopBesteller:APPS.EDI.Bestel.impl.BestelService.UnishopBesteller,TandemboxBesteller:APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller</FormalSpec>
 <Private>1</Private>
@@ -27,6 +32,7 @@
 <Implementation><![CDATA[
 	Set ..UnishopBesteller = $$$Inject(UnishopBesteller,##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New())	
 	Set ..TandemboxBesteller = $$$Inject(TandemboxBesteller,##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New())	
+	Set ..OfferteService = ##class(APPS.VKP.impl.OfferteService).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -44,11 +50,13 @@
 	
 	If $$$Not($IsObject(ResultaatTBX.Exceptie) || $IsObject(ResultaatUNI.Exceptie)){
 		If $$$HasLength(ResultaatTBX.OfferteIDTBX) {
-			Set Resultaat.OfferteID = ResultaatTBX.OfferteID
+			Set Resultaat.OfferteID = ResultaatTBX.OfferteIDTBX
+			Do ..VerwerkLeveradres(Aanvraag, ResultaatTBX.OfferteIDTBX)
 			Set ResultaatTBXBestel = ..TandemboxBesteller.BestelOfferte(ResultaatTBX.OfferteIDTBX)
 		}
 		If $$$HasLength(ResultaatUNI.OfferteID) {
 			Set Resultaat.OfferteID = ResultaatUNI.OfferteID
+			Do ..VerwerkLeveradres(Aanvraag, ResultaatUNI.OfferteID)
 			Set ResultaatUNIBestel = ..UnishopBesteller.BestelOfferte(ResultaatUNI.OfferteID, Aanvraag)
 		}
 	}
@@ -75,6 +83,27 @@
 	Quit Resultaat
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkLeveradres">
+<FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag,OfferteID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit:$$$Not($IsObject(Aanvraag.Order.Aankoper))
+	#dim Offerte As APPS.VKP.Offerte = ..OfferteService.%New().GeefOfferte(OfferteID)
+	
+	#dim Leveradres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	Do Leveradres.ZetStraat(Aanvraag.Order.Aankoper.LeveringStraatNrBus)
+	Do Leveradres.ZetPostcode(Aanvraag.Order.Aankoper.LeveringPostcode)
+	Do Leveradres.ZetGemeente(Aanvraag.Order.Aankoper.LeveringWoonplaats)
+	If $$$HasLength(Aanvraag.Order.Aankoper.LeveringLandISO3) {
+		Do Leveradres.ZetLandNr(##class(DOM.common.Locatie.impl.LandRepository).%New().GeefViaLandCodeIso3(Aanvraag.Order.Aankoper.LeveringLandISO3))
+	} ElseIf $$$HasLength(Aanvraag.Order.Aankoper.LeveringLand) {
+		Do Leveradres.ZetLandNr(##class(DOM.common.Locatie.impl.LandRepository).%New().GeefViaLandCodeIso2(Aanvraag.Order.Aankoper.LeveringLand))
+	}
+	Do Leveradres.ZetLandNr(Aanvraag.Order.Aankoper.LeveringLand)
+	
+	Do Offerte.ZetLeverAdres(Leveradres)
+]]></Implementation>
+</Method>
 </Class>