topic-27171

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

bInit, en Rpreview, para excel
Posted: Sat Sep 07, 2013 06:19 PM

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?

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: bInit, en Rpreview, para excel
Posted: Sat Sep 07, 2013 08:13 PM

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 (fw): Select all Collapse

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.

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

lucasdebeltran

Posts: 1303

Joined: Tue Jul 21, 2009 08:12 AM

Re: bInit, en Rpreview, para excel
Posted: Thu Nov 07, 2013 09:03 PM

Noe,

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

Muchas gracias. Many thanks.

Un saludo, Best regards,

Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]

Implementando MSVC 2010, FWH64 y ADO.

Abandonando uso xHarbour y SQLRDD.

FiveTech Support Forums

Continue the discussion