用存储过程生成单据号

http://blog.youkuaiyun.com/mengyao/archive/2007/02/17/1511359.aspx

　　大多数的单据都需要有个单据号。有的单据号就是顺序编号如：000001，000002……。有的单据号是有一定意义的，如我遇见过的一个需求：单据号共12位，1位帐套号（区分使用单位的），1位单据标识号（表示该单是什么单，如：E表示订货单，X表示销售单），2位年号（05表示2005年），2位月号，2位日号，4位编号（按当天的顺序，最大9999，超过9999的就用9999表示）
JE0505070001就表示某某单位2005年5月7日的第一单订货单。用编程实现这个要求当然不算太难，不过要将单据号生成方法放到存储过程中去就要费点心思了。

下面就以插入订单为例，其中有一段代码是可提取到一个单独的存储存储过程中的，这样可增加通用性。

- 插入客户订单
CREATE   PROCEDURE  InsertOrder
(
     @CustomerId   int ,
     @MX   nvarchar ( 4000 ),
     @Incom   smallint
)

AS

SET  NOCOUNT  ON

-- 这一个部分还可单独提取到一个存储过程中通过传入“单据标识号”和“单据表名”为参数---------------------------------------

-- 找帐套字头号
DECLARE   @IH   char ( 1 )
SELECT   @IH   =   LEFT (IncID, 1 )  FROM  accounts  WHERE  ID  =   @Incom

-- 编号年月部分
DECLARE   @YM   char ( 6 )
SET   @YM   =   CONVERT ( char ( 6 ), GETDATE (), 12 )
-- 单据字头
DECLARE   @DJHH   char ( 8 )
SET   @DJHH   =   @IH   +   ' E '   +   @YM


-- 找编号的基值（方法：用当天的编号到排序取最大的一个。如当前最大编号为0001那么它的基值为1，这样就能得出下个编号为0002）
DECLARE   @MNO   INT          -- 当天最大的单据号(数值)
SET   @MNO   =   1
select   TOP   1   @MNO   =   CONVERT ( int , RIGHT (DJH, 4 )) + 1   from  Orders  where   left (DJH, 8 )  =   @DJHH   and  incom  =   @Incom  Orders  by  DJH  desc


DECLARE   @DJH   char ( 12 )

-- 扩充成4位十进制编号(最大可显示9999)
IF   @MNO   <   9999
   IF   @MNO   <   999
     IF   @MNO   <   99
       IF   @MNO   <   9
         SET   @DJH   =   @DJHH   +   ' 000 '   +   CONVERT ( char ( 1 ), @MNO )
       ELSE
         SET   @DJH   =   @DJHH   +   ' 00 '   +   CONVERT ( char ( 2 ), @MNO )
     ELSE
       SET   @DJH   =   @DJHH   +   ' 0 '   +   CONVERT ( char ( 3 ), @MNO )
   ELSE
     SET   @DJH   =   @DJHH   +   CONVERT ( char ( 4 ), @MNO )
ELSE
   SET   @DJH   =   @DJHH   +   ' 9999 '


-- --（可提取的部分结束）------------------------------------------------------------------------------------------------------
 
-- 插入订单
INSERT   INTO  Orders (DJH, CustomerId, MX, InCom)  VALUES  ( @DJH ,  @CustomerId ,  @MX ,  @Incom )

RETURN
GO