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