Navigation: Language Reference > App C - PROP: Runtime Properties > Complete Property List >====== PROP:RejectCode ====== | ![]() ![]() ![]() |
ENTRY, TEXT, COMBO, or SPIN control property which returns the last value REJECTCODE value set in EVENT:Rejected. PROP:RejectCode is persistent, while the REJECTCODE procedure only returns a valid value during EVENT:Rejected.
Example:
MDIChild WINDOW('Child One'),AT(0,0,320,200),MDI,MAX,HVSCROLL
PROMPT('Enter Data:'),AT(100,100,20,20),USE(?P1)
ENTRY(@N8),AT(100,140,32,20),USE(E1)
BUTTON('Ok'),AT(100,180,20,20),USE(?Ok)
BUTTON('Cancel'),AT(200,180,20,20),USE(?Cancel)
END
CODE
OPEN(MDIChild)
ACCEPT
CASE EVENT()
OF EVENT:Completed
BREAK
END
CASE FIELD()
OF ?Ok
CASE EVENT()
OF EVENT:Accepted
SELECT
END
OF ?E1
CASE EVENT()
OF EVENT:Accepted
IF ?E1{PROP:RejectCode} <;> 0 !Check for rejected entry
SELECT(?) ! and make the user re-enter
CYCLE ! immediately
END
END
OF ?Cancel
CASE EVENT()
OF EVENT:Accepted
BREAK
END
END
END
See Also: REJECTCODE