CodEpa

Retorna o código do motivo de parada na hora extra, conforme cadastro da programação de paradas. Para utilizar esta variável é necessário antes setar as funções FlePar e FpxPar.

Exemplo 1:

@ Verifica se existem programação de parada no dia. @
vret = FLePar;

Se(vret = 0)
  Vapara Final;

 

@ Lê as várias programações do dia. @
Loop:
vret = FPxPar;
Se(vret = 0)
  Vapara Final;

 

@ A partir daqui pode-se usar as variáveis. @
...

Vapara Loop;
Final:

Exemplo 2:

vret = FLePar;

Se (vret = 1)
  Cancel (1);

 

Loop1:
vret = FPxPar;
Se (vret = 1)
  Inicio
    ListaSecao ("Adicional_1");
    Cancel (2);
  Fim;

 

Se (codepa <> 0)
  ListaSecao ("Adicional_1");

 

Se ((FCodPar <> CodPar) e (FCodPar <> 0))
  Inicio
    ListaSecao ("Adicional_1");
    fqtdpar = 0;
  Fim;

 

FCodPar = CodPar;

 

Se (Qtdpar = 0)
  StrAu = DesEPa;
Senao
  StrAu = DesPar;

fqtdpar = fqtdpar + QtdPar;
tqtdpar = tqtdpar + QtdPar;
Vapara Loop1;

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.

Este artigo ajudou você?