ERP基础档案管理模块中实现多级分类档案ID号自动编码技术(V1.0)

ERP基础档案管理模块中实现多级分类档案ID号自动编码技术(V1.0)

本存储过程实现了多级分类档案ID号自动编码技术,本版本(V1.0)现在只实现每级3位的编码,

本版本的特点是:

n 可以根据不同的表产生不同的编码,达到通用化

n 调用时通过指定iIsSubNode要产生的节点编码是否是子结点还是兄弟节点来生成对应编码

进行调用本存储过程时需要注意的是需要传递节点的层次(或是叫节点的深度)

另外下一个版本(V2.0)将根据用户自定义每级长度来实现更灵活的自动编码技术。

CREATEprocedureprcIDAutoGen

@vSourceIDvarchar(30),

@IDepthint,

@iIsSubNodeint,

@Tablevarchar(20),

@vIncrementvarchar(30)output

as

begin

declare@iLenint

declare@vTempIDvarchar(30)

declare@SQLStringnvarchar(500)

if@iIsSubNode=1

begin

set@IDepth=@IDepth+1

set@iLen=@IDepth*3

set@SQLString=N'selectvIDfrom'+@Table+'wherevID='''+ltrim(rtrim(@vSourceID))+''''

exec(@SQLString)

if@@rowcount>0

begin

select@vSourceIDasvIDinto#t

set@SQLString=N'insert#tselectvIDfrom'+@Table+'wherevParentIDin(selectvIDfrom#t) andvIDnotin(selectvIDfrom#t)andIDepth=@IDepth'

execsp_executesql@SQLString,N'@IDepthint',@IDepth

if@@rowcount>0

begin

set@SQLString=N'select @vTempID=isnull(max(vID),''0'')from#t'

execsp_executesql@SQLString,N'@vTempIDvarchar(30)output',@vTempID output

set@SQLString='select@vIncrement=right(''000''+cast((cast(substring(@vTempID,1,@iLen)asdecimal(30,0))+1)asvarchar),@iLen)'

execsp_executesql@SQLString,N'@vIncrementvarchar(30)output,@vTempIDvarchar(30),@iLenint',@vIncrementout,@vTempID,@iLen

end

else

begin

select @vIncrement=ltrim(rtrim(@vSourceID))+'001'

end

end

else

begin

select@vIncrement='001'

end

end

else

begin

set@iLen=len(ltrim(rtrim(@vSourceID)))

set@SQLString=N'selectvIDfrom'+@Table+'wherevID='''+ltrim(rtrim(@vSourceID))+''''

exec(@SQLString)

if@@rowcount>0

begin

set@SQLString=N'select @vTempID=isnull(max(vID),''0'')from'+@Table+'wherevIDin(selectvIDfrom'+@Table+'whereIDepth=@IDepth)'

execsp_executesql@SQLString,N'@vTempIDvarchar(30)output,@IDepthint',@vTempID output,@IDepth

set@SQLString='select@vIncrement=right(''000''+cast((cast(substring(@vTempID,1,@iLen)asdecimal(30,0))+1)asvarchar),@iLen)'

execsp_executesql@SQLString,N'@vIncrementvarchar(30)output,@vTempIDvarchar(30),@iLenint',@vIncrementout,@vTempID,@iLen

end

else

begin

select@vIncrement='001'

end

end

end

用户创建基础档案时可以按以下类似表格式创建:

createtableCustomerClass(

vID varchar(30)constraintpkCustomerClassprimarykey,1