How to Return Values to AppleScript from FoxPro

Last reviewed: May 31, 1996
Article ID: Q149107

The information in this article applies to:

Microsoft Visual FoxPro for Macintosh, version 3.0b

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 reference words: 3.00b VFoxMac
KBCategory: kbinterop kbhowto kbcode
KBSubcategory: FxinteropDde

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: May 31, 1996
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.