存储过程--自动生成有日期的序列号（头可自己定义）

--=============================================
-- Author:        <vagerent>
-- Create date: <2006-12-14>
-- Description:    <获取编码，形如HEAD20060512000001；(头+日期+6位整数)后面为六位，每新的一年编号重新归0>
-- =============================================

alter PROCEDURE [dbo].[mp_GetPKNo]
    @sTableName varchar(50),
    @sFieldName varchar(50),--目标字段
    @sHead varchar(50),--前缀，如Head等
    @sPK varchar(50) out --输出

AS
BEGIN
    declare @dToday datetime,@sToday varchar(10),
        @sYear varchar(10),@sSubID varchar(20),@sSql nvarchar(1000);--动态sql一定要用nvarchar！！！
    
    set @dToday = getdate();
    set @sToday = Convert(varchar,Year(@dToday))
        +SubString(Convert(varchar,Month(@dToday)+100),2,2)--加100为了预防03月份前面的0没了，此处103后取第二位开始的两位
        +SubString(Convert(varchar,Day(@dToday)+100),2,2);
    --select @sToday--形如20060512
    set @sYear=Convert(varchar(10),Year(getdate()))
    --select @sYear--形如2006
    
    declare @sHead1 varchar(30),@iHeadLength int;
    set @sHead1=@sHead+@sYear;--形如HEAD2006
    --select @sHead1;--形如HEAD2006
    set @iHeadLength=Len(@sHead1);--形如HEAD2006的长度
    
    set @sSql = N'select @sSubID=Max(SubString('
        +@sFieldName+','+Convert(varchar(10),@iHeadLength+5)+',6)) from '--000002最大的后六位，避免重复
        +@sTableName+' where SubString('+@sFieldName+',1,'
        +Convert(varchar(10),@iHeadLength)+')='''+@sHead1+'''';
    --select @sSql;--形如select..先找到有HEAD开头的序列号，然后取出后六位
    exec sp_executesql @sSql,N'@sSubID varchar(20) output',@sSubID output;

    if ((@sSubID='') or (@sSubID is null))
        set @sSubID='000001'
    else
    begin
        declare @iSubID int;
        set @iSubID=Convert(int,@sSubID)+1000001;--前面添加多一位预防0丢失
        set @sSubID=SubString(Convert(varchar,@iSubID),2,6)--取出最终想要的000001-999999序列号
    end
    --select @sSubID;
    set @sPK=@sHead+@sToday+@sSubID;

return
END