Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml
===================================================================
diff -u -r44458 -r44540
--- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml)	(revision 44458)
+++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml)	(revision 44540)
@@ -3,135 +3,48 @@
 <Class name="APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4">
 <Super>APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverter,TECH.RegisteredObject</Super>
 
-<Property name="OfferteConverter">
-<Type>APPS.EC.Verkoop.impl.OfferteConverter</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="CommonAPI">
-<Type>APPS.common.CommonAPI</Type>
+<Property name="KlantBestellingNaarLeverancierOfferteKopieerder">
+<Type>APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="WinkelkarService">
-<Type>DOM.EC.Winkelkar.impl.WinkelkarService</Type>
+<Property name="WinkelkarSender">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LeverAdresConverter">
-<Type>APPS.common.impl.LeverAdresConvertor</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="AdresBepaler">
-<Type>APPS.EC.Verkoop.impl.AdresBepaler</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>OfferteService:APPS.VKP.OfferteService,CommonAPI:APPS.common.CommonAPI,WinkelkarService:DOM.EC.Winkelkar.impl.WinkelkarService,OfferteConverter:APPS.EC.Verkoop.impl.OfferteConverter,Converter:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Converter,AdresBepaler:APPS.EC.Verkoop.impl.AdresBepaler</FormalSpec>
+<FormalSpec>OfferteService:APPS.VKP.OfferteService,KlantBestellingNaarLeverancierOfferteKopieerder:APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder,WinkelkarSender:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..OfferteConverter = $$$Inject(OfferteConverter,##class("APPS.EC.Verkoop.impl.OfferteConverter").%New())
-	Set ..Converter = $$$Inject(Converter,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Converter).%New())
-	Set ..OfferteService = $$$Inject(OfferteService,##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService())
-	Set ..CommonAPI = $$$Inject(CommonAPI,##class(APPS.ApplicatieContext).Instance().GeefCommonAPI())
-	Set ..WinkelkarService = $$$Inject(WinkelkarService,##class(DOM.EC.Winkelkar.impl.WinkelkarService).%New())
-	Set ..LeverAdresConverter = ##class(APPS.common.impl.LeverAdresConvertor).%New()
-	Set ..AdresBepaler = $$$Inject(AdresBepaler,##class(APPS.EC.Verkoop.impl.AdresBepaler).%New())
-	
+	Set ..OfferteService = $$$Inject(OfferteService, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService())
+	Set ..KlantBestellingNaarLeverancierOfferteKopieerder = $$$Inject(KlantBestellingNaarLeverancierOfferteKopieerder, ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder).%New())
+	Set ..WinkelkarSender = $$$Inject(WinkelkarSender, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Converteer">
-<FormalSpec>OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
+<FormalSpec>KlantBestelling:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>APPS.VKP.Offerte</ReturnType>
 <Implementation><![CDATA[
-	Do ..ValideerIsHandel(OfferteVanHandel)
+	#dim LeverancierOfferte As APPS.VKP.Offerte = ..KlantBestellingNaarLeverancierOfferteKopieerder.Kopieer(KlantBestelling)
 	
-	#dim OfferteDto As APPS.EC.dto.Offerte
-	Set OfferteDto = ..OfferteConverter.ConverteerNaarECommerce(OfferteVanHandel) 
+	#dim Response As WS.Vhisie4.WinkelkarExport.SendResponse = ..WinkelkarSender.Send(##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Converter).%New().ConvertUnishopOfferte(##class(APPS.EC.Verkoop.impl.OfferteConverter).%New().ConverteerNaarECommerce(LeverancierOfferte)))
 	
-	#dim WinkelkarDto As WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ..Converter.ConvertUnishopOfferte(OfferteDto)
-	Set WinkelkarDto.Status = "Offerte"
-	Set WinkelkarDto.PersonalityId = OfferteVanHandel.GeefPersonality().GeefID()
-	Set WinkelkarDto.GekoppeldeWinkelkarId = OfferteVanHandel.GeefExterneId()
-	If $$$Not((OfferteVanHandel.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Hein())) {
-		Set WinkelkarDto.Leveradres = ..LeverAdresConverter.NaarDataTransferObject(..AdresBepaler.GeefAdres(OfferteVanHandel.GeefPersonality(),OfferteVanHandel.GeefKlantID()))
-	} Else {
-		Set WinkelkarDto.Leveradres = ..LeverAdresConverter.NaarDataTransferObject(OfferteVanHandel.GeefLeverAdres())
-	}
-	
-	#dim SendResponse As WS.Vhisie4.WinkelkarExport.SendResponse = ..Converter.VerzendWinkelkar(WinkelkarDto)
-	#dim Offerte = ..OfferteService.GeefOfferte(SendResponse.Winkelkar.VanHoeckeId)
-	#dim Bestelling As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(SendResponse.Winkelkar.IntractoId)
-	
-	Do ..OfferteService.KoppelAanOfferteVanHandel(Offerte, Bestelling)
-	
-	//Do ..BehoudOorspronkelijkLeveradresIndienHein(Offerte, Bestelling)
-	
-	//Do ..PasAanDocumentReferenties(Offerte, Bestelling)
-	
-	//Do ..PasAanVHWinkelKar(Offerte, Bestelling)
-	
-	Do ..OfferteService.GeefOfferteBewaarder().Bewaar(Offerte)
-	
-	Do ..OfferteService.VerwijderOfferte(OfferteVanHandel)
+	Do ..OfferteService.KoppelAanOfferteVanHandel(LeverancierOfferte,KlantBestelling)
 		
-	Quit Offerte
+	Quit LeverancierOfferte
 ]]></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="GeefDocumentReferenties">
-<FormalSpec>Offerte:APPS.VKP.Offerte,Bestelling:APPS.VKP.Offerte</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = Offerte.GeefDocumentReferenties()
-	#dim DataService As APPS.common.DataService = ..CommonAPI.GeefDataService(Bestelling.GeefPersonalityID())
-	#dim KlantData As DOM.common.dto.KlantData = DataService.GeefKlantData(Bestelling.GeefKlantID())
-	Quit ##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>
 </Class>