Gestão de Pessoas - Manual do Usuário > Customizações > Regras > Regras por Processo > Regra por processo 847 - Após salvar substituídos da solicitação de abertura de vaga

Regra por processo 847 - Após salvar substituídos da solicitação de abertura de vaga

Regra executada após salvar os Substituídos de uma solicitação de abertura de vaga.

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

O exemplo a seguir exclui do roteiro de aprovação os colaboradores da lista de substituídos.

Exemplo:

Definir Cursor CRoteiro;

Definir Numero xCodSva;

Definir Numero xNumEmp;

Definir Numero xTipCol;

Definir Numero xNumCad;

xCodSva = R126SVA.CODSVA;

CRoteiro.SQL "SELECT R126RSV.NUMEMP, R126RSV.TIPCOL, R126RSV.NUMCAD FROM R126SSV,R126RSV WHERE R126SSV.CODSVA = :xCodSva AND R126RSV.CODSVA = :xCodSva \

AND R126SSV.NUMEMP = R126RSV.NUMEMP AND R126SSV.TIPCOL = R126RSV.TIPCOL \

AND R126SSV.NUMCAD = R126RSV.NUMCAD ";

CRoteiro.AbrirCursor();

Enquanto (CRoteiro.Achou)

{

xNumEmp = CRoteiro.NUMEMP;

xTipCol = CRoteiro.TIPCOL;

xNumCad = CRoteiro.NUMCAD;

ExecSQL "DELETE R126RSV WHERE CODSVA = :xCodSva AND NUMEMP = :xNumEmp AND TIPCOL = :xTipCol AND NUMCAD = :xNumCad";

CRoteiro.Proximo();

}

CRoteiro.FecharCursor();

Utilização: Solicitação de abertura de vaga, guia Substituídos.

Disponível para o módulo: RS.