private aTabela, zCnpjCpf, zStrSocio, zStrPF, zRecnoSocio
DbCloseAll()
aAdd( aVetorVariavelConteudo, {'[NUMERO_DO_CONTRATO]', StrZero(m_fcli,10)} )
aAdd( aVetorVariavelConteudo, {'[EMPRESA]', Si_razaosocial} )
aAdd( aVetorVariavelConteudo, {'[CNPJ]', formatacnpjcpf(Si_cnpj,,,.t.)} )
aAdd( aVetorVariavelConteudo, {'[EMPRESA_RUA]', AllTrim(Si_rua+' '+Si_numrua)} )
aAdd( aVetorVariavelConteudo, {'[EMPRESA_BAIRRO]', Si_bairro} )
aAdd( aVetorVariavelConteudo, {'[EMPRESA_CIDADE]', Si_cidade} )
aAdd( aVetorVariavelConteudo, {'[EMPRESA_UF]', Si_uf} )
aAdd( aVetorVariavelConteudo, {'[EMPRESA_CEP]',  if(.not.empty(Si_cep), left(AllTrim(Si_cep),5)+"-"+SubStr(SoNumeros(Si_cep,8),6),"")} )
// debugalert('vai puxar dados do cliente para imprimir contrato ')
abra('0NOIDX',R_SIGA,'SCCRCLI','SCCRCLI')
sccrcli->(DbGoto(m_fcli))
if day(sccrcli->cr_dt_cont)=0
   sccrcli->( RegLock(), put_var('cr_dt_cont',s_datual), DbCommit(), DbUnlock() )
   // debugalert('cr_dt_cont='+dtoc(cr_dt_cont)+' s_datual='+dtoc(s_datual))
endif
zCnpjCpf := if(cgc_ok(sccrcli->cr_cgc),'CNPJ','CPF')
aAdd( aVetorVariavelConteudo, {'[NOME_CLIENTE]', AllTrim(sccrcli->cr_nome)} )
aAdd( aVetorVariavelConteudo, {'[CPF_OU_CNPJ]', zCnpjCpf} )
aAdd( aVetorVariavelConteudo, {'[CNPJ_DO_CLIENTE]', formatacnpjcpf(AllTrim(sccrcli->cr_cgc)) } )
aAdd( aVetorVariavelConteudo, {'[RUA_DO_CLIENTE]', AllTrim(sccrcli->cr_rua)+if(.not.empty(sccrcli->cr_numrua),', No '+alltrim(sccrcli->cr_numrua),'')} )
aAdd( aVetorVariavelConteudo, {'[CIDADE_DO_CLIENTE]', AllTrim(sccrcli->cr_cidade)} )
aAdd( aVetorVariavelConteudo, {'[UF_DO_CLIENTE]', AllTrim(sccrcli->cr_UF)} )
aAdd( aVetorVariavelConteudo, {'[CEP_DO_CLIENTE]', sccrcli->(if(.not.empty(cr_CEP), left(AllTrim(cr_CEP),5)+"-"+SubStr(SoNumeros(cr_CEP,8),6),""))} )
aAdd( aVetorVariavelConteudo, {'[EMAIL_CLIENTE]', AllTrim(sccrcli->cr_email)} )
aAdd( aVetorVariavelConteudo, {'[DATA_DO_CONTRATO]', dia_ext(sccrcli->cr_dt_cont,.f.)} )
if zCnpjCpf<>'CNPJ'
   aAdd( aVetorVariavelConteudo, {'[NOME_DO_SOCIO]', ''} )
   aAdd( aVetorVariavelConteudo, {'[DADOS_SOCIO]', ''} )
   // zStrPF += if(.not.empty(rua+bairro+cidade+uf),AllTrim(', estabelecido na '+AllTrim(rua)+' '+AllTrim(bairro)+' '+AllTrim(cidade)+' '+UF),'') + ','
   zStrPF := if(.not.empty(sccrcli->cr_rg),'RG '+AllTrim(sccrcli->cr_rg),'')
   zStrPF += if(.not.empty(ecivil),', '+lower(AllTrim(ecivil)),'')
   zStrPF += if(.not.empty(profiss),', '+lower(AllTrim(profiss)),'')
   zStrPF += if(.not.empty(nacio),', '+lower(AllTrim(nacio)),'')
   zStrPF += if(.not.empty(cgc).and.cpf_ok(cgc),', com CPF '+AllTrim(cgc),'')
   zStrPF += if(.not.empty(zStrPF),', ','')   
   aAdd( aVetorVariavelConteudo, {'[DADOS_CLIENTE]', AllTrim(zStrPF)} )
endif
sccrcli->(dbCloseArea())
if zCnpjCpf='CNPJ'
   debugalert('vai carregar socio...')
   aAdd( aVetorVariavelConteudo, {'[DADOS_CLIENTE]', ''} )
   Abra ('0NOIDX',r_siga, 'vb_socio','vb_socio', 'vb_socio', 'cr_cod_cli')
   if DbSeek(m_fcli) .and. .not. empty(nome)
      zRecnoSocio:=Recno()
      do while .not. eof() .and. m_fcli=cr_cod_cli
         if adm$'Ss'
            zRecnoSocio:=Recno()
            exit
         endif
         dbSkip()
      enddo
      if zRecnoSocio<>Recno()
         DbGoTo(zRecnoSocio)
      endif
      aAdd( aVetorVariavelConteudo, {'[NOME_DO_SOCIO]', AllTrim(nome)} )
      zStrSocio := if(.not.empty(nome),", "+lower(AllTrim(nacio)),'')
      zStrSocio += if(.not.empty(ecivil),', '+AllTrim(ecivil),'')
      zStrSocio += if(.not.empty(profiss),', '+AllTrim(profiss),'')
      zStrSocio += if(.not.empty(cgc).and.cpf_ok(cgc),', com CPF '+AllTrim(cgc),'')
      zStrSocio += if(.not.empty(rg),', RG '+AllTrim(rg),'')
      zStrSocio += if(.not.empty(rua+bairro+cidade+uf),AllTrim(', estabelecido na '+AllTrim(rua)+' '+AllTrim(bairro)+' '+AllTrim(cidade)+' '+UF),'') + ','
      aAdd( aVetorVariavelConteudo, {'[DADOS_SOCIO]', AllTrim(zStrSocio)} )
   else
      aAdd( aVetorVariavelConteudo, {'[NOME_DO_SOCIO]', ''} )
      aAdd( aVetorVariavelConteudo, {'[DADOS_SOCIO]', ''} )
   endif
endif