reportes en excel desdel visual foxpro
Publicado por Elias (79 intervenciones) el 07/01/2019 12:48:03
Tengo un sistema de facturación que emite informes en formato Excel predefinidos. Ahora la empresa esta cambiando a Open Office y los procedimientos ya no funcionan.
Alguien podría ayudarme a re convertir la rutina para que funcione con Open office ?
Desde ya muchas gracias
Adjunto la rutina
Alguien podría ayudarme a re convertir la rutina para que funcione con Open office ?
Desde ya muchas gracias
Adjunto la rutina
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
*STORE 'z:\contabilidad\hechauka_compras.xls' TO archivo1
STORE 'z:\contabilidad\hechauka_compras'+PADL(m_nrousu,2,'0')+'.xls' TO archivo2
*COPY FILE &archivo1 TO &archivo2
*oOle =Createobject("Excel.Application")
Lcruta = [&archivo2]
oWorkBook = oOle.Workbooks.Open(Lcruta)
oOle.Application.worksheets(1).Select
*SELECT auxi_hechauka_compras
*GO top
*do while .not. EOF()
* STORE m_nroreg + 1 TO m_nroreg *oOle.Cells(m_nroreg,1).value= auxi_hechauka_compras.tipreg
oOle.Cells(m_nroreg,2).value= auxi_hechauka_compras.ruc
oOle.Cells(m_nroreg,3).value= auxi_hechauka_compras.dv
oOle.Cells(m_nroreg,4).value= auxi_hechauka_compras.razsocial
oOle.Cells(m_nroreg,5).value= auxi_hechauka_compras.timbrado
oOle.Cells(m_nroreg,6).value= auxi_hechauka_compras.tipdoc
oOle.Cells(m_nroreg,7).value= auxi_hechauka_compras.nrodoc
oOle.Cells(m_nroreg,8).value= auxi_hechauka_compras.fecope
oOle.Cells(m_nroreg,9).value= auxi_hechauka_compras.monto10
oOle.Cells(m_nroreg,10).value= auxi_hechauka_compras.iva10
oOle.Cells(m_nroreg,11).value= auxi_hechauka_compras.monto5
oOle.Cells(m_nroreg,12).value= auxi_hechauka_compras.iva5
oOle.Cells(m_nroreg,13).value= auxi_hechauka_compras.monto0
oOle.Cells(m_nroreg,14).value= auxi_hechauka_compras.tipope
oOle.Cells(m_nroreg,15).value= auxi_hechauka_compras.condic
oOle.Cells(m_nroreg,16).value= auxi_hechauka_compras.cancuo
*SKIP
*ENDDO
*oOle.Visible=.T.
*Valora esta pregunta
0
