Index: APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml
===================================================================
diff -u
--- APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml	(revision 0)
+++ APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml	(revision 46250)
@@ -0,0 +1,266 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Rapporteur.impl.KlantRapporteurVhisie4">
+<Super>APPS.EC.Rapporteur.impl.Rapporteur</Super>
+
+<Property name="WebshopURLBepaler">
+<Type>APPS.EC.Webshop.impl.UrlBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WebshopSessionService">
+<Type>APPS.EC.WebshopSessionService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataService">
+<Type>APPS.EC.DataService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HandelKlantData">
+<Type>DOM.common.dto.HandelKlantData</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Type">
+<Type>APPS.EC.enu.RapporteurType</Type>
+<InitialExpression>##class(APPS.EC.enu.RapporteurType).Klant()</InitialExpression>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>CommonApi:DOM.common.CommonAPI,MailApi:TECH.Mail.MailAPI,VertaalApi:DOM.common.Transl.VertaalAPI,WebshopURLBepaler:APPS.EC.Webshop.impl.UrlBepaler,DataService:APPS.EC.DataService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	do ##super(.CommonApi,.MailApi,.VertaalApi)
+	
+	Set ..WebshopURLBepaler = $$$Implementation(WebshopURLBepaler, ##class(APPS.EC.Webshop.impl.UrlBepaler).%New())
+	Set ..DataService = $$$Inject(DataService,##class(APPS.EC.Rapporteur.impl.IoCContainer).Instance().Resolve("DataService"))
+	Set ..WebshopSessionService = ##class(APPS.EC.impl.WebshopSessionService).%New(..DataService)
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Rapporteer">
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Offerte = Offerte
+	Set ..HandelKlantData = ..DataService.GeefKlantData(Offerte.GeefPersonalityID(),Offerte.GeefKlantID())	
+	
+	Set ..Vertaler = ..VertaalApi.GeefVertaler(..HandelKlantData.Taal,##class(DOM.common.Transl.enu.VertaalGroep).Unishop())
+	
+	Do ..Offerte.GeefPersonality().Accept($this)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDestil">
+<FormalSpec>DestilPersonality:DOM.common.DestilPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#Dim URL As %String = ..WebshopURLBepaler.GeefUrl(DestilPersonality.GeefID())
+	Do ..RapporteerViaPersonality("emailinterieurbouw2@destil.nl", URL, DestilPersonality.GeefNaam())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDupont">
+<FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#Dim URL As %String = ..WebshopURLBepaler.GeefUrl(DupontPersonality.GeefID())
+	Do ..RapporteerViaPersonality("info@du-pont.be", URL, DupontPersonality.GeefNaam())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHein">
+<FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkDaro">
+<FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleBE">
+<FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleNL">
+<FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkKisch">
+<FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkSFS">
+<FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanRaemdonck">
+<FormalSpec>VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanHoecke">
+<FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanHoeckeVoorHalux">
+<FormalSpec>VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="RapporteerViaPersonality">
+<FormalSpec>Verzender:%String,URL:%String,PersonalityNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (..IsRapporterenNodig()) {
+		Do ..MaakMail(Verzender, PersonalityNaam)
+		Do ..VoegToeLijnen(URL, PersonalityNaam)
+		Do ..Verzend()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakMail">
+<FormalSpec>Verzender:%String,PersonalityNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..Mail = ..MailApi.MaakNieuwMail()
+	
+	Do ..Mail.ZetIsHTML(1)
+	Do ..Mail.ZetVerzender(Verzender)
+	Do ..Mail.VoegToeOntvanger(..HandelKlantData.EmailAdres)
+	Do ..Mail.ZetOnderwerp(PersonalityNaam _ " " _ ..GeefVertaling("Onderwerp") _ " '" _ ..Offerte.GeefID() _ "'")
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLijnen">
+<FormalSpec>URL:%String,PersonalityNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim URLNaarBestelling As TECH.String = ..GeefURLNaarBestelling(URL)
+	#Dim Link As TECH.String = "<a href=""" _ URLNaarBestelling _ """>" _ URLNaarBestelling _ "</a>"
+
+	Do ..Mail.VoegToeLijn(..GeefVertaling("Aanspreking") _ " " _ ..HandelKlantData.Naam _ ", ")
+	Do ..Mail.VoegToeLijn("")
+	Do ..Mail.VoegToeLijn(..GeefOmschrijvingVertaling(PersonalityNaam, ..Offerte.GeefID()))
+	Do ..Mail.VoegToeLijn(..GeefVertaling("OfferteLabel") _ ": ")
+	Do ..Mail.VoegToeLijn(Link)
+	Do ..Mail.VoegToeLijn("")
+	
+	If $$$Not(..Offerte.GeefDocumentReferenties().OrderReferentie = "") {
+		Do ..Mail.VoegToeLijn("<u>" _ ..GeefVertaling("ReferentieLabel") _ ": </u> " _ ..Offerte.GeefDocumentReferenties().OrderReferentie)
+	}	
+	
+	If $$$Not(..Offerte.GeefBestelOpmerking() = "") {
+		Do ..Mail.VoegToeLijn("<u>" _ ..GeefVertaling("OpmerkingLabel") _ ": </u> " _ ..Offerte.GeefBestelOpmerking())
+	}
+	
+	Do ..Mail.VoegToeLijn(..GeefVertaling("SlotFormule"))
+	Do ..Mail.VoegToeLijn(..GeefOndergetekendeVertaling(PersonalityNaam))
+]]></Implementation>
+</Method>
+
+<Method name="Verzend">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##super()
+	Do ..LogAlsVerzonden()
+]]></Implementation>
+</Method>
+
+<Method name="LogAlsVerzonden">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim OfferteMailVerzonden As APPS.EC.impl.OfferteMailVerzonden = ##class(APPS.EC.impl.OfferteMailVerzonden).%New()
+	
+	Set OfferteMailVerzonden.OfferteID = ..Offerte.GeefID()
+	
+	Do OfferteMailVerzonden.Save()
+]]></Implementation>
+</Method>
+
+<Method name="IsRapporterenNodig">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not(##class(APPS.EC.impl.OfferteMailVerzonden).%ExistsId(..Offerte.GeefID()))
+]]></Implementation>
+</Method>
+
+<Method name="GeefURLNaarBestelling">
+<FormalSpec>URL:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim DomeinVerwerker As APPS.EC.enu.WebShopVerwerker = ..WebshopSessionService.GeefDomeinVerwerkerVoorPersonality(..Offerte.GeefPersonalityID())	
+	#Dim RefSessieData As APPS.EC.dto.RefSessieData = ..GeefRefSessieData(DomeinVerwerker)
+	#Dim Taal As DOM.enu.Taal = ..HandelKlantData.Taal
+	#Dim GebruikerID As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID()
+	
+	Quit ..WebshopSessionService.GeefWebshopUrlMetIngelogdeGebruiker(RefSessieData, GebruikerID, Taal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefRefSessieData">
+<FormalSpec>DomeinVerwerker:APPS.EC.enu.WebShopVerwerker</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.EC.dto.RefSessieData</ReturnType>
+<Implementation><![CDATA[
+	#Dim RefSessieData As APPS.EC.dto.RefSessieData = ##class(APPS.EC.dto.RefSessieData).%New()
+	
+	Set RefSessieData.KlantID = ..Offerte.GeefKlantID()
+	Set RefSessieData.Verwerker = DomeinVerwerker
+	Set RefSessieData.WebshopModus = ##class(APPS.EC.enu.WebshopModus).Normaal()
+	Set RefSessieData.OfferteID = ..Offerte.GeefID()
+	
+	Quit RefSessieData
+]]></Implementation>
+</Method>
+
+<Method name="GeefVertaling">
+<FormalSpec>Sleutel:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("OfferteKlant" _ Sleutel)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOmschrijvingVertaling">
+<FormalSpec>PersonalityNaam:TECH.String,OfferteID:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim Omschrijving As TECH.String = ..GeefVertaling("Omschrijving")
+	
+	Set Omschrijving = ##class(TECH.StringUtils).Replace(Omschrijving, "::PersonalityNaam::", PersonalityNaam)
+	Set Omschrijving = ##class(TECH.StringUtils).Replace(Omschrijving, "::OfferteID::", OfferteID)
+	
+	Quit Omschrijving
+]]></Implementation>
+</Method>
+
+<Method name="GeefOndergetekendeVertaling">
+<FormalSpec>PersonalityNaam:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim Ondergetekende As TECH.String = ..GeefVertaling("Ondergetekende")
+	
+	Set Ondergetekende = ##class(TECH.StringUtils).Replace(Ondergetekende, "::PersonalityNaam::", PersonalityNaam)
+	
+	Quit Ondergetekende
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>