Navigates to the first enabled and navigable item in the record with the next higher sequence number than the current record. If there is no such record, Oracle Forms will fetch or create a record. If the current record is a new record, NEXT_RECORD fails.
PROCEDURE NEXT_RECORD;
Built-in Type restricted procedure
Enter Query Mode no
none
Not allowed in Enter Query mode.
/*
** Built-in: NEXT_RECORD
** Example: If the current item is the last item in the
** block, then skip to the next record instead of
** the default of going back to the first item in
** the same block
** Trigger: Key-Next-Item
*/
DECLARE
cur_itm VARCHAR2(80) := :System.Cursor_Item;
cur_blk VARCHAR2(80) := :System.Cursor_Block;
lst_itm VARCHAR2(80);
BEGIN
lst_itm := cur_blk||'.'||Get_Block_Property(cur_blk,LAST_ITEM);
IF cur_itm = lst_itm THEN
Next_Record;
ELSE
Next_Item;
END IF;
END;