Regra por processo 690 - Após finalizar requisição

Esta regra será executada ao finalizar a requisição (Situação = 3) pela tela de cadastro da requisição e pela tela de efetivação, quando a quantidade de admitidos for igual à quantidade de vagas da requisição. O objetivo da regra será efetuar procedimentos após finalizar a requisição, não deverá ser utilizada para efetuar consistências. Na regra, os registros podem ser consultados diretamente através do comando 'TABELA.CAMPO', sendo que estão disponíveis os campos da tabela R126RQU para leitura.

Ejemplo:

/* Esta regra faz com que seja enviado um e-mail para o solicitante da requisição dizendo que a mesma foi finalizada. */

Definir Alfa aEmaPar;
Definir Alfa aEmaCom;
Definir Alfa StrCodRqu;
Definir Alfa xMsg;

xCodRqu = R126RQU.CodRqu;
xNumEmp = R126RQU.EmpSol;
xTipCol = R126RQU.TipCol;
xNumCad = R126RQU.NumCad;

@ Busca o email do colaborador que é o solicitante da requisição @
BusEmailFunc (xNumEmp, xTipCol, xNumCad, aEmaPar, aEmaCom);

@ Envia o email @
IntParaAlfa(xCodRqu, StrCodRqu);
xMsg = "A Requisição " + StrCodRqu + " foi finalizada.";
EnviaEmail ("", aEmaCom, "", "", "Finalização de Requisição", xMsg, "");

Utilização: Esta regra por processo encontra-se disponível somente no módulo RS.