******************************************************************** * 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 returneach line of code executes immediately, so it changes back before doing TableMaintenance application.