does not receive focus

[WayneFrank]

Under certain conditions, I want to make a field active, and put focus on it

IF DATE(ws-beg_grace_date:SCREEN-VALUE) <> ?
AND DATE({&tt-table-name}.rcvd-dt:SCREEN-VALUE) <> ?
THEN DO:
ws-rein_date:SENSITIVE = TRUE.
APPLY "ENTRY" TO ws-rein_date IN FRAME {&frame-name}.
END.

The field does become sensitive, but it does not receive focus.

 

[Vacsi]

Under certain conditions, I want to make a field active, and put focus on it

IF DATE(ws-beg_grace_date:SCREEN-VALUE) <> ?
AND DATE({&tt-table-name}.rcvd-dt:SCREEN-VALUE) <> ?
THEN DO:
ws-rein_date:SENSITIVE = TRUE.
APPLY "ENTRY" TO ws-rein_date IN FRAME {&frame-name}.
END.

The field does become sensitive, but it does not receive focus.

try this,

IF DATE(ws-beg_grace_date:SCREEN-VALUE) <> ?
AND DATE({&tt-table-name}.rcvd-dt:SCREEN-VALUE) <> ?
THEN DO:
ws-rein_date:SENSITIVE = TRUE.
APPLY "ENTRY" TO ws-rein_date IN FRAME {&frame-name}.
RETURN NO-APPLY.
END.

 

[lord_icon]

This is neater programming:

IF DATE(ws-beg_grace_date:SCREEN-VALUE) <> ?
AND DATE({&tt-table-name}.rcvd-dt:SCREEN-VALUE) <> ?
THEN DO WITH FRAME {&frame-name}:
ASSIGN
ws-rein_date:SENSITIVE = TRUE
.
END. /* frame */

APPLY "ENTRY" TO ws-rein_date.
RETURN NO-APPLY. /* drop out */