Private hDadosEmp, zEmpnome, zEmprua, zEmpbairro, zEmpcep, zEmpcidade, zEmpuf, zEmpfone, zEmpinscest, zEmpisncmun, zEmail, zEmpcgc, zEmpFantasia
Private zAreaOrig, zfNum, zfVal, zParcela, zCrValor, zCrNumPed, zCrDtVenc, z_extenso, zCrDtEmis, zEanLojaNumPedCodCli
Private m_cr_nome, m_cr_rua, m_cr_cidade, m_cr_uf, m_cr_cep, m_cr_cgc, m_cr_est, m_cr_cod_cli, m_floja

hDadosEmp   := IdUsuarioPaf('Ler')
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"]
zEmpcgc     := FormataCnpjCpf(hDadosEmp["CNPJ"])
zEmpFantasia:= hDadosEmp["EMP_FANTASIA"]

   zAreaOrig := Select()
   if( select('sf_fat')=0, Abra ('0NOIDX', r_siga, sf_fat, "sf_fat",   sf_fat, 'fnum') , '')
   zfNum := Val( Left(sccrdup->cr_num_ped,6) )
   zfval := if( sf_fat->(DbSeek(zfNum)), sf_fat->fVal, sccrdup->cr_valor)
   dbselectarea(zAreaOrig)

zParcela  := ALLTRIM(sccrdup->cr_num_ped)
zCrValor  := sccrdup->cr_valor
zCrNumPed := sccrdup->cr_num_ped
zCrDtVenc := sccrdup->cr_dt_venc
zCrDtEmis := sccrdup->cr_dt_Emis

m_cr_nome   := sccrcli->cr_nome
m_cr_rua    := sccrcli->cr_rua
m_cr_cidade := sccrcli->cr_cidade
m_cr_uf     := sccrcli->cr_uf
m_cr_cep    := sccrcli->cr_cep
m_cr_cgc    := sccrcli->cr_cgc
m_cr_est    := sccrcli->cr_insc_es
z_extenso   := NumExt( sccrdup->cr_valor )

zEanLojaNumPedCodCli := StrZero(sccrdup->floja,2)+pad(zCrNumPed,10)+strzero(sccrdup->cr_cod_cli,6)

ProcessTemplateRtf()
