English
Español
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.
English
Español
