>STORE GOMONTH(DATE(),-84) TO ldCutOffDate >STORE "TestCursor" TO lcCursorName > >STORE SECONDS() TO lnStartSecs > >SELECT ; > PartFile.File_ID, Plaintif.Plaintf_ID, Plaintif.Lastname, Plaintif.Firstname, PartFile.Date_Opend, PartFile.Date_Closd, ; > PartFile.Partner, PartFile.Our_FileNo, PartFile.Folder_ID, PartFile.TrackNotes, ; > ( SELECT COUNT(*) FROM Apps WHERE Apps.File_ID == PartFile.File_ID ) AS NumApps, ; > ( SELECT MAX(Apps.LastPaymnt) FROM Apps WHERE Apps.File_ID == PartFile.File_ID ) AS LastPay_Dt ; > FROM Plaintif JOIN PartFile ; > ON Plaintif.Plaintf_ID == PartFile.Plaintf_ID ; > WHERE PartFile.FileLocked = .T. AND ; > PartFile.NeverPurge = .F. AND ; > NOT EMPTY(PartFile.Folder_ID) AND ; > NOT EMPTY(PartFile.Stru_Amt) AND NOT EMPTY(PartFile.Date_Fund) AND ; > NOT EMPTY(PartFile.Date_Closd) AND PartFile.Date_Closd < ldCutOffDate AND ; > EMPTY(PartFile.Archv_Date) AND PartFile.Archv_Type # "P" AND ; > NOT ( Plaintif.EstateFile = .T. AND EMPTY(Plaintif.EstateClsd) ) AND ; > NOT EXISTS ; > ( SELECT App_ID FROM Apps WHERE Apps.File_ID == PartFile.File_ID AND ; > ( EMPTY(Apps.LastPaymnt) OR Apps.LastPaymnt >= ldCutOffDate ) ) ; > ORDER BY Plaintif.Lastname, Plaintif.Firstname ; > INTO CURSOR ( lcCursorName ) READWRITE > >>