Hello everyone.
Here I give you my work TRepXls, develop a few years ago:
http://www.sistemaempresarial.com.gt/downloads/TRepXls.zip
This class creates reports to Excel, with a syntax similar to TReport FWH:
It is something like other work that I did, TRepDos:
https://bitbucket.org/fivetech/fivewin-contributions/downloads/Trepdos.zip
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=29779#p168563
This class uses the TFileXls classes Ramón Avendaño, and TExcelScript Victor Manuel Tomas Diaz.
I hope it will be useful, and if anyone is encouraged to add more options, just expect that also put in the forum, to try them.
Greetings.
Here I give you my work TRepXls, develop a few years ago:
http://www.sistemaempresarial.com.gt/downloads/TRepXls.zip
This class creates reports to Excel, with a syntax similar to TReport FWH:
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() ) )It is something like other work that I did, TRepDos:
https://bitbucket.org/fivetech/fivewin-contributions/downloads/Trepdos.zip
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=29779#p168563
This class uses the TFileXls classes Ramón Avendaño, and TExcelScript Victor Manuel Tomas Diaz.
I hope it will be useful, and if anyone is encouraged to add more options, just expect that also put in the forum, to try them.
Greetings.
