Guest_imported
New member
- Jan 1, 1970
- 0
I have been stuck with this seemingly simple code now for three days. I think it is time for me to cut my losses by seeking your help.
What I want to accomplish is this - if flag is B then
if j is empty or null then give the message
'ENTRY CANNOT BE EMPTY'
and make sure the cursor stays in j box until it is assigned a value. This is like the onFocus in Javascript whereby a cursor will stay on a box until it is assigned a value.
After I tested the code, it is still inserting records without problem and the message is not displaying.
Any help would be greatly appreciated.
tankem
IF( orig:flag='B') THEN
IForig.J IS NULL) THEN
BEGIN
MESSAGE('ENTRY CANNOT BE EMPTY');
rig.J := CUR_ITM; GET_ITEM_PROPERTYSYSTEM.CURSOR_ITEM,NEXTITEM);
END;
ELSE
rig.L := GET_ITEM_PROPERTYSYSTEM.CURSOR_ITEM,NEXTITEM);
END IF;
What I want to accomplish is this - if flag is B then
if j is empty or null then give the message
'ENTRY CANNOT BE EMPTY'
and make sure the cursor stays in j box until it is assigned a value. This is like the onFocus in Javascript whereby a cursor will stay on a box until it is assigned a value.
After I tested the code, it is still inserting records without problem and the message is not displaying.
Any help would be greatly appreciated.
tankem
IF( orig:flag='B') THEN
IForig.J IS NULL) THEN
BEGIN
MESSAGE('ENTRY CANNOT BE EMPTY');
rig.J := CUR_ITM; GET_ITEM_PROPERTYSYSTEM.CURSOR_ITEM,NEXTITEM);
END;
ELSE
rig.L := GET_ITEM_PROPERTYSYSTEM.CURSOR_ITEM,NEXTITEM);
END IF;