Gestão de Pessoas - Manual do Usuário > Customizações > Regras > Regras por Processo > Regra por processo 850 - Excluir participante da turma

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.