47.融合了补号处理的流水号编号处理

--1．融合了补号处理的流水号编号处理
--下面是使用补号法生成流水编号的用户定义函数，生成的编号总长度为8位，以BH开头，其余6位为流水号。

--得到新编号的函数
CREATE FUNCTION f_NextBH()
RETURNS char(8)
AS
BEGIN
	DECLARE @r char(8)
	
	SELECT @r='BH'+RIGHT(1000001+MIN(BH),6)
	FROM(
		SELECT BH=RIGHT(BH,6) FROM tb WITH(XLOCK,PAGLOCK)
		UNION ALL SELECT 0
	)a WHERE NOT EXISTS(
		SELECT * FROM tb  WITH(XLOCK,PAGLOCK)
		WHERE BH='BH'+RIGHT(1000001+a.BH,6))
	RETURN(@r)
END
GO

--在表中应用函数
CREATE TABLE tb(
BH char(8) PRIMARY KEY DEFAULT dbo.f_NextBH(),
col int)
GO


/*==================================================*/



--2．融合了补号处理的日期编号处理
--下面是使用补号法生成日期编号的用户定义函数，生成的编号总长度为12，前6位为日期信息，格式为YYMMDD，后6位为流水号。

--创建得到当前日期的视图
CREATE VIEW v_GetDate
AS
SELECT dt=CONVERT(CHAR(6),GETDATE(),12)
GO

--得到新编号的函数
CREATE FUNCTION f_NextBH()
RETURNS char(12)
AS
BEGIN
	DECLARE @dt CHAR(6),@r char(12)
	SELECT @dt=dt FROM v_GetDate

	SELECT @r=@dt+RIGHT(1000001+MIN(BH),6)
	FROM(
		SELECT BH=RIGHT(BH,6) FROM tb WITH(XLOCK,PAGLOCK)
		WHERE BH like @dt+'%'
		UNION ALL SELECT 0
	)a WHERE NOT EXISTS(
		SELECT * FROM tb  WITH(XLOCK,PAGLOCK)
		WHERE BH like @dt+'%'
			AND BH=@dt+RIGHT(1000001+a.BH,6))
	RETURN(@r)
END
GO

--在表中应用函数
CREATE TABLE tb(
BH char(12) PRIMARY KEY DEFAULT dbo.f_NextBH(),
col int)