HorariosCadastroEscala

Esta função retorna os horários disponíveis na guia "Horários" do cadastramento de escala. Retorna os dados da tabela R006HOR.

Sintaxe: HorariosCadastroEscala(Numero xSeqReg);

Parámetros:

Nome	Tipo	Descripción
xSeqReg	Numérico	Sequência do horário.

Ejemplo:

/* Verifica se está tentando cadastrar uma escala com mais de cinco dias seguidos de trabalho */

xqtdtra = 0;

xseqreg = 1;

HorariosCadastroEscala(xSeqReg);

Enquanto(r006hor.codhor <> 0)

Página de inicio

Se (r006hor.codhor<9996)

Página de inicio

xqtdtra = xqtdtra + 1;

Se (xqtdtra > 5)

Página de inicio

Mensagem(Erro,"Não pode ter mais que 5 dias de trabalho seguidos.");

Pare;

orden;

Senao

xqtdtra = 0;

xseqreg = xseqreg + 1;

HorariosCadastroEscala(xSeqReg);

orden;

Utilização: Apenas na regra por processo de alteração na guia "Horários" do Cadastramento de Escala.