If you want the PRG to do what the form method do:
if glModifyBenchmark then
LcBenchAccountToRerun = alltrim(ThisForm.textbox8.value)
BenchMark(LcBenchAccountToRerun)
else
DO rerun
endif
FUNCTION benchmark(lcAcctRerun)
LOCAL lcOldCentury, lcOldSetDate
? lcAcctRerun
SET ASSERTS ON
ASSERT .f.
? lcAcctRerun
WAIT WINDOW NOWAIT 'Extracting Benchmark...'
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
