Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r38486 -r39064
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 38486)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 39064)
@@ -48,6 +48,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OfferteRepository">
+<Type>APPS.VKP.Offerte.impl.OfferteRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ExterneVerkoopService:APPS.EC.Verkoop.ExterneVerkoopService,ProductConverter:APPS.EDI.common.impl.ProductConverter,OfferteService:APPS.VKP.OfferteService,OrderIngaveService:APPS.VKP.OrderIngaveService,OfferteHoofding:APPS.EC.dto.Hoofding,ProductValidator:APPS.EDI.common.impl.ProductValidator</FormalSpec>
 <Private>1</Private>
@@ -62,6 +67,7 @@
 	Set ..OrderIngaveService = $$$Inject(OrderIngaveService,##class(APPS.VKP.OrderIngaveService).%New())
 	Set ..OfferteHoofding = $$$Inject(OfferteHoofding,##class(APPS.EC.dto.Hoofding).%New())
 	Set ..ProductValidator = $$$Inject(ProductValidator,##class(APPS.EDI.common.impl.ProductValidator).%New())
+	Set ..OfferteRepository = ##class(APPS.VKP.Offerte.impl.OfferteRepository).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -83,6 +89,7 @@
 		
 		try {
 			do ..ZetHoofding(Offerte.OfferteID,Aanvraag.Order,Aanvraag.Header.PersonalityID)
+			Do ..VerwerkLeveradres(Aanvraag, Offerte.OfferteID)
 			do ..VoegToeLijnen(Offerte.OfferteID,Aanvraag.Order)
 			set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(Offerte.OfferteID)
 		} catch {
@@ -249,6 +256,29 @@
 	Set ..LijnenIterator = ##class(TECH.DynamicIterator).%New(Iterator,,Filter)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkLeveradres">
+<FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag,OfferteID:%String</FormalSpec>
+<Private>1</Private>
+<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.ZetNaam(##class(TECH.StringUtils).ToUpper(Aanvraag.Order.Aankoper.LeveringNaam))
+	Do Leveradres.ZetStraat(##class(TECH.StringUtils).ToUpper(Aanvraag.Order.Aankoper.LeveringStraatNrBus))
+	Do Leveradres.ZetPostcode(Aanvraag.Order.Aankoper.LeveringPostcode)
+	Do Leveradres.ZetGemeente(##class(TECH.StringUtils).ToUpper(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)
+	Do ..OfferteRepository.Bewaar(Offerte)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EDI/Bestel/impl/BestelService.cls.xml
===================================================================
diff -u -r39060 -r39064
--- APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 39060)
+++ APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 39064)
@@ -61,7 +61,6 @@
 		}
 		If $$$HasLength(ResultaatUNI.OfferteID) {
 			Set Resultaat.OfferteID = ResultaatUNI.OfferteID
-			Do ..VerwerkLeveradres(Aanvraag, ResultaatUNI.OfferteID)
 			Set ResultaatUNIBestel = ..UnishopBesteller.BestelOfferte(ResultaatUNI.OfferteID, Aanvraag)
 		}
 	}
@@ -88,28 +87,6 @@
 	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.ZetNaam(##class(TECH.StringUtils).ToUpper(Aanvraag.Order.Aankoper.LeveringNaam))
-	Do Leveradres.ZetStraat(##class(TECH.StringUtils).ToUpper(Aanvraag.Order.Aankoper.LeveringStraatNrBus))
-	Do Leveradres.ZetPostcode(Aanvraag.Order.Aankoper.LeveringPostcode)
-	Do Leveradres.ZetGemeente(##class(TECH.StringUtils).ToUpper(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)
-	Do ..OfferteRepository.Bewaar(Offerte)
-]]></Implementation>
-</Method>
 </Class>