Regra chamada após a inclusão do colaborador

/* Regra chamada após inclusão de colaborador - consistência tabelas externas */

definir cursor c_TPessoa;
definir alfa vEndRua;
definir alfa vEndNum;
definir alfa vNumTel;
definir alfa vNumCid;
definir alfa vEmiCid;
definir alfa vEstCid;
definir alfa vNumEle;
definir alfa vNumRes;
definir alfa vCatRes;
definir alfa vEmaPar;
definir alfa vEndCpl;

vNumEmp = R034FUN.NumEmp;
vTipCol = R034FUN.TipCol;
vNumCad = R034FUN.NumCad;
@ 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)
{
@ Campos da Ficha Complementar @
vEndCep = c_TPessoa.usu_cepres;
vEndRua = c_TPessoa.usu_endrua;
vEndNum = c_TPessoa.usu_endnum;
vNumTel = c_TPessoa.usu_telres;
vNumCid = c_TPessoa.usu_rg;
vEmiCid = c_TPessoa.usu_emirg;
vEstCid = c_TPessoa.usu_ufrg;

vNumEle = c_TPessoa.usu_numtit;
vNumRes = c_TPessoa.usu_cermil;
vCatRes = c_TPessoa.usu_catmil;
vEmaPar = c_TPessoa.usu_emapar;
vEndCpl = c_TPessoa.usu_endcpl;
ExecSql " INSERT INTO R034CPL (NUMEMP,TIPCOL,NUMCAD,ENDCEP,ENDRUA,ENDNUM,NUMTEL,NUMCID,EMICID,ESTCID, \
NUMELE,NUMRES,CATRES,EMAPAR,ENDCPL) VALUES (:vNumEmp,:vTipCol,:vNumCad,:vEndCep,:vEndRua, \
:vEndNum,:vNumTel,:vNumCid,:vEmiCid,:vEstCid,:vNumEle \
:vNumRes,:vCatRes,:vEmaPar,:vEndCpl) ";

}
c_TPessoa.FecharCursor();