Exemplo Regra Tipo C

Definir cursor c_TPessoa;

@ Seta Código da Pessoa da consulta(B2) @
CodPes = CodPesExt;

@ Lê a tabela de Cadastramento de Pessoas @
c_TPessoa.Sql "SELECT * FROM USU_TPESSOA WHERE USU_CODPESSOA=:CodPes";
c_TPessoa.AbrirCursor();
Se (c_TPessoa.Achou)
{
@ Seta campos da 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();
}