private aTabela
DbCloseAll()
aAdd( aVetorVariavelConteudo, {'[EMPRESA]', Si_razaosocial} )
aAdd( aVetorVariavelConteudo, {'[CNPJ]', Si_cnpj} )
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]', Si_cep} )
// debugalert('vai puxar dados do cliente para imprimir contrato ')
abra('0NOIDX',R_SIGA,'SCCRCLI','SCCRCLI')
sccrcli->(DbGoto(m_fcli))
aAdd( aVetorVariavelConteudo, {'[NOME_CLIENTE]', AllTrim(sccrcli->cr_nome)} )
aAdd( aVetorVariavelConteudo, {'[CPF_OU_CNPJ]', if(cgc_ok(sccrcli->cr_cgc),'CNPJ','CPF')} )
aAdd( aVetorVariavelConteudo, {'[CNPJ_DO_CLIENTE]', AllTrim(sccrcli->cr_cgc)} )
aAdd( aVetorVariavelConteudo, {'[RUA_DO_CLIENTE]', AllTrim(sccrcli->cr_rua)} )
aAdd( aVetorVariavelConteudo, {'[CIDADE_DO_CLIENTE]', AllTrim(sccrcli->cr_cidade)} )
aAdd( aVetorVariavelConteudo, {'[UF_DO_CLIENTE]', AllTrim(sccrcli->cr_UF)} )
aAdd( aVetorVariavelConteudo, {'[CEP_DO_CLIENTE]', AllTrim(sccrcli->cr_CEP)} )
sccrcli->(dbCloseArea())

aAdd( aDocTabelas, {{},2} )
aTabela:=aDocTabelas[Len(aDocTabelas), 1]

Abra ('0NOIDX', r_siga, 'se_prod', 'se_prod', 'seip_c', 'pcod')
if type('d_dtela')<>'U'.and.upper(d_dtela)='SF_PN' .and. m_fnum=0
   Abra ('0NOIDX', r_siga, 'sf_pnmv', 'sf_pnmv', 'sf_pnmv', 'fNumPed')
   if DbSeek( m_fNumPed )
      //debugalert('achou itens de m_fNumPed='+str(m_fNumPed))
      Do While fNumPed=m_fNumPed .And. .Not. Eof()
         if Quant>0 .and. .not. Deleted() .and. Se_Prod->(DbSeek(sf_pnmv->Cod))
            aAdd(aTabela, {lTrim(Str(Quant,12)),AllTrim(Desc)+" (Cod"+lTrim(Str(cod,14))+")",lTrim(Str(PrTotal/Quant,12,3)),lTrim(Str(PrTotal,12,2)),lTrim(Str(pValLoca,12,2)),lTrim(Str(pValLoca*Quant,12,2))})
         endif
         DbSkip()
      EndDo
      aDocTabelas[Len(aDocTabelas), 1] := aTabela
   else
      //debugalert('nao achou itens de m_fNumPed='+str(m_fNumPed))
   endif
   sf_pnmv->(dbCloseArea())
else
   // Abra ('0NOIDX', r_siga, wSe_Mov, 'Se_MovNf', wSeim_p, 'fNumPed')
   Abra ('0NOIDX', r_siga, wSe_Mov, 'Se_MovNf', wSeim_f, 'mfNum')
   if DbSeek( m_fNum )
      debugalert('locacao.doc.ppo achou itens de m_fNum='+str(m_fNum))
      Do While mfNum=m_fNum .And. .Not. Eof()
         if m_fcli=mcodforc .and. mQuant > 0 .and. mtipoven<>"C" .and. mfges="S" .and. se_prod->(DbSeek(se_movnf->pcod))
            aAdd( aTabela, {lTrim(Str(mQuant,12)), AllTrim(se_prod->pDesc)+" (Cod"+lTrim(Str(pcod,14))+")", lTrim(Str(mValor/mQuant,12,3)), lTrim(Str(mValor,12,2)), lTrim(Str(pValLoca,12,2)), lTrim(Str(pValLoca*mQuant,12,2)) } )
         endif
         DbSkip()
      EndDo
      aDocTabelas[Len(aDocTabelas), 1] := aTabela
   else
      debugalert('NAO achou itens de m_fNum='+str(m_fNum))
   endif
   se_movnf->(dbCloseArea())
   
endif
se_prod->(dbCloseArea())

// debugalert('puxou '+str(len(aTabela))+' produtos ')

// alert('vai escrever totais por extenso')
aAdd( aVetorVariavelConteudo, {'[DIAS_DE_LOCACAO]', ltrim(str(m_PDIASLOCA,6))} )
aAdd( aVetorVariavelConteudo, {'[VENCIMENTO_DA_LOCACAO]', dtoc(m_fdataemi+m_PDIASLOCA-1)} )
aAdd( aVetorVariavelConteudo, {'[DATA_DA_LOCACAO]', dia_ext(m_fdataemi)} )

aAdd( aVetorVariavelConteudo, {'[NUMERO_DO_CONTRATO]', "LOC"+StrZero(m_fnumped,9)} )
aAdd( aVetorVariavelConteudo, {'[VALOR_NOTA]', m_fval} )
aAdd( aVetorVariavelConteudo, {'[VL_EXTENSO]', numext(m_fVal)} )

aAdd( aVetorVariavelConteudo, {'[VL_LOCACAO]', m_fValLoca} )
aAdd( aVetorVariavelConteudo, {'[VL_EXTENSO_LOCACAO]', numext(m_fValLoca)} )
// alert('vai mostrar no word')
