DOM.common.PersonalityVisitor,APPS.VKP.Offerte.BesteldeOfferteMelder APPS.VKP.Offerte 1 Offerte:APPS.VKP.Offerte VanHoeckePersonality:DOM.common.VanHoeckePersonality DestilPersonality:DOM.common.DestilPersonality DupontPersonality:DOM.common.DupontPersonality KischPersonality:DOM.common.KischPersonality VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality DaroPersonality:DOM.common.DaroPersonality SFSPersonality:DOM.common.SFSPersonality HaefeleBEPersonality:DOM.common.HaefeleBEPersonality VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality 1 Offerte:APPS.VKP.Offerte ") #dim MailToPrefix As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.OV.impl.OrderVerwerkingInteracties.OfferteBesteld_MailToPrefix") #dim MailTo As %String = MailToPrefix _ ##class(TECH.StringUtils).AddLeadingChar(Klant.GeefRegio(), "0", 2) #dim IsHTML As %Boolean = $$$True #dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI() #dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMail() Do Mail.ZetVerzender($$$SystemMail("OV")) Do Mail.VoegToeOntvanger(MailTo) Do Mail.ZetOnderwerp(Titel) Do Mail.ZetInhoud(Inhoud) Do Mail.ZetIsHTML(IsHTML) Do MailAPI.VerstuurMail(Mail) #dim LogTekst As %String = "OfferteID='" _ Offerte.GeefID() _ "' KlantID='" _ Partij.GeefID() _ "' To='" _ MailTo _ "'" Do ##class(vhLib.Logger).%New("APPS.OV.impl.OrderVerwerkingInteracties").Info("VerwittigOVOfferteBesteld", LogTekst) ]]> 1 OfferteID:%String 1 %String 1 OfferteID:%String 1 %String " _ "Verwerk offerte '" _ OfferteID _ "'" _ "" ]]>