Regra chamada após a inclusão do colaborador

<div class="Code"><p>/* Regra chamada após inclusão de colaborador - consistência tabelas externas */<br></br><br></br>definir cursor c_TPessoa;<br></br>definir alfa vEndRua;<br></br>definir alfa vEndNum;<br></br>definir alfa vNumTel;<br></br>definir alfa vNumCid;<br></br>definir alfa vEmiCid;<br></br>definir alfa vEstCid;<br></br>definir alfa vNumEle;<br></br>definir alfa vNumRes;<br></br>definir alfa vCatRes;<br></br>definir alfa vEmaPar;<br></br>definir alfa vEndCpl;<br></br><br></br>vNumEmp = R034FUN.NumEmp;<br></br>vTipCol = R034FUN.TipCol;<br></br>vNumCad = R034FUN.NumCad;<br></br>@ Seta Código da Pessoa da consulta(B2) @<br></br><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 Complementar @<br></br>vEndCep = c_TPessoa.usu_cepres;<br></br>vEndRua = c_TPessoa.usu_endrua;<br></br>vEndNum = c_TPessoa.usu_endnum;<br></br>vNumTel = c_TPessoa.usu_telres;<br></br>vNumCid = c_TPessoa.usu_rg;<br></br>vEmiCid = c_TPessoa.usu_emirg;<br></br>vEstCid = c_TPessoa.usu_ufrg;<br></br><br></br>vNumEle = c_TPessoa.usu_numtit;<br></br>vNumRes = c_TPessoa.usu_cermil;<br></br>vCatRes = c_TPessoa.usu_catmil;<br></br>vEmaPar = c_TPessoa.usu_emapar;<br></br>vEndCpl = c_TPessoa.usu_endcpl;<br></br>ExecSql " INSERT INTO R034CPL (NUMEMP,TIPCOL,NUMCAD,ENDCEP,ENDRUA,ENDNUM,NUMTEL,NUMCID,EMICID,ESTCID, \<br></br>NUMELE,NUMRES,CATRES,EMAPAR,ENDCPL) VALUES (:vNumEmp,:vTipCol,:vNumCad,:vEndCep,:vEndRua, \<br></br>:vEndNum,:vNumTel,:vNumCid,:vEmiCid,:vEstCid,:vNumEle \<br></br>:vNumRes,:vCatRes,:vEmaPar,:vEndCpl) ";<br></br><br></br>}<br></br>c_TPessoa.FecharCursor();<br></br></p></div>