English
Español
Exemplo Regra Tipo I
<div class="Code"><p>definir cursor c_TPessoa;<br></br>definir cursor c_034Fun;<br></br>definir cursor c_TAgente;<br></br><br></br>@ Quando for chamado pela Ficha Complementar busca o Código da Pessoa na Ficha Básica @<br></br>xNumEmp = R034CPL.NumEmp;<br></br>xTipCol = R034CPL.TipCol;<br></br>xNumCad = R034CPL.NumCad;<br></br>Se (CodPesExt = 0)<br></br>Inicio<br></br>c_034Fun.Sql "SELECT USU_CODPES FROM R034FUN WHERE NUMEMP=:xNumEmp AND TIPCOL=:xTipCol \<br></br>AND NUMCAD=:xNumCad";<br></br>c_034Fun.AbrirCursor();<br></br>Se (c_034Fun.Achou)<br></br><br></br>CodPesExt = c_034Fun.USU_codpes;<br></br>c_034Fun.FecharCursor();<br></br>Fim;<br></br><br></br>@ Quando for chamado pela Ficha Básica ou Cadastro de Outras Empresas 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>@ Campos da Ficha Básica @<br></br>R034FUN.NomFun = c_TPessoa.usu_nome;<br></br>R034FUN.DatNas = c_TPessoa.usu_dtnasc;<br></br><br></br>R034FUN.TipSex = c_TPessoa.usu_sexo;<br></br>R034FUN.CodNac = c_TPessoa.usu_nacion;<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><br></br>R034FUN.ApeFun = c_TPessoa.usu_apefun;<br></br>R034FUN.DcdPis = c_TPessoa.usu_dedpis;<br></br>@ Campos da Ficha Complementar @<br></br>R034CPL.EndCep = c_TPessoa.usu_cepres;<br></br>R034CPL.EndRua = c_TPessoa.usu_endrua;<br></br>R034CPL.EndNum = c_TPessoa.usu_endnum;<br></br>R034CPL.NumTel = c_TPessoa.usu_telres;<br></br>R034CPL.NumCid = c_TPessoa.usu_rg;<br></br>R034CPL.EmiCid = c_TPessoa.usu_emirg;<br></br>R034CPL.EstCid = c_TPessoa.usu_ufrg;<br></br>R034CPL.DexCid = c_TPessoa.usu_dtemrg;<br></br><br></br>R034CPL.NumEle = c_TPessoa.usu_numtit;<br></br>R034CPL.NumRes = c_TPessoa.usu_cermil;<br></br>R034CPL.CatRes = c_TPessoa.usu_catmil;<br></br>R034CPL.EmaPar = c_TPessoa.usu_emapar;<br></br>R034CPL.EndCpl = c_TPessoa.usu_endcpl;<br></br>}<br></br>c_TPessoa.FecharCursor();<br></br><br></br>@ Lê a tabela de Agentes Externos @<br></br>c_TAgente.Sql "SELECT * FROM USU_TAgente WHERE USU_AGENTE=:CodPes";<br></br>c_TAgente.AbrirCursor();<br></br>Se (c_TAgente.Achou)<br></br>{<br></br>@ Campos do Cadastro de Outras Empresas @<br></br>CodPesExt = c_TAgente.USU_Agente;<br></br><br></br>R032OEM.EmaEmp = c_TAgente.usu_email;<br></br>R032OEM.EndCpl = c_TAgente.usu_ruacpl;<br></br>R032OEM.CodCep = c_TAgente.usu_cepagt;<br></br>R032OEM.EndOem = c_TAgente.usu_ruaagt;<br></br>R032OEM.NumTel = c_TAgente.usu_telagt;<br></br>R032OEM.NomOem = c_TAgente.usu_nomagt;<br></br>R032OEM.ApeOem = c_TAgente.usu_apeagt;<br></br>R032OEM.NumCgc = c_TAgente.usu_cgccpf;<br></br>}<br></br>c_TAgente.FecharCursor();</p></div>
English
Español
