Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import ABSL as absl;
- import AP.FO.BusinessPartner.Global as BusinessGlobal;
- import AP.PlatinumEngineering as Platinum;
- import DocumentServices.Global as Document;
- import AP.Common.GDT as GDT;
- var customer = Customer.Retrieve(this.CustomerID);
- if (customer.IsSet()){
- var currentCommon = customer.CurrentCommon;
- var dateNow = Context.GetCurrentSystemDate();
- //VERIFICAR SE É A DATA DE HOJE
- if((this.CustomerLastActivationDate == dateNow) && !this.CustomerLastActivationDate.IsInitial()){
- //VERIFICAR SE ESTÁ ATIVO MANUAL
- if(!this.CustomerInactive){
- //VERIFICAR SE ESTÁ ATIVO NO C4C
- if(this.Status == "2"){
- //VERIFICAR SE O EMAIL ESTÁ CADASTRADO
- if(!this.CustomertEmail.content.IsInitial()){
- // PEGANDO PARAMETROS GERAIS
- var queryParams = BusinessObject::CommonParameters.QueryByElements;
- var params = queryParams.ExecuteDataOnly().GetFirst();
- var bodyInicial = params.SurveyBodyEmail;
- var headerInicial = params.SurveyHeaderEmail;
- //VERIFICAR SE TEM HEADER E BODY INICIAIS
- if(!bodyInicial.IsInitial() && !headerInicial.IsInitial()){
- var emailTo = this.CustomertEmail.content;
- var Receipients : EmailRecepientDataTable;
- var EmailReceipient : EmailRecepientData;
- var EmailFrom : GDT:EmailURI;
- var SentFromURL : XPEString;
- var Body : XPEStringTab;
- var Subject : XPEString;
- //Parametros gerais
- var body = bodyInicial.content.Replace("#CUSTOMER#", this.CustomertName);
- Body.XPEString.Add(body);
- SentFromURL = SentFromURL.Concatenate("Este e-mail foi enviado por: ").Concatenate(Context.GetSystemURL());
- Body.XPEString.Add(SentFromURL);
- //quem mandou
- EmailFrom.content = "naoresponder@fh.com.br";
- EmailReceipient.EmailRecepientTypeCode = "TO";
- //EmailReceipient.EmailUri.content = emailTo;
- //destinatario
- EmailReceipient.EmailUri.content = "djalma.dissenha@fh.com.br";
- Receipients.EmailData.Add(EmailReceipient);
- var subject = headerInicial.content;
- Subject = subject; //Needs to be this type of data
- Mail.SendWithAttachment(Subject, Body, EmailFrom, Receipients, false);
- var t = "t2";
- }
- }
- }
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement