This code was posted on PEG by Tom Bergman
(Tom_Bergman@SilverPlatter.com)
<BLOCKQUOTE><font size="1" face="Arial, Verdana">code:</font><HR><pre>/*cleardat.p*/
/* This procedure creates triggers on all date fill-ins in a frame.
The triggers allow users to press the space key or the delete
key to enter the unknown value. */
DEF INPUT PARAMETER frame-hand AS WIDGET-HANDLE NO-UNDO.
DEF VAR grp AS WIDGET-HANDLE.
DEF VAR flw AS WIDGET-HANDLE.
DEF VAR OK AS LOG NO-UNDO.
grp = frame-hand:FIRST-CHILD.
DO WHILE grp NE ?:
flw = grp:FIRST-CHILD.
DO WHILE flw NE ?:
IF flw:TYPE = "fill-in" AND
flw
ATA-TYPE = "date"
THEN DO:
ON delete-character," " OF flw PERSISTENT RUN clearda2.p (flw).
END.
flw = flw:NEXT-SIBLING.
END.
grp = grp:NEXT-SIBLING.
END.
/* Clearda2.p */
/* This program gets called by cleardat.p. It is used
to allow the user to clear (enter the unknown value)
by pressing space or delete */
DEF INPUT PARAMETER flw AS WIDGET-HANDLE.
APPLY "?" TO flw.
RETURN ERROR.
[/code]
[This message has been edited by progresstalk (edited 06 December 1999).]
(Tom_Bergman@SilverPlatter.com)
<BLOCKQUOTE><font size="1" face="Arial, Verdana">code:</font><HR><pre>/*cleardat.p*/
/* This procedure creates triggers on all date fill-ins in a frame.
The triggers allow users to press the space key or the delete
key to enter the unknown value. */
DEF INPUT PARAMETER frame-hand AS WIDGET-HANDLE NO-UNDO.
DEF VAR grp AS WIDGET-HANDLE.
DEF VAR flw AS WIDGET-HANDLE.
DEF VAR OK AS LOG NO-UNDO.
grp = frame-hand:FIRST-CHILD.
DO WHILE grp NE ?:
flw = grp:FIRST-CHILD.
DO WHILE flw NE ?:
IF flw:TYPE = "fill-in" AND
flw
THEN DO:
ON delete-character," " OF flw PERSISTENT RUN clearda2.p (flw).
END.
flw = flw:NEXT-SIBLING.
END.
grp = grp:NEXT-SIBLING.
END.
/* Clearda2.p */
/* This program gets called by cleardat.p. It is used
to allow the user to clear (enter the unknown value)
by pressing space or delete */
DEF INPUT PARAMETER flw AS WIDGET-HANDLE.
APPLY "?" TO flw.
RETURN ERROR.
[/code]
[This message has been edited by progresstalk (edited 06 December 1999).]