FpxPar

Lê as programações de paradas existentes no dia, retornando 1 se houver programação. Antes do FPxPar deve-se usar a variável FLePar, que indica se existem ou não programações no dia.

<div class="Code"><p>@ Verifica se existem programação de parada no dia. @<br></br>vret = FLePar;</p><p>Se(vret = 0)<br></br> Vapara Final;</p><p>@ Lê as várias programações do dia. @<br></br>Loop:<br></br>vret = FPxPar;<br></br><br></br>Se(vret = 0)<br></br> Vapara Final;</p><p>@ A partir daqui pode-se usar as variáveis . @<br></br>...</p><p>Vapara Loop;</p><p>Final:</p></div>

<div class="Code"><p>vret = FLePar;</p><p>Se (vret = 1)<br></br> Cancel (1);<br></br><br></br>Loop1:<br></br>vret = FPxPar;</p><p>Se (vret = 1)<br></br> Inicio<br></br> ListaSecao ("Adicional_1");<br></br> Cancel (2);<br></br> Fim;</p><p>Se (codepa &#x3C;> 0) <br></br> ListaSecao ("Adicional_1");</p><p>Se ((FCodPar &#x3C;> CodPar) e (FCodPar &#x3C;> 0))<br></br> Inicio<br></br> ListaSecao ("Adicional_1");<br></br> fqtdpar = 0;<br></br> Fim;</p><p>FCodPar = CodPar;</p><p>Se (Qtdpar = 0)<br></br> StrAu = DesEPa;<br></br>Senao<br></br> StrAu = DesPar;</p><p>fqtdpar = fqtdpar + QtdPar;<br></br>tqtdpar = tqtdpar + QtdPar;<br></br><br></br>Vapara Loop1;</p></div>

Utilização: Somente nas regras de relatório de apuração e cartão ponto.

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