English
Español
Regra por processo 850 - Excluir participante da turma
Esta regra será executada ao excluir um participante da turma. Estão disponíveis para leitura os campos da tabela R134DTU e R134DRE.
Através desta regra é possível cancelar a exclusão do participante:
- Usando o comando cancel. Exemplo: cancel(1)
- Gerando uma mensagem de erro. Exemplo: mensagem(erro, "Esse participante não pode ser excluído.");
Exemplo:
xCodCua = R134DRE.CodCua;
xTmaCua = R134DRE.TmaCua;
xNumEmp = R134DRE.NumEmp;
xTipCol = R134DRE.TipCol;
xNumCad = R134DRE.NumCad;
definir cursor CUR_R140NPC;
CUR_R140NPC.SQL "SELECT * FROM R140NPC WHERE CODCUA = :xCodCua AND TMACUA = :xTmaCua AND NUMEMP = :xNumEmp AND TIPCOL = :xTipCol AND NUMCAD = :xNumCad";
CUR_R140NPC.AbrirCursor();
se (CUR_R140NPC.Achou)
inicio
/* Não permite excluir participantes com situação = Completo */
se (CUR_R140NPC.SitCua = 2)
cancel(1);
/* Verifica a situação da Avaliação de Reação */
se (CUR_R140NPC.SitARe = 2)
mensagem(retorna, "A situação da Avaliação de Reação do participante é: Em andamento.");
se (CUR_R140NPC.SitARe = 3)
mensagem(erro, "A situação da Avaliação de Reação do participante é: Completo.");
fim;
CUR_R140NPC.FecharCursor();
Utilização: Esta regra por processo está relacionada à rotina de exclusão de participantes em turmas de treinamento do módulo TR, em Treinamento > Turmas > Definir.
Disponível para o módulo: TR.
English
Español
