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.