Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Do .... with parameters
Message
From
25/05/2005 16:30:10
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Do .... with parameters
Miscellaneous
Thread ID:
01017644
Message ID:
01017644
Views:
56
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
Next
Reply
Map
View

Click here to load this message in the networking platform