FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour preview: esta visible icono excel pero no hace nada-SOLUCION
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
preview: esta visible icono excel pero no hace nada-SOLUCION
Posted: Thu Feb 27, 2020 07:00 PM
Fivewineros:
No me funciona el icono para exportar a excel desde el preview del report, he compilado report.prg y rpreview.prg que viene con el fwh 17.12 conjuntamente con mis prgs y tampoco nada, el icono del excel se ve en el preview pero al pasar el mouse sobre éste es como que no hay ningún boton
codigo fuente
Code (fw): Select all Collapse
    REPORT oRpt                                                        ;
      CAPTION 'Listado de Clientes'                                    ;
      FONT oFont1, oFont2, oFont3, oFont4, oFont5                      ;
      HEADER cNombre, "Fecha:  "+DTOC(DATE()), "Almacen.soft", "" RIGHT;
      TITLE 'Listado de Clientes'," " CENTER                           ;
      FOOTER "Página: "+STR(oRpt:nPage,3) RIGHT             

      COLUMN TITLE "COD"                        ;
            DATA oRs:Fields("Codigo"):Value     ;
            SIZE 11
      COLUMN TITLE "RUC"                        ;
            DATA oRs:Fields("Ruc"):Value        ;
            SIZE 11
      COLUMN TITLE "RazOn Social"               ;
            DATA oRs:Fields("Ng"):Value         ;
            SIZE 30
      COLUMN TITLE "DIRECCION"                  ;
            DATA oRs:Fields("Di"):Value
      COLUMN TITLE "TELEFONO"                   ;
            DATA oRs:Fields("Te"):Value
   END REPORT

   IF oRpt:lCreated
      oRpt:bSkip := { ||  oRs:MoveNext()  }
   ENDIF

   ACTIVATE REPORT oRpt While !oRs:Eof() 

   oRs:MoveFirst()

   oFont1:End()
   oFont2:End()
   oFont3:End()
   oFont4:End()
   oFont5:End()

Hay alguna intruccion por agregar o quitar en el report.prg o rpreview.prg?

Gracias por su ayuda
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: rpreview: esta visible icono excel pero no hace nada
Posted: Thu Feb 27, 2020 07:24 PM
Mira en RPreview: WHEN ::CanExportToExcel

http://www.fivetechsupport.com/forums/viewtopic.php?f=6&t=36983

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: rpreview: esta visible icono excel pero no hace nada
Posted: Fri Feb 28, 2020 11:35 AM
Please insert this code
Code (fw): Select all Collapse
oRpt:bInit := { || oRs:MoveFirst() }


before
Code (fw): Select all Collapse
   ACTIVATE REPORT oRpt While !oRs:Eof()

If you do this Excel button is activated and you can export the report to Excel.
Regards



G. N. Rao.

Hyderabad, India
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Re: rpreview: esta visible icono excel pero no hace nada
Posted: Fri Feb 28, 2020 03:47 PM

Gracias joao por tu ayuda, lo solucione con la sugerencia de Mr. Rao
Thank you Master Rao!!

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

Continue the discussion