1,617
社区成员
发帖
与我相关
我的任务
分享
BEGIN
select count(*) into i from ykjh.budgetfinished where type='0' and year=curyear;
if i=0 then
raise CARRY_FORWARD_ALSO;
else
autohj('ZBGL.VIEW_SXCPSH');
select sysdate into p_date from dual;
update ykjh.budgetfinished set type='1' ,DEALDT=p_date
where type='0' and year=curyear;
COMMIT;
updatestatus(P_ZFCGJYFLAG);
commit;
raise CARRY_FORWARD_FINISH;
end if;
EXCEPTION
WHEN CARRY_FORWARD_FINISH THEN
RESULTSTR := '市县指标成批收回处理完毕!';
WHEN CARRY_FORWARD_ALSO THEN
RESULTSTR := '无成批需要收回的指标!';
WHEN NOT_CARRY_FORWARD THEN
RESULTSTR := '部分要素尚未结转,请联系系统管理员!';
WHEN NOT_FOUND_BUDGET THEN
RESULTSTR := '未找到指标类型:上年结余,请联系系统管理员';
-- WHEN OTHERS THEN
-- resultstr:='未定义错误信息!';
END PRO_SXTY_ASSIGN_SH;