Consultor Eletrônico



Kbase P85009: AnaTab32 OCX not working in version 9
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   24/06/2004
Status: Unverified

SYMPTOM(s):

AnaTab32 OCX not working in version 9

When another window is closed the OCX doesn't show data anymore

When another window is closed all the data in the window disappear

CHANGE:

Migrated to V9

CAUSE:

The OCX rendering react to the window closure.

FIX:

The solution uses the refreshCells method of the OCX together with
PUBLISH and SUBSCRIBE of 4GL.

When a the Window is closed it will PUBLISH an event that make the other windows to refresh their cells.

So in the main of the window you can have:
SUBSCRIBE TO 'closedWindow' ANYWHERE RUN-PROCEDURE 'refreshAll'.

with the closedWindow procedure that just contains:

chCtrlFrame:Table:RefreshCells(rowNumber, colNumber}) NO-ERROR.
END PROCEDURE.

And in the WINDOW-CLOSE trigger of the window that causes the problem (could be also another instance of the same window):
DO:
/* This event will close the window and terminate the procedure. */

APPLY "CLOSE":U TO THIS-PROCEDURE.
UNSUBSCRIBE TO 'closedWindow'.
PUBLISH 'closedWindow' .
RETURN NO-APPLY.
END.