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. |
<div class="Code"><p>/* A regra abaixo é utilizada no modelo Hrre006.ger que lista as refeições dos colaboradores. */</p><p></p><p>/* Regra da Seção Detalhe1_Antes de Imprimir: */<br></br>vcodref = r070acc.codref;<br></br>vqtdref = r070acc.qtdacc;<br></br>vvalref = r070acc.valref;<br></br>vusoref = r070acc.usoref;</p><p></p><p>Se ((vqtdref = 0) e (vusoref <> 2))<br></br> vqtdref = 1;</p><p></p><p>/* Totaliza as marcações por colaborador. */<br></br>AcumulaRefeicoes("Cadastro",0,vcodref,vqtdref, vvalref, vusoref);<br></br><br></br>/* Totaliza as marcações por local conforme os níveis de quebra. */<br></br>AcumulaRefeicoes("0",esplevel,vcodref,vqtdref, vvalref, vusoref);</p><p></p><p>/* Regra da seção Subtotal1_Depois de Imprimir: */<br></br>vvlrcol = 0;<br></br>vqtdcol = 0;<br></br>vcodref = 1;</p><p></p><p style="font-weight: normal;">Enquanto (vcodref <= 999)<br></br> Inicio<br></br> LeRefeicoesAcumuladas("Cadastro",0,vcodref);<br></br> Se (qtrefr > 0)<br></br> Inicio<br></br> ListaSecao("Adicional_1");<br></br> vvlrcol = vvlrcol + vlrefr;<br></br> vqtdcol = vqtdcol + qtrefr;<br></br> Fim;<br></br> vcodref = vcodref + 1;<br></br> Fim;</p><p style="font-weight: normal;"></p><p>ListaSecao("Adicional_2");</p></div>
Utilização: Regras do Gerador de Relatórios.
Disponível para o módulo: Controle de Ponto e Refeitório.
English
Español
