Regra por Processo 807 - Ação sobre a Solicitação de Abertura de Vaga

É executada após executar uma das ações (Encaminhar, Cancelar, Aprovar, Rejeitar ou Solicitar alteração) sobre a solicitação de abertura de vaga.

Recursos utilizados: Estará disponível somente para consulta o registro da tabela R126SVA.

Comando Cancel: Através dessa regra é possível cancelar o processo usando Cancel(1) ou mensagem (Erro, “mensagem”).

Exemplo 1:

<div class="Code">Definir Alfa aTexto;Definir Alfa aQuebra;Definir Alfa aEmaPar;Definir Alfa aEmaCom;Definir Alfa aAssunto;Definir Alfa aCodSva;IntParaAlfa(R126SVA.CodSva, aCodSva);@ Busca o colaborador associado ao usuário responsável pela solicitação @RetColabPorCodUsu(R126SVA.UsuRes, xNumEmp, xTipCol, xNumCad);@ Busca e-mail do responsável pela solicitacao @BusEmailFunc(xNumEmp, xTipCol, xNumCad, aEmaPar, aEmaCom);@ Avisa responsável quando Solicitação de vaga é Aprovada, Rejeitada, Cancelada ou aprovador Solicita alteração @Se ((R126SVA.SitSva = 3) ou (R126SVA.SitSva = 4) ou (R126SVA.SitSva = 5) ou (R126SVA.SitSva = 6))InicioSe (R126SVA.SitSva = 3)InicioaAssunto = "Solicitação de Alteração de Solicitação de Vaga";aTexto = "Você tem pendente alteração da solicitação de vaga número " + aCodSva + ".";FimSenaoSe (R126SVA.SitSva = 4)InicioaAssunto = "Solicitação de Vaga aprovada";aTexto = "A solicitação de vaga número " + aCodSva + " foi Aprovada.";FimSenaoSe (R126SVA.SitSva = 5)InicioaAssunto = "Solicitação de Vaga Rejeitada";aTexto = "A solicitação de vaga número " + aCodSva + " foi Rejeitada.";FimSenaoSe (R126SVA.SitSva = 6)InicioaAssunto = "Solicitação de Vaga Cancelada";aTexto = "A solicitação de vaga número " + aCodSva + " foi Cancelada.";Fim;EnviaEmail("remetente@senior.com.br", aEmaCom, "", "", aAssunto, aTexto, "", 0);FimSenao@ Avisa aprovador quando Solicitação de vaga é Encaminhada ou Aprovada e ainda existem aprovadores @Se (R126SVA.SitSva = 2)InicioxCodSva = R126SVA.CodSva;Definir Cursor Cur_R126RSV;Cur_R126RSV.SQL "SELECT NUMCAD FROM R126RSV WHERE CODSVA = :xCodSva AND SITRSV = 1";Cur_R126RSV.AbrirCursor();Se (Cur_R126RSV.Achou)InicioaAssunto = "Aprovação de Solicitação de Vaga";aTexto = "Você tem pendente aprovação da solicitação de vaga número " + aCodSva + ". Favor acessar o Portal, caminho XXXXX. " + aQuebra;aTexto = aTexto + " " + aQuebra;aTexto = aTexto + " Desenvolvimento Humano e Organizacional," + aQuebra;aTexto = aTexto + " Recrutamento & Seleção" + aQuebra;EnviaEmail("remetente@senior.com.br", aEmaCom, "", "", aAssunto, aTexto, "", 0);Fim;Cur_R126RSV.FecharCursor();Fim;</div>

Exemplo 2:

<div class="Code">Definir Cursor Cur_R034USU;xCodUsu = 0;xCodSva = R126SVA.CodSva;xSitSva = R126SVA.SitSVa;@ Busca o colaborador associado ao usuário responsável pela solicitação @RetColabPorCodUsu(R126SVA.UsuRes, xNumEmp, xTipCol, xNumCad);Cur_R034USU.SQL "SELECT CODUSU FROM R034USU \WHERE NUMEMP = :xNumEmp \AND TIPCOL = :xTipCol \AND NUMCAD = :xNumCad \AND CRIUSU <> 1 \ORDER BY CODUSU";Cur_R034USU.AbrirCursor();Se (Cur_R034USU.Achou)xCodUsu = Cur_R034USU.CodUsu;Cur_R034USU.FecharCursor();se ((xCodUsu <> 0) e (xCodUsu <> R126SVA.UsuRes))ExecSQL "UPDATE R126SVA SET USURES = :xCodUsu WHERE CODSVA = :xCodSva";</div>

Utilização: Rotina de solicitação de vaga.

Disponível para o módulo: RS.

PORTAL DE DOCUMENTAÇÃO
Gestão de Pessoas \| HCM - versão 6.10.4