RetNomCodNiv

Retorna o Nome e o código do Local do Empregado em um determinado nível.

Sintaxe: RetNomCodNiv (Numero xNumEmp, Numero xTipCol, Numero xNumCad, Numero xDatRef, Numero xNivIni, Numero xNivFim, Alfa End xNomeLoc, Alfa End xCodNivLoc)

Parâmetros:

Nome Tipo Descrição
xNumEmp Numérico Número da empresa.
xTipCol Numérico Tipo do colaborador.
xNumCad Numérico Cadastro (código) do colaborador.
xDatRef Numérico Data de referência.
xNivIni Numérico Nível inicial (O código do local será mostrado a partir deste nível).
xNivFim Numérico Nível final (O código do local será mostrado até este nível).
xNomeLoc Alfa Retorna o nome do local em um determinado nível.
xCodNivLoc Alfa Retorna o código do local do funcionário em um determinado nível.

Exemplo:

/* Deseja-se saber o nome e o código do local de um determinado nível. */

Definir alfa xNome;

Definir alfa xCodLoc;

 

/* xNome retornará o nome do local e xCodLoc retornará o código do local a partir do segundo nível até o quarto nível. */

RetNomCodNiv(r034fun.numemp,r034fun.tipcol,r034fun.numcad,DatSis,2,4,xNome,xCodLoc);

Ou seja, para:

Empresa: 1
Tipo Col.: 1
Cadastro: 1
Nome Local: Compras
Cód. Local: 1.2.1.4

O retorno será:

Local: Compras
Código: 2.1.4

Exemplo de regra de apuração:

Para trazer o código do nível é obrigatório na regra acrescentar a seguinte linha antes da chamada da função RetNomCodNiv():

DatRef = DatFim;

Então a regra fica sendo:

Definir Alfa VNomNiv;

Definir Alfa VCodLocNiv;

Definir Data VData;

DatRef = DatFim;

VData = DatPro;

RetNomCodNiv(R034Fun.NumEmp,R034Fun.TipCol,R034Fun.NumCad,vData,6,6,VNomNiv,VCodLocNiv);

...

Utilização: Nas regras do gerador de relatórios, gerador de importação/exportação e regras de apuração.

Este artigo ajudou você?