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