REPORT TO EXCEL NO AGRUPA

[cjcardoza]

Estimados Compañeros del Foro
espero su apoyo a este problema que no logro encontrar solución,
uso el REPORT para generar todos mis reportes sin problema alguno, el inconveniente viene a la exportación al Excel con los reportes agrupados (no los totales por columna) con GROUP ON no muestra los resultados correctos como muestra el reporte preliminar mostrando la cadenas definidas en HEADER Y FOOTER con celdas combinada y alineados a la derecha mostrando el ultimo valor del reporte repetidamente en todos los grupos, tampoco esta funcionando el STARTGROUP donde inicializo variables para mostrar columnas acumuladas.

Las herramientas que estoy usando es xHarbourt + FWH1412 + Mysql

aca les muestro el reporte que muestra el preliminar correctamente:

DEFINE FONT oFont NAME MEMVAR->cFontPrn SIZE 0,-9
DEFINE FONT oFontB NAME MEMVAR->cFontPrn SIZE 0,-9 BOLD
::oSql:REFRESH()
::oSql:GOTOP()
Printersetup()
REPORT oReport FONT oFontB,oFont ;
CAPTION "Imprimiendo Bincar " ;
TITLE "titulo" LEFT;
PREVIEW
COLUMN TITLE PADC("FECHA",10) DATA ::oSql:feccpg FONT 2
COLUMN TITLE PADC("GUIA REM",12) DATA LEFT(::oSql:guia,12) FONT 2
COLUMN TITLE PADC("DOCUMENTO",16) DATA LEFT(IF(EMPTY(::oSql:docprov).AND.EMPTY(::oSql:nrofac),::oSql:nroreg,IF(EMPTY(::oSql:docprov),::oSql:nrofac,::oSql:docprov)),16) FONT 2
COLUMN TITLE PADC("RAZON SOCIAL",40) DATA LEFT(::oSql:razonsoc,40) PICTURE "@!" FONT 2
COLUMN TITLE PADC("UNIDAD MEDIDA",15) DATA LEFT(::oSql:desund,15) PICTURE "@!" FONT 2
COLUMN TITLE PADC("INGRESOS",12) DATA ::oSql:ingresosum PICTURE "@Z 9,999,999.99" TOTAL FONT 2
COLUMN TITLE PADC("INGRESOS UM",12) DATA ::oSql:ingresosuc PICTURE "@Z 9,999,999.99" TOTAL FONT 2
COLUMN TITLE PADC("SALIDAS",12) DATA ::oSql:salidasum PICTURE "@Z 9,999,999.99" TOTAL FONT 2
COLUMN TITLE PADC("SALIDAS UM",12) DATA ::oSql:salidasuc PICTURE "@Z 9,999,999.99" TOTAL FONT 2
COLUMN TITLE PADC("SALDOS UM",12) DATA {|| nSaldo:=nSaldo+(::oSql:ingresos-::oSql:salidas) } PICTURE "@Z 9,999,999.99" FONT 2
COLUMN TITLE PADC("P.COMPRA",12) DATA IF(::vGet:nMon==1,::oSql:pcomprasol,::oSql:pcompradol) PICTURE "@Z 9,999,999.99" FONT 2
COLUMN TITLE PADC("P.VENTA",12) DATA IF(::vGet:nMon==1,::oSql:pventasol ,::oSql:pventadol) PICTURE "@Z 9,999,999.99" FONT 2
GROUP ON ::oSql:codigo HEADER ALLTRIM(::oSql:codigo)+"-"+ALLTRIM(LEFT(::oSql:descripc,50)) FOOTER "TOTAL ART.:"+oReport:aGroups[1]:cValue+" : "+STRZERO(oReport:aGroups[1]:nCounter,4) FONT 1
END REPORT
oReport:bInit:={|| ::oSql:GOTOP() }
oReport:bSkip:={|| ::oSql:SKIP() }
oReport:lPageTotal:=.F.
oReport:cGrandTotal:="TOTALES:"
ACTIVATE REPORT oReport WHILE !::oSql:Eof();
ON STARTGROUP EVAL({|| nSaldo:=::oSql:saldoini,oReport:NewLine(),oReport:SAY(9,"SALDO INICIAL",1,,oReport:nRow),;
oReport:SAY(10,TRANSFORM(::oSql:saldoini,"@Z 9,999,999.99"),1,,oReport:nRow) })


www.subeimagenes.com/img/errorreport-1230841.html