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);

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

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

Utilização: Todas as regras.

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