For me doesnt work.. I'm using a Dynamic Fill-IN...
Here is my code...
IF p-objeto = "i-cedis" AND p-evento = "LEAVE" THEN DO:
FIND FIRST estabelec
WHERE estabelec.cod-estabel = wh-cedis:SCREEN-VALUE
NO-LOCK NO-ERROR.
IF NOT AVAILABLE estabelec THEN DO:
MESSAGE "No existe el Establecimiento como Cedis Valido."
VIEW-AS ALERT-BOX WARNING
TITLE "Error 1 - cdp/picd0705a".
wh-cedis:SCREEN-VALUE = "".
APPLY "ENTRY":U TO wh-cedis.
RETURN "NOK".
END.
END.
As you know... this code must be executed in other PERSITENT PROGRAM because I can't define a BLOCK CODE in a Trigger of a Dynamic Fill in...
Here is the code of the Fill In.
if valid-handle(wh-cedis) Then
delete widget wh-cedis.
create FILL-IN wh-cedis
assign frame = p-wgh-frame
DATA-TYPE = "Character"
FORMAT = "x(15)"
SIDE-LABEL-HANDLE = wh-txt-cedis
WIDTH = 15
HEIGHT = .88
ROW = 9.27
COL = 29.7
LABEL = "CEDIS atend:"
VISIBLE = yes
SENSITIVE = YES
NAME = "i-cedis"
TOOLTIP = "CPX - Cedis de Atendimientossss"
BGCOLOR = ?
TRIGGERS:
ON MOUSE-SELECT-DBLCLICK PERSISTENT RUN cdp\picd0705a.p (Input "i-cedis", Input "MOUSE-SELECT-DBLCLICK").
ON LEAVE PERSISTENT RUN cdp\picd0705a.p (Input "i-cedis", Input "LEAVE").
END TRIGGERS.
wh-cedis:LOAD-MOUSE-POINTER("image/lupa.cur":U).