Consultor Eletrônico



Kbase P5385: How to refresh data in a non-smart window from another objec
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   25/11/2003
Status: Unverified

GOAL:

How to refresh data in a non-smart window from another object?

FIX:

/*** another-object.w ***/

DEFINE VARIABLE vhWindow AS HANDLE NO-UNDO.
ON CHOOSE OF button-1
DO:
IF NOT VALID-HANDLE(vhWindow) THEN
RUN <non-smart windowname>.w PERSISTENT SET vhWindow.
ELSE
RUN refreshData IN vhWindow(ROWID(table-name)).
END.

/*** <non-smart windowname>.w ***/

PROCEDURE refreshData:
DEFINE INPUT PARAMETER prTableName AS ROWID NO-UNDO.
FIND table-name NO-LOCK WHERE ROWID(table-name) = prTableName NO-ERROR.
IF AVAILABLE table-name THEN
DISPLAY table-name-displayed-fields WITH FRAME default-frame.
END PROCEDURE.