Este conteúdo não recebe atualizações, pois é referente a uma versão do sistema que foi descontinuada. Acesse a documentação da versão 6.10.3 aqui
Gestão de Pessoas - Manual do Usuário > Customizações > Regras > Regras por Processo > Regra por processo 667 - Inserir reserva individual

Regra por processo 667 - Inserir reserva individual

Recursos utilizados: Esta regra será utilizada em:

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

Exemplo:

Definir Cursor Cur_R140NPC;
xOriRpp = OriRppRes;
@ Neste caso só irá fazer as consistências, se a regra for executada pela tela de cadastro de reserva individual @
Se (xOriRpp = 1)
{
  xCodCua = R132RPA.CodCua;
  xNumEmp = R132RPA.NumEmp;
  xTipCol = R132RPA.TipCol;
  xNumCad = R132RPA.NumCad;

  @ Verifica se o colaborador é desistente de alguma turma deste curso @
  Cur_R140NPC.SQL "SELECT CODCUA FROM R140NPC WHERE CODCUA = :xCodCua AND NUMEMP = :xNumEmp AND TIPCOL = :xTipCol AND NUMCAD = :xNumCad    AND SITCUA = 3";
  Cur_R140NPC.AbrirCursor();
  Se (Cur_R140NPC.Achou)
 {
    Mensagem(Erro, "Não é permitido fazer reservas para um colaborador que já desistiu do curso!");
  }
  Cur_R140NPC.FecharCursor();
}

Observações:

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

Este artigo ajudou você?