CodPar

Retorna o código do motivo da programação de parada dentro das horas de trabalho. Para utilizar esta variável é necessário setar as variáveis 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ê?