Kbase P18309: How to force FRAME input VALIDATE option to work after F8 in CHUI?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
31/12/2004 |
|
Status: Unverified
GOAL:
How to make the character client FRAME field input VALIDATE option work with the CHUI CLEAR function key (F8)?
FIX:
Define an F8 trigger that would force the FRAME VALIDATE option to fire:
DEFINE VARIABLE pChar1 AS CHARACTER NO-UNDO.
DEFINE VARIABLE pChar2 AS CHARACTER NO-UNDO.
DEFINE VARIABLE iCount AS INTEGER NO-UNDO.
ON F8 ANYWHERE
DO:
IF SELF:TYPE = "FILL-IN" THEN
DO:
SELF:SCREEN-VALUE = "".
DO iCount = 1 TO SELF:WIDTH-CHAR:
APPLY "CURSOR-LEFT" TO SELF.
END.
RETURN NO-APPLY.
END.
END.
DEFINE FRAME TestFrame
pChar1 LABEL "Char 1"
VALIDATE ( pChar1 <> "", "Char 1 cannot be blank" ) SPACE(2)
pChar2 LABEL "char 2"
VALIDATE ( pchar2 <> "", "Char 2 cannot be blank" )
WITH CENTERED.
UPDATE pChar1 pChar2 WITH FRAME TestFrame.