Private zEmpnome, zEmprua, zEmpbairro, zEmpcep, zEmpcidade, zEmpuf, zEmpfone, zEmpinscest, zEmpisncmun, zEmail, zEmpcgc
Private zCrTipDup, zCrValor, zCrNumPed, zCrDtEmis, zCrDtVenc, zDtValida, zCrObs, zExtenso
Private m_cr_nome, m_cr_rua, m_cr_cidade, m_cr_uf, m_cr_cep, m_cr_cgc, m_cr_est, zCnpjCpf 

zEmpcgc     := FormataCnpjCpf(hDadosEmp["CNPJ"])
zEmpnome    := hDadosEmp["EMP_NOME"]
zEmprua     := hDadosEmp["EMP_RUA"]+" "+hDadosEmp["EMP_NUMRUA"]
zEmpbairro  := hDadosEmp["EMP_BAIRRO"]
zEmpcep     := hDadosEmp["EMP_CEP"]
zEmpcidade  := hDadosEmp["EMP_CIDADE"]
zEmpuf      := hDadosEmp["EMP_UF"]
zEmpfone    := hDadosEmp["EMP_FONE"]
zEmpinscest := hDadosEmp["EMP_IE"]
zEmpisncmun := hDadosEmp["EMP_IM"]
zEmail      := hDadosEmp["EMP_EMAIL"]

zCrTipDup := sx_nc->cr_tip_dup
zCrValor  := sx_nc->(AllTrim(Transform(abs(cp_valor),"@E 999,999,999.99")))
zExtenso  := NumExt( Abs(sx_nc->cp_valor) )
zCrNumPed := sx_nc->( if(fNumPed>0,"Ped"+lTrim(Str(fNumPed)),"") )
zCrDtEmis := sx_nc->cp_dt_emis
zCrDtVenc := sx_nc->(if(Day(cp_dt_venc)=0,"",dtoc(cp_dt_venc) ))
zCrObs    := AllTrim( sx_nc->cp_desc )

zCnpjCpf    := if(cgc_ok(sccrcli->cr_cgc),'CNPJ','CPF')
m_cr_cgc    := FormataCnpjCpf(sccrcli->cr_cgc)
m_cr_nome   := AllTrim( sccrcli->cr_nome )
m_cr_rua    := AllTrim( sccrcli->cr_rua )
m_cr_cidade := AllTrim( sccrcli->cr_cidade )
m_cr_uf     := AllTrim( sccrcli->cr_uf )
m_cr_cep    := AllTrim( sccrcli->cr_cep )
m_cr_est    := AllTrim( sccrcli->cr_insc_es )

ProcessTemplateRtf()