English
Español
LeMemListHCCustos
Ler as informações da lista com a hierarquia dos centros de custos a partir do Centro de Custo passado como parâmetro.
Sintaxe: LeMemListHCCustos(Numero pPos,Numero End pFim,Alfa End pCodCcu,Alfa End pAbrCcu, Alfa End pCcuPai, Numero End PNumNiv, Numero End pTamAnt, Alfa end pDesCcu)
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| pPos | Numero | Variável que indica a posição que se quer ler na lista(inicia na posição zero(0)). |
| pFim | Numero | Variável que retorna 0 ou 1. Quando for 1, indica que acabou a lista. |
| pCodCcu | Alfa | Variável que retorna o código do centro de custos. |
| pAbrCcu | Alfa | Variável que retorna a abreviatura do centro de custos. |
| pCcuPai | Alfa | Variável que retorna qual o pai do centro de custos. |
| pNumNiv | Numero | Variável que retorna o nível do centro de custos. |
| pTamAnt | Numero | Variável que retorna o tamanho do código do centro de custos anterior. |
| pDesCcu | Alfa | Variável que retorna a descrição do centro de custos. |
Tipo de retorno:
pFim: Variável numérica que retorna 0 ou 1. Quando for 1, indica que acabou a lista
pCodCcu: Variável alfanumérica que retorna o código do centro de custos
pAbrCcu: Variável alfanumérica que retorna a abreviatura do centro de custos
pCcuPai: Variável alfanumérica que retorna qual o pai do centro de custos
pNumNiv: Variável numérica que retorna o nível do centro de custos
pTamAnt: Variável numérica que retorna o tamanho do código do centro de custos anterior
pDesCcu: Variável alfanumérica que retorna a descrição do centro de custos
Exemplo:
Definir Alfa VCodCcu;
Definir Alfa VAbrCcu;
Definir Alfa VDesCcu;
Definir Alfa VCcuPai;
Se (PrimeiraVez=1)
Inicio
PrimeiraVez=0;
GeraHCCustos(" ");
VFimMemList=0;
VPos=0;
Enquanto (VFimMemList=0 )
Inicio
LeMemListHCCustos(VPos,VFimMemlist,VCodCcu,VAbrCcu,VCcuPai,VNumNiv,VTamAnt,VDesCcu);
Se (VFimMemList=0)
Inicio
ListaSecao("Adicional_E044Ccu");
Fim;
VPos++;
Fim;
Fim;
Utilização da Função (dependentes): GeraHCCustos
Observações: No exemplo acima, é feito a geração da hierarquia a partir do Centro de Custo pai de todos (" "),e após é lida a lista que foi gerada, através de outra função de programador: LeMemListHCCustos. A regra acima foi utilizada no evento Depois de Imprimir, do modelo TBCS009.Ger - Hirarquia dos centros de Custos
English
Español
