Index: APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml
===================================================================
diff -u -r42440 -r42441
--- APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml	(.../HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml)	(revision 42440)
+++ APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml	(.../HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml)	(revision 42441)
@@ -63,10 +63,8 @@
 <Implementation><![CDATA[
 	Do ..ValideerIsHandel(OfferteVanHandel)
 	
-	#dim VanHoeckeOfferte As APPS.VKP.Offerte = ..MaakGekoppeldeVanHoeckeOfferte(OfferteVanHandel)
-	
 	#dim OfferteDto As APPS.EC.dto.Offerte
-	Set OfferteDto = ..OfferteNaarDtoConverter.Converteer(OfferteVanHandel.GeefID()) 
+	Set OfferteDto = ..OfferteNaarDtoConverter.Converteer(OfferteVanHandel) 
 	
 	#dim WinkelkarDto As WS.Vhisie4.WinkelkarExport.dto.Winkelkar
 	Set WinkelkarDto = ..Converter.ConvertUnishopOfferte(OfferteDto)
@@ -77,19 +75,20 @@
 	#dim SendResponse As WS.Vhisie4.WinkelkarExport.SendResponse
 	Set SendResponse = ..Converter.VerzendWinkelkar(WinkelkarDto)
 	
-	#dim Vhisie4Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(SendResponse.Winkelkar.IntractoId)
+	#dim Offerte = ..OfferteService.GeefOfferte(SendResponse.Winkelkar.VanHoeckeId)
+	#dim Bestelling As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(SendResponse.Winkelkar.IntractoId)
 	
-	Do ..OfferteService.KoppelAanOfferteVanHandel(VanHoeckeOfferte,Vhisie4Offerte)
+	Do ..OfferteService.KoppelAanOfferteVanHandel(Offerte, Bestelling)
 	
-	Do ..BehoudOorspronkelijkLeveradresIndienHein(VanHoeckeOfferte, OfferteVanHandel)
+	Do ..BehoudOorspronkelijkLeveradresIndienHein(Offerte, Bestelling)
 	
-	Do ..PasAanDocumentReferenties(VanHoeckeOfferte, OfferteVanHandel)
+	Do ..PasAanDocumentReferenties(Offerte, Bestelling)
 	
-	Do ..PasAanVHWinkelKar(VanHoeckeOfferte, OfferteVanHandel)
+	Do ..PasAanVHWinkelKar(Offerte, Bestelling)
 	
-	Do ..OfferteService.GeefOfferteBewaarder().Bewaar(VanHoeckeOfferte)
+	Do ..OfferteService.GeefOfferteBewaarder().Bewaar(Offerte)
 		
-	Quit VanHoeckeOfferte
+	Quit Offerte
 ]]></Implementation>
 </Method>
 
Index: APPS/EC/Verkoop/impl/OfferteHerberekenaar.cls.xml
===================================================================
diff -u -r42425 -r42441
--- APPS/EC/Verkoop/impl/OfferteHerberekenaar.cls.xml	(.../OfferteHerberekenaar.cls.xml)	(revision 42425)
+++ APPS/EC/Verkoop/impl/OfferteHerberekenaar.cls.xml	(.../OfferteHerberekenaar.cls.xml)	(revision 42441)
@@ -126,7 +126,7 @@
 <Method name="GeefOfferteZonderHerberekening">
 <FormalSpec>OfferteID:%String</FormalSpec>
 <ReturnType>APPS.EC.dto.Offerte</ReturnType>
-<Implementation><![CDATA[	Quit ..OfferteNaarDtoConverter.Converteer(OfferteID)
+<Implementation><![CDATA[	Quit ..OfferteNaarDtoConverter.Converteer(..OfferteService.GeefOfferte(OfferteID))
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml
===================================================================
diff -u -r42425 -r42441
--- APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml	(.../OfferteNaarDtoConverter.cls.xml)	(revision 42425)
+++ APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml	(.../OfferteNaarDtoConverter.cls.xml)	(revision 42441)
@@ -43,10 +43,9 @@
 </Method>
 
 <Method name="Converteer">
-<FormalSpec>OfferteID:%String</FormalSpec>
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>APPS.EC.dto.Offerte</ReturnType>
 <Implementation><![CDATA[
-	#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
 	Set Resultaat = ##class(APPS.EC.dto.Offerte).%New()
 	Set Resultaat.OfferteID = Offerte.GeefID()
 	Set Resultaat.Hoofding = ..ConverteerHoofding(Offerte)