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.”);

<div class="Code"><p>xCodCua = R134DRE.CodCua;</p><p>xTmaCua = R134DRE.TmaCua;</p><p>xNumEmp = R134DRE.NumEmp;</p><p>xTipCol = R134DRE.TipCol;</p><p>xNumCad = R134DRE.NumCad;</p><p>definir cursor CUR_R140NPC;</p><p></p><p>CUR_R140NPC.SQL "SELECT * FROM R140NPC WHERE CODCUA = :xCodCua AND TMACUA = :xTmaCua AND NUMEMP = :xNumEmp AND TIPCOL = :xTipCol AND NUMCAD = :xNumCad";</p><p></p><p>CUR_R140NPC.AbrirCursor();</p><p>se (CUR_R140NPC.Achou)</p><p>inicio</p><p>/* Não permite excluir participantes com situação = Completo */</p><p>se (CUR_R140NPC.SitCua = 2)</p><p>cancel(1);</p><p>/* Verifica a situação da Avaliação de Reação */</p><p>se (CUR_R140NPC.SitARe = 2)</p><p>mensagem(retorna, "A situação da Avaliação de Reação do participante é: Em andamento.");</p><p>se (CUR_R140NPC.SitARe = 3)</p><p>mensagem(erro, "A situação da Avaliação de Reação do participante é: Completo.");</p><p>fim;</p><p>CUR_R140NPC.FecharCursor();</p></div>

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.