Kbase P81031: How to resort a dynamic query result set based on a number of a field in the record buffer?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
18/05/2004 |
|
Status: Unverified
GOAL:
How to resort a dynamic query result set based on a number of a field in the record buffer?
FACT(s) (Environment):
Progress 9.1x
FIX:
Use code similar to the following:
ASSIGN
iFieldNumber = INTEGER(SortByFieldNumber:SCREEN-VALUE IN FRAME DEFAULT-FRAME).
hSortField = ghBuffer:BUFFER-FIELD(iFieldNumber).
FL-Sort = " by " + hSortField:NAME.
lQueryOK = ghQuery:QUERY-PREPARE('FOR EACH ':U +
DB-Files + ' NO-LOCK ':U +
(IF FL-Where NE '':U THEN FL-Where ELSE '':U) +
(IF FL-Sort NE '':U THEN FL-Sort ELSE '':U)) NO-ERROR.
IF NOT lQueryOK THEN DO:
MESSAGE 'Your Query :' ghQuery:PREPARE-STRING ' failed !'.
RETURN.
END.
ghQuery:QUERY-OPEN().