> >if glModifyBenchmark then > LcBenchAccountToRerun = alltrim(ThisForm.textbox8.value) > > thisform.benchmark(LcBenchAccountToRerun) > >else > DO rerun >endif > >***benchmark method :: inside the form > >PARAMETERS lcAcctRerun >LOCAL lcOldCentury, lcOldSetDate,lcUser >*LcTest = LcBenchAccountToRerun >*LcTest2 = glModifyBenchmark > >WAIT WINDOW NOWAIT 'Extracting Benchmark...'+lcAcctRerun > >SET ASSERTS ON >ASSERT .f. > >WAIT WINDOW 'The user is :'+gcUser TIMEOUT .5 > >WAIT clear > >>
>if glModifyBenchmark then > LcBenchAccountToRerun = alltrim(ThisForm.textbox8.value) > > do benchmark with ?????? >else > DO rerun >endif > > >PROCEDURE benchmark > >PARAMETERS lcAcctRerun > >LOCAL lcOldCentury, lcOldSetDate >LcTest = LcBenchAccountToRerun >LcTest2 = glModifyBenchmark > >? lcAcctRerun > >SET ASSERTS ON >ASSERT .f. > >? lcAcctRerun > >WAIT WINDOW NOWAIT 'Extracting Benchmark...' > >>