Gestão de Pessoas - Manual do Usuário > Customizações > Regras > Regras por Processo > Regra por processo 46 - Alterar propostas de cargos

Regra por processo 46 - Alterar propostas de cargos

Esta regra por processo será chamada antes de alterar as propostas de cargos. Permite utilização de campos de usuário.

Recursos utilizados: Disponibiliza a tabela R076PCA.

Comando Cancel: É possível cancelar o processo via regra utilizando cancel(1) por exemplo.

Exemplo:

xNumEmp = R076PCA.NumEmp;
xTipCol = R076PCA.TipCol;
xNumCad = R076PCA.NumCad;

 

definir data xDatRef;
xDatRef = R076PCA.DatAlt;

 

@ Verifica se o colaborador está demitido na data da proposta @
definir cursor CUR_R038AFA;
CUR_R038AFA.SQL "SELECT R038AFA.NUMCAD FROM R038AFA, R010SIT \

WHERE R038AFA.NUMEMP = :xNumEmp \
AND R038AFA.TIPCOL = :xTipCol \
AND R038AFA.NUMCAD = :xNumCad \
AND R038AFA.DATAFA = (SELECT MAX(AFA.DATAFA) FROM R038AFA AFA \

WHERE AFA.NUMEMP = R038AFA.NUMEMP \
AND AFA.TIPCOL = R038AFA.TIPCOL \
AND AFA.NUMCAD = R038AFA.NUMCAD \
AND AFA.DATAFA <= :xDatRef) \

AND R010SIT.CODSIT = R038AFA.SITAFA \
AND R010SIT.TIPSIT = 7";

CUR_R038AFA.AbrirCursor();
se (CUR_R038AFA.Achou) {
cancel(1);
}

Utilização:

Disponível para o módulo: CS.

Este artigo ajudou você?