Sergey Ivanovskiy, 06/22/2018 01:08 AM
Download (279 Bytes)
def var q1 as char label "ID".
def button s1 label "Find".
def frame f1 q1 s1 with side-labels.
enable all with frame f1.
on choose of s1 do:
SESSION:DEBUG-ALERT = true.
MESSAGE "Record not found!" VIEW-AS ALERT-BOX.
end.
wait-for close of this-procedure.