******************************************************************** * 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 select TableMstr dodefault() goto m.lnRecno if m.lcSafety='ON' set safety on endifAnd now it works just fine. So, it was a problem with creating reports on the fly...
>>>>******************************************************************** >>>>* 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>>>>