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)

<div class="Code"><p>/* Obter a data de compensação para inclusão de um lançamento no banco de horas via regra. */<br></br>Definir Numero xDatCmp;</p><p>/* Retorna a data na variável xDatCmp. */<br></br>RetDatCmp(R034FUN.NumEmp, DatIni, 1, 301, xDatCmp);</p></div>

<div class="Code"><p>/* Exemplo completo da regra. */</p><p></p><p>/* 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. */</p><p></p><p>Definir Numero xDatCmp;<br></br>Definir Numero xnumemp;<br></br>Definir Numero xtipcol;<br></br>Definir Numero xnumcad;</p><p></p><p>/* Condição para executar apenas uma vez por colaborador. */<br></br>Se ((R034FUN.NUMEMP &#x3C;> XNUMEMP) OU (R034FUN.TIPCOL &#x3C;> XTIPCOL) OU (R034FUN.NUMCAD &#x3C;> XNUMCAD))<br></br> Inicio<br></br> /* Retorna a data na variável xDatCmp. */<br></br> RetDatCmp(R034FUN.NumEmp, DatIni, 1, 301, xDatCmp);<br></br> /* Exclui lançamento do banco de horas previamente existente. */<br></br> ExcLanBhr(R034FUN.NumEmp, R034FUN.TipCol, R034FUN.NumCad, 1, DatIni, 301);<br></br> /* Inclui lançamento no banco de horas. */<br></br> IncLanBhr(R034FUN.NumEmp, R034FUN.TipCol, R034FUN.NumCad, 1, DatIni, 301, 300, xDatCmp);<br></br> Fim;</p><p></p><p>xnumemp = R034FUN.NUMEMP;<br></br>xtipcol = R034FUN.TIPCOL;<br></br>xnumcad = R034FUN.NUMCAD;</p></div>

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.