Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Report without report generator.
Message
 
 
To
22/08/2001 23:13:54
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00547773
Message ID:
00547933
Views:
20
>It is possible / advisible to generate report without using the report generator. If it is possible, would anyone be kind enough to show me a simple report source code. Thank you in advance.

Here is the simple method I use, when I don't know the structure of the table in advance (I expect it to be no more than 5 fields):
********************************************************************
*  Description.......: TableMaint.PrintM
*  Calling Samples...: 
*  Parameter List....: 
*  Created by........:  
*  Modified by.......: Nadya Nosonovsky 06/06/2000 12:51:08 PM
********************************************************************
local lcReportName, lcSafety, lnRecno, lcOrder
lcReportName='Reports\TableMaint'
lcSafety=set('safety')
set safety off
select TableMstr
lnRecno=recno()
*lcOrder=order()
create report (m.lcReportName) from alias() column 
if OpenTble(forceext(m.lcReportName,'FRX'),"WorkReport",'exclusive')
   wait window nowait "Preparing a report..."
   select WorkReport
   replace tag with '', tag2 with ''
   delete for objtype=26
   pack
   use in WorkReport
endif   
*modi report (m.lcReportName)
select TableMstr
dodefault()
goto m.lnRecno
if m.lcSafety='ON'
     set safety on
endif
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform