bInit, en Rpreview, para excel

[noe aburto]

Checando la clase rpreview, para ver el funcionamiento de oReport:bInit

METHOD ExportToMSExcel() INLINE If( ::oReport != nil .and. ;
( ::oReport:bInit != nil .or. ::oReport:bToExcel != nil ), ;
::oReport:ToExcel(), ;
MsgInfo( FWString( "Export to Excel is available only" ) + ;
CRLF + ;
FWString( "for Reports with ::bInit defined" ) ) )

Que es en realidad lo que necesito asignar al ( bInit o bToExcel ) para que mi reporte se pueda exportar a excel?

[cmsoft]

Hola Nae:
En realidad si no tenes que ponerle ninguna condición especial, no hace falta ponerle nada, excepto que necesites reposicionar algun dato al principio del reporte.
Por ejemplo este caso:

Code: Select all  Expand view

SELECT vent02
vent02->(DBSEEK(mcodcli))
REPORT oRep TITLE "Facturas de " + ALLTRIM(mnomcli),;
                  "del " + DTOC(mdesde) + " al " + DTOC(mhasta) ;
       FONT  oFont1,oFont2,oFont3 ;
       HEADER OemToAnsi(memvar->xnomb_emp) , ;
       "Facturas de ventas" CENTER ;
       FOOTER "Hoja:" + STR(oRep:npage,3) ,"Fecha:"+DTOC(DATE()) CENTER;
       PREVIEW CAPTION  "Facturas de ventas"

COLUMN TITLE "Nro.Fact." DATA vent02->ticomp+vent02->numcomp SIZE 15 FONT 1
COLUMN TITLE "Fecha"     DATA vent02->fecha   PICTURE "@D" SIZE 10 FONT 1
COLUMN TITLE "Importe"   DATA vent02->importe*;
              IF(vent02->ticomp="NC",-1,1)    PICTURE "999999999.99" ;
              SIZE 10 FONT 2 TOTAL
COLUMN TITLE "Saldo"     DATA vent02->saldo*;
              IF(vent02->ticomp="NC",-1,1)    PICTURE "999999999.99" ;
              SIZE 10 FONT 2 TOTAL
// Digo que el titulo lo escriba con al letra 2
oRep:oTitle:aFont[1] := {|| 2 }
oRep:bPreinit := {|| vent02->(DBSEEK(mcodcli)) }
END REPORT
// Activo el reporte
ACTIVATE REPORT oRep WHILE vent02->codcli=mcodcli;
         FOR vent02->fecha >= mdesde .and. vent02->fecha <= mhasta;
         ON INIT CursorArrow() ;
         ON STARTPAGE oRep:SayBitmap(.1,.1,"LOGO.BMP",1.5,.5)
// Cierro los archivos
CLOSE clie04
CLOSE vent02

Donde tengo que reposicionarme en el cliente especifico, hago que el Bpreinit se posiciones
Espero te sirva.

[lucasdebeltran]

Noe,

oRpt:bInit := {|| dbgotop() }