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:

<div class="Code"><p>Definir alfa xCodLoc;<br></br>xNumEmp = EmpAtu;<br></br>xTabOrg = 1;<br></br>xCodLoc = "1.01";<br></br>xNumLoc = RetornaNumLoc(xTabOrg, xCodLoc);<br></br>xEstCar = RetEstCarEmp(xNumEmp, DatSis);<br></br>xCodCar = "001";<br></br>xTurno = 9; @ Geral @ <br></br>MontaData(01,10,2008,xDatAlt);<br></br>xTipVag = 1;<br></br>RetQtdVagLoc(xNumEmp, xTabOrg, xNumLoc, xEstCar, xCodCar, xTurno, xDatAlt, xVag, xTipVag);<br></br>Se (xVag > 0)<br></br>inicio<br></br>...<br></br>fim</p></div>

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

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

Este artigo ajudou você?