TECH.RegisteredObject TECH.Mail.MailAPI 1 APPS.VKP.OfferteService 1 MailApi:TECH.Mail.MailAPI="",OfferteService:APPS.VKP.OfferteService="" 1 1 %Status 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 Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail() If (Klant.GeefID() = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()) { Do Mail.VoegToeOntvanger("ICT_SupportUnishop@vanhoecke.be") If $$$Not(..OfferteService.HeeftOfferteVanHandel(Offerte)) { Do Mail.VoegToeOntvanger(MailTo) } } Else { Do Mail.VoegToeOntvanger(MailTo) } Do Mail.ZetVerzender($$$SystemMail("OV")) 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='" _ ##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangers(), ", ") _ "'" Do ##class(vhLib.Logger).%New("APPS.OV.impl.OrderVerwerkingInteracties").Info("VerwittigOVOfferteBesteld", LogTekst) ]]> OfferteID:%String 1 %String OfferteID:%String 1 %String " _ "Verwerk offerte '" _ OfferteID _ "'" _ "" ]]>