SELECT DISTINCT SUP_ACT.ACTION_ID, SUPPRBM.PROBLEM_ID, ;
SUP_ACT.ACT_NOTES, SUP_ACT.NXTACT_NOT, SUPPRBM.PRBLM_DESC, ;
SUPPRBM.CLIENT_ID ;
FROM SUP_ACT, SUPPRBM, CONTACT, WORECS ;
WHERE .F. UNION ALL ;
SELECT DISTINCT SUP_ACT.ACTION_ID, SUPPRBM.PROBLEM_ID, ;
SUP_ACT.ACT_NOTES, SUP_ACT.NXTACT_NOT, SUPPRBM.PRBLM_DESC, ;
SUPPRBM.CLIENT_ID ;
FROM SUP_ACT, SUPPRBM, CONTACT, WORECS ;
WHERE "A" $ UPPER(SUP_ACT.ACT_NOTES) .AND. ;
SUPPRBM.CLIENT_ID = SUP_ACT.CLIENT_ID .AND. ;
SUPPRBM.PROBLEM_ID = SUP_ACT.PROBLEM_ID .AND. ;
SUPPRBM.USER_ID = CONTACT.CONTACT_ID .AND. ;
SUP_ACT.USER_ID = CONTACT.CONTACT_ID .AND. ;
SUPPRBM.CLIENT_ID = WORECS.CLIENT_ID .AND. ;
SUPPRBM.PROBLEM_ID = WORECS.PROBLEM_ID ;
INTO CURSOR QMF_TEMP

SELECT DISTINCT FIELDTRIPINFORMATION.FIELDTRIPID, ;
DRIVERINFORMATION.DRIVERLASTNAME, DRIVERINFORMATION.DRIVERFIRSTNAME, ;
VEHICLEINFORMATION.VEHICLEMAKE, VEHICLEINFORMATION.VEHICLEMODE, ;
VEHICLEINFORMATION.DISTVEHICLEID, FIELDTRIPINFORMATION.APPROVEBY, ;
FIELDTRIPINFORMATION.CLIENTNAME, CLIENTINFORMATION.CLIENTID, ;
FIELDTRIPINFORMATION.CONTACTNAME, CLIENTINFORMATION.ADDRESS1, ;
CLIENTINFORMATION.CLIENTCITY, CLIENTINFORMATION.CLIENTSTATE, ;
CLIENTINFORMATION.CLIENTZIP, CLIENTINFORMATION.CLIENTPHONE, ;
FIELDTRIPINFORMATION.DESTINATIONNAME, CLIENTINFORMATION.DISTCLIENTID, ;
FIELDTRIPINFORMATION.REQUESTPURPOSE, FIELDTRIPINFORMATION.NUMBERSTUDENT, ;
FIELDTRIPINFORMATION.ENDTIME1, FIELDTRIPINFORMATION.ENDDATE, ;
FIELDTRIPINFORMATION.STARTDATE, FIELDTRIPINFORMATION.DEPARTTIME1, ;
FIELDTRIPINFORMATION.ARRIVETIME1, FIELDTRIPINFORMATION.SPECIALNEEDS, ;
FIELDTRIPINFORMATION.NUMBERADULT, FIELDTRIPINFORMATION.ELEMENTARY, ;
DESTINATION.ADDRESS, DESTINATION.CITY, DESTINATION.STATE, ;
DESTINATION.COMMENT, VEHICLEINFORMATION.VEHICLETYPE, ;
FIELDTRIPINFORMATION.CONTACTPHONE, FIELDTRIPINFORMATION.INSTRUCTION, ;
FIELDTRIPDRIVER.INSTRUCTION, TFIELDTRIPCLIENTACCOUNT.ACCOUNTNO ;
FROM FIELDTRIPINFORMATION, DRIVERINFORMATION, VEHICLEINFORMATION, ;
CLIENTINFORMATION, DESTINATION, FIELDTRIPDRIVER, TFIELDTRIPCLIENTACCOUNT, ;
FIELDDVTRIPLINK, C:\data\10.1elt\exe\report\printtables\tmptables\FT000001703, ;
C:\data\10.1elt\exe\report\printtables\tmptables\FT000001704, ;
C:\data\10.1elt\exe\report\printtables\tmptables\FT000001705 ;
WHERE .F. UNION ALL ;
SELECT DISTINCT FIELDTRIPINFORMATION.FIELDTRIPID, ;
DRIVERINFORMATION.DRIVERLASTNAME, DRIVERINFORMATION.DRIVERFIRSTNAME, ;
VEHICLEINFORMATION.VEHICLEMAKE, VEHICLEINFORMATION.VEHICLEMODE, ;
VEHICLEINFORMATION.DISTVEHICLEID, FIELDTRIPINFORMATION.APPROVEBY, ;
FIELDTRIPINFORMATION.CLIENTNAME, CLIENTINFORMATION.CLIENTID, ;
FIELDTRIPINFORMATION.CONTACTNAME, CLIENTINFORMATION.ADDRESS1, ;
CLIENTINFORMATION.CLIENTCITY, CLIENTINFORMATION.CLIENTSTATE, ;
CLIENTINFORMATION.CLIENTZIP, CLIENTINFORMATION.CLIENTPHONE, ;
FIELDTRIPINFORMATION.DESTINATIONNAME, CLIENTINFORMATION.DISTCLIENTID, ;
FIELDTRIPINFORMATION.REQUESTPURPOSE, FIELDTRIPINFORMATION.NUMBERSTUDENT, ;
FIELDTRIPINFORMATION.ENDTIME1, FIELDTRIPINFORMATION.ENDDATE, ;
FIELDTRIPINFORMATION.STARTDATE, FIELDTRIPINFORMATION.DEPARTTIME1, ;
FIELDTRIPINFORMATION.ARRIVETIME1, FIELDTRIPINFORMATION.SPECIALNEEDS, ;
FIELDTRIPINFORMATION.NUMBERADULT, FIELDTRIPINFORMATION.ELEMENTARY, ;
DESTINATION.ADDRESS, DESTINATION.CITY, DESTINATION.STATE, ;
DESTINATION.COMMENT, VEHICLEINFORMATION.VEHICLETYPE, ;
FIELDTRIPINFORMATION.CONTACTPHONE, FIELDTRIPINFORMATION.INSTRUCTION, ;
FIELDTRIPDRIVER.INSTRUCTION, TFIELDTRIPCLIENTACCOUNT.ACCOUNTNO ;
FROM FIELDTRIPINFORMATION, DRIVERINFORMATION, VEHICLEINFORMATION, ;
CLIENTINFORMATION, DESTINATION, FIELDTRIPDRIVER, TFIELDTRIPCLIENTACCOUNT, ;
FIELDDVTRIPLINK, C:\data\10.1elt\exe\report\printtables\tmptables\FT000001703, ;
C:\data\10.1elt\exe\report\printtables\tmptables\FT000001704, ;
C:\data\10.1elt\exe\report\printtables\tmptables\FT000001705 ;
WHERE FIELDTRIPINFORMATION.FIELDTRIPID > 0.00 .AND. ;
UPPER(FIELDTRIPINFORMATION.FIELDTRIPSTATUS) = "SCHEDULED" .AND. ;
FIELDTRIPINFORMATION.FIELDTRIPID =FT000001703.FIELDTRIPI .AND. ;
DRIVERINFORMATION.DRIVERLASTNAME =FT000001704.DRIVERLAST .AND. ;
VEHICLEINFORMATION.DISTVEHICLEID =FT000001705.DISTVEHICL .AND. ;
FIELDTRIPINFORMATION.MAINCLIENTID = CLIENTINFORMATION.CLIENTID .AND. ;
FIELDTRIPINFORMATION.MAINCLIENTID = TFIELDTRIPCLIENTACCOUNT.CLIENTID .AND. ;
FIELDTRIPINFORMATION.FIELDTRIPID = TFIELDTRIPCLIENTACCOUNT.FIELDTRIPID .AND. ;
FIELDTRIPINFORMATION.DESTINATIONID = DESTINATION.DESTINATIONID .AND. ;
FIELDTRIPINFORMATION.FIELDTRIPID = FIELDDVTRIPLINK.FIELDTRPID .AND. ;
FIELDDVTRIPLINK.DRIVERID = DRIVERINFORMATION.DRIVERID .AND. ;
FIELDDVTRIPLINK.DRIVERID = FIELDTRIPDRIVER.DRIVERID .AND. ;
FIELDDVTRIPLINK.FIELDTRPID = FIELDTRIPDRIVER.FIELDTRIPID .AND. ;
FIELDDVTRIPLINK.VEHICLEID = VEHICLEINFORMATION.VEHICLEID ;
INTO CURSOR QMF_TEMP