>>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 this a modified method why don't you pass params to dodefault?
>Cetin

There is no parameters in parent PrintM method. This method is simple:

*=messagebox('Not implemented.')
* Simple run of a predefined report
DO REPORTER.APP WITH 'RUN',thisform.printid
_screen.removeobject('reporter')  && Remove this object to clean up

So, I just invoke these two lines of code by dodefault(). Reporter.app is the application written by my colleague. BTW, I decided to test its functionality on another form and found this problem (I'll start a new thread in a minute too):

Here is the code from another form (EditLenders):

********************************************************************
*  Description.......: EditLenders.PrintM
*  Calling Samples...: 
*  Parameter List....: 
*  Created by........: Nadya Nosonovsky 04/18/2000 11:28:42 AM 
*  Modified by.......: 
********************************************************************
* Prepare cursor
local lnRecno, lcWhere, lcFor, lcOrder
select lender
lnRecno=recno()
lcWhere=filter()
if !empty(m.lcWhere)
   lcWhere='where '+ m.lcWhere
endif    
lcOrder=order()
if !empty(m.lcOrder)
   lcFor=for(tagno(m.lcOrder))
   if !empty(m.lcFor)
      lcWhere=iif(empty(m.lcWhere),'where '+ m.lcFor, m.lcWhere + ' and '+ m.lcFor)
   endif   
endif
select a.code as lender, a.fullname as Full_Name, ;
       a.ParentCode, c.short as ParentName, ;
       a.status, a.category, b.fullname as CatName ;
       from lender a inner join lendtype b ;
       on a.category=b.code ;
       inner join lender c on a.ParentCode=c.code ;
       &lcWhere ;
       order by 6 ;       
       into cursor curLenders
dodefault() 
use in curLenders
select Lender
goto m.lnRecno

I've tried to run it on the filtered index on Lender table and got a message: code is not unique and must be qualified.

Here is lcWhere expression: where CODE#PARENTCODE.OR.PCOFLAG="P"
Obviously, I want to insert a. before code, parentcode, pcoflag. How can I do this string manipulation?

BTW, just thought, that I should use at least two letters to aliases, but it doesn't change my question how to perform this string modification?