English
Español
RetornaCodLoc
Retorna o código do local segundo o NumLoc informado.
Explicações sobre o organograma:
Código do Local - Código utilizado pela Empresa (usuário do sistema) que identifica um local (tabela de organograma).
Descrição do Local - Descrição utilizada pela Empresa (usuário do sistema) que descreve um local (tabela de organograma).
Número do Local - Número interno do sistema que representa um local (tabela de organograma). Obs: esta informação é utilizada nas tabelas do sistema, mas não tem significado real para o usuário do sistema.
Para converter esta informação para o código do local utilize a função RetornaCodLoc.
Esta função, quando utilizada em modelos de relatórios, sofre influência da variável DatRef. Portanto, caso ela não seja utilizada no modelo para ter seu valor setado, a função irá retornar os códigos de locais utilizando a data final do cálculo ativo como data de referência, que pode fazer com que o local não seja retornado. Para sobrescrever a data de referência, basta zerar a variável DatRef via regra ou configurá-la como parâmetro de entrada do modelo, de acordo com a documentação da variável.
Sintaxe: RetornaCodLoc(vNumLoc,pCodLoc);
Parâmetros:Nome | Tipo | Descrição |
vNumLoc | Numérico | Número do Local. |
pCodLoc | Numérico | Variável que retornará o código do local. |
<div class="Code"><p>/* Esta regra retornará o código do local e os locais pai. */</p><p></p><p>Definir alfa pcodloc;</p><p>vnumloc = r034fun.numloc;</p><p>RetornaCodLoc (vnumloc,pCodLoc);</p><p>Definir alfa nivellocal;</p><p>Definir alfa localpai;</p><p>x = 1;</p><p>Enquanto (x < 11) </p><p>inicio</p><p> RetornaNivelLocal(r034fun.taborg,pcodloc, x, x, nivellocal);</p><p> Se (nivellocal = "")</p><p> inicio</p><p> /* Diminui um para voltar ao último nível onde tem dado. */</p><p> /* Diminui um para posicionar no nível pai. */</p><p> x = x - 2;</p><p> Pare;</p><p> fim;</p><p> x = x + 1;</p><p>fim;</p><p>RetornaNivelLocal(r034fun.taborg,pCodLoc, x, x, localpai);</p><p>y = 1;</p></div>
Utilização:Gerador de Relatórios e Regras.
English
Español
