IF !EMPTY(ALIAS()) LOCAL ; lcTable, ; lcFields, ; lcOrderField lcFields = '' lcTable = ALLTRIM(UPPER(JUSTSTEM(ALIAS()))) lnColumnCount = FCOUNT(lcTable) IF lnColumnCount = 2 FOR ix = 1 TO lnColumnCount lcFields = m.lcFields + IIF(m.ix > 1, ', ','') + FIELD(ix) + ' AS Fld'+TRANSFORM(ix) IF m.ix = 1 lcOrderField = FIELD(ix) ENDIF ENDFOR RunSQL = 'SELECT ' + lcFields + ' FROM ' + lcTable + ' ORDER BY ' + lcOrderField + ' INTO CURSOR ReportCursor HAVING !EMPTY(Fld1)' &RunSQL lnTotalCodes = _TALLY ELSE RELEASE lnTotalCodes SELECT (THIS.CurrentAlias) GOTO THIS.CurrentRecNo RETURN .F. ENDIF ELSE RELEASE lnTotalCodes SELECT (THIS.CurrentAlias) GOTO THIS.CurrentRecNo RETURN .F. ENDIF