>> IF USED('curDisplay') >> lnCurrentRow = RECNO('curDisplay') >> >> ELSE >> lnCurrentRow = 1 >> >> ENDIF >> >> lsSQL = "SELECT curWorking.UniqueID, curWorking.IsSelected, " +; >> "curWorking.Invert, curWorking.IsRestricted, " +; >> "!ISNULL(curWorking.Annotation) as HasNote," +; >> "TTOD(curWorking.ClearDate) AS ClearDate, curRecon.SWDN, " +; >> "curRecon.PrimaryDoc, curRecon.CAAmount, curRecon.DAAmount, " +; >> "curRecon.AuditDate, " +; >> "curRecon.MachineDate, curRecon.SecondaryDoc, curRecon.Site, " +; >> "curRecon.Source, curRecon.GLC, curRecon.ReconMonth, " +; >> "curRecon.TransactionType, curRecon.LastRFA " +; >> "FROM curWorking " +; >> "INNER JOIN curRecon ON curWorking.UniqueID = curRecon.UniqueID " +; >> "INTO CURSOR curDisplay READWRITE " +; >> "WHERE ISNULL(curWorking.MatchedTo) AND " +; >> "curRecon.RecordType = '" + lsRecordType + "' AND " +; >> "ALLTRIM(curRecon.Account + NVL(curRecon.CFI,'')) == '" + lsAccount + "' "+; >> IIF(THIS.Parent.chkDisplayCleared.Value, "" ,; >> "AND ISNULL(curWorking.ClearDate) ") +; >> "ORDER BY " + .SortOrder + " " + .SortDirection >> >> .RecordSource = '' >> >> &lsSQL. >> >> IF !USED('curDisplay') >> MESSAGEBOX("The Display cursor failed. Contact programmer. DO NOT CLOSE THIS!" + CR+; >> lsSQL) >> >> ENDIF >> >> .RecordSource = 'curDisplay' >> .grcSelect.ControlSource = 'curDisplay.IsSelected' >> .grcReversed.ControlSource= 'curDisplay.Invert' >>... >>>>