private aTabela, zValDev
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]

zValDev:=0
// debugalert('vai puxar produtos ')
Abra ('0NOIDX', r_siga, 'se_prod', 'se_prod', 'seip_c', 'pcod')
Abra ('0NOIDX', r_siga, wSe_Mov, 'Se_MovNf', wSeim_p, 'fNumPed')
if DbSeek( m_fNumPed )
   Do While fNumPed=m_fNumPed .And. .Not. Eof()
      if m_fcli=mcodforc .and. mQuant > 0 .and. mtipoven<>"C" .and. mfges="S" .and. se_prod->(DbSeek(se_movnf->pcod))
         zValDev := zValDev + mqDevol*pValLoca
         aAdd( aTabela, array(8) )
         aTabela[len(aTabela)][1] := lTrim(Str(mQuant,12))
         aTabela[len(aTabela)][2] := lTrim(Str(mqDevol,12))
         aTabela[len(aTabela)][3] := lTrim(Str(mQuant-mqDevol,12))
         aTabela[len(aTabela)][4] := AllTrim(se_prod->pDesc)+" (Cod"+lTrim(Str(pcod,14))+")"
         aTabela[len(aTabela)][5] := lTrim(Str(mValor/mQuant,12,3))
         aTabela[len(aTabela)][6] := lTrim(Str((mQuant-mqDevol)*mValor/mQuant,12,2))
         aTabela[len(aTabela)][7] := lTrim(Str(pValLoca,12,2))
         aTabela[len(aTabela)][8] := lTrim(Str((mQuant-mqDevol)*pValLoca,12,2))
      endif
      DbSkip()
   EndDo
   aDocTabelas[Len(aDocTabelas), 1] := aTabela
endif
se_prod->(dbCloseArea())
se_movnf->(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)} )
aAdd( aVetorVariavelConteudo, {'[DATA_DA_LOCACAO]', dia_ext(m_fdataemi)} )
aAdd( aVetorVariavelConteudo, {'[DATA_DO_ADITIVO]', dia_ext(DATE())} )

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-zValDev} )
aAdd( aVetorVariavelConteudo, {'[VL_EXTENSO_LOCACAO]', numext(m_fValLoca-zValDev)} )
// alert('vai mostrar no word')
