Gestão de Pessoas - Manual do Usuário > Customizações > Funções > RetDatCmp

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.