Regra por processo 668 - Alterar reserva individual

Recursos utilizados: Esta regra será utilizada em:

• Treinamento/Reservas/Cadastro Individual. Esta opção de menu é disponibilizada de acordo com o campo Administração Reserva de Curso = 1-Por Participante em Diversos/Assinalamentos. Disponibilizado suporte a campo de usuário da R132RPA e todos os campos poderão ser alterados, exceto os da chave.
• Em Treinamento/Reservas/Geração Coletiva. Não foi disponibilizado suporte a campo de usuário. Nesta tela foi implementado o botão log para visualizar possíveis erros durante a geração coletiva.

Comando Cancel: Na execução das regras poderão ser utilizados os comandos: Cancel(1) e Cancel(2).

Exemplo:

<div class="Code"><p>Definir Cursor Cur_R140NPC;<br></br>xOriRpp = OriRppRes;<br></br>@ Neste caso só irá fazer as consistências, se a regra for executada pela tela de cadastro de reserva individual @<br></br>Se (xOriRpp = 1)<br></br>{<br></br> xCodCua = R132RPA.CodCua;<br></br> xNumEmp = R132RPA.NumEmp;<br></br> xTipCol = R132RPA.TipCol;<br></br> xNumCad = R132RPA.NumCad;<br></br><br></br> @ Verifica se o colaborador é desistente de alguma turma deste curso @<br></br> Cur_R140NPC.SQL "SELECT CODCUA FROM R140NPC WHERE CODCUA = :xCodCua AND NUMEMP = :xNumEmp AND TIPCOL = :xTipCol AND NUMCAD = :xNumCad AND SITCUA = 3";<br></br> Cur_R140NPC.AbrirCursor();<br></br> Se (Cur_R140NPC.Achou)<br></br> {<br></br> Mensagem(Erro, "Não é permitido fazer reservas para um colaborador que já desistiu do curso!");<br></br> }<br></br> Cur_R140NPC.FecharCursor(); <br></br>}</p></div>

Observação: Pela variável OriRppRes, permite identificar a tela que originou a chamada da regra.

Disponível para os módulos: TR e CS.