English
Español
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.
English
Español
