Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How do you call a PRG which returns a value?
Message
From
03/11/2011 17:38:27
Rob Jasinski
I/O Technologies
Wisconsin, United States
 
 
To
03/11/2011 17:21:06
Matt Slay
Jordan Machine Co.
Birmingham, Alabama, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: How do you call a PRG which returns a value?
Environment versions
Visual FoxPro:
VFP 9 SP2
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01527979
Message ID:
01527988
Views:
70
How about the following:
lcSCCText = Home(1) + 'SCCTextX.prg' && Look for the enhanced one from VFPx.

If !File(lcSCCText)
	lcSCCText = Home(1) + 'SCCText.prg' && Use the original one that shipped with VFP
EndIf

SET PROCEDURE TO (lcSCCText) ADDITIVE
lcFunc = JUSTSTEM(lcSCCText)

lcFile = 'C:\MyCode\MyForm.scx'

lnReturn = &lcFunc(lcFile)

RELEASE PROCEDURE (lcSCCText)
Previous
Reply
Map
View

Click here to load this message in the networking platform