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);

<div class="Code"><p>/* Verifica se está tentando cadastrar uma escala com mais de cinco dias seguidos de trabalho */</p><p>xqtdtra = 0;</p><p>xseqreg = 1;</p><p>HorariosCadastroEscala(xSeqReg);</p><p></p><p>Enquanto(r006hor.codhor &#x3C;> 0)</p><p>inicio</p><p>Se (r006hor.codhor&#x3C;9996)</p><p>inicio</p><p>xqtdtra = xqtdtra + 1;</p><p>Se (xqtdtra > 5)</p><p>inicio</p><p>Mensagem(Erro,"Não pode ter mais que 5 dias de trabalho seguidos.");</p><p>Pare;</p><p>fim;</p><p>fim;</p><p>Senao</p><p>xqtdtra = 0;</p><p>xseqreg = xseqreg + 1;</p><p>HorariosCadastroEscala(xSeqReg);</p><p>fim;</p></div>

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