How to undo the changed record!

Question

Hi
I have edit a record in my form (haven't been saved). Now, I want to undo the changes on my record. How can I do that?
Thanks
null

Answer 1

lenyhu,
Since get_item_property always returns a varchar2 value, your line:
.. rowidtochar(get_item_property(:system..is the cause of the error.
I'm not exactly sure why do you want to use rowids, when you can copy the database value back into the item.
Please take a look at the code below, which you can copy to the When-Button-Pressed trigger of your UNDO button:
declare
l_first_item varchar2(100);
l_last_item varchar2(100);
l_curr_item varchar2(100);
l_curr_block varchar2(30);
begin
l_curr_block := :system.cursor_block;
l_first_item := l_curr_block | |'.'| | get_block_property(:system.cursor_block, first_item);
l_last_item := l_curr_block | |'.'| | get_block_property(:system.cursor_block, last_item);
go_item(l_first_item);
l_curr_item := :system.cursor_item;
while l_curr_item <> l_last_item loop
copy(get_item_property(l_curr_item, database_value), l_curr_item);
go_item(get_item_property(l_curr_item, nextitem));
l_curr_item := :system.cursor_item;
end loop;
record_property(:system.cursor_record, l_curr_block,
status,
query_status);
go_item(l_first_item);
end;I believe this code is 100% generic.
Please, don't forget to change the UNDO button's Mouse Navigate and Keyboard Navigable properties both to NO.
If you have any problems understading my code, just ask.
Hope this helps,
Pedro
null