FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Consulta sobre la clase RepExcel
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM

Consulta sobre la clase RepExcel

Posted: Wed May 27, 2009 03:38 PM

Hola gente del foro:
Quiero hacerles una consulta, para aquellos que utilizan esta clase, para exportar los reportes a Excel.
Tengo un problema, que me surge cuando el reporte generado, se basa en un filtro de una tabla o en un array. El reporte me lo genera correctamente, pero cuando pongo que exporte a Excel, el mismo sale sin ningún registro.
Alguien ha tenido este problema, y por ende, lo ha solucionado?
Agradecido de antemano

Posts: 205
Joined: Fri Oct 07, 2005 05:07 PM

Re: Consulta sobre la clase RepExcel

Posted: Thu May 28, 2009 09:49 PM

Hola
Puedes poner como armas tu reporte

Saludos/regards

RenOmaS



skype: americo.balboa
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM

Re: Consulta sobre la clase RepExcel

Posted: Sat May 30, 2009 11:36 PM
Hola RenOmans:
Te paso acá el código que uso para los reportes que no se exportan bien al excel
Code (fw): Select all Collapse
SELECT movi02
DBSETRELATION("maes04",{|| movi02->legajo }  , "movi02->legajo"   )
DBSETRELATION("codi04",{|| movi02->codigo }  , "movi02->codigo"   )
movi02->(DBSEEK(DTOS(mfecha)))
REPORT oRep TITLE "Inasistencias de dia " + ;
                  DTOC(mfecha) ;
       FONT  oFont1,oFont2,oFont3 ;
       HEADER OemToAnsi(memvar->xnomb_emp) , ;
       "Inasistencias diarias" CENTER ;
       FOOTER "Hoja:" + STR(oRep:npage,3) ,"Fecha:"+DTOC(DATE()) CENTER;
       PREVIEW CAPTION  "Inasistencias diarias"

COLUMN TITLE "Legajo"    DATA movi02->legajo  PICTURE "999999" SIZE 06 FONT 2
COLUMN TITLE "Empleado"  DATA maes04->nombre  SIZE 20 FONT 1
COLUMN TITLE "Codigo"    DATA movi02->codigo  PICTURE "999" SIZE 05 FONT 1
COLUMN TITLE "Tipo"      DATA codi04->nombre  SIZE 20 FONT 2
// Digo que el titulo lo escriba con al letra 2
oRep:oTitle:aFont[1] := {|| 2 }
END REPORT
// Activo el reporte
ACTIVATE REPORT oRep WHILE movi02->fecinasi = mfecha ;
         ON INIT CursorArrow() ;
         ON STARTPAGE oRep:SayBitmap(.1,.1,"LOGO.BMP",1.5,.5)
// Cierro los archivos
CLOSE maes04
CLOSE codi04
CLOSE movi02
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM

Re: Consulta sobre la clase RepExcel

Posted: Sun May 31, 2009 12:15 AM

Hola,

debes definir oPep:bPreInit := {|| movi02 -> ( DBGOTOP() ) }

antes del ACTIVE REPORT

saludos

Marcelo

Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM

Re: Consulta sobre la clase RepExcel

Posted: Sun May 31, 2009 02:22 PM

Hola Marcelo:
Fantastico, funcionó perfecto. Muchisimas gracias.

Continue the discussion