English
Español
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:
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))
Inicio
Se (R126SVA.SitSva = 3)
Inicio
aAssunto = "Solicitação de Alteração de Solicitação de Vaga";
aTexto = "Você tem pendente alteração da solicitação de vaga número " + aCodSva + ".";
Fim
Senao
Se (R126SVA.SitSva = 4)
Inicio
aAssunto = "Solicitação de Vaga aprovada";
aTexto = "A solicitação de vaga número " + aCodSva + " foi Aprovada.";
Fim
Senao
Se (R126SVA.SitSva = 5)
Inicio
aAssunto = "Solicitação de Vaga Rejeitada";
aTexto = "A solicitação de vaga número " + aCodSva + " foi Rejeitada.";
Fim
Senao
Se (R126SVA.SitSva = 6)
Inicio
aAssunto = "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);
Fim
Senao
@ Avisa aprovador quando Solicitação de vaga é Encaminhada ou Aprovada e ainda existem aprovadores @
Se (R126SVA.SitSva = 2)
Inicio
xCodSva = 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)
Inicio
aAssunto = "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;
Exemplo 2:
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";
Utilização: Rotina de solicitação de vaga.
Disponível para o módulo: RS.
English
Español
