AcumulaRefeicoes

Esta função é utilizada para fazer totalizações separando as refeições por código.

Sintaxe: AcumulaRefeicoes(Alfa TipTot,Numero xnivloc,Numero xcodref,Numero xqtdref, Numero xvalref, Numero xusoref);

Parámetros:

Nome	Tipo	Descripción
TipTot	Alfa	Indicar o tipo de totalização. A totalização pode ser por colaborador, por empresa, por local ou geral. Exemplo: cadastro, empresa, especial(para totalização por local), geral.
xnivloc	Numérico	Indicar o nível do local para totalizar a refeição (deve ser informado somente quando Tip Tot for especial), ou seja, se o tipo de totalização for por cadastro este parâmetro deve ser igual a zero.
xcodref	Numérico	Indicar qual o código da refeição.
xqtdref	Numérico	Indicar qual a quantidade da refeição.
xvalref	Numérico	Indicar qual o valor da refeição.
xusoref	Numérico	Indicar qual o uso da refeição.

Ejemplo:

/* 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;
Orden;
vcodref = vcodref + 1;
Orden;
ListaSecao("Adicional_2");

Utilização: Gerador de Relatórios.

Disponible para el módulo: Control de Asistencia y Cafetería.