English
Español
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.
English
Español
