TRepXls: Clase para crear reportes a Excel tipo columnas

[csincuir]

Hola a todos.
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() ) )
 

Es algo parecido a lo que hic con la TRepDos:
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.

[karinha]

Carlos, sería posible proporcionar un ejemplo sencillo del uso de TRepDos? Porque yo no puedo generar el report.
Genera muchos errores y no puedo resolver.

Gracias, saludos.

[sysctrl2]

Andale que anexes el executable,
para poder probar.
gracias..

[csincuir]

Hola, dentro del zip, de la TRepXls, va un ejemplo, que genera un reporte con la TReport y el mismo reporte pero con la TRepXls que genera la hoja Excel...
Sera solo de correr el archivo cop.bat (primero verificar los paths de este archivo y del makerep.mak)

Estas es una imagen de como salen los dos reportes:


Saludos.

Carlos.