DO:
DEFINE VARIABLE hQueryHandle AS HANDLE NO-UNDO.
DEFINE VARIABLE hSortColumn AS WIDGET-HANDLE.
DEFINE VARIABLE sortOrder AS char.
IF sortorder = "DESCENDING" THEN
SortOrder = "".
ELSE
SortOrder = "DESCENDING".
hSortColumn = BROWSE br-LoadScorecard:CURRENT-COLUMN.
hQueryHandle = BROWSE br-LoadScorecard:QUERY.
hQueryHandle:QUERY-CLOSE().
hQueryHandle:QUERY-PREPARE("FOR EACH ttLoadScorecard NO-LOCK BY " + hSortColumn:NAME + " " + SortOrder).
hQueryHandle:QUERY-OPEN().
END.