Regra por Processo 806 - Alteração do Roteiro de Aprovação de Solicitação de Abertura de Vaga

Definir Alfa aCodSva;
Definir Alfa aEmaPar;
Definir Alfa aEmaCom;
Definir Alfa aAssunto;
Definir Alfa aTexto;

IntParaAlfa(R126SVA.CodSva, aCodSva);

@ Busca e-mail do responsavel pela solicitacao @
RetColabPorCodUsu(R126SVA.UsuRes, xNumEmp, xTipCol, xNumCad);
BusEmailFunc(xNumEmp, xTipCol, xNumCad, aEmaPar, aEmaCom);

aAssunto = "Solicitação " + aCodSva;
aTexto = "Houve alteração no roteiro de solicitação desta vaga.";

EnviaEmail("remetente@senior.com.br", aEmaCom, "", "", aAssunto, aTexto, "", 0);