Consultor Eletrônico



Kbase 19927: 4GL/ABL: How to LEAVE a Date Field without entering a date value?
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   11/25/2009
Status: Verified

GOAL:

4GL/ABL: How to LEAVE a Date Field without entering a date value?

GOAL:

How to LEAVE a DATE FILL-IN without entering a date value after having pressed a DELETE-CHARACTER or a BACKSPACE key in the FILL-IN?

GOAL:

How to avoid the error "** The month of a date must be from 1 to 12. (80)" ON LEAVE of a DATE FILL-IN after a DELETE-CHARACTER or a BACKSPACE key press?

FACT(s) (Environment):

All Supported Operating Systems
Progress 9.x
OpenEdge 10.x

FIX:

To LEAVE a DATE FILL-IN without entering a date value after having pressed a DELETE-CHARACTER or a BACKSPACE key in the FILL-IN, create a trigger similar to the following:
ON BACKSPACE, DELETE-CHARACTER OF FILL-IN-2 IN FRAME DEFAULT-FRAME /* Fill 2 */
DO:
ASSIGN
FILL-IN-2:SCREEN-VALUE = "?".
APPLY "ENTRY" to FILL-IN-3.
FILL-IN-2:SENSITIVE = YES.
RETURN NO-APPLY.
END.