Gestão de Pessoas - Manual do Usuário > Customizações > Funções > LeRefeicoesAcumuladas

LeRefeicoesAcumuladas

Esta função lê as informações que foram totalizadas pela função AcumulaRefeicoes.

Sintaxe: LeRefeicoesAcumuladas(Alfa TipTot,Numero xnivloc,Numero xcodref);

Parâmetros:

Nome	Tipo	Descrição
TipTot	Alfa	Indicar o tipo de totalização. Ex:cadastro, empresa, especial (para totalização por local).
xnivloc	Numérico	Indicar o nível do local para totalizar a refeição (deve ser informado somente quando Tip Tot for especial).
xcodref	Numérico	Indicar qual o código da refeição.

Retorno: Retorna os valores para as seguintes variáveis de sistema:

Nome	Descrição
QtRefR	Quantidade de refeições.
VlRefR	Valor total de refeições.
QtConR	Quantidade de refeições consumidas.
QtResR	Quantidade de refeições reservadas.
QtSreR	Quantidade de refeições consumidas sem reserva.
QtScoR	Quantidade de refeições reservadas sem consumo.
QtSubR	Quantidade de refeições subsidiadas.
VlConR	Valor de refeições consumidas.
VlResR	Valor de refeições reservadas.
VlSreR	Valor de refeições consumidas sem reserva.
VlScoR	Valor de refeições reservadas sem consumo.
VlSubR	Valor de refeições subsidiadas.

Exemplo:

/* A regra abaixo é utilizada no modelo Hrre006.ger que lista as refeições dos colaboradores. */

/* Regra da Seção Detalhe1_Antes de Imprimir: */
vcodref = r070acc.codref;
vqtdref = r070acc.qtdacc;
vvalref = r070acc.valref;
vusoref = r070acc.usoref;

Se ((vqtdref = 0) e (vusoref <> 2))
vqtdref = 1;

/* Totaliza as marcações por colaborador. */
AcumulaRefeicoes("Cadastro",0,vcodref,vqtdref, vvalref, vusoref);

/* Totaliza as marcações por local conforme os níveis de quebra. */
AcumulaRefeicoes("0",esplevel,vcodref,vqtdref, vvalref, vusoref);

/* Regra da seção Subtotal1_Depois de Imprimir: */
vvlrcol = 0;
vqtdcol = 0;
vcodref = 1;

Enquanto (vcodref <= 999)
Inicio
    LeRefeicoesAcumuladas("Cadastro",0,vcodref);
    Se (qtrefr > 0)
      Inicio
        ListaSecao("Adicional_1");
        vvlrcol = vvlrcol + vlrefr;
        vqtdcol = vqtdcol + qtrefr;
      Fim;
    vcodref = vcodref + 1;
Fim;

ListaSecao("Adicional_2");

Utilização: Regras do Gerador de Relatórios.

Disponível para o módulo: Controle de Ponto e Refeitório.