Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Do .... with parameters
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01017644
Message ID:
01017646
Views:
17
I must be missing something...

do benchmark with LcBenchAccountToRerun

>Hi all,
>
>I have a form that can call benchmark method inside and works well.
>
>
>
>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
>
>
>
>second way : I try but not sure how to pass parameters
>
>how to pass the paramaters by calling benchmark program individually ?
>
>
>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
>many forms.
>
>Please assist to correct my codes.
>TIA
Previous
Reply
Map
View

Click here to load this message in the networking platform