Este conteúdo não recebe atualizações, pois é referente a uma versão do sistema que foi descontinuada. Acesse a documentação da versão 6.10.3 aqui

HorQua

Retorna o horário do colaborador na data para o quadro de horários. Considera trocas de horário, tabela de feriados da filial e busca os horários indexados conforme período do relatório. O índice é de 1 até 999.

Tipo: Numérico.

Exemplos: Na tela de Entrada é informado o período 25/06/2008 a 30/06/2008 para o colaborador "X" que tem os seguintes horários neste período: 0009,0009,0009,9998,9999,0002.

Logo, em uma regra podemos obter o valor de HorQua desta maneira:

@  Variáveis numéricas que recebem valor de HorQua em seu índice  @
x = 1;
Hor1 = HorQua[x]; @ Hor1 vai ser 0009 @
x = 4;
Hor4 = HorQua[x]; @ Hor4 vai ser 9998 @
x = 6;
Hor6 = HorQua[x]; @ Hor6 vai ser 0002 @

Pode-se também em um controle sistema setar a variável de sistema HorQua e na propriedade 'Ocorrência' colocar seu índice (1 á 999), assim irá listar direto o valor.

@  Exemplo para listar todos os horários (com marcações após CodHor) do colaborador "X" em uma seção Adicional definida no modelo  @
 
Definir Cursor cHorarios;
Definir Alfa HorStr[20];
Definir Cursor StrCur[100];

x = 1;
Enquanto (HorQua[x] <> 0)
Inicio
Se (HorQua[x] > 9995) @ Não considerará Horários reservados (Folga, Feriado, DSR, Compensado) @
Pare;
horario = HorQua[x];
cHorarios.SQL "SELECT HORBAT FROM R004MHR WHERE CodHor = :horario";
cHorarios.Abrircursor();
enquanto (cHorarios.Achou)
Inicio
vHorBat = cHorarios.HorBat;
ConverteNumero(vHorBat, "hh:mm", "hora", horstr);
strcur = strcur + " " + horstr;
cHorarios.Proximo();
Fim;
ListaSecao("Adicional_2");
cHorarios.FecharCursor();
strcur = "";
x++;
Fim;

Esta variável é utilizada no modelo 'Quadro de Horários' (QH001.APU).

Utilização: Modelos da Categoria Quadro de Horários, extensão Apuração.

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

Este artigo ajudou você?