написал такой пакет
| Код |
create or replace package body dd_refusal_at_request_folders as
function dd_refuse (id_folder in number, id_user_l in number, refuse_comment in varchar2) return number
is
id_last_history number;
begin
update DD_HISTORY set R_DATE = sysdate, R_COMMENT = refuse_comment, STATUS = 'H', TYPE_REC = 'R'
where ID_FOLDER = id_folder and STATUS = 'A';
insert into DD_HISTORY (ID,ID_FOLDER,ID_USER_L,L_DATE,STATUS)
values (SEQ_DD_HISTORY.NEXTVAL, id_folder, id_user_l, sysdate, 'A');
select SEQ_DD_HISTORY.CURRVAL into id_last_history from dual;
update DD_FOLDERS set ID_LAST_HISTORY = id_last_history, STATUS = 1
where ID = id_folder;
commit;
return(1);
exception
when others then
rollback;
return(-1);
end dd_refuse;
end dd_refusal_at_request_folders;
|
в приложении вызываю один раз функцию из этого пакета. Первый запрос обновляет ВСЕ записи в таблице, а все остальные запросы выполняется по одному разу. В чем ошибка? |
