TECH.Mockable TECH.Mail.MailAPI 1 APPS.VKP.OfferteService 1 TECH.Config.ConfigMgr 1 DOM.PARTIJ.PartijAPI 1 DOM.VKP.VerkoopAPI 1 DOM.PARTIJ.LegacyPartijAPI 1 MailApi:TECH.Mail.MailAPI="",OfferteService:APPS.VKP.OfferteService="" 1 1 %Status 1 Offerte:APPS.VKP.Offerte,HerbestellingBijProbleem:%Boolean=$$$False ") #dim MailToPrefix As %String = ..ConfigMgr.GeefString("APPS.OV.impl.OrderVerwerkingInteracties.OfferteBesteld_MailToPrefix") #dim MailTo As %String = MailToPrefix _ ##class(TECH.StringUtils).AddLeadingChar(Klant.GeefRegio(), "0", 2) #dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail() Do Mail.ZetVerzender($$$SystemMail("OV")) Do Mail.ZetOnderwerp(Titel) Do Mail.ZetInhoud(Inhoud) Do Mail.ZetIsHTML($$$True) Do Mail.VoegToeOntvanger(MailTo) Do:Offerte.IsVhisie4() Mail.VoegToeOntvangerCC("DTI@VanHoecke.be") /* If ($$$Not(Offerte.IsVhisie4())) && (##class(TECH.StringUtils).Equals(Klant.GeefID(), ##class(DOM.VKP.enu.Klant).HaefeleNederland() )) { Do Mail.VoegToeOntvangerCC("WV@VanHoecke.be") If $$$Not(..OfferteService.HeeftOfferteVanHandel(Offerte)) { Do Mail.ZetOnderwerp(Mail.GeefOnderwerp()_" . ") } } */ 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) ]]> 1 1 OfferteID:%String 1 %String " _ "Verwerk offerte '" _ OfferteID _ "'" _ "" ]]> Offerte:APPS.VKP.Offerte,TekstPrefix:%String="" 1 Offerte:APPS.VKP.Offerte 1 " _ "Verwerk (vhisie4) offerte '" _ Offerte.GeefExterneId() _ "'" _ "" ]]>