Regra por processo 606 - Excluir histórico de conhecimento

Esta regra será executada ao Excluir Histórico de Conhecimento.

Recursos utilizados: Na regra, os registros da tabela R124HCN estarão disponíveis para leitura.

Ejemplo:

@ ------------------------------------------- @
@| Regra Excluir Histórico de Conhecimento |@
@ ------------------------------------------- @
Definir Alfa FamCnc;
Definir Alfa CodCnc;
Definir Alfa Texto;

Se (OriHisCnc = 1) /* Verifica se a regra foi chamada pela tela de Curso Aperfeiçoamento - Conhecimento */
inicio
Texto = "Histórico";
NumEmp = r124hcn.NumEmp;
TipCol = r124hcn.TipCol;
NumCad = r124hcn.NumCad;
FamCnc = r124hcn.FamCnc;
CodCnc = r124hcn.CodCnc;
SeqHcn = r124hcn.SeqHcn;
DatIni = r124hcn.DatIni;
Cancel(1); /*cancela a regra*/
fim
senao
Se (OriHisCnc = 2) /* Verifica se a regra foi chamada pela tela de Cadastro Histórico de Curso */
inicio
Texto = "Histórico Geral";
NumEmp = r124hcn.NumEmp;
TipCol = r124hcn.TipCol;
NumCad = r124hcn.NumCad;
FamCnc = r124hcn.FamCnc;
CodCnc = r124hcn.CodCnc;
SeqHcn = r124hcn.SeqHcn;
DatIni = r124hcn.DatIni;
fim
senao /* Regra chamada pela tela Copiar Históricos */
inicio
Texto = "Copiar Histórico";
NumEmp = r124hcn.NumEmp;
TipCol = r124hcn.TipCol;
NumCad = r124hcn.NumCad;
FamCnc = r124hcn.FamCnc;
CodCnc = r124hcn.CodCnc;
SeqHcn = r124hcn.SeqHcn;
DatIni = r124hcn.DatIni;
orden;

Utilização: Esta regra por processo está relacionada aos Histórico de conhecimento do colaborador, e será chamada ao Excluir um registro nas seguintes telas: Curso Aperfeiçoamento - Guia Conhecimento (Módulos RS,CS,TR), Cadastro Histórico de Curso (Módulos CS,TR) e Copiar Históricos (Módulo TR)