Este conteúdo não recebe atualizações, pois é referente a uma versão do sistema que foi descontinuada. Acesse a documentação da versão 6.10.1 aqui

RetQtdVagLoc

A função RetQtdVagLoc tem como objetivo retornar a quantidade de vagas disponíveis em um determinado local, 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: RetQtdVagLoc(Numero xNumEmp, Numero xTabOrg, Numero xNumLoc, Numero xEstCar, Alfa xCodCar, Numero xTurno, Numero xDatAlt, Numero End xVag, Numero xTipVag)

Parâmetros:

Nome Tipo Descrição
xNumEmp Numérico Empresa ativa.
xTaborg Numérico Tabela de Organograma.
xNumLoc Numérico Deve-se passar como parâmetro o NumLoc, que poderá ser obtido através da função RetornaNumLoc(Numero pTabOrg,alfa CodLoc), onde são passados os parâmetros: tabela do organograma e código do local.
Obs.: Quando a empresa utiliza nível do QL no organograma, internamente a função irá considerar o local do nível do QL.
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:

Definir alfa xCodLoc;
xNumEmp = EmpAtu;
xTabOrg = 1;
xCodLoc = "1.01";
xNumLoc = RetornaNumLoc(xTabOrg, xCodLoc);
xEstCar = RetEstCarEmp(xNumEmp, DatSis);
xCodCar = "001";
xTurno = 9; @ Geral @
MontaData(01,10,2008,xDatAlt);
xTipVag = 1;
RetQtdVagLoc(xNumEmp, xTabOrg, xNumLoc, 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ê?