Exemplo Regra Tipo C

<div class="Code"><p>Definir cursor c_TPessoa;<br></br><br></br>@ Seta Código da Pessoa da consulta(B2) @<br></br>CodPes = CodPesExt;<br></br><br></br>@ Lê a tabela de Cadastramento de Pessoas @<br></br>c_TPessoa.Sql "SELECT * FROM USU_TPESSOA WHERE USU_CODPESSOA=:CodPes";<br></br>c_TPessoa.AbrirCursor();<br></br>Se (c_TPessoa.Achou)<br></br>{<br></br>@ Seta campos da Ficha Básica @<br></br>R034FUN.NomFun = c_TPessoa.usu_nome;<br></br>R034FUN.DatNas = c_TPessoa.usu_dtnasc;<br></br>R034FUN.TipSex = c_TPessoa.usu_sexo;<br></br>R034FUN.CodNac = c_TPessoa.usu_nacion;<br></br><br></br>R034FUN.EstCiv = c_TPessoa.usu_estciv;<br></br>R034FUN.NumCpf = (c_TPessoa.usu_numcpf * 100) + c_TPessoa.usu_digcpf;<br></br>R034FUN.SerCtp = c_TPessoa.usu_sercat;<br></br>R034FUN.NumCtp = c_TPessoa.usu_numctb;<br></br>R034FUN.EstCtp = c_TPessoa.usu_ufctps;<br></br>R034FUN.AnoChe = c_TPessoa.usu_anoche;<br></br>R034FUN.NumPis = c_TPessoa.usu_numpis;<br></br>R034FUN.NumCra = c_TPessoa.usu_numcra;<br></br>R034FUN.ApeFun = c_TPessoa.usu_apefun;<br></br>R034FUN.DcdPis = c_TPessoa.usu_dedpis;<br></br><br></br>c_TPessoa.FecharCursor();<br></br>}</p></div>