create or replace procedure p_pre_saveimp(v_oprcd in varchar2,returnFlag out varchar2) is
v_jrfflag varchar2(2);--记录标识
v_jrfno varchar2(12);--享受编号
v_gntoprcd varchar2(10);
v_gntdept varchar2(4);
v_gntoprdt varchar2(10);
begin
declare cursor cur_jlsrelief_tmp is
select jrfno,jrfflag,gntoprcd,gntdept,to_char(gntoprdt,'yyyy-mm-dd') gntoprdt from jlsrelief_temp;
begin
open cur_jlsrelief_tmp;
loop
fetch cur_jlsrelief_tmp into v_jrfno,v_jrfflag,v_gntoprcd,v_gntdept,v_gntoprdt;
exit when cur_jlsrelief_tmp%notfound;
begin
if v_jrfflag = '4' then
begin
update jlsrelief_t set jrfstatus ='2' where jrfno = v_jrfno;
update jlsgrant_t set gntnote =v_oprcd||':'||sysdate||'发放取消' where gntno = v_jrfno;
end;
end if;
if v_jrfflag = '1' then
begin
update jlsrelief_t set jrfstatus = '3' where jrfno = v_jrfno;
update jlsgrant_t set gntcheckin ='1',gntdept = v_gntdept,gntoprcd = v_oprcd,gntleavmn =0,gntnote =v_gntoprcd||':'||v_gntoprdt where gntno = v_jrfno;
end;
end if;
if v_jrfflag = '2' then
begin
update jlsrelief_t set jrfstatus = '2' where jrfno = v_jrfno;
update jlsgrant_t set gntnote ='重新导出'||v_oprcd||':'||sysdate where gntno = v_jrfno;
end;
end if;
returnFlag := '1';
end;
end loop;
commit;
close cur_jlsrelief_tmp;
end;
end p_pre_saveimp;
v_jrfflag varchar2(2);--记录标识
v_jrfno varchar2(12);--享受编号
v_gntoprcd varchar2(10);
v_gntdept varchar2(4);
v_gntoprdt varchar2(10);
begin
declare cursor cur_jlsrelief_tmp is
select jrfno,jrfflag,gntoprcd,gntdept,to_char(gntoprdt,'yyyy-mm-dd') gntoprdt from jlsrelief_temp;
begin
open cur_jlsrelief_tmp;
loop
fetch cur_jlsrelief_tmp into v_jrfno,v_jrfflag,v_gntoprcd,v_gntdept,v_gntoprdt;
exit when cur_jlsrelief_tmp%notfound;
begin
if v_jrfflag = '4' then
begin
update jlsrelief_t set jrfstatus ='2' where jrfno = v_jrfno;
update jlsgrant_t set gntnote =v_oprcd||':'||sysdate||'发放取消' where gntno = v_jrfno;
end;
end if;
if v_jrfflag = '1' then
begin
update jlsrelief_t set jrfstatus = '3' where jrfno = v_jrfno;
update jlsgrant_t set gntcheckin ='1',gntdept = v_gntdept,gntoprcd = v_oprcd,gntleavmn =0,gntnote =v_gntoprcd||':'||v_gntoprdt where gntno = v_jrfno;
end;
end if;
if v_jrfflag = '2' then
begin
update jlsrelief_t set jrfstatus = '2' where jrfno = v_jrfno;
update jlsgrant_t set gntnote ='重新导出'||v_oprcd||':'||sysdate where gntno = v_jrfno;
end;
end if;
returnFlag := '1';
end;
end loop;
commit;
close cur_jlsrelief_tmp;
end;
end p_pre_saveimp;