Ejemplo de regla tipo C

Definir cursor c_TPessoa;

@ Seta Código de Persona de la consulta(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)
{
@ Establecer campos de la Ficha Básica @
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;

c_TPessoa.FecharCursor();
}