Aca les dejo mi trabajo TRepXls, que desarrolle hace unos años atras:
http://www.sistemaempresarial.com.gt/do ... RepXls.zip
Esta clase, crea reportes a Excel, con una sintaxis parecida a la TReport de FWH:
Code: Select all
REPXLS oReport ;
HEADER "*** FiveWin Report DEMO ***",;
"",;
"Utilizando Excel - TRepXls",;
"", ;
"Date: "+dtoc(date()),;
"Time: "+time() ;
TO FILE cFile ;
FONT oFont1, oFont2, oFont3 ;
FORMAT nFormat1, nFormat2, nFormat3, nFormat4
ADD COLREPXLS TO oReport TITLE "City" CENTER;
DATA Customer->City SIZE 30
ADD COLREPXLS TO oReport TITLE "First Name" CENTER;
DATA Customer->First SIZE 30
ADD COLREPXLS TO oReport TITLE "Last Name" CENTER;
DATA Customer->Last SIZE 30
ADD COLREPXLS TO oReport TITLE " Salary" CENTER;
DATA Str(Customer->Salary) ;
FORMAT 1 ;
SIZE 12 ;
TOTAL
GROUPXLS TO oReport ON Customer->State ;
HEADER "State "+oReport:aGroups[1]:cValue ;
FOOTER "Total State "+oReport:aGroups[1]:cValue ;
FONT 3
oReport:bSkip := { || Customer->( DbSkip() ) }
oReport:bWhile := { || !Customer->( Eof() )}
oReport:aHeadFont[1] := 3
oReport:aHeadFont[3] := 2
//Marcar Celdas
oReport:lCellView := .t.
ACTIVATE REPXLS oReport ;
ON INIT ( Customer->( DbGotop() ) )
https://bitbucket.org/fivetech/fivewin- ... repdos.zip
http://forums.fivetechsupport.com/viewt ... 79#p168563
Esta clase utiliza las clases TFileXls de Ramón Avendaño, y la TExcelScript de Víctor Manuel Tomas Díaz.
Espero les sea de utilidad, y si alguien se anima a agregarle mas opciones, solo esperaría que las pusiera también en el foro, para poder probarlas.
Saludos.
Carlos.