Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Report without report generator.
Message
 
 
À
22/08/2001 23:13:54
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Divers
Thread ID:
00547773
Message ID:
00547933
Vues:
27
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform