Regra por processo 604 - Incluir histórico de conhecimento
Esta regra será executada ao Inserir Histórico de Conhecimento.
Recursos utilizados: Na regra, os registros podem ser alterados diretamente através do comando 'TABELA.CAMPO', sendo que está disponível os campos da tabela R124HCN para leitura ou alteração dos valores, salvo campos chaves onde não poderão ser alterados.
Exemplo:
@ ------------------------------------------ @
@| Regra Inserir 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;
r124hcn.AprCnc = "N"; /* Altera valor do campo por Regra */
fim
senao /* Regra chamada pela tela Copiar Históricos */
inicio
Texto = "Copiar Histórico";
r124hcn.NumEmp = 3; /* Altera Campo Chave */
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 inserir 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).