>>******************************************************************** >>* Description.......: DE.BeforeOpenTables >>* Calling Samples...: >>* Parameter List....: >>* Created by........: Nadya Nosonovsky >>* Modified by.......: Nadya Nosonovsky 04/06/2000 01:50:18 PM >>******************************************************************** >>set talk off >>local cFileName >>if type('pcTable')='C' and !empty(pcTable) && pcTable was choosen properly >> cFileName=pcTable >> if type('pcDBC')='C'and !empty(pcDBC) >> set database to (pcDBC) >> endif >>else >> cFileName=getfile('DBF', '', '', 0, 'Select Table to operate') >>endif >>if !empty(cFileName) >> set multilocks on >> use (cFileName) again alias Lender in 0 shared >> =cursorsetprop("Buffering",5) >> this.InitialSelectedAlias='Lender' >>endif >>>>