Kbase P83317: Dynamics. How to enable or Disable all the fields of a Viewer.
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
12/17/2004 |
|
Status: Unverified
GOAL:
Dynamics. How to enable or Disable all the fields of a Viewer.
GOAL:
Dynamics. How to enable or Disable Actions in the a StandardToolbar.
GOAL:
Dynamics. How to enable or Disable Icons in the a StandardToolbar.
FACT(s) (Environment):
Dynamics 2.1A
Dynamics OpenEdge
FIX:
DEFINE VARIABLE cCountry AS CHARACTER NO-UNDO.
DEFINE VARIABLE hDataSource AS HANDLE NO-UNDO.
DEFINE VARIABLE hToolbar AS HANDLE NO-UNDO.
DEFINE VARIABLE cTargets AS CHARACTER NO-UNDO.
DEFINE VARIABLE hTarget AS HANDLE NO-UNDO.
DEFINE VARIABLE iTarget AS INTEGER NO-UNDO.
ASSIGN hDataSource = DYNAMIC-FUNCTION ('getDataSource' IN TARGET-PROCEDURE)
hToolbar = DYNAMIC-FUNCTION ('getNavigationSource' IN hDataSource)
cCountry = DYNAMIC-FUNCTION ('columnValue' IN hDataSource,'Country')
cTargets = DYNAMIC-FUNCTION ('getTableIOTarget' IN hToolbar).
IF cCountry EQ "USA" THEN
DO:
DYNAMIC-FUNCTION ('modifyDisabledActions' IN hToolbar,
'Remove', 'FolderUpdate,FolderView,Delete').
DO iTarget = 1 TO NUM-ENTRIES(cTargets):
hTarget = WIDGET-HANDLE(ENTRY(iTarget, cTargets)).
IF NOT DYNAMIC-FUNCTION('getFieldsEnabled' IN hTarget) THEN
RUN enableFields IN hTarget.
END.
END.
ELSE DO:
DYNAMIC-FUNCTION ('modifyDisabledActions' IN hToolbar,
'Add', 'FolderUpdate,FolderView,Delete').
DO iTarget = 1 TO NUM-ENTRIES(cTargets):
hTarget = WIDGET-HANDLE(ENTRY(iTarget, cTargets)).
IF DYNAMIC-FUNCTION('getFieldsEnabled' IN hTarget) THEN
RUN disableFields IN hTarget ('All').
END.
END.