******************************************************************** * 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 *modi report (m.lcReportName) select TableMstr dodefault() goto m.lnRecno if m.lcSafety='ON' set safety on endif