Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Report on file with filtered index
Message
 
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00540214
Message ID:
00540255
Views:
12
>Hi Nadya,
>
>I don't see any problem in your code that could cause that. To be sure I would put SUSPEND right before DODEFAULT() and check that everything is ok.

I'll try, thanks. In the meantime I've found another problem in the other form, so now I need to change the string. Since you're good in string manipulations, may be you can help me here. The problem is: I have a where expression as a result of "WHERE "+filter()+" AND "+ FOR() (I simplified this logic a little bit, but anyway). Now I have to insert Alias before each field in this expression. FILTER() and FOR() may contain any symbols, which could be used in filter expression.

So, first I should replace each symbol with space+symbol+space, then run a loop against each field in a table and do strtran. Do you object this idea? Can you help me with the first part of this problem, e.g. inserting spaces before and after each symbol (I'm going to do it in a loop too, since I didn't see a simpler solution).
>
>>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
Previous
Reply
Map
View

Click here to load this message in the networking platform