Index: APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml
===================================================================
diff -u -r42402 -r42440
--- APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml	(.../HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml)	(revision 42402)
+++ APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml	(.../HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml)	(revision 42440)
@@ -3,12 +3,153 @@
 <Class name="APPS.VKP.Offerte.impl.HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4">
 <Super>APPS.VKP.Offerte.HandelOfferteNaarVanHoeckeOfferteConverteerder,TECH.RegisteredObject</Super>
 
+<Property name="OfferteKopieerder">
+<Type>APPS.VKP.Offerte.OfferteKopieerder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OfferteNaarDtoConverter">
+<Type>APPS.EC.Verkoop.impl.OfferteNaarDtoConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Converter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OfferteService">
+<Type>APPS.VKP.OfferteService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ExterneVerkoopService">
+<Type>APPS.EC.Verkoop.ExterneVerkoopService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CommonAPI">
+<Type>APPS.common.CommonAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarService">
+<Type>DOM.EC.Winkelkar.impl.WinkelkarService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OfferteKopieerder:APPS.VKP.Offerte.OfferteKopieerder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OfferteKopieerder = $$$Inject(OfferteKopieerder, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteKopieerder())
+	Set ..OfferteNaarDtoConverter = ##class("APPS.EC.Verkoop.impl.OfferteNaarDtoConverter").%New()
+	Set ..Converter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Converter).%New()
+	Set ..OfferteService = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService()
+	Set ..ExterneVerkoopService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefExterneVerkoopService()
+	Set ..CommonAPI = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI()
+	Set ..WinkelkarService = ##class(DOM.EC.Winkelkar.impl.WinkelkarService).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Converteer">
 <FormalSpec>OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>APPS.VKP.Offerte</ReturnType>
-<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New())
+<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()) 
+	
+	#dim WinkelkarDto As WS.Vhisie4.WinkelkarExport.dto.Winkelkar
+	Set WinkelkarDto = ..Converter.ConvertUnishopOfferte(OfferteDto)
+	Set WinkelkarDto.Status = "Offerte"
+	Set WinkelkarDto.PersonalityId = OfferteVanHandel.GeefPersonality().GeefID()
+	Set WinkelkarDto.GekoppeldeWinkelkarId = OfferteVanHandel.GeefExterneId()
+	
+	#dim SendResponse As WS.Vhisie4.WinkelkarExport.SendResponse
+	Set SendResponse = ..Converter.VerzendWinkelkar(WinkelkarDto)
+	
+	#dim Vhisie4Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(SendResponse.Winkelkar.IntractoId)
+	
+	Do ..OfferteService.KoppelAanOfferteVanHandel(VanHoeckeOfferte,Vhisie4Offerte)
+	
+	Do ..BehoudOorspronkelijkLeveradresIndienHein(VanHoeckeOfferte, OfferteVanHandel)
+	
+	Do ..PasAanDocumentReferenties(VanHoeckeOfferte, OfferteVanHandel)
+	
+	Do ..PasAanVHWinkelKar(VanHoeckeOfferte, OfferteVanHandel)
+	
+	Do ..OfferteService.GeefOfferteBewaarder().Bewaar(VanHoeckeOfferte)
+		
+	Quit VanHoeckeOfferte
 ]]></Implementation>
 </Method>
+
+<Method name="ValideerIsHandel">
+<FormalSpec>OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$Not(OfferteVanHandel.GeefPersonality().IsHandel()) {
+		Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("De personality van de offerte die geconverteerd moet worden, is geen handelofferte")
+		do Exceptie.VoegToeExtraInfo("OfferteID : "_OfferteVanHandel.GeefID())
+		do Exceptie.VoegToeExtraInfo("Personality : "_OfferteVanHandel.GeefPersonality().GeefCode())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BehoudOorspronkelijkLeveradresIndienHein">
+<FormalSpec>VanHoeckeOfferte:APPS.VKP.Offerte,OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (OfferteVanHandel.GeefPersonalityID() '= ##class(DOM.common.enu.Personality).Hein())
+	{
+		Do ..ExterneVerkoopService.StelInStandaardLeveradres(VanHoeckeOfferte)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="PasAanDocumentReferenties">
+<FormalSpec>VanHoeckeOfferte:APPS.VKP.Offerte,OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = VanHoeckeOfferte.GeefDocumentReferenties()
+	#dim DataService As APPS.common.DataService = ..CommonAPI.GeefDataService(OfferteVanHandel.GeefPersonalityID())
+	#dim KlantData As DOM.common.dto.KlantData = DataService.GeefKlantData(OfferteVanHandel.GeefKlantID())
+	Set DocumentReferenties.CommissieReferentie = ##class(TECH.StringUtils).Append(DocumentReferenties.CommissieReferentie, KlantData.Naam, ", ")
+]]></Implementation>
+</Method>
+
+<Method name="PasAanVHWinkelKar">
+<FormalSpec>VanHoeckeOfferte:APPS.VKP.Offerte,OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.GeefWinkelkar(VanHoeckeOfferte.WinkelkarID)
+	Do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Do Winkelkar.ZetKlantID(OfferteVanHandel.GeefPersonality().GeefKlantID())
+	Do ..WinkelkarService.HerberekenPrijs(Winkelkar)
+	Do ..WinkelkarService.BewaarWinkelkar(Winkelkar)
+	Do VanHoeckeOfferte.PrijzenWerdenHerberekend()
+]]></Implementation>
+</Method>
+
+<Method name="MaakGekoppeldeVanHoeckeOfferte">
+<FormalSpec>OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.Offerte</ReturnType>
+<Implementation><![CDATA[
+	#dim VanHoeckeKlant As %String = OfferteVanHandel.GeefPersonality().GeefKlantID()
+	Quit ..OfferteKopieerder.KopieerOfferte(OfferteVanHandel, VanHoeckeKlant, ##class(DOM.common.enu.Personality).VanHoecke())
+]]></Implementation>
+</Method>
 </Class>