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.