> 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' >... >>