Exportacion a Excel de reportes resumidos

[jose_murugosa]

Hola, no se si este problema se da con bases de datos, dado que como uso SQL, mis reportes se arman a partir de arrays generados desde las tablas, pero en los reportes que genero a partir de arrays, sucede que si son resumidos y los exporto a Excel, se exportan detallados.

aquí está el código:

Code: Select all  Expand view

#include "Fivewin.ch"
#include "report.ch"

FUNCTION Main()
    LOCAL aReturn:={}, i:=0, j:=0
    //listado desde un array
    FOR i=1 TO 25
        for j=1 to 5
            aadd( aReturn, { Str(i,3), "texto", 25 } )
        NEXT j
    NEXT i
   
    REPORT oReport TITLE "Listado" CAPTION "Listado" PREVIEW SUMMARY
   
        COLUMN TITLE "# " ;
            DATA aReturn[i,1] ;
            PICTURE "999" ;
            SIZE 4
       
        COLUMN TITLE "# " ;
            DATA aReturn[i,2] ;
            PICTURE "!!!!!" ;
            SIZE 7
       
        COLUMN TITLE "Cantidad:" ;
            DATA aReturn[i,3] ;
            PICTURE "9,999,999" ;
            SIZE 10;
            TOTAL
           
        GROUP ON aReturn[i,1];
            HEADER "Producto: " + aReturn[i,1]
           
    END REPORT
   
    oReport:bSkip := { || i++  }
    oReport:bInit := {|| i := 1 }
   
    ACTIVATE REPORT oReport WHILE i <= LEN( aReturn )

RETURN nil
 

Este sencillo programita, genera un array que luego listo resumido con preview.

En el preview y en la impresión se resume, pero en la exportación a Excel, se genera detallado.

Esto se puede resolver?

Aquí el ejemplo del error autocontenido:

https://app.box.com/s/uehujziqmlk6tg4attqv

Agradezco desde ya vuestra amable ayuda.

[jose_murugosa]

????

Alguna sugerencia?

[jose_murugosa]

Bueno, lo probé con tablas dbf y es igual, vease este ejemplo de código:

Code: Select all  Expand view

#include "Fivewin.ch"
#include "Ord.Ch"
#include "report.ch"

FUNCTION Main()
    LOCAL oReport
    FIELD age
   
    REQUEST DBFCDX
    RddSetDefault( 'DBFCDX' )
     SET AUTOPEN ON
   
    //listado desde una tabla
    USE CUSTOMER NEW SHARED
    INDEX ON AGE TAG AGE
    GO TOP
   
    REPORT oReport TITLE "Listado" CAPTION "Listado" PREVIEW SUMMARY
   
        COLUMN TITLE "Nombre" ;
            DATA CUSTOMER->first ;
            PICTURE "!!!!!!!!!!!!!!!!!!!!" ;
            SIZE 10
       
        COLUMN TITLE "Monto Salarios:" ;
            DATA CUSTOMER->salary ;
            PICTURE "9,999,999.99" ;
            SIZE 15;
            TOTAL
           
        GROUP ON CUSTOMER->age ;
            HEADER "Edad: " + Str( CUSTOMER->age, 3 )
           
    END REPORT
   
    oReport:bInit := {|| DbGoTop() }
   
    ACTIVATE REPORT oReport

    CLOSE DATABASES
   
RETURN nil
 

aquí el ejemplo autocontenido:

https://app.box.com/s/qjqesvxhnh531zu0rl6b

Agradezco si alguien puede guiarme en alguna forma de lograr que en las excels se resuma también.

Gracias por vuestra atención.

[jose_murugosa]

???????

[jose_murugosa]

Sería muy bueno para mi poder deshacerme de la clase repexcel, para adoptar la exportación a XLS de la treport, así como otras exportaciones y facilidades nuevas de la misma, perooooooooooo..., la clase repexcel o trepxls u otros nombre que ha recibido, resumía los reportes resumidos, no sucede así con la exportación a excel nativa de la clase treport......

Dirigiendome a los desarrolladores que diseñaron la exportación a excel..
Es posible añadir esta funcionalidad a la clase?


?????