Index: APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerder.cls.xml
===================================================================
diff -u -r37291 -r37295
--- APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerder.cls.xml	(.../HandelOfferteNaarVanHoeckeOfferteConverteerder.cls.xml)	(revision 37291)
+++ APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerder.cls.xml	(.../HandelOfferteNaarVanHoeckeOfferteConverteerder.cls.xml)	(revision 37295)
@@ -40,7 +40,6 @@
 	Set ..ExterneVerkoopService = $$$Inject(ExterneVerkoopService, ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefExterneVerkoopService())
 	Set ..CommonAPI = $$$Inject(CommonAPI, ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI())
 	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(DOM.EC.Winkelkar.impl.WinkelkarService).%New())
-
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -49,51 +48,89 @@
 <FormalSpec>OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>APPS.VKP.Offerte</ReturnType>
 <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)
-	}
+	Do ..ValideerIsHandel(OfferteVanHandel)
 	
-	// Maak gekoppelde VanHoecke-offerte 
-	#dim VanHoeckeKlant As %String = OfferteVanHandel.GeefPersonality().GeefKlantID()
-	#dim VanHoeckeOfferte As APPS.VKP.Offerte = ..OfferteKopieerder.KopieerOfferte(OfferteVanHandel, VanHoeckeKlant, ##class(DOM.common.enu.Personality).VanHoecke())
+	#dim VanHoeckeOfferte As APPS.VKP.Offerte = ..MaakGekoppeldeVanHoeckeOfferte(OfferteVanHandel)
+	
 	Do ..OfferteService.KoppelAanOfferteVanHandel(VanHoeckeOfferte,OfferteVanHandel)
 
-	/// Oorspronkelijk leveradres behouden indien klant van hein (Hein personality)
+	Do ..BehoudOorspronkelijkLeveradresIndienHein(VanHoeckeOfferte, OfferteVanHandel)
+	
+	Do ..PasAanDocumentReferenties(VanHoeckeOfferte, OfferteVanHandel)
+	
+	Do ..PasAanVHWinkelKar(VanHoeckeOfferte, OfferteVanHandel)
+	
+	Do ..OfferteService.GeefOfferteBewaarder().Bewaar(VanHoeckeOfferte)
+		
+	Quit VanHoeckeOfferte
+]]></Implementation>
+</Method>
+
+<Method name="VerbindTeksten">
+<Description>
+Moet verplaatst worden naar TECH.StringUtils klasse </Description>
+<FormalSpec>Tekst1:%String,Tekst2:%String,Delimiter:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit Tekst1 _ $S(($L(Tekst1))&&($L(Tekst2)):Delimiter, 1:"") _ Tekst2
+]]></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>
 
-	// DocumentReferenties aanpassen 
+<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>
+
+<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, ", ")
-	
-	// Winkelkar aan VH aanpassen 
+]]></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.PrijsUpdaterHerbereken(Winkelkar)
 	Do ..WinkelkarService.BewaarWinkelkar(Winkelkar)
-		
 	Do VanHoeckeOfferte.PrijzenWerdenHerberekend()
-	do ..OfferteService.GeefOfferteBewaarder().Bewaar(VanHoeckeOfferte)
-		
-	Quit VanHoeckeOfferte
 ]]></Implementation>
 </Method>
 
-<Method name="VerbindTeksten">
-<Description>
-Moet verplaatst worden naar TECH.StringUtils klasse </Description>
-<FormalSpec>Tekst1:%String,Tekst2:%String,Delimiter:%String</FormalSpec>
+<Method name="ValideerIsHandel">
+<FormalSpec>OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit Tekst1 _ $S(($L(Tekst1))&&($L(Tekst2)):Delimiter, 1:"") _ Tekst2
+<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>
 </Class>