>******************************************************************** >* Description.......: LookupDFLT - Default lookup action in XForm >* Calling Samples...: >* Parameter List....: >* Created by........: Nadya Nosonovsky 10/10/2000 10:27:12 AM >* Modified by.......: >******************************************************************** >private pcCurDir, plChangeBack && Current directory, make it private to be visible in hierarhy >local lcTableMaintDir >lcTableMaintDir='\redp\appl\TableMaintenance\' && Table Maintenance default directory >pcCurDir=curdir() && Save current directory >plChangeBack=.f. >cd (lcTableMaintDir) >do TableMaintenance && Without parameters >*if plChangeBack > cd (pcCurDir) && change back to current directory >*endif >return >>each line of code executes immediately, so it changes back before doing TableMaintenance application.