Kbase P116844: How to set the DISABLE-AUTO-ZAP attribute to TRUE for all FILL-IN widgets in a SmartDataViewer?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
20/06/2006 |
|
Status: Unverified
GOAL:
How to set the DISABLE-AUTO-ZAP attribute to TRUE for all FILL-IN widgets in a SmartDataViewer?
GOAL:
How to set the AUTO-RETURN attribute to TRUE for all FILL-IN widgets in a SmartDataViewer?
FIX:
Create an initializeObject procedure override of the SmartDataViewer object with code similar to the following:
PROCEDURE initializeObject :
/*------------------------------------------------------------------------------
Purpose: Super Override
Parameters:
Notes:
------------------------------------------------------------------------------*/
/* Code placed here will execute PRIOR to standard behavior. */
RUN SUPER.
/* Code placed here will execute AFTER standard behavior. */
DEFINE VARIABLE hHandleVariable AS HANDLE NO-UNDO.
DEFINE VARIABLE hFieldHandle AS HANDLE NO-UNDO.
ASSIGN
hHandleVariable = FRAME {&FRAME-NAME}:HANDLE
hHandleVariable = hHandleVariable:FIRST-CHILD.
IF hHandleVariable:TYPE = "FIELD-GROUP" THEN
hFieldHandle = hHandleVariable:FIRST-CHILD.
REPEAT WHILE VALID-HANDLE( hFieldHandle ):
IF hFieldHandle:TYPE = "FILL-IN" THEN DO:
ASSIGN
hFieldHandle:DISABLE-AUTO-ZAP = TRUE
hFieldHandle:AUTO-RETURN = TRUE.
END.
hFieldHandle = hFieldHandle:NEXT-SIBLING.
END.
END PROCEDURE.