ExcLanBhr

Excluir lançamentos no banco de horas que possuem o campo origem de lançamento (OriLan) contendo o valor ‘R’ (incluídos via regra).

É necessário utilizar essa função sempre que for utilizada a função IncLanBhr, para que a regra possa ser executada mais vezes, pois o lançamento deve ser excluído para não ser incluído em duplicidade. Ver abaixo exemplo 2.

Sintaxe: ExcLanBhr(Numero NumEmp, Numero TipCol, Numero NumCad, Numero CodBhr, Numero DatLan, Numero CodSit)

/* A regra de exclusão também pode ser utilizada no caso de executar a integração MAIS DE UMA VEZ, com inclusão de lançamentos via regra. Para não ocorrer erro ao incluir um lançamento com origem = 'R' que já existe, deve-se previamente excluir o lançamento (Orilan = 'R') no banco de horas. */

Definir Numero xDatCmp;
Definir Numero xnumemp;
Definir Numero xtipcol;
Definir Numero xnumcad;

/* Condição para executar apenas uma vez por colaborador. */
Se ((R034FUN.NUMEMP <> XNUMEMP) OU (R034FUN.TIPCOL <> XTIPCOL) OU (R034FUN.NUMCAD <> XNUMCAD))
 Inicio
 /* Retorna a data na variável xDatCmp. */
 RetDatCmp(R034FUN.NumEmp, DatIni, 1, 301, xDatCmp);
 /* Exclui lançamento do banco de horas previamente existente. */
 ExcLanBhr(R034FUN.NumEmp, R034FUN.TipCol, R034FUN.NumCad, 1, DatIni, 301);
 /* Inclui lançamento no banco de horas. */
 IncLanBhr(R034FUN.NumEmp, R034FUN.TipCol, R034FUN.NumCad, 1, DatIni, 301, 300, xDatCmp);
 Fim;

xnumemp = R034FUN.NUMEMP;
xtipcol = R034FUN.TIPCOL;
xnumcad = R034FUN.NUMCAD;

Utilização: Em regras de integração.

Disponível para o módulo: Controle de Ponto e Refeitório (somente rotina de banco de horas).