CREATE PROCEDURE [insert_rclk2]
 AS
delete from rbrclt2
insert into rbrclt2
select * from rbrcl2
declare @bh nvarchar(3),@sb nvarchar(8),@rjh int,@rsj int,@yjh int,
@ysj int,@ljjh int,@cq int,@ycq int,@pj int,@dt smalldatetime
select @dt=dt from rbrcl2

select @rjh=sum(rjh),@rsj=sum(rsj),@yjh=sum(yjh),@ysj=sum(ysj),
@cq=sum(cq),@ycq=sum(ycq),@pj=sum(pj),@ljjh=sum(ljjh) from rbrcl2 where substring(bh,1,2)='10' 
insert into rbrclt2 values('100',@rjh,@rsj,@yjh,@ysj,'炼    铁',@dt,@cq,@pj,@ljjh,@ycq,'001')

select @rjh=sum(rjh),@rsj=sum(rsj),@yjh=sum(yjh),@ysj=sum(ysj),
@cq=sum(cq),@ycq=sum(ycq),@pj=sum(pj),@ljjh=sum(ljjh) from rbrcl2 where substring(bh,1,2)='21' or  substring(bh,1,2)='22' or substring(bh,1,2)='23'
insert into rbrclt2 values('200',@rjh,@rsj,@yjh,@ysj,'转 炉 钢',@dt,@cq,@pj,@ljjh,@ycq,'008')

select @rjh=sum(rjh),@rsj=sum(rsj),@yjh=sum(yjh),@ysj=sum(ysj),
@cq=sum(cq),@ycq=sum(ycq),@pj=sum(pj),@ljjh=sum(ljjh) from rbrcl2 where substring(bh,1,2)='21' 
insert into rbrclt2 values('210',@rjh,@rsj,@yjh,@ysj,'方    坯',@dt,@cq,@pj,@ljjh,@ycq,'009')

select @rjh=sum(rjh),@rsj=sum(rsj),@yjh=sum(yjh),@ysj=sum(ysj),
@cq=sum(cq),@ycq=sum(ycq),@pj=sum(pj),@ljjh=sum(ljjh) from rbrcl2 where substring(bh,1,2)='22' 
insert into rbrclt2 values('220',@rjh,@rsj,@yjh,@ysj,'板    坯',@dt,@cq,@pj,@ljjh,@ycq,'012')

select @rjh=sum(rjh),@rsj=sum(rsj),@yjh=sum(yjh),@ysj=sum(ysj),
@cq=sum(cq),@ycq=sum(ycq),@pj=sum(pj),@ljjh=sum(ljjh) from rbrcl2 where substring(bh,1,1)='4' 
insert into rbrclt2 values('300',@rjh,@rsj,@yjh,@ysj,'材 总 计',@dt,@cq,@pj,@ljjh,@ycq,'017')

select @rjh=sum(rjh),@rsj=sum(rsj),@yjh=sum(yjh),@ysj=sum(ysj),
@cq=sum(cq),@ycq=sum(ycq),@pj=sum(pj),@ljjh=sum(ljjh) from rbrcl2 where bz='019' or bz='020' 
insert into rbrclt2 values('310',@rjh,@rsj,@yjh,@ysj,'中宽热带',@dt,@cq,@pj,@ljjh,@ycq,'018')

select @rjh=sum(rjh),@rsj=sum(rsj),@yjh=sum(yjh),@ysj=sum(ysj),
@cq=sum(cq),@ycq=sum(ycq),@pj=sum(pj),@ljjh=sum(ljjh) from rbrcl2 where substring(bh,1,2)='43' 
insert into rbrclt2 values('430',@rjh,@rsj,@yjh,@ysj,'焊    管',@dt,@cq,@pj,@ljjh,@ycq,'024')

select @rjh=sum(rjh),@rsj=sum(rsj),@yjh=sum(yjh),@ysj=sum(ysj),
@cq=sum(cq),@ycq=sum(ycq),@pj=sum(pj),@ljjh=sum(ljjh) from rbrcl2 where substring(bh,1,1)='8' 
insert into rbrclt2 values('800',@rjh,@rsj,@yjh,@ysj,'烧    结',@dt,@cq,@pj,@ljjh,@ycq,'033')

if exists(select * from rbrclk2 where dt=@dt)
return 1
else
insert into rbrclk2
select * from rbrclt2 order by bz
GO