Regra por processo 913 - Gravar na Tela de Gerenciar Horários

@ Regra Gravar na Tela de Gerenciar Horários @

Definir alfa ValAux;

Definir alfa ValAlf;

 

@ Percorre os dias do mês para o colaborador 2 e verifica se algum dia sofreu alteração. Mostra mensagem com erro. @

Se (r034fun.NumCad = 2)

Inicio

vposdia = 1;

Enquanto (vposdia <= 31)

Inicio

vhorant = HorIni[vposdia];

vhorapo = HorAlt[vposdia];

Se (vhorant <> vhorapo)

Inicio

IntParaAlfa (vposdia,ValAlf);

ValAux = "Houve alteração de horário no dia " + ValAlf;

Mensagem(Erro, ValAux);

Fim;

vposdia = vposdia + 1;

Fim;

Fim;