
oracle report srw 转换为pl/sql怎么写
1个回答
2016-08-02
展开全部
本人把操作放入了一个存储过程over,也可以不把它放入存储过程,直接执行也行,希望对你有帮助,
=====================================================================================
create or replace procedure over() is
v_wip_sta_type varchar2(10);
v_prior_level varchar2(10);
v_new_groupid varchar2(10);
V_discrepancy_time int;
v_exceeded_time number;
dh varchar2(10);
dh_in varchar2(10);
jnsxh varchar2(10);
flh varchar2(10);
ajh varchar2(10);
ajtm varchar2(10);
bgqx varchar2(10);
index_text int;
index_in int;
begin
flh:='09';
index_text:=1;
if index_text<20 then
begin
ajh:=right(convert(varchar(5),index_text+10000),4);----我不太清楚你这个right(convert(varchar(5),index_text+10000),4)是干什么用的
dh:=flh || '-'+ajh;
insert into aj65 (dalx, bm_id, jg_id, qzh, dh, flh, ajh, ajtm, bgqx)
values('aj6571',0,0,'',dh,flh,ajh,'文件标题'||dh,'长期')
index_text:=index_text+1;
index_in:=1;
if index_in<=20 then
jnsxh:=right(convert(varchar(5),index_text+10000),4)
dh_in:=dh||'-'+jnsxh;
insert into jn65 (dalx, bm_id, jg_id, qzh, dh, flh, ajh, wjbt, bgqx, jnsxh)
values('jn6572',0,0,'',dh_in,flh,ajh,'文件标题'||dh,'长期',jnsxh)
index_in:=index_in+1
end if;
end;
end if;
end over;
=====================================================================================
create or replace procedure over() is
v_wip_sta_type varchar2(10);
v_prior_level varchar2(10);
v_new_groupid varchar2(10);
V_discrepancy_time int;
v_exceeded_time number;
dh varchar2(10);
dh_in varchar2(10);
jnsxh varchar2(10);
flh varchar2(10);
ajh varchar2(10);
ajtm varchar2(10);
bgqx varchar2(10);
index_text int;
index_in int;
begin
flh:='09';
index_text:=1;
if index_text<20 then
begin
ajh:=right(convert(varchar(5),index_text+10000),4);----我不太清楚你这个right(convert(varchar(5),index_text+10000),4)是干什么用的
dh:=flh || '-'+ajh;
insert into aj65 (dalx, bm_id, jg_id, qzh, dh, flh, ajh, ajtm, bgqx)
values('aj6571',0,0,'',dh,flh,ajh,'文件标题'||dh,'长期')
index_text:=index_text+1;
index_in:=1;
if index_in<=20 then
jnsxh:=right(convert(varchar(5),index_text+10000),4)
dh_in:=dh||'-'+jnsxh;
insert into jn65 (dalx, bm_id, jg_id, qzh, dh, flh, ajh, wjbt, bgqx, jnsxh)
values('jn6572',0,0,'',dh_in,flh,ajh,'文件标题'||dh,'长期',jnsxh)
index_in:=index_in+1
end if;
end;
end if;
end over;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询