Microsoft Dynamics CRM4.0 创建单据的时候，自动生成单据编号的通用方法

一、新建两个实体，具体如下：

单据流水号(new_maxbillcode)
显示名称	名称	类型	格式	最大长度	需求级别	IME模式	备注
名称	new_name	nvarchar	文本	100	业务必需的	自动	系统自带
标记	new_billmark	nvarchar	文本	100	无约束	自动
实体	new_entity	nvarchar	文本	100	无约束	自动
年	new_year	nvarchar	文本	100	无约束	自动
月	new_month	nvarchar	文本	100	无约束	自动
日	new_day	nvarchar	文本	100	无约束	自动
位数	new_places	int	无
流水号	new_maxcode	int	无

测试(new_test)
显示名称	名称	类型	格式	最大长度	需求级别	IME模式	备注
名称	new_name	nvarchar	文本	100	业务必需的	自动	系统自带

二、在单据流水号实体上添加配置规则，具体如下图：

三、创建存储过程 [dbo].[UP_GetMaxBillCode]

 /*--------------------------------------------------------------------------------------------------------
 Memo 获取单据最大号        

 DECLARE @BillMark VARCHAR(20)
 DECLARE @BillCode VARCHAR(50)
 SET @BillMark='NEW'
 EXEC UP_GetMaxBillCode @BillMark,@BillCode OUTPUT
 SELECT BillMark=@BillMark,BillCode=@BillCode        

 SELECT * FROM NEW_MaxBillCodeExtensionBase
 --------------------------------------------------------------------------------------------------------*/
 CREATE PROC [dbo].[UP_GetMaxBillCode]
 @Entity VARCHAR(50),
 @BillCode VARCHAR(50) OUTPUT
 AS
 SET NOCOUNT ON
 DECLARE @MaxCode VARCHAR(20)
 DECLARE @Version ROWVERSION
 DECLARE @Times INT        

 SELECT @MaxCode=NEW_MaxCode+1,@Version=[Version]
 FROM NEW_MaxBillCodeExtensionBase
 WHERE NEW_Entity=@Entity        

 UPDATE NEW_MaxBillCodeExtensionBase SET NEW_MaxCode=NEW_MaxCode+1
 WHERE NEW_Entity=@Entity
 AND [Version]=@Version        

 WHILE @@ROWCOUNT=0
 BEGIN
  SET @Times=@Times+1
  IF(@Times%100=0)
  BEGIN
   WAITFOR DELAY '00:00:01'
   IF(@Times>500)
   BEGIN
    RETURN NULL
   END
  END        

  SELECT @MaxCode=NEW_MaxCode+1,@Version=[Version]
  FROM NEW_MaxBillCodeExtensionBase
  WHERE NEW_Entity=@Entity        

  UPDATE NEW_MaxBillCodeExtensionBase SET NEW_MaxCode=NEW_MaxCode+1
  WHERE NEW_Entity=@Entity
  AND [Version]=@Version
 END        

 SELECT @BillCode=ISNULL(NEW_BillMark,'')+ISNULL(NEW_Year,'')+ISNULL(NEW_Month,'')+ISNULL(NEW_Day,'')+RIGHT(CONVERT(VARCHAR,@MaxCode),NEW_places)
 FROM NEW_MaxBillCodeExtensionBase
 WHERE NEW_Entity=@Entity 

四、创建测试实体的触发器

 --创建测试实体的触发器
 CREATE Trigger [dbo].[Company_Insert_new_test]
 ON [dbo].[new_testExtensionBase]
 AFTER INSERT
 AS
 BEGIN
  SET NOCOUNT ON
  IF EXISTS(SELECT * FROM INSERTED WHERE new_name IS NULL)
  BEGIN
   DECLARE @BillCode VARCHAR(50)
   EXEC UP_GetMaxBillCode 'new_test',@BillCode OUTPUT
   UPDATE new_testExtensionBase SET new_name=@BillCode
   WHERE new_testid IN (SELECT new_testid FROM INSERTED)
  END
 END

五、新建一个测试实体记录，发现new_name自动生成如下：