单元格a1单元格元素为存储过程Proc1.select(ReturnNum),为什么每插入一行自动编号完全相同而不是增加 /* 存储过程 dbo.[Proc_GetSeqence] */ CREATE PROCEDURE [dbo].[Proc_GetSeqence] @SeqCode varchar(60), -- 规则代码 @ReturnNum Varchar(40) OUTPUT, -- 返回的流水号 @MessageCode varchar(800) OUTPUT -- 异常消息等 AS /* Exec Proc_GetSeqence 'OrderNo','','' ***************************************************************** 作者: XXXXXXXXX 日期: 2013/06/30 功能描述: 获取数据表的主键流水号(INV, ASN, SO...)
主要思路: 1.取得最新流水号信息 2.把所有固定的规则信息替换成具体值,其他保持不变 eg: 规则为: ASN<YYYY><YY><MM><XXX>ASN 当前日期为: 20130630 当前流水号为:12 最终流水号为:ASN201306013ASN
****************************************************************** */ /* * SET NOCOUNT ON 的作用: * 不返回受影响行数 * 存储过程中包含的一些语句并不返回许多实际的数据,则该设置由于大量减少了网络流量,因此可显著提高性能。 * */ SET NOCOUNT ON DECLARE @SeqNowNumStr VARCHAR(20) --当前值字符类型 DECLARE @SeqNowNum BIGINT --当前值 DECLARE @year CHAR(4) --年 YYYY DECLARE @month CHAR(2) --月 MM DECLARE @day CHAR(2) --日 DD DECLARE @Length INT --流水号长度 DECLARE @DataFormat VARCHAR(50) --流水号规则 DECLARE @IniValue INT --归零值 DECLARE @ResetType VARCHAR(10) --归零方式 DECLARE @LastDate CHAR(8) --日期最大值 DECLARE @WorkFLowStr VARCHAR(20) --前一次调用流水号时的日期值 DECLARE @DataNow CHAR(8) --当前日期 DECLARE @i INT --转换变量,作用参照代码上下文
/* * SET XACT_ABORT ON 的作用: * 存储中的某个地方出了问题,整个事务中的语句都会回滚 * */ SET XACT_ABORT ON BEGIN TRY /* 初始化变量 */ SET @MessageCode='999' SET @ReturnNum = '0' SET @Length=0 SET @SeqNowNum =0; SET @DataNow=CONVERT(CHAR(8),GETDATE(),112) --得到 20130704 的时间格式 SET @year=SUBSTRING(@DataNow,1,4) SET @month =SUBSTRING(@DataNow,5,2) SET @day =SUBSTRING(@DataNow,7,2)
Set @i=1
/***********如果有并发的正在运行,最多等待0.06秒,然后继续运行 Start*******/ BEGIN TRANSACTION wait: Update dbo.RUL_Sequence Set [IsRunning]='2' where SeqCode=@SeqCode and IsRunning='1' If @@Rowcount=0 Begin Waitfor Delay '00:00:01' Set @i=@i+1 If @i<6 goto wait End
COMMIT TRANSACTION /***********如果有并发的正在运行,最多等待0.06秒,然后继续运行 End*******/ Select @Length = [Length],@SeqNowNum=NowSeqValue,@LastDate=DateMax,@DataFormat=DataFormat ,@ResetType=ResetType,@IniValue =InitValue From RUL_Sequence where SeqCode=@SeqCode if @SeqNowNum=0 --当前值正常情况下不可能是0 begin Set @MessageCode='100' --当前值 错误代码 select @MessageCode return END --@ResetType=1 不归零 2 按日归零 3 按月归零 4按年归零 If (@ResetType=2 and @DataNow<>@LastDate AND @IniValue>0) OR (@ResetType=3 and @year+@month<>SUBSTRING(@LastDate,1,6) AND @IniValue>0) OR (@ResetType=4 and @year<>SUBSTRING(@LastDate,1,4) AND @IniValue>0 ) BEGIN SET @SeqNowNum=@IniValue END SET @i=@Length --@i 此时表示流水号的总长度
/***********拼流水号格式 Start*******/ SET @WorkFLowStr='<' WHILE @Length>0 BEGIN SET @WorkFLowStr=@WorkFLowStr+'X' SET @Length=@Length-1 END SET @WorkFLowStr=@WorkFLowStr+'>' /***********拼流水号格式 End*******/
set @SeqNowNumStr=CONVERT(VARCHAR(20),@SeqNowNum) SET @Length=@i-len(@SeqNowNumStr) --@Length 要补零的位数(eg:@SeqNowNumStr=148 当前流水号是五位,最后流水号为00148,00 就是需要补的两位)
/***********补零操作 Start*******/ WHILE @Length>0 BEGIN SET @SeqNowNumStr='0'+@SeqNowNumStr SET @Length=@Length-1 END /***********补零操作 End*******/
SET @ReturnNum=REPLACE( @DataFormat,'<YYYY>',@year); -- 把规则中<YYYY>替换成相应年 SET @ReturnNum=REPLACE( @ReturnNum,'<MM>',@month); -- 把规则中<MM>替换成相应月 SET @ReturnNum=REPLACE( @ReturnNum,'<DD>',@day); -- 把规则中<DD>替换成相应日 SET @ReturnNum=REPLACE( @ReturnNum,@WorkFLowStr,@SeqNowNumStr);-- 把规则中的形如<XXX>的替换成相应流水号,
/***********更新当前流水值为最大流水号、上一个流水号生成时间和运行标记(运行标记置为"1"(没有运行) ) Start*******/ Begin transaction
UPDATE RUL_Sequence SET NowSeqValue=@SeqNowNum+1,DateMax=@DataNow,ISRUNNING='1', EditTime=Getdate() WHERE IsRunning='2' AND SeqCode=@SeqCode --SELECT * FROM RUL_Sequence WHERE IsRunning='2' AND SeqCode=@SeqCode -- PRINT @SeqNowNum+1 Commit transaction /***********更新当前流水值为最大流水号、上一个流水号生成时间和运行标记(运行标记置为"1"(没有运行) ) End*******/ PRINT @ReturnNum RETURN END TRY --错误捕获 BEGIN CATCH ROLLBACK TRANSACTION set @MessageCode='行号='+cast(ERROR_LINE() as varchar(10))+'错误信息'+ERROR_MESSAGE() +'['+ERROR_PROCEDURE()+']' IF @@ROWcount<=0 set @MessageCode='无此编号规则'+@MessageCode SELECT @MessageCode END CATCH |