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	Descrição
xSeqReg	Numérico	Sequência do horário.

Exemplo:

/* 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)

inicio

Se (r006hor.codhor<9996)

inicio

xqtdtra = xqtdtra + 1;

Se (xqtdtra > 5)

inicio

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

Pare;

fim;

Senao

xqtdtra = 0;

xseqreg = xseqreg + 1;

HorariosCadastroEscala(xSeqReg);

fim;

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