procedure gl_voucher_noadd(accyear varchar2,accmonth varchar2,info in out varchar2)
is
x number ;
begin
select max(num) into x from gl_voucher where year=accyear and period=accmonth and pk_group='0001V210000000004MCY';
if x=null then x := '500';
else x :=x;
execute immediate'drop SEQUENCE gl_voucher_num'; --删除序列
commit;
end if;
execute immediate 'create SEQUENCE gl_voucher_num INCREMENT BY 1 START WITH 500 NOMAXVALUE NOCYCLE CACHE 10 return varchar2 authid current_user';
commit;
-- 表头
execute immediate 'update gl_voucher a set num =gl_voucher_num.nextval'; /*where nvl(a.free9,'~')!='~' and year=accyear and period=accmonth and pk_group='0001V210000000004MCY'';
-- 表体*/
execute immediate 'update gl_detail a set nov =(select num from gl_voucher where pk_voucher=a.pk_voucher)'
/* where nvl(a.free9,'~')!='~' and yearv=accyear and periodv=accmonth and pk_group='0001V210000000004MCY''*/;
info:=info||'序列改变影响行数:'||SQL%rowcount||'; ';
exception
when others then
info:=info||'更新序列号失败!';
end;
单步执行的时候运行到execute immediate 'create SEQUENCE gl_voucher_num INCREMENT BY 1 START WITH 500 NOMAXVALUE NOCYCLE CACHE 10 return varchar2 authid current_user';这里的时候直接运行exception 然后就报错更新序列号失败! 为什么
收到一只叮咚
POPMUISE