¿Cómo activo el botón XLS del Preview?

[wyerco613]

Estimados

Buenas noches, ¿Cómo activo el botón XLS del Preview? el de PDF y de WORD están activados y funcionan bien pero este sale "disabled". Ya me he revisado varios prg´s

inclusive FIVEDBU y no lo encontre (a propósito no permite imprimir la estructura de una tabla y tampoco modificarla, se podría implementar. Saludos )

Muchas gracias desde ya.

Waldemar

[nageswaragunupudi]

If you are generating a preview of a report with code like this:

Code: Select all  Expand view

  local oRep, oFont, oBold, oCol

   USE CUSTOMER NEW SHARED
   SET FILTER TO RECNO() <= 20
   GO TOP

   DEFINE FONT oFont NAME "TAHOMA"  SIZE 0,-12
   REPORT oRep PREVIEW FONT oFont

   COLUMN oCol TITLE "NAME" DATA FIELD->FIRST
   COLUMN oCol TITLE "CITY" DATA FIELD->CITY

   ENDREPORT

   oRep:bInit := { || CUSTOMER->( DBGOTOP() ) }

   ACTIVATE REPORT oRep

   RELEASE FONT oFont
 

Please insert this code after ENDREPORT and ACTIVATE REPORT

Code: Select all  Expand view

   oRep:bInit := { || CUSTOMER->( DBGOTOP() ) }
 

Then, the Excel button of preivew works.
Without this, the preview does not work.

[wyerco613]

Dir Rao

I did what you said me. The sample:

Function ImpBoletas(cRut,cSocio)
Local oLis

Boletas->(DBGoTop())

REPORT oLis TITLE "BOLETAS DE "+cSocio,"","RUT "+cRut;
HEADER "SINDICATO",;
"Fecha: "+Dtoc(Date()),;
"Hora : "+Time() LEFT ;
FOOTER "Pag "+Str(oLis:nPage,3) CENTERED;
CAPTION "Boletas";
PREVIEW

COLUMN TITLE "FECHA" DATA Boletas->FECHA

COLUMN TITLE "Nº BOLETA" DATA Boletas->NUM_BOL

COLUMN TITLE "DETALLE" DATA Boletas->DETALLE

COLUMN TITLE "VALOR" DATA Boletas->VALOR;
PICTURE "@E 99,999,999";
RIGHT TOTAL

END REPORT

oLis:bInit := { || Boletas->( DBGOTOP() ) }

ACTIVATE REPORT oLis

//Boletas->(DBGoTop())

Return(NIL)

But don´t work, the bottom excel on the preview is disable yet.

I do someting bad?

Thank for your help

Waldemar

[nageswaragunupudi]

What version of FWH you are using?

[wyerco613]

Drae Mr. Rao

My version is FWH 1903, and use pellesC


Best regards

Waldemar

[nageswaragunupudi]

Then it should work. Try clicking on excel button.
Just now this is the program I tested :
You may copy this program to \fwh\samples folder and run with buildh.bat or buildx.bat

Please make sure that you are not using any modifications to the fwh libraray.

Code: Select all  Expand view

#include "fivewin.ch"
#include "report.ch"

REQUEST DBFCDX

function Main()

  local oRep, oFont

   USE CUSTOMER NEW SHARED VIA "DBFCDX"
   SET FILTER TO RECNO() <= 20
   GO TOP

   DEFINE FONT oFont NAME "TAHOMA"  SIZE 0,-12
   REPORT oRep PREVIEW FONT oFont

   COLUMN TITLE "NAME" DATA FIELD->FIRST
   COLUMN TITLE "CITY" DATA FIELD->CITY

   ENDREPORT

   oRep:bInit := { || CUSTOMER->( DBGOTOP() ) }

   ACTIVATE REPORT oRep

   RELEASE FONT oFont

return nil
 

This is the result:

[wyerco613]

Dear Rao

I´ve compiled and linked several examples like FiveDbu and the butttom excel preview works for that i beleave i have to acive some of clase xbrowse or of preiew,

what do you thing?

Best Regards

Waldemar

i use bcc7.

[nageswaragunupudi]

Are you using any modified report.prg or modified rpreview.prg?

[wyerco613]

Dear Rao

No i did, but my prg (the main) i did not begin of zero I modified a old one (FWXH 13 i guest?), maybe that it is de problem. i've seen a lot prg's and in all cases the object is related to DATA bExcel.

example: oBrw:toExcel(parameters, I don´t know)

My problem is i need work with the classe in "report" and from preview

my email is waldemar@easycomp.cl

thank you very much

Waldemar González

[nageswaragunupudi]

1) You can call oBrw:ToExcel() without any parameters.
2) Export to Excel works from Preview of Report class.
3) I posted a sample above. Please copy the sample to \fwh\samples folder and build it with buildx.bat
Is this sample working for you correctly as expected?

[wyerco613]

1) You can call oBrw:ToExcel() without any parameters.
2) Export to Excel works from Preview of Report class.
3) I posted a sample above. Please copy the sample to \fwh\samples folder and build it with buildx.bat
Is this sample working for you correctly as expected?

Dear Rao

1) I know that but i need more control about oBrw:ToExcel().
2) To me doesn´t work from Preview. I get 2 function`s give reports with preview and the excel buttom is Disabled.
3) I did and It works very well but when I call from may program it doesn' works.

my function:

Function ImpBoletas(cRut,cSocio)
Local oLis

//cBuscar:=Ctaarr->(Fieldget(3))+Str(Ctaarr->(Fieldget(6)),2)+Str(Ctaarr->(Fieldget(7)),4)
Boletas->(DBGoTop())

REPORT oLis TITLE "BOLETAS DE "+cSocio,"","RUT "+cRut;
HEADER "SINDICATO DE TRABAJADORES HONORARIOS",;
"Fecha: "+Dtoc(Date()),;
"Hora : "+Time() LEFT ;
FOOTER "Pag "+Str(oLis:nPage,3) CENTERED;
CAPTION "Boletas de Medicamentos";
PREVIEW

COLUMN TITLE "FECHA" DATA Boletas->FECHA

COLUMN TITLE "Nº BOLETA" DATA Boletas->NUM_BOL

COLUMN TITLE "DETALLE" DATA Boletas->DETALLE

COLUMN TITLE "VALOR" DATA Boletas->VALOR;
PICTURE "@E 99,999,999";
RIGHT TOTAL

END REPORT

oLis:bInit := { || Boletas->( DBGOTOP() ) }

ACTIVATE REPORT oLis

//Boletas->(DBGoTop())

Return(NIL)

Thanks

Best Regards

Waldemar