Vfp9'da Html Rapor Alma

LOCAL olistener

 

&& get an instance of a ReportListener

&& (see subclass definition below)

olistener = CREATEOBJECT("MyTiffListener")

olistener.tifffilename = "c:\tifftest.tif"

 

&& run a report referencing the configured listener

REPORT FORM (_samples+"solution\reports\invoice.frx") ;

  OBJECT olistener RANGE 1,2

 

&& show result in the browser

RUN /n Explorer.exe c:\tifftest.tif

 

&& our subclass of ReportListener

DEFINE CLASS MyTiffListener AS ReportListener

  tifffilename = []

  listenertype = 2 && page-at-a-time, no output

 

FUNCTION OutputPage(nPageNo, eDevice, nDeviceType)

 && Because ListenerType indicates "no print output,"

  && nDeviceType will be -1 on the call

  && to this method triggered by the report engine

  && We trap that condition and do our own

  && call to OutputPage with filename and image type

  IF nDeviceType = -1 ;

    AND NOT EMPTY(THIS.tifffilename)

 

    IF nPageNo = 1

      && create the TIFF if on first page

      THIS.OutputPage(nPageNo, THIS.tifffilename, 101)

    ELSE

      && append to the TIFF for other pages

      && (file must already exist for this to work)

      THIS.OutputPage(nPageNo, THIS.tifffilename, 201)

    ENDIF

endif

LOCAL olistener

 

&& get a reference to the HTMLListener class

DO (_reportoutput) WITH 5, olistener

 

&& turn off UI feedback and user prompts at end of run

olistener.quietmode=.T.

 

&& specify my own filename and location

olistener.targetfilename = "c:\htmltest.htm"

 

&& run a report referencing the configured listener

REPORT FORM (_samples+"solution\reports\ledger.frx") ;

  OBJECT olistener

 

&& show result in the browser

RUN /n Explorer.exe c:\htmltest.htm

 

 

    && we have called OutputPage already with

    && the desired settings

    NODEFAULT

  ENDIF

 

ENDDEFINE

LOCAL olistener

 

&& get a reference to the XMLListener class

&& from the FFC _reportlistener.vcx

olistener = NEWOBJECT("XMLListener", ;

  HOME(0)+"ffc\_reportlistener.vcx")

 

&& turn off UI feedback and user prompts at end of run

olistener.quietmode=.T.

 

&& include data only, no layout information

&& olistener.xmlmode=0 && data only

 

&& other options

&&olistener.xmlmode=1 && layout only

 

olistener.xmlmode=2 && data and layout

olistener.includeDataSourcesInVFPRDL = .T. && data sources

olistener.includeFormattingInLayoutObjects = .T. && additional layout info

 

&& specify my own filename and location

olistener.targetfilename = "c:\xmltest.xml"

 

&& run a report referencing the configured listener

REPORT FORM (_samples+"solution\reports\ledger.frx") ;

  OBJECT olistener

 

&& show result in the browser

RUN /n Explorer.exe c:\xmltest.xml