Index: APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml
===================================================================
diff -u -r42423 -r42425
--- APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml	(.../OfferteNaarDtoConverter.cls.xml)	(revision 42423)
+++ APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml	(.../OfferteNaarDtoConverter.cls.xml)	(revision 42425)
@@ -54,7 +54,7 @@
 	Set Resultaat.GeldigheidVermelding = ..GeldigheidVermeldingBepaler.BepaalVermelding(Offerte)
 	Set Resultaat.PrijzenGeldigTotEnMetDatum = Offerte.GeefPrijzenGeldigTotEnMetDatum()
 	
-	if ..OfferteService.HeeftOfferteVanVH(Offerte) {
+	If ..OfferteService.HeeftOfferteVanVH(Offerte) {
 		#dim GekoppeldeOfferte As APPS.VKP.Offerte = ..OfferteService.GeefOfferteVanVH(Offerte)
 		Set Resultaat.GekoppeldeOfferte = ..Converteer(GekoppeldeOfferte.GeefID())
 	}
Index: APPS/EC/Verkoop/impl/OfferteHerberekenaar.cls.xml
===================================================================
diff -u -r39295 -r42425
--- APPS/EC/Verkoop/impl/OfferteHerberekenaar.cls.xml	(.../OfferteHerberekenaar.cls.xml)	(revision 39295)
+++ APPS/EC/Verkoop/impl/OfferteHerberekenaar.cls.xml	(.../OfferteHerberekenaar.cls.xml)	(revision 42425)
@@ -33,6 +33,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OfferteNaarDtoConverter">
+<Type>APPS.EC.Verkoop.impl.OfferteNaarDtoConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Vertaler:Res.Vertaling="",WinkelkarPrijsUpdater:APPS.EC.impl.WinkelkarPrijsUpdater="",ActieWijzigingenBepaler:APPS.EC.impl.ExterneVerkoopService.OfferteHerberekening.ActieWijzigingenBepaler="",WinkelkarService:APPS.EC.Winkelkar.WinkelkarService</FormalSpec>
 <Private>1</Private>
@@ -46,6 +51,7 @@
 	set ..RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
 	set ..OfferteService = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService()
 	Set ..WinkelkarService = $$$Inject(WinkelkarService,##class(APPS.EC.Winkelkar.impl.ExterneWinkelkarService).%New())
+	Set ..OfferteNaarDtoConverter = ##class("APPS.EC.Verkoop.impl.OfferteNaarDtoConverter").%New()
 
 	Quit $$$OK
 ]]></Implementation>
@@ -120,62 +126,9 @@
 <Method name="GeefOfferteZonderHerberekening">
 <FormalSpec>OfferteID:%String</FormalSpec>
 <ReturnType>APPS.EC.dto.Offerte</ReturnType>
-<Implementation><![CDATA[
-	Set OfferteDto = ##class(APPS.EC.dto.Offerte).%New()
-	Set OfferteDto.OfferteID = OfferteID
-	Set OfferteDto.Hoofding = ..GeefOfferteHoofding(OfferteID)
-	#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
-	Set OfferteDto.Winkelkar = ..WinkelkarService.GeefWinkelkar(Offerte.WinkelkarID)
-	Set OfferteDto.GeldigheidVermelding = ..GeldigheidVermeldingBepaler.BepaalVermelding(Offerte)
-	Set OfferteDto.PrijzenGeldigTotEnMetDatum = Offerte.GeefPrijzenGeldigTotEnMetDatum()
-	
-	if ..OfferteService.HeeftOfferteVanVH(Offerte) {
-		#dim GekoppeldeOfferte As APPS.VKP.Offerte = ..OfferteService.GeefOfferteVanVH(Offerte)
-		Set OfferteDto.GekoppeldeOfferte = ..GeefOfferteZonderHerberekening(GekoppeldeOfferte.GeefID())
-	}
-	Quit OfferteDto
+<Implementation><![CDATA[	Quit ..OfferteNaarDtoConverter.Converteer(OfferteID)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefOfferteHoofding">
-<FormalSpec>OfferteID:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.EC.dto.Hoofding</ReturnType>
-<Implementation><![CDATA[
-	#Dim Offerte As APPS.VKP.Offerte = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferte(OfferteID)
-	#Dim Hoofding As APPS.EC.dto.Hoofding = ##class(APPS.EC.dto.Hoofding).%New()
-	
-	Set Hoofding.BestelDatum = Offerte.GeefBestelDatum()
-	Set Hoofding.BestelOpmerking = Offerte.BestelOpmerking
-	Set Hoofding.Referentie = ##class(APPS.VKP.dto.DocumentReferenties).%New()
-	Set Hoofding.Referentie.OrderReferentie = Offerte.DocumentReferenties.OrderReferentie
-	Set Hoofding.Referentie.CommissieReferentie = Offerte.DocumentReferenties.CommissieReferentie
-	Set Hoofding.Referentie.KlantOrderNummer = Offerte.DocumentReferenties.KlantOrderNummer
-	Set Hoofding.LeveringDetail = ##class(APPS.EC.dto.LeveringDetail).%New()
-	
-	If ($isObject(Offerte.GeefLeverAdres())) {
-		Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.impl.AdresConvertor).%New().NaarDataTransferObject(Offerte.GeefLeverAdres())
-	}
-
-	Set Hoofding.LeveringDetail.Datum = Offerte.LeverDatum
-	Set Hoofding.LeveringDetail.WensDatum = Offerte.WensLeverDatum
-	Quit Hoofding
-]]></Implementation>
-</Method>
-
-<Property name="GeldigheidVermeldingBepaler">
-<Type>APPS.EC.Verkoop.impl.GeldigheidVermeldingBepaler</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="GeldigheidVermeldingBepalerGet">
-<Private>1</Private>
-<ReturnType>APPS.EC.Verkoop.impl.GeldigheidVermeldingBepaler</ReturnType>
-<Implementation><![CDATA[
-	set i%GeldigheidVermeldingBepaler = $$$LazyLoad(i%GeldigheidVermeldingBepaler,##class(APPS.EC.Verkoop.impl.GeldigheidVermeldingBepaler).%New())
-	quit i%GeldigheidVermeldingBepaler
-]]></Implementation>
-</Method>
 </Class>