Microsoft KB Archive/149107

= How to Return Values to AppleScript from FoxPro =

Article ID: 149107

Article Last Modified on 2/10/2000

-

APPLIES TO


 * Microsoft Visual FoxPro 3.0b for Macintosh

-



This article was previously published under Q149107



SUMMARY
It is possible to use AppleScript to run a Visual FoxPro program and return a value to AppleScript.



MORE INFORMATION
In the following example, the AppleScript portion asks the user for a Customer ID and then calls a Visual FoxPro program. The Visual FoxPro program then opens a database, sums the order amounts for the Customer ID that was entered, and returns the sum to the script. Then the script displays the result in a dialog box.

  Save the following FoxPro program file as MyQuery.prg in the Visual FoxPro folder: PARAMETERS lcCustID SET DEFAULT TO HOME+"Samples:Data" OPEN DATA TestData.DBC SELECT SUM(Order_Amt) AS Tot_Ord_Amt ; FROM Orders ; WHERE Cust_Id=UPPER(lcCustID) ; INTO CURSOR Temp SET DEFAULT TO HOME IF _TALLY > 0  && Check to see that any records where found RETURN Temp.Tot_Ord_Amt ELSE RETURN _TALLY ENDIF   Use the AppleScript Script Editor to save and run the following script.

IMPORTANT: When typing the code listed below, replace the semicolons with the AppleScript line continuation character by typing Option+Enter in the Script Editor. copy (display dialog "Please enter the Customer's ID" buttons ;     {"OK", "Cancel"} default answer "") to dialogResults

if the button returned of dialogResults is "OK" and ; {the text returned of dialogResults} is not "" then

tell application ; "Macintosh HD:Microsoft Visual FoxPro:Microsoft Visual FoxPro"

activate Do Script "SET DEFAULT TO HOME" Do Script ; "myquery(["&{the text returned of dialogResults}&"])" display dialog the result

end tell

end if                       

Additional query words: VFoxMac

Keywords: kbcode KB149107

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.