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

RetornaMarcacoesOriginais

Esta função verifica através do colaborador e data passadas, os crachás e com base neles retorna em variáveis de sistema as marcações originais do ponto (tabela R070CRI).
Cada índice da variável é um registro que encontrou no select que a função faz na tabela que guarda as marcações originais.

Sintaxe: Funcao RetornaMarcacoesOriginais(Numero xNumEmp, Numero xTipCol, Numero xNumCad, Data xDatIni, Data xDatFim);

Parâmetros:

Nome	Tipo	Descrição
xNumEmp	Numérico	Número da Empresa.
xTipCol	Numérico	Tipo do Colaborador.
xNumCad	Numérico	Cadastro de Colaborador.
xDatIni	Numérico	Data Inicial das Marcações.
xDatFim	Numérico	Data Final das Marcações.

Tipo de Retorno: DatApuOri[], NumCraOri[], DatAccOri[], HorAccOri[], SeqAccOri[], CodPltOri[], CodRlgOri[].

Exemplo:

@ Retorna Marcações originais na data de processamento @
RetornaMarcacoesOriginais(R034FUN.NumEmp, R034FUN.TipCol, R034FUN.NumCad, DatPro, DatPro);
Enquanto ((DatAccOri[xCount] <> 0)
inicio
@ Se sequencia for maior que 1, desconsidera @
Se (SeqAccOri[xCount] > 1)
Continue;
ConverteMascara(4, HorAccOri[xCount], AlfHorAcc, "hh:mm");
xMarcacoes = xMarcacoes + " " + AlfHorAcc;
xCount++;
fim;
@ No final grava junto no alfa o número do crachá que estava verificando no priemiro registro @
IntParaAlfa(NumCraOri[1], AlfaCra);
xMarcacoes = "Marcações do crachá " + AlfaCra + ": " + xMarcacoes;

Utilização: Todas as regras.

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