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.
Exemplo:
@ ------------------------------------------- @
@| 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;
fim;
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)