>>>******************************************************************** >>>* 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>>>
>*=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>
>******************************************************************** >* 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>