没有合适的资源?快使用搜索试试~ 我知道了~
oracle function 实现七种银行企业帐对帐
需积分: 50 4 下载量 47 浏览量
2011-09-09
15:30:32
上传
评论
收藏 16KB TXT 举报
温馨提示
试读
10页
oracle function oracle funcitonoracle function oracle funcitonoracle function oracle funcitonoracle function oracle funcitonoracle function oracle funciton,600多行,很爽的。
资源推荐
资源详情
资源评论
/**
撤消时用的过程
**/
create or replace function Get_RevokeRecImport(returnvalue in varchar2)
return varchar2 is
recConfigCurlogid varchar2(50);
fcursorA SYS_REFCURSOR;
recplogPrevlogid varchar2(50);
begin
open fcursorA for select curlogid from recaccconfig order by curlogid;
loop
fetch fcursorA into recConfigCurlogid;
exit when fcursorA%notfound;
--dbms_output.put_line('recConfigCurlogid='||recConfigCurlogid);
select prevlogid into recplogPrevlogid from recproclog t where t.logid =recConfigCurlogid;
--dbms_output.put_line('recplogPrevlogid='||recplogPrevlogid);
update recaccconfig set curlogid=recplogPrevlogid where curlogid= recConfigCurlogid;
update recimport t set t.cid='',t.logid='',t.state=0,t.recmode='',t.reconstr='',t.RECONFLAG='' where logid=recConfigCurlogid;
commit;
end loop;
close fcursorA;
return 'success';
end Get_RevokeRecImport;
/**
对帐时用的过程
**/
create or replace function BankRecImport(groupvalue in varchar2,dirvalue in number,recimportRecmode in number,reconState out number)
撤消时用的过程
**/
create or replace function Get_RevokeRecImport(returnvalue in varchar2)
return varchar2 is
recConfigCurlogid varchar2(50);
fcursorA SYS_REFCURSOR;
recplogPrevlogid varchar2(50);
begin
open fcursorA for select curlogid from recaccconfig order by curlogid;
loop
fetch fcursorA into recConfigCurlogid;
exit when fcursorA%notfound;
--dbms_output.put_line('recConfigCurlogid='||recConfigCurlogid);
select prevlogid into recplogPrevlogid from recproclog t where t.logid =recConfigCurlogid;
--dbms_output.put_line('recplogPrevlogid='||recplogPrevlogid);
update recaccconfig set curlogid=recplogPrevlogid where curlogid= recConfigCurlogid;
update recimport t set t.cid='',t.logid='',t.state=0,t.recmode='',t.reconstr='',t.RECONFLAG='' where logid=recConfigCurlogid;
commit;
end loop;
close fcursorA;
return 'success';
end Get_RevokeRecImport;
/**
对帐时用的过程
**/
create or replace function BankRecImport(groupvalue in varchar2,dirvalue in number,recimportRecmode in number,reconState out number)
return varchar2 is
areconstr varchar2(300);
fcursorA SYS_REFCURSOR;
fcursorB SYS_REFCURSOR;
fcursorC SYS_REFCURSOR;
fcursorD SYS_REFCURSOR;
counta number;
countb number;
countc number;
countd number;
acntno varchar2(50);
inneracnt varchar2(50);
recimportCid number;
recimportLogid number;
dira number;
targetDir number;
returnCount varchar2(100);
v_sql varchar2(200);
rectypea varchar2(10);
configCid number;
configCurlogid number;
configCfgname varchar(100);
configInneracnt varchar(100);
configBankacnt varchar(100);
periodId number;
-- 操作recAccConfig表
areconstr varchar2(300);
fcursorA SYS_REFCURSOR;
fcursorB SYS_REFCURSOR;
fcursorC SYS_REFCURSOR;
fcursorD SYS_REFCURSOR;
counta number;
countb number;
countc number;
countd number;
acntno varchar2(50);
inneracnt varchar2(50);
recimportCid number;
recimportLogid number;
dira number;
targetDir number;
returnCount varchar2(100);
v_sql varchar2(200);
rectypea varchar2(10);
configCid number;
configCurlogid number;
configCfgname varchar(100);
configInneracnt varchar(100);
configBankacnt varchar(100);
periodId number;
-- 操作recAccConfig表
剩余9页未读,继续阅读
资源评论
mze2008
- 粉丝: 0
- 资源: 26
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功