RetQtdVagCcu

A função RetQtdVagCcu tem como objetivo retornar a quantidade de vagas disponíveis em um determinado centro de custo, cargo e data passados como parâmetros, ou seja, é a diferença entre a quantidade de vagas do quadro previsto e a quantidade de vagas do quadro efetivo.

Sintaxe: RetQtdVagCcu(Numero xNumEmp, Alfa xCodCcu, Numero xEstCar, Alfa xCodCar, Numero xTurno, Numero xDatAlt, Numero End xVag, Numero xTipVag);

Parâmetros:

Nome Tipo Descrição
xNumEmp Numérico Empresa ativa.
xCodCcu Alfa Deve-se passar como parâmetro o código do Centro de Custo.
xEstCar Numérico Estrutura do Cargo.
xCodCar Alfa Código do Cargo. Obs.: Se a estrutura de cargo utiliza nível do QL, internamente a função irá considerar o cargo no nível do QL.
Obs.: Caso a empresa utilize as rotinas de Cargo da Vaga (QL: Diversos\Assinalamentos, pasta Cadastro, campo Cargo Vaga = S) a função irá considerar o cargo da vaga para consultar o número de afastados.
xTurno Numérico Turno. Obs.: Se a empresa usa turno deve ser passado um turno para referência, senão pode passar zero(0).
xDatAlt Numérico Data.
xVag Numérico É o retorno da função, ou seja, a quantidade de vagas disponíveis resultantes da diferença entre a quantidade de vagas do quadro previsto e a quantidade de vagas do quadro efetivo.
xTipVag Numérico

Tipo de Vaga. Obs.: Quando a empresa utiliza o tipo de vaga deve informar qual o tipo de vaga que deseja consultar, senão deve informar um parâmetro default igual a 1.

Exemplo:

xNumEmp = EmpAtu;
xCodCcu = "1101";
xEstCar = RetEstCarEmp(xNumEmp, DatSis);
xCodCar = "001";
xTurno = 9; @ Geral @
MontaData(01,10,2008,xDatAlt);
xTipVag = 1;
RetQtdVagCcu(xNumEmp, xCodCcu, xEstCar, xCodCar, xTurno, xDatAlt, xVag, xTipVag);
Se (xVag > 0)
inicio
...
fim

Utilização: Gerador de relatórios e editor de regras.

Disponível para os módulos: CS, QL e JR.

Este artigo ajudou você?