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.