FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Pasar facturas a Excel
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Pasar facturas a Excel
Posted: Mon Dec 19, 2022 12:50 PM

Buenos dias

Para generar las facturas en Excel, exoy utilizando sin problemas Toleauto (oExcel := oExcel:= TOleAuto():New( "Excel.Application" )), pero ahora tengo que generar facturas de tres o cuatro mil lineas de albaranes, y se me ralentiza mucho.

Recuerdo que hace tiempo utilicé la libreria Filexls de Ramon Avendaño y era muy rápida, y aunque conservo la librería, me gustaria que alguien me indicara algún ejemplo funcional, ya que tengo muchas dudas en su utilización, por ejemplo los bordes, centrar un rango de celdas, poner un bitmap en una celda, etc.

Un saludo

--------------------------

Saludos



Jose Luis
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Re: Pasar facturas a Excel
Posted: Mon Dec 19, 2022 08:31 PM
Gracias Joao

He revisado los enlaces, y hay algunas cosas que me sirven, pero no veo como con la Filexls insertar un bitmap.

Con Toleauto lo hago así
Code (fw): Select all Collapse
      oAs:Shapes:AddPicture(Publicas:rlogo,.t.,.t.,10,5,222,80)
Pero con Filexls no se como
--------------------------

Saludos



Jose Luis
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Pasar facturas a Excel
Posted: Mon Dec 19, 2022 10:24 PM
José Luis, creo que el correcto sea asi:
Code (fw): Select all Collapse
   oSheet:Pictures:Insert( cFile )
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Re: Pasar facturas a Excel
Posted: Wed Dec 21, 2022 08:30 AM

Buenos dias Joao

No veo la forma de integrarlo con la libreria Filexls de Ramon Avendaño

Para pasar a excel con esta libreria yo hago:

Para una fecha:

@ nFila, nCol XLS SAY "Fecha:" + DTOC( Date() ) OF oXls

Para un texto:

@ nFila, nCol XLS SAY OemToAnsi( cText ) OF oXls

Para un número, antes tengo que dar formato:

DEFINE XLS FORMAT nFormat PICTURE '#,##0.00'

Y no he visto otras formas de hacerlo

--------------------------

Saludos



Jose Luis
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Pasar facturas a Excel
Posted: Wed Dec 21, 2022 12:36 PM
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion