获取流水号

 

 

 

 

 

/*

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_FIELD varchar(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 = 'INSERT INTO #TEMPTBL SELECT MAX('+@S_OUTO_FIELD+') AS MAX_ID ' +' FROM '+@S_TABLE+''

SET @S_SQL = 'INSERT INTO #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