English
Español
RetDatCmp
Retorna a data de compensação para lançamentos do banco de horas.
Sintaxe: RetDatCmp(Numero Numemp, Numero DatLan, Numero CodBhr, Numero CodSit, Numero End vDatCmp)
Parâmetros:
| Nome | Tipo | Descrição |
| NumEmp | Numérico | Número da empresa |
| DatLan | Numérico | Data do lançamento no banco de horas. |
| CodBhr | Numérico | Código do banco de horas. |
| CodSit | Numérico | Situação do lançamento. |
| vDatCmp | Numérico | Variável de retorno contendo a data de compensação. |
Exemplo 1:
/* Obter a data de compensação para inclusão de um lançamento no banco de horas via regra. */
Definir Numero xDatCmp;
/* Retorna a data na variável xDatCmp. */
RetDatCmp(R034FUN.NumEmp, DatIni, 1, 301, xDatCmp);
Exemplo 2:
/* Exemplo completo da regra. */
/* 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: Apenas nas seguintes regras de Integração: Primeira Semana, Período de Geração e Período de Projeção.
Disponível para o módulo: Controle de Ponto e Refeitório.
English
Español
