RetSinLan

Retorna o sinal de determinado lançamento do banco de horas.

Sintaxe: RetSinLan(Numero xnumemp,Numero xtipcol,Numero xnumcad,Numero xcodbhr,Numero xdatbas,Numero xcodsit,Alfa xorilan,Alfa End xsinsit);

Parâmetros:

Nome Tipo Descrição
xnumemp Numérico Código da empresa.
xtipcol Numérico Tipo do colaborador.
xnumcad Numérico Código do Cadastro.
xcodbhr Numérico Código do Banco de Horas do lançamento.
xdatbas Numérico Data do lançamento.
xcodsit Numérico Código da Situação do lançamento.
xorilan Alfa Origem do lançamento.
xsinsit Alfa Variável para retornar o sinal ('+' ou '-').

Exemplo:

/* Verifica a quantidade de horas de determinado lançamento da r011lan. */
qtdhor = r011lan.qtdhor;

RetSinLan(vNumEmp, vTipCol, vNumCad, vCodBhr, vDatLan, vCodSit, vOriLan, vsinsit);

Se (vsinsit = "-")
  qtdhor = qtdhor * (-1);

Utilização: Em regras de Processos, Apuração, Integração e do Gerador de Relatórios.

Disponível para o módulo: Controle de Ponto e Refeitório.

Este artigo ajudou você?