获取流水号

/*

Auother :Kangco

CreateDateTime : 2007/09/03

--=======================================================

Subject：获取流水号

Input Parameter：

@S_TABLE --表名 例'PBPM'

@S_OUTO_FIELD--流水号字段名 例 'ODD_ID'

@S_SYSEM_TYPE --系统别例'PSS'

@S_UNIT_NAME --单据名称例'1'

--=======================================================

eg:

("PSMPRECM", "SMPREC_ID", "PAS", "1")

exec [dbo].[sp_OutoID] 'PSMPRECM','SMPREC_ID','PAS','1'

exec [dbo].[sp_OutoID] 'PBPM','ODD_ID','PSS','1'

exec [dbo].[sp_OutoID] 'PINVTADJM','ODD_ID','PSS','9'

*/

ALTER PROCEDURE [dbo].[sp_OutoID]

(@S_TABLE varchar(100),

@S_OUTO_FIELDvarchar(100),

@S_SYSEM_TYPE varchar(100),

@S_UNIT_NAME varchar(100))

AS

/* SET NOCOUNT ON */

-- DECLARE @S_OUTO_MAXID VARCHAR(100)--自动流水号

-- SET @S_OUTO_MAXID =''

DECLARE @S_SQL VARCHAR(5000)

DECLARE @S_OUTO_VALUE_MAX VARCHAR(100)

DECLARE @I_OUTO_NUM_LEN INT

SET @S_SQL = '' --查询语句

SET @S_OUTO_VALUE_MAX = '' --最大值

SET @I_OUTO_NUM_LEN = 5 --流水号数字部分的长度

--=============获取流水号设定参数=============

DECLARE @S_CODE_TYPE VARCHAR(100)

DECLARE @S_CBCODE VARCHAR(100)

SET @S_CODE_TYPE = ''

SET @S_CBCODE = ''

--SELECT * FROM BUNITCODEM

SELECT

--SEQ_NO,dbo.FN_getTypeName('SYSEM_TYPE',SYSEM_TYPE) AS SYSEM_TYPE,dbo.FN_getTypeName('UNIT_NAME',UNIT_NAME)AS UNIT_NAME,

@S_CODE_TYPE = dbo.FN_getTypeName('CODE_TYPE',CODE_TYPE) ,

@S_CBCODE =ISNULL( CBCODE,'') FROM BUNITCODEM WHERE SYSEM_TYPE =@S_SYSEM_TYPE AND UNIT_NAME =@S_UNIT_NAME

PRINT @S_CODE_TYPE

PRINT @S_CBCODE

IF(@S_CODE_TYPE = '')

BEGIN

SELECT 'false' AS OUTOID

RETURN--如果为空返回

END

--=============获取流水号设定参数END============

--=============处理日期部分============

DECLARE @S_YEAR VARCHAR(10)

DECLARE @S_MONTH VARCHAR(10)

DECLARE @S_DAY VARCHAR(10)

DECLARE @DT_DATE VARCHAR(10)

-- SET @S_YEAR = ''

-- SET @S_MONTH = ''

-- SET @S_DAY = ''

IF(SUBSTRING(@S_CODE_TYPE,LEN(@S_CODE_TYPE)-1,2) = '中历')

BEGIN

--PRINT 'ok'

--中历

SET @DT_DATE =CONVERT(CHAR(10),dbo.FN_ConvertDate(CONVERT(CHAR(10),GETDATE(),111)),111)

SET @S_YEAR = SUBSTRING(@DT_DATE,1,3)

SET @S_MONTH = SUBSTRING(@DT_DATE,5,2)

SET @S_DAY = SUBSTRING(@DT_DATE,8,2)

PRINT@S_YEAR + @S_MONTH+@S_DAY

END

ELSE

BEGIN

--PRINT 'NO'

--公历

SET @DT_DATE =CONVERT(CHAR(10), GETDATE(), 112)

SET @S_YEAR = SUBSTRING(@DT_DATE,1,4)

SET @S_MONTH = SUBSTRING(@DT_DATE,5,2)

SET @S_DAY = SUBSTRING(@DT_DATE,7,2)

PRINT@S_YEAR + @S_MONTH+@S_DAY

END

--Add by Kangco 20070926

--年

IF(CHARINDEX('Y',@S_CODE_TYPE)=0)

BEGIN

SET @S_YEAR = ''

END

--月

IF(CHARINDEX('M',@S_CODE_TYPE)=0)

BEGIN

SET @S_MONTH = ''

END

--日

IF(CHARINDEX('D',@S_CODE_TYPE)=0)

BEGIN

SET @S_DAY = ''

END

--=============处理日期部分END============

--=============获取流水号数字部分的长度============

--PRINT @S_CODE_TYPE

--PRINT CHARINDEX('9',@S_CODE_TYPE)

--DECLARE @S_MAXID_NUM_LEN VARCHAR(10)

SET @I_OUTO_NUM_LEN =LEN(@S_CODE_TYPE) - CHARINDEX('9',@S_CODE_TYPE) -2 + 1

PRINT @I_OUTO_NUM_LEN

--=============获取流水号数字部分的长度END============

--=============获取最大ID号=================

--定义临时表

--CREATE TABLE #TEMPTBL(MAX_ID VARCHAR(100))

CREATE TABLE #TEMPTBL(IDENTITY_ID int IDENTITY(1,1),MAX_ID VARCHAR(100))

--SET @S_SQL = 'INSERTINTO #TEMPTBL SELECTMAX('+@S_OUTO_FIELD+') AS MAX_ID ' +' FROM '+@S_TABLE+''

SET @S_SQL = 'INSERTINTO #TEMPTBL SELECT'+@S_OUTO_FIELD+' AS MAX_ID ' +' FROM '+@S_TABLE+''

--PRINT @S_SQL

EXEC(@S_SQL)

--取自动流水号的最大值 Edit by Kangco 2007/09/12

SELECT TOP 1 @S_OUTO_VALUE_MAX = MAX_ID FROM#TEMPTBL ORDER BY IDENTITY_ID DESC

PRINT @S_OUTO_VALUE_MAX

DROP TABLE #TEMPTBL

--=============获取最大ID号end=================

--PRINT @S_OUTO_VALUE_MAX

--=============产生自动ID号=================

IF(@S_OUTO_VALUE_MAX <> '')--之前有产生流水号

BEGIN

DECLARE @S_LEN INT

DECLARE @S_PROCESS VARCHAR(200) -- 处理协助变量

SET @S_LEN = LEN(@S_OUTO_VALUE_MAX)

--PRINT @S_LEN

PRINT(SUBSTRING(@S_OUTO_VALUE_MAX,@S_LEN + 1-@I_OUTO_NUM_LEN,@I_OUTO_NUM_LEN))+1

--处理数字部分

SET @S_PROCESS = CONVERT(INT,'1' + (SUBSTRING(@S_OUTO_VALUE_MAX,@S_LEN + 1-@I_OUTO_NUM_LEN,@I_OUTO_NUM_LEN))) +1

SET @S_PROCESS = SUBSTRING(@S_PROCESS,2,LEN(@S_PROCESS)-1)

PRINT @S_CBCODE+ @S_YEAR + @S_MONTH+@S_DAY + @S_PROCESS

SELECT @S_CBCODE+ @S_YEAR + @S_MONTH+@S_DAY + @S_PROCESS AS OUTOID

END

ELSE --之前没有产生流水号

BEGIN

PRINT @S_CBCODE+ @S_YEAR + @S_MONTH+@S_DAY +SUBSTRING('000000000000',1,@I_OUTO_NUM_LEN)

SELECT@S_CBCODE+ @S_YEAR + @S_MONTH+@S_DAY +SUBSTRING('000000000000',1,@I_OUTO_NUM_LEN) AS OUTOID

END

RETURN