Kbase P90697: How to reset the values of some fill-in widgets on the screen without resetting them all?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
17/10/2004 |
|
Status: Unverified
GOAL:
How to reset the values of some fill-in widgets on the screen without resetting them all?
GOAL:
How to clear some fill-in widget values in a frame?
FIX:
Run the following code to clear some fill-in widget values displayed on a particular frame:
DEFINE VARIABLE vhCurFillin AS HANDLE NO-UNDO.
/* Get the FIELD-GROUP Widget's handle */
vhCurFillin = FRAME {&FRAME-NAME}:FIRST-CHILD.
/* Get the handle of the first field-level widget in the current FIELD-GROUP */
vhCurFillin = vhCurFillin:FIRST-CHILD.
/* WHILE LOOP for walking through all of the field-level widgets in the current FIELD-GROUP */
DO WHILE VALID-HANDLE(vhCurFillin):
/* Is this a FILL-IN widget that contains an integer value greater than 9? If so, blank it out*/
IF vhCurFillin:TYPE = "FILL-IN":U AND
INTEGER(vhCurFillin:SCREEN-VALUE) > 9 THEN
vhCurFillin:SCREEN-VALUE = "":U.
/* Jump to the next field-level widget in the current FIELD-GROUP */
vhCurFillin = vhCurFillin:NEXT-SIBLING.
END.