Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Report on file with filtered index
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Divers
Thread ID:
00540214
Message ID:
00540230
Vues:
15
>After the Filter is set do you to a Locate?

It's not a Filter, but Filtered index. On the screen user sees only 5 records, which I want to print. However, the whole file is printed. I tried an experiment in the command window. I opened this file with a filtered index and did modi report TableMaint. It printed correctly only 5 recs. So, my guess is, that it's a problem in Reporter application itself, but I'm not 100% sure. In attempt to confirm this problem I ran into the bug in one of my other form, which I'm now seeking Help. See this problem in a letter to Cetin.

>
>>Hi everybody,
>>
>>In one of my form I generate report on the fly because this form is used for any file. Here is my code:
>>
>>
>>********************************************************************
>>*  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
>>select TableMstr
>>if !empty(m.lcOrder)
>>   set order to tag (m.lcOrder) && Restore tag
>>endif
>>dodefault()
>>goto m.lnRecno
>>if m.lcSafety='ON'
>>     set safety on
>>endif
>>
>>dodefault() invokes Report application, which allows to select destination. There are only 5 records in this file, when the filtered index is used. However, the whole file is printed. Do you see the problem in the above code or it might be a problem in Report application itself (I already asked my colleague to check this)?
>>
>>Thanks in advance.
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