Forms

---------------------------
In a grid when say down arrow cursor should be in same position in next row
----------------------------

PROCEDURE PRVREC IS
BEGIN
:PARAMETER.PRV_FIELD := :SYSTEM.CURSOR_ITEM;
PREVIOUS_RECORD;   
go_item(:PARAMETER.PRV_FIELD);
END;



PROCEDURE NEXTREC IS
BEGIN
:PARAMETER.PRV_FIELD := :SYSTEM.CURSOR_ITEM;
NEXT_RECORD;
go_item(:PARAMETER.PRV_FIELD);
END;


Key-up tirgger

IF :SYSTEM.RECORD_STATUS IN ('INSERT','QUERY','CHANGED') and :parameter.aqe<>'A' then
prvrec;
else
previous_record;
end if;


key-down

IF :SYSTEM.RECORD_STATUS IN ('QUERY','CHANGED') and :parameter.aqe<>'A' then

If :System.last_Record = 'TRUE'  then
displayerror.errmsg('Last Record...') ;
Raise Form_Trigger_Failure ;
End if ;

nextrec;

else

  next_record;
 
end if;