用存储过程生成单据号

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

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

-插入客户订单
CREATEPROCEDUREInsertOrder
(
@CustomerIdint,
@MXnvarchar(4000),
@Incomsmallint
)

AS

SETNOCOUNTON

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

--找帐套字头号
DECLARE@IHchar(1)
SELECT@IH=LEFT(IncID,1)FROMaccountsWHEREID=@Incom

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


--找编号的基值（方法：用当天的编号到排序取最大的一个。如当前最大编号为0001那么它的基值为1，这样就能得出下个编号为0002）
DECLARE@MNOINT--当天最大的单据号(数值)
SET@MNO=1
selectTOP1@MNO=CONVERT(int,RIGHT(DJH,4))+1fromOrderswhereleft(DJH,8)=@DJHHandincom=@IncomOrdersbyDJHdesc


DECLARE@DJHchar(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'


----（可提取的部分结束）------------------------------------------------------------------------------------------------------

--插入订单
INSERTINTOOrders(DJH,CustomerId,MX,InCom)VALUES(@DJH,@CustomerId,@MX,@Incom)

RETURN
GO