Gestão de Pessoas - Manual do Usuário > Customizações > Regras > Regras por Processo > Regra por processo 315 - Após efetivar proposta de cargo

Regra por processo 315 - Após efetivar proposta de cargo

Este recurso não está disponível no Gestão de Pessoas | HCM GO UP. Saiba mais.

Esta regra por processo será executada após efetivar a proposta de cargo. Estarão disponíveis os campos da tabela R076PCA e também os campos de usuário desta tabela.

Esta regra não permite cancelar a efetivação da proposta. Para isso deve-se utilizar a regra por processo 560 - Antes Efetivar Proposta de Cargo.

Exemplo:

/* Busca qual era o último cargo do colaborador antes da efetivação da proposta
e grava nos campos de usuário R076PCA.USU_ESTANT e R076PCA.USU_CARANT */
definir data xDatEfe;
definir data xDatRef;
xNumEmp = R076PCA.NumEmp;
xTipCol = R076PCA.TipCol;
xNumCad = R076PCA.NumCad;
xDatEfe = R076PCA.DatEfe;
xDatRef = xDatEfe - 1;

RetCarEmp(xNumEmp, xTipCol, xNumCad, xDatRef);
definir alfa xCodCar;
xEstCar = EstCarEmp;
xCodCar = CarEmp;

definir alfa xUpdate;
SQL_Criar(xUpdate);
SQL_DefinirComando(xUpdate, "UPDATE R076PCA SET USU_ESTANT = :EstCar, USU_CARANT = :CodCar \

WHERE NUMEMP = :NumEmp \
AND TIPCOL = :TipCol \
AND NUMCAD = :NumCad \
AND DATALT = :DatEfe");

SQL_DefinirInteiro(xUpdate, "EstCar", xEstCar);
SQL_DefinirAlfa(xUpdate, "CodCar", xCodCar);
SQL_DefinirInteiro(xUpdate, "NumEmp", xNumEmp);
SQL_DefinirInteiro(xUpdate, "TipCol", xTipCol);
SQL_DefinirInteiro(xUpdate, "NumCad", xNumCad);
SQL_DefinirData(xUpdate, "DatEfe", xDatEfe);
SQL_AbrirCursor(xUpdate);
SQL_FecharCursor(xUpdate);
SQL_Destruir(xUpdate);

Utilização: Tela de Efetivação de Propostas de Cargo (CS: Propostas/Cargos/Efetivar).

Disponível para o módulo: CS.