English
Español
Regra por processo 45 - Inserir propostas de cargos
Esta regra por processo será chamada antes de inserir 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:
- Proposta de Alteração de Cargo - CS: Propostas/Cargos/Cadastro
- Geração Coletiva de Proposta de Salário ou Cargo - CS: Propostas/Gerar
- Lançamentos - CS: Propostas/Cargos/Lançamento
Disponível para o módulo: CS.
English
Español
