Page 1 of 1

Pasar facturas a Excel

PostPosted: Mon Dec 19, 2022 12:50 pm
by JoseLuis
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

Re: Pasar facturas a Excel

PostPosted: Mon Dec 19, 2022 2:28 pm
by karinha

Re: Pasar facturas a Excel

PostPosted: Mon Dec 19, 2022 8:31 pm
by JoseLuis
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: Select all  Expand view
     oAs:Shapes:AddPicture(Publicas:rlogo,.t.,.t.,10,5,222,80)


Pero con Filexls no se como

Re: Pasar facturas a Excel

PostPosted: Mon Dec 19, 2022 10:24 pm
by karinha
José Luis, creo que el correcto sea asi:

Code: Select all  Expand view

   oSheet:Pictures:Insert( cFile )
 


Regards, saludos.

Re: Pasar facturas a Excel

PostPosted: Wed Dec 21, 2022 8:30 am
by JoseLuis
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

Re: Pasar facturas a Excel

PostPosted: Wed Dec 21, 2022 12:36 pm
by karinha