重新上传一下。
create or replace PROCEDURE SP_INSERT_XQ
(
xqmc in VARCHAR2(30),
ssqh in VARCHAR2(12)
)
AS
str_xqbm NUMBER;
jls NUMBER;
str_tmp VARCHAR2(2);
begin
select count(*) INTO jls from qh where sjqhbm=ssqh and substr(qhbm, 13, 2) <> '99' and qhjb='6';
if jls=0 then
insert into qh(qhbm,qhmc,sjqhbm,tbrq) values(ssqh+'01',xqmc,ssqh,SYSDATE);
else
select max(qhbm) into str_xqbm from qh where sjqhbm=ssqh and substr(qhbm, 13, 2) <> '99' and substr(qhbm, 13, 2) <> '98' an qhjb='6';
str_tmp := to_char(substr(str_xqbm,13,14))+1);
if length(str_tmp)=1 then
str_tmp :='0' +str_tmp;
end if;
insert into qh(qhbm,qhmc,sjqhbm,tbrq) values(ssqh+str_tmp,xqmc,ssqh,SYSDATE);
end if;
END SP_INSERT_XQ
create or replace PROCEDURE SP_INSERT_XQ
(
xqmc in VARCHAR2(30),
ssqh in VARCHAR2(12)
)
AS
str_xqbm NUMBER;
jls NUMBER;
str_tmp VARCHAR2(2);
begin
select count(*) INTO jls from qh where sjqhbm=ssqh and substr(qhbm, 13, 2) <> '99' and qhjb='6';
if jls=0 then
insert into qh(qhbm,qhmc,sjqhbm,tbrq) values(ssqh+'01',xqmc,ssqh,SYSDATE);
else
select max(qhbm) into str_xqbm from qh where sjqhbm=ssqh and substr(qhbm, 13, 2) <> '99' and substr(qhbm, 13, 2) <> '98' an qhjb='6';
str_tmp := to_char(substr(str_xqbm,13,14))+1);
if length(str_tmp)=1 then
str_tmp :='0' +str_tmp;
end if;
insert into qh(qhbm,qhmc,sjqhbm,tbrq) values(ssqh+str_tmp,xqmc,ssqh,SYSDATE);
end if;
END SP_INSERT_XQ
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货