This may not be very timely, but for what it is worth here is some code we use to extract from Providex MAS90. The Providex ODBC driver install is on the MAS90 CD or from the website. Providex is owned by SAGE as well.

* Create connection
GNCONNHANDLE = SQLCONNECT("SOTAMAS90", "", "")
* Error Handling for connection
If GNCONNHANDLE<0
RETVAL = AERROR(ATMP)
ERRVAL = ATMP(1,1)
ERRMSG = ATMP(1,2)
Wait WINDOW TIMEOUT 2 STR(ERRVAL)+":"+ERRMSG
Close ALL
RETURN
Else
SQLSETPROP(GNCONNHANDLE, 'asynchronous', .F.)
SQLEXEC(GNCONNHANDLE, 'SELECT COMPANYCODE, companyname FROM SY0_COMPANYPARAMETERS ', 'vSY0')
SELECT VSY0
gcCompany = TRIM(VSY0.COMPANYCODE)
gcCompName = VSY0.COMPANYname
If !DIRECTORY(GCCOMPANY)
MKDIR (gccompany)
do m90setfil
ENDIF
Set SAFETY OFF
Select 0
USE DATA\MCOMPANY
LOCATE FOR M_CODE = GCCOMPANY
IF !FOUND()
APPEND BLANK
REPLACE M_CODE WITH GCCOMPANY, M_NAME WITH GCCOMPNAME
ENDIF
LOKTOCONTINUE=.T.
IF !EMPTY(MCOMPANY.TLASTIMP)
IF !MESSAGEBOX("Refresh data for "+gccompany+"?"+chr(13)+"Last refresh:"+ttoc(tlastimp),36)=6
loktocontinue=.F.
ENDIF
ENDIF
LCFILEJC1 = GCPATH+"\"+GCCOMPANY+"\JC1"
LCFILEJC3 = GCPATH+"\"+GCCOMPANY+"\JC3"
LCFILEJCA = GCPATH+"\"+GCCOMPANY+"\JCA"
LCFILEGL1 = GCPATH+"\"+GCCOMPANY+"\GL1"
LCFILEJCC = GCPATH+"\"+GCCOMPANY+"\JCC"
LCFILEGL5 = GCPATH+"\"+GCCOMPANY+"\GL5"
IF !LOKTOCONTINUE
USE IN MCOMPANY
ELSE
REPLACE MCOMPANY.TLASTIMP WITH DATETIME()
USE IN MCOMPANY
close databases
Select 0
SQLSETPROP(GNCONNHANDLE, 'asynchronous', .F.)
SQLEXEC(GNCONNHANDLE, 'SELECT * FROM JC1_JOBMASTER ', 'vJC1')
SQLEXEC(GNCONNHANDLE, 'SELECT * FROM JC3_TRANSACTIONDETAIL ', 'vJC3')
SQLEXEC(GNCONNHANDLE, 'SELECT * FROM JCA_JOBTYPMASTERFILE ', 'vJCA')
SQLEXEC(GNCONNHANDLE, 'SELECT * FROM GL1_ACCOUNTS ', 'vGL1')
SQLEXEC(GNCONNHANDLE, 'SELECT * FROM JCC_COSTCODEMASTER ', 'vJCC')
SQLEXEC(GNCONNHANDLE, 'SELECT * FROM GL5_DETAILPOSTING ', 'vGL5')
= SQLDISCONNECT(GNCONNHANDLE)

If USED('vjc1')
Wait WINDOW NOWAIT "Processing JC1..."
Select VJC1
*## jln 05/16/2001 Add code to check for NULL in date field replace with empty date.
*## NULL fields not supported in Foxpro.
Select JOBNUMBER, ;
JOBDESCRIPTION AS JOBDESC,;
JOBTYPE, ;
IIF(ISNULL(ACTUALSTARTDATE), {}, ACTUALSTARTDATE) AS STARTDATE, ;
JOBSTATUS, ;
IIF(ISNULL(CONTRACTDATE), {}, CONTRACTDATE) AS CONTDATE, ;
IIF(ISNULL(STATUSDATE), {}, STATUSDATE) AS LSTATUS,;
IIF(ISNULL(TOTALJOBUNITS), 0, TOTALJOBUNITS) AS UNITS, ;
IIF(ISNULL(DIVISIONNUMBER), 0, DIVISIONNUMBER) AS DIVISION;
FROM VJC1 ;
INTO TABLE JC1TEMP
Select JC1TEMP
Use
Use EXCLUSIVE JC1TEMP IN 0
Select JC1TEMP
Use &LCFILEJC1 ORDER JOBNUMBER alias JC1 IN 0
Select JC1TEMP
Goto TOP
Scan