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 clearsecond way : I try but not sure how to pass parameters
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...'The reason to do this because benchmark.prg will be used or called from