Ejemplo de regla tipo I

cursor Set c_TPessoa;
cursor Set c_034Fun;
cursor Set c_TAgente;

@ Cuando es llamado por el enchufe suplementario de búsqueda el código de la persona en la hoja básica @
xNumEmp = R034CPL. NumEmp;
xTipCol = R034CPL. TipCol;
xNumCad = R034CPL. NumCad;
Si (CodPesExt = 0)
Inicio
c_034Fun. Sql "SELECT USU_CODPES de R034FUN donde NUMEMP =: xNumEmp AND TIPCOL =: xTipCol \
Y NUMCAD =: xNumCad ";
c_034Fun. AbrirCursor ();
Si (encontrado c_034Fun)

CodPesExt = c_034Fun. USU_codpes;
c_034Fun. FecharCursor ();
Orden;

@ Cuando es llamado por el registro Base o registro de otras empresas de la flecha de la consulta del código de persona (B2) @
CodPes = CodPesExt;

@ Lee la tabla de Registro de Personas @
c_TPessoa.Sql "SELECT * FROM USU_TPESSOA WHERE USU_CODPESSOA=:CodPes";
c_TPessoa.AbrirCursor();
Si (c_TPessoa.Achou)
{
@ Basic forman campos @
R034FUN.NomFun = c_TPessoa.usu_nome;
R034FUN.DatNas = c_TPessoa.usu_dtnasc;

R034FUN.TipSex = c_TPessoa.usu_sexo;
R034FUN.CodNac = c_TPessoa.usu_nacion;
R034FUN. EstCiv = c_TPessoa. usu_estciv;
R034FUN.NumCpf = (c_TPessoa.usu_numcpf * 100) + c_TPessoa.usu_digcpf;
R034FUN.SerCtp = c_TPessoa.usu_sercat;
R034FUN.NumCtp = c_TPessoa.usu_numctb;
R034FUN.EstCtp = c_TPessoa.usu_ufctps;
R034FUN.AnoChe = c_TPessoa.usu_anoche;
R034FUN.NumPis = c_TPessoa.usu_numpis;
R034FUN. NumCra = c_TPessoa. usu_numcra;

R034FUN.ApeFun = c_TPessoa.usu_apefun;
R034FUN.DcdPis = c_TPessoa.usu_dedpis;
@ Complementaria forman campos @
R034CPL. EndCep = c_TPessoa. usu_cepres;
R034CPL. EndRua = c_TPessoa. usu_endrua;
R034CPL. EndNum = c_TPessoa. usu_endnum;
R034CPL. NumTel = c_TPessoa. usu_telres;
R034CPL. NumCid = c_TPessoa. usu_rg;
R034CPL. EmiCid = c_TPessoa. usu_emirg;
R034CPL. EstCid = c_TPessoa. usu_ufrg;
R034CPL. DexCid = c_TPessoa. usu_dtemrg;

R034CPL. Este = c_TPessoa. usu_numtit;
R034CPL. NumRes = c_TPessoa. usu_cermil;
R034CPL. COTS = c_TPessoa. usu_catmil;
R034CPL. EmaPar = c_TPessoa. usu_emapar;
R034CPL. EndCpl = c_TPessoa. usu_endcpl;
}
c_TPessoa.FecharCursor();

@ Lee la tabla de agentes externos @
c_TAgente. Sql "seleccionar * de USU_TAgente donde USU_AGENTE =: CodPes";
c_TAgente. AbrirCursor ();
Si (encontrado c_TAgente)
{
@ Los campos del registro a otras empresas @
CodPesExt = c_TAgente. USU_Agente;

R032OEM. EmaEmp = c_TAgente. usu_email;
R032OEM. EndCpl = c_TAgente. usu_ruacpl;
R032OEM. CodCep = c_TAgente. usu_cepagt;
R032OEM. EndOem = c_TAgente. usu_ruaagt;
R032OEM. NumTel = c_TAgente. usu_telagt;
R032OEM. NomOem = c_TAgente. usu_nomagt;
R032OEM. ApeOem = c_TAgente. usu_apeagt;
R032OEM. NumCgc = c_TAgente. usu_cgccpf;
}
c_TAgente. FecharCursor ();