DesEpa

Retorna a descrição do motivo de parada nas horas extras, a partir das 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.