>******************************************************************** >* 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 >>