日期:2014-05-17  浏览次数:20562 次

修改一存储过程,非常感谢,就这么多分了,
--小爱,820帮忙写的代码,在临时可以,到正式表怎么就更新一个?
if object_id('[Tab]') is not null drop table [Tab]
go 
CREATE TABLE [dbo].[Tab](
[ID] [int] IDENTITY(1,1) NOT NULL,--自增
[type] [varchar](50),--编号类型,比如是仓库编号,或者订单编号、商品编号这类的
[code] [varchar](50) NOT NULL,--这个存编号最大值,你的编号是根据某种规则生成的,比如是ABC1234DFG001 不管前面是什么规则,增量肯定是int类型的增量,所以这里存int 就可以了
[seed] int,--这个存每次的增量,通常是1
[date] [date] NULL--这里存日期类型比较方便

 CONSTRAINT [PK_Tab] PRIMARY KEY CLUSTERED 
(
[ID] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]

GO

if object_id('p_GetID','P') is not null drop proc p_GetID
go 
-- 取下一个编号的公共存储过程
CREATE PROC dbo.p_GetID
    @type varchar(50)='仓库',--这个对应的是区号表里里面的类型
    @seed int=1--这个存每次的增量
AS 
SET NOCOUNT ON;
declare @d date=getdate(), @code int=0 --最大编号

--这里做个判断,某种类型的编号,切当天还没有取过号的话,就需要初始化一条数据
--加上行锁
begin try
begin tran
 if  not exists(select 1 from [Tab] with(rowlock) where [type]=@type and [date]=@d) 
insert into [Tab] select @type,1,@seed,@d 
--如果插入了 说明是第一次初始化的,所以最大值就是1 ,就可以直接return了
if @@rowcount>0
begin
 set @code=1
 if @@trancount>0
 commit tran 
 return @code
end
--这里是已经存在记录了,所以更新一下取号表就可以了
UPDATE dbo.[Tab]
SET
    @code = [code] + seed,
    [code] = @code
WHERE [type]=@type and [date]=@d
;
 if @@trancount>0
 commit tran 
 return @code
end try
begin catch
 if @@trancount>0
 rollback tran 
 return @code
end catch 
GO
--拼接SQL语句,循环更新SDNO,为什么只更新了一条?
declare @letter varchar(10)='KH',    --首字母,可以多个字母    
@id int , --流水号
@TLSH VARCHAR(20)--编号

declare @cnt int,@i int =1,@KHNAME nvarchar(30),@rowcoun int

select @cnt =@@rowcount
while @i<=@cnt
begin 
exec  @id=dbo.p_GetID '仓库',1
SET @TLSH=@letter+CONVERT(VARCHAR(6),GETDATE(),112)+right(10000+@id,4)    
update TEORD set [SDNO]=@TLSH where id=@i and [SDNO]=''
select top 1 @KHNAME=KHNAME from TEORD where id=@i
update  TEORD set [SDNO]=@TLSH where KHNAME=@KHNAME
set @i=@i+@@rowcount
end 
select * from TEORD
/*
ID          SDNO            SDDATE                  SDREN      KHNAME               KHADDESS           &nbs