How I must use GENERATE_SEQUENCE_NUMBER?

Question

I have a form that has a detail and I want generate a unique
sequence number when a record is created. But I don't know how
use the GENERATE_SEQUENCE_NUMBER built-in. Somebody could help
me?
Thanks
null

Answer 1

I see... In this case you can redefine the triggers
"KEY-DELREC" and "KEY-CREREC" for this block and before
calling the corresponding procedures "DELETE_RECORD" and
"CREATE_RECORD", you call a local procedure to resequence
these numbers. This procedure also sets a global variable
to be used as "Inital Value" if you are inserting a record.
item : detail.item
Initial Value = :global.next_item
trigger : when-new-record (master block)
:global.next_item := '1';
trigger : key-delrec (detail block)
delete_record;
resequence_items('DELETE');
trigger : key-crerec (detail block)
resequence_items('INSERT');
create_record;
procedure : resequence_items
procedure resequence_items (
p_operation in varchar2
) is
v_cursor_record pls_integer;
v_top_record pls_integer;
v_position pls_integer;
begin
if :system.record_status = 'NEW' then
return;
end if;
v_top_record :=
get_block_property(:system.cursor_block,top_record);
v_cursor_record := to_number(:system.cursor_record);
if p_operation = 'INSERT' then
v_position := v_cursor_record + 1;
:global.next_item := to_char(v_position);
down;
loop
exit when :system.record_status = 'NEW';
v_position := v_position + 1;
:detail.item := v_position;
down;
end loop;
end if;
if p_operation = 'DELETE' then
v_position := v_cursor_record;
loop
exit when :system.record_status = 'NEW';
:detail.item := v_position;
v_position := v_position + 1;
down;
end loop;
end if;
go_record(v_top_record);
go_record(v_cursor_record);
end;
null