1、常用函数
Lpad()函数的用法：
lpad函数将左边的字符串填充一些特定的字符其语法格式如下：
lpad(string,n,[pad_string])
string：可是字符或者参数
n：字符的长度，是返回的字符串的数量，如果这个数量比原字符串的长度要短，lpad函数将会把字符串截取成从左到右的n个字符;
pad_string：是个可选参数，这个字符串是要粘贴到string的左边，如果这个参数未写，lpad函数将会在string的左边粘贴空格。
例如：
lpad('tech', 7); 将返回' tech'
lpad('tech', 2); 将返回'te'
lpad('tech', 8, '0'); 将返回'0000tech'
lpad('tech on the net', 15, 'z'); 将返回 'tech on the net'
lpad('tech on the net', 16, 'z'); 将返回 'ztech on the net'
------------------------------------
Rpad()函数的用法：
rpad函数将右边的字符串填充一些特定的字符其语法格式如下：
rpad(string,n,[pad_string])
string：可是字符或者参数
n：字符的长度，是返回的字符串的数量，如果这个数量比原字符串的长度要短，lpad函数将会把字符串截取成从左到右的n个字符;
pad_string：是个可选参数，这个字符串是要粘贴到string的右边，如果这个参数未写，lpad函数将会在string的右边粘贴空格。
例如：
rpad('tech', 7); 将返回' tech'
rpad('tech', 2); 将返回'te'
rpad('tech', 8, '0'); 将返回'tech0000'
rpad('tech on the net', 15, 'z'); 将返回 'tech on the net'
rpad('tech on the net', 16, 'z'); 将返回 'tech on the netz'
2、定义并使用游标
定义：
CREATE OR REPLACE PACKAGE query_pkg is
-- Author : lijinchang
-- Created : 2006-3-29 17:19:29
-- Purpose : ????
-- Public type declarations
type Query_cur is ref cursor;
end query_pkg;
使用：
create or replace procedure Jiekou_hpcaozuo(
v_wenjianmc in varchar2,--文件名
v_account in varchar2,--操作人
v_I_XIAOZHANGBH in integer,--销账编号
v_date in date,--操作时间
v_ip in varchar2,--计算机ip
V_I_JIEZHANGPH in integer,--结账批号
V_I_SHOUFEIPH in integer,--收费批号
v_bankid in varchar2,--总行编号
semu_cur out query_pkg.Query_cur
)
is
V_ID integer;
c_list query_pkg.Query_cur;
v_count integer:=0;
v_I_FEEID YW_WENJIANSJ_YWMX.i_Feeid%type;--feeid；
v_s_cid YW_WENJIANSJ_YWMX.s_Cid%type;--销根号
v_I_Y YW_WENJIANSJ_YWMX.i_y%type;--账务年
v_i_m YW_WENJIANSJ_YWMX.i_m%type;--账务月
v_i_cc YW_WENJIANSJ_YWMX.i_cc%type;--抄次
v_I_KAIZHANGSL YW_WENJIANSJ_YWMX.i_Kaizhangsl%type;--开账水量
v_n_je YW_WENJIANSJ_YWMX.n_Je%type;--金额
v_N_LINGTOU YW_WENJIANSJ_YWMX.N_LINGTOU%type;--零头；
v_N_KAIZHANGJE YW_WENJIANSJ_YWMX.N_KAIZHANGJE%type;--开账金额；
v_I_KAIHUYH YW_WENJIANSJ_YWMX.I_KAIHUYH%type;--开户银行
v_S_KAIHUHM YW_WENJIANSJ_YWMX.S_KAIHUHM%type;--开户户名
v_S_YINHANGZH YW_WENJIANSJ_YWMX.S_YINHANGZH%type;--银行帐户
v_I_HUAZHANGBH YW_WENJIANSJ.I_HUAZHANGBH%type;--划账编号
v_I_YINHANGBH YW_WENJIANSJ.i_Yinhangbh%type;--银（总）行编号
v_i_RUZHANG integer;--入账类型
v_i_zhangwuny integer;--账务年月
v_s_st kg_biaokaxx.s_st%type;--站点
totoalbs integer;--总笔数
totoalje SF_SHOUFEIHZ.n_Shishouje%type;--总金额
totoalzcbs integer;--正常笔数
totoalzcje SF_SHOUFEIHZ.n_Zhengchangje%type;--正常金额
totoalcbbs integer;--重笔笔数
totoalcbje SF_SHOUFEIHZ.n_Chongbije%type;--重笔金额
totoalynbs integer;--疑难笔数
totoalynje SF_SHOUFEIHZ.n_Yinanje%type;--疑难金额
v_sql varchar2(2000):='';
begin
v_sql:='
select t3.*,
t4.s_st from
(SELECT
T.I_FEEID,
T.S_CID,
T.I_Y,
T.I_M,
T.I_CC,
T.I_KAIZHANGSL,
T.N_JE,
T.N_LINGTOU,
T.N_KAIZHANGJE,
T.I_KAIHUYH,
T.S_KAIHUHM,
T.S_YINHANGZH,
T1.I_HUAZHANGBH,
T1.I_YINHANGBH,
jiekou_getruzhangzt(T.I_Y,T.I_M,T.I_FEEID,T.N_JE) AS I_RUZHANG,
to_number(to_char(T.I_Y)||case length(to_char(T.I_M)) when 1
then ''0''||to_char(T.I_M) else to_char(T.I_M) end) as I_ZHANGWUNY
FROM YW_WENJIANSJ_YWMX T,
YW_WENJIANSJ T1
WHERE T1.I_WENJIANBH=T.I_WENJIANBH
AND T1.S_WENJIANM='''||v_wenjianmc||''') t3
left join
kg_biaokaxx t4 on t3.s_cid=t4.s_cid'
;
open c_list for v_sql;
if c_list%notfound then
v_count:=0;
return;
else
v_count:=1;
loop
fetch c_list into v_I_FEEID,v_s_cid,
v_I_Y,v_i_m,v_i_cc,
v_I_KAIZHANGSL,v_n_je,
v_N_LINGTOU,v_N_KAIZHANGJE,
v_I_KAIHUYH,v_S_KAIHUHM,v_S_YINHANGZH,
v_I_HUAZHANGBH,v_I_YINHANGBH,v_i_RUZHANG,
v_i_zhangwuny
;
V_ID :=GSELNEXTSF_SHOUFEIMXID();
INSERT INTO SF_SHOUFEIMX (
SF_SHOUFEIMX.ID,
SF_SHOUFEIMX.S_PCID,
SF_SHOUFEIMX.I_JIEZHANGPH,
SF_SHOUFEIMX.I_SHOUFEIPH,
SF_SHOUFEIMX.I_ZHANGWUNY,
SF_SHOUFEIMX.S_ST,
SF_SHOUFEIMX.I_FEEID,
SF_SHOUFEIMX.S_CID,
SF_SHOUFEIMX.I_CHAOBIAON,
SF_SHOUFEIMX.I_CHAOBIAOY,
SF_SHOUFEIMX.I_CC,
SF_SHOUFEIMX.N_JE,
SF_SHOUFEIMX.N_YINGSHOUZNJ,
SF_SHOUFEIMX.N_SHISHOUZNJ,
SF_SHOUFEIMX.I_JINCHU,
SF_SHOUFEIMX.I_SHOUFEILX,
SF_SHOUFEIMX.I_RUZHANG,
SF_SHOUFEIMX.I_TUIKUANLX,
SF_SHOUFEIMX.S_SHOUFEIYBH,
SF_SHOUFEIMX.DL_SHOUFEIRQ,
SF_SHOUFEIMX.D_SHOUFEISJ,
SF_SHOUFEIMX.I_XIAOZHANGBH,
SF_SHOUFEIMX.I_DAYINCS,
SF_SHOUFEIMX.S_ZHANGDANTXM,
SF_SHOUFEIMX.S_BEIZHU,
SF_SHOUFEIMX.S_BEIZHU1,
SF_SHOUFEIMX.S_CAOZUOR,
SF_SHOUFEIMX.D_CAOZUOSJ,
SF_SHOUFEIMX.I_JLZT
) VALUES (
V_ID,
V_ip,
V_I_JIEZHANGPH,
V_I_SHOUFEIPH,
V_I_ZHANGWUNY,
V_S_ST,
V_I_FEEID,
V_S_CID,
V_I_Y,
V_I_M,
V_I_CC,
V_N_JE,
0,
0,
1,
0,
V_I_RUZHANG,
0,
v_account,
to_number(to_char(v_date,'yyyyMMdd')),
v_date,
V_I_XIAOZHANGBH,
0,
0,
'无',
'无',
v_account,
v_date,
0
);
totoalbs:=totoalbs+1;--总笔数
totoalje:=totoalje+v_n_je;--总金额
if v_i_RUZHANG=0 then
totoalzcbs:=totoalzcbs+1;--正常笔数
totoalzcje:=totoalzcje+v_n_je;--正常金额
--正常的做销账处理
update zw_yingyez
set zw_yingyez.I_XIAOZHANG = 3,--已销
zw_yingyez.I_JIEZHANGPH = v_I_JIEZHANGPH,--结账批号
zw_yingyez.I_SHOUFEITJ = 4,--收费途径
zw_yingyez.D_XIAOZHANGRQ = v_date,--销账日期
zw_yingyez.DL_XIAOZHANGRQ = to_number(to_char(v_date,'yyyyMMdd')),--销账日期
zw_yingyez.I_XIAOZHANGBH = v_I_XIAOZHANGBH --销账编号
where zw_yingyez.i_feeid=v_I_FEEID
;
end if;
if v_i_RUZHANG=1 then
totoalcbbs:=totoalcbbs+1;--重笔笔数
totoalcbje:=totoalcbje+v_n_je;--重笔金额
--重笔的插入到待处理表
CS_InsZW_DAICHULI
(
0,
0,
0,
0,
v_i_RUZHANG,
0,
v_account,
v_date,
'无',
V_ip,
V_I_JIEZHANGPH,
V_I_SHOUFEIPH,
V_I_ZHANGWUNY,
V_S_ST,
V_I_FEEID,
V_S_CID,
v_I_Y,
v_I_m,
V_I_CC,
V_N_JE,
0,
0,
1,
0,
V_I_RUZHANG,
0,
V_account,
to_number(to_char(v_date,'yyyyMMdd')),
v_date,
V_I_XIAOZHANGBH,
0,
'无',
'五',
'无',
v_account,
v_date,
0,
v_date,
v_account,
V_N_JE,
V_ID
);
end if;
if v_i_RUZHANG=2 then
totoalynbs:=totoalynbs+1;--疑难笔数
totoalynje:=totoalynje+v_n_je;--疑难金额
--疑难的插入到待处理表
CS_InsZW_DAICHULI
(
0,
0,
0,
0,
v_i_RUZHANG,
0,
v_account,
v_date,
'无',
V_ip,
V_I_JIEZHANGPH,
V_I_SHOUFEIPH,
V_I_ZHANGWUNY,
V_S_ST,
V_I_FEEID,
V_S_CID,
v_I_Y,
v_I_m,
V_I_CC,
V_N_JE,
0,
0,
1,
0,
V_I_RUZHANG,
0,
V_account,
to_number(to_char(v_date,'yyyyMMdd')),
v_date,
V_I_XIAOZHANGBH,
0,
'无',
'五',
'无',
v_account,
v_date,
0,
v_date,
v_account,
V_N_JE,
V_ID
);
end if;
end loop;
end if;
close c_list;
V_ID :=GSELNEXTSF_SHOUFEIXJID();
INSERT INTO SF_SHOUFEIXJ (
SF_SHOUFEIXJ.ID,
SF_SHOUFEIXJ.S_PCID,
SF_SHOUFEIXJ.I_JIEZHANGPH,
SF_SHOUFEIXJ.I_SHOUFEIPH,
SF_SHOUFEIXJ.S_ST,
SF_SHOUFEIXJ.N_XIAOJIJE,
SF_SHOUFEIXJ.S_SHUAKALSH,
SF_SHOUFEIXJ.S_HAOMA,
SF_SHOUFEIXJ.I_ZHIFULX,
SF_SHOUFEIXJ.S_SHOUFEIYBH,
SF_SHOUFEIXJ.D_SHOUFEISJ,
SF_SHOUFEIXJ.DL_SHOUFEIRQ,
SF_SHOUFEIXJ.S_BEIZHU,
SF_SHOUFEIXJ.S_BEIZHU1,
SF_SHOUFEIXJ.S_CAOZUOR,
SF_SHOUFEIXJ.D_CAOZUOSJ,
SF_SHOUFEIXJ.I_JLZT
) VALUES (
V_ID,
V_ip,
V_I_JIEZHANGPH,
V_I_SHOUFEIPH,
V_S_ST,
totoalje,
'',
'',
0,
v_account,
v_date,
to_number(to_char(v_date,'yyyyMMdd')),
'无',
'无',
v_account,
v_date,
0
);
V_ID :=GSELNEXTSF_SHOUFEIHZID();
INSERT INTO SF_SHOUFEIHZ (
SF_SHOUFEIHZ.ID,
SF_SHOUFEIHZ.S_ST,
SF_SHOUFEIHZ.S_PCID,
SF_SHOUFEIHZ.S_SHOUFEIDBH,
SF_SHOUFEIHZ.I_SHOUFEITJ,
SF_SHOUFEIHZ.I_JIEZHANGPH,
SF_SHOUFEIHZ.I_SHOUFEIJD,
SF_SHOUFEIHZ.I_YINGSHOUBS,
SF_SHOUFEIHZ.N_YINGSHOUJE,
SF_SHOUFEIHZ.I_SHISHOUBS,
SF_SHOUFEIHZ.N_SHISHOUJE,
SF_SHOUFEIHZ.I_ZHENGCHANGBS,
SF_SHOUFEIHZ.N_ZHENGCHANGJE,
SF_SHOUFEIHZ.I_CHONGBIBS,
SF_SHOUFEIHZ.N_CHONGBIJE,
SF_SHOUFEIHZ.I_YINANBS,
SF_SHOUFEIHZ.N_YINANJE,
SF_SHOUFEIHZ.I_JIADANBS,
SF_SHOUFEIHZ.N_JIADANJE,
SF_SHOUFEIHZ.I_TEZHANGBS,
SF_SHOUFEIHZ.N_TEZHANGJE,
SF_SHOUFEIHZ.I_CHAEBS,
SF_SHOUFEIHZ.N_CHAEJE,
SF_SHOUFEIHZ.I_LINGTOUSBS,
SF_SHOUFEIHZ.N_LINGTOUSJE,
SF_SHOUFEIHZ.I_TUIKUANBS,
SF_SHOUFEIHZ.N_TUIKUANJE,
SF_SHOUFEIHZ.D_JIEZHANGRQ,
SF_SHOUFEIHZ.S_SHOUFEIYBH,
SF_SHOUFEIHZ.D_XIAOZHANGRQ,
SF_SHOUFEIHZ.I_XIAOZHANGBH,
SF_SHOUFEIHZ.S_XIAOZHANGYBH,
SF_SHOUFEIHZ.S_JIEZHANGTXM,
SF_SHOUFEIHZ.S_BEIZHU,
SF_SHOUFEIHZ.S_BEIZHU1,
SF_SHOUFEIHZ.S_CAOZUOR,
SF_SHOUFEIHZ.D_CAOZUOSJ,
SF_SHOUFEIHZ.I_JLZT
) VALUES (
V_ID,
V_S_ST,
V_ip,
v_bankid,
4,
V_I_JIEZHANGPH,
3,
totoalbs,
totoalje,
totoalbs,
totoalje,
totoalzcbs,
totoalzcje,
totoalcbbs,
totoalcbje,
totoalynbs,
totoalynje,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
v_date,
v_account,
v_date,
V_I_XIAOZHANGBH,
v_account,
'',
'',
'',
v_account,
v_date,
0
);
end Jiekou_hpcaozuo;
3、自定义函数的定义
create or replace function jiekou_getruzhangzt
(
-------------------------------------
--作者：李金昌
--时间：2010-10-28
--功能：判断一笔yw_wenjiansj_ywmx记录对应的账务信息的入账状态
-------------------------------------
I_Y IN INTEGER,
I_M IN INTEGER,
I_FEEID IN INTEGER,
N_JE IN NUMBER
)
return integer
is
V_RUZHANG INTEGER;
V_SQL varchar2(4000):= '';
tablename varchar2(150):='';
v_COUNT INTEGER ;
v_recordcount integer;
v_I_M varchar2(2):='';
begin
if length(I_M)=1 then
v_I_M:='0'||I_M;
else
v_I_M:=''||I_M;
end if;
tablename:=upper('xz_yingyez'||I_Y||v_I_M);--销账历史记录表名
select Count(1) into v_count from all_all_tables a where a.owner = 'VEOLIAUSER_HIS' and a.table_name = tablename;
if v_COUNT <>0 then
V_SQL:='
select count(1) from
(
select 1 from '||tablename||'
where i_feeid='||I_FEEID||' and N_JE=
'||N_JE||'
union
select 1 from zw_yingyez t where
t.i_feeid='||I_FEEID||' and t.N_JE=
'||N_JE||' and I_xiaozhang>0
)'
;
else
V_SQL:='
select count(1) from
(
select 1 from zw_yingyez t where
t.i_feeid='||I_FEEID||' and t.N_JE=
'||N_JE||' and I_xiaozhang>0
)'
;
end if;
execute immediate v_sql into v_recordcount;
if v_recordcount>0 then
V_RUZHANG:=1;--重笔状态
else
V_SQL:='
select count(1) from
(
select 1 from zw_yingyez t where
t.i_feeid='||I_FEEID||' and t.N_JE=
'||N_JE||' and I_xiaozhang=0
)'
;
execute immediate v_sql into v_recordcount;
if v_recordcount>0 then
V_RUZHANG:=0;--正常状态
else
V_RUZHANG:=2;--疑难帐状态
end if;
end if;
return V_RUZHANG;
end jiekou_getruzhangzt;