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
	ENDIF
ENDIF
IF EMPTY(ALIAS()) OR lnColumnCount <> 2
    RELEASE lnTotalCodes
    SELECT (THIS.CurrentAlias)
    GOTO THIS.CurrentRecNo
    RETURN .F.
ENDIF