Nuevo FWH 15.08

[Antonio Linares]

http://forums.fivetechsupport.com/viewt ... 01&start=0

[Antonio Linares]

Nuevo build 2 ya disponible:

http://forums.fivetechsupport.com/viewt ... 96#p181696

[cjcardoza]

Estimado Sr. Antonio
He tenido inconvenientes al exportar a Excel desde Report cuando el reporte tiene grupos los títulos de los grupos no muestra como sale en el reporte, y el contador de elementos por grupos muestra el resultado del ultimo grupo para todos,

En su oportunidad hice este post no teniendo ningún tipo de respuesta alguna del foro.

http://forums.fivetechsupport.com/viewt ... up#p172656

Quisiera confirmar si con esta nueva versión de FWH ya viene con esta corrección.

Agradezco su atención

_

[Antonio Linares]

Carlos,

Si no me equivoco, ese problema esta ya solucionado en las versiones más recientes de FWH.

De todas formas voy a consultarlo con Mr. Rao que es nuestro experto en exportación a Excel, entre muchos otros temas.

[cjcardoza]

Sr. Antonio
Gracias por la pronta respuesta
Estaré al tanto de esta confirmación para actualizarme a la ultima versión

_

[Antonio Linares]

Carlos,

Me indica Mr. Rao que si nos puedes proporcionar un ejemplo para probarlo aqui, gracias

[cjcardoza]

Sr. Antonio

hice unas modificaciones en el testrep1.prg de la carpeta SAMPLES del FWH
las modificaciones solamente es en el group para visualizar el problema

en el siguiente enlace esta el demo completo con la tabla customer.dbf
enlace el report.obj modificado por el idioma para la exportación al Excel

Uso el FWH 1412

http://www.4shared.com/rar/ro7jr3uDce/e ... eport.html


// This is a demo of the FiveWin report Engine

#include "FiveWin.ch"
#include "report.ch"

#define BLANCO 1
#define ROJO 2
#define AMARILLO 3
#define AZUL 4
#define VERDE 5

static oWnd

//----------------------------------------------------------------------------//

Function Main()

LOCAL oBar

FIELD State, City

USE Customer
INDEX ON State+City TO CustStCt
SET INDEX TO CustStCt

DEFINE WINDOW oWnd TITLE "FiveWin Report Engine demo" MDI

DEFINE BUTTONBAR oBar OF oWnd

DEFINE BUTTON OF oBar ACTION DoReport()

ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//

function DoReport()

local oReport

REPORT oReport ;
TITLE "*** LISTADO DE PRUEBA ***","","FiveTech Software","" ;
HEADER "Fecha: "+dtoc(date())+space(44)+"Hora: "+time() ;
FOOTER "P gina: "+str(oReport:nPage,3);
PREVIEW

GROUP ON Customer->State ;
HEADER " " ;
FOOTER "Total Estado "+oReport:aGroups[1]:cValue+" : "+strzero(oReport:aGroups[1]:nCounter,3)

COLUMN TITLE "ST" ;
DATA Customer->State

COLUMN TITLE "City" ;
DATA Customer->City ;
SIZE 30

COLUMN TITLE "First Name","Last Name" ;
DATA Customer->First, Customer->Last ;
SIZE 30

COLUMN TITLE " Salary" ;
DATA Customer->Salary ;
PICTURE "9,999,999" ;
SIZE 9 ;
TOTAL

END REPORT

// Color para lineas en verde
// oReport:bStdFont := {|| VERDE }

//Color para totales de cuarta columna en AZUL
// oReport:aColumns[4]:bTotalFont := {|| AZUL }

//Header y Footer en azul
// oReport:oHeader:aFont[1] := {|| AZUL }
// oReport:oFooter:aFont[1] := {|| AZUL }

// Titulo, header y Footer de grupo en amarillo
// oReport:oTitle:aFont[1] := {|| AMARILLO }
// oReport:aGroups[1]:bHeadFont :={|| AMARILLO }
// oReport:aGroups[1]:bFootFont :={|| AMARILLO }

oReport:bInit:={|| DBGOTOP() }
oReport:bSkip:={|| DBSKIP() }

ACTIVATE REPORT oReport ;
ON STARTPAGE Tone( 100, 1 )

RETURN NIL

//----------------------------------------------------------------------------//

Agradezco la atención del caso

[Antonio Linares]

Le he reenviado tu ejemplo a Mr. Rao para que nos de su opinión, gracias