按规则自动生成单据编号 以及并发问题

--有两张表，客户表和项目表，要求：新建项目时自动生成项目编号，每个不同的客户的项目的编号从1开始
--项目编号格式为PJ+"-"+"客户编号"+"-"+"日期"+"-"+"流水号"

create table TestAccount --创建测试客户表
(
 ClientNum nvarchar(32), --客户编号
 ClientName varchar(100) --客户姓名
)

create table TestProject --创建测试项目表
(
 ProID int primary key identity(1,1),
 ProNum nvarchar(32), --项目编号
 ProName nvarchar(100), --项目名称
 ClientNum nvarchar(100), --客户编号
)

create trigger T_AutoNumber
on TestProject after insert
as
	begin
		declare @one nvarchar(8), --PJ
				@two nvarchar(32), --客户编号
				@three nvarchar(8), --日期
				@four int,  --流水号
				@id int --ID
				
		set @one=‘PJ‘
		set @three=CONVERT(varchar(8),GETDATE(),112)
		--从inserted副本表里获取当前数据插入
		select @two=ClientNum,@id=ProID from inserted
		--获取编号最后4位
		select @four=MAX(CAST(right(ProNum,4) as int)) from TestProject where ClientNum=@two
		--对每个新客户的流水号都是从1开始，已存在客户为最大流水号加1
		if @four is null
			set @four=0
		else
			set @four=CAST(@four as int)
		set @four=@four+1
		
		update TestProject set ProNum=@one+‘-‘+@two+‘-‘+@three+‘-‘+RIGHT(‘0000‘+CAST(@four as varchar),4) where ProID=@id
	end
	go
	
	--生成测试表数据
	insert into TestAccount values(‘小小鸭‘,‘XXY‘)
	insert into TestAccount values(‘丑小鸭‘,‘CXY‘)
	
	insert into TestProject(ProName,ClientNum) values(‘小小鸭游泳项目‘,‘XXY‘)
	insert into TestProject(ProName,ClientNum) values(‘小小鸭成长项目‘,‘XXY‘)
	insert into TestProject(ProName,ClientNum) values(‘丑小鸭造型项目‘,‘CXY‘)
	insert into TestProject(ProName,ClientNum) values(‘小小鸭游泳项目‘,‘XXY‘)
	insert into TestProject(ProName,ClientNum) values(‘小小鸭成长项目‘,‘XXY‘)
	insert into TestProject(ProName,ClientNum) values(‘丑小鸭造型项目‘,‘CXY‘)
	

　　--订单编号自动编号:固定码+日期+流水号

  　　 create table salesOrder
  　　(
　　　　id int primary key identity(1,1),
　　　　orderno varchar(50),
　　　　goods varchar(50),
　　　　qty int
  　　)

　　　　　CREATE trigger [dbo].[T_AutoNumByOrder]
	on [dbo].[salesOrder] after insert 
	as
		begin 
			declare @one varchar(10), --固定编号
					@two varchar(32), --日期
				    @three int, --流水号
				    @id int --id
			
			set @one=‘ABCD‘
			set @two=right(CONVERT(varchar(8),GETDATE(),112),6)
		
		    --当天没有记录的从1开始
			select @three=MAX(CAST(right(orderno,4) as int)) from salesOrder where  substring(orderno,5,6)=right(CONVERT(varchar(8),GETDATE(),112),6)
			if not exists (select top 1 id from salesOrder where substring(orderno,5,6)=right(CONVERT(varchar(8),GETDATE(),112),6))
				set @three=0
			else 
				set @three=CAST(@three as int)
				set @three=@three+1

			--从inserted表获得主键的自动编号
			select @id=id from inserted
			
			update salesOrder set orderno=@one+@two++RIGHT(‘0000‘+CAST(@three as varchar),4) where id=@id
		end

--创建表
		create table CostBill
		(
			BillID int primary key identity(1,1),
			CostBillNo nvarchar(50),
			Client nvarchar(50),
			Goods nvarchar(50),
			QTY int
		)
		
--创建函数
		create function GetCostBillNo(
			@headStr nvarchar(10), --固定码
			@date datetime)  --日期
			returns nvarchar(50)
		begin					
			declare @oid2 nvarchar(50),  --单据编号,临时值
					@oid nvarchar(50),  --单据编号,返回值
					@month nvarchar(2), --月
					@year nvarchar(2),  --年
					@ym nvarchar(4)   --年月
	
			set @month=MONTH(@date)   --月
			if LEN(@month)=1          --如果月只有一位
				set @month=‘0‘+@month --使月为2位长
			set @year=RIGHT(CONVERT(nvarchar,year(@date)),2)  --取年的后两位
			set @ym=@year+@month --组成年月字符

			--格式CB16030001
			if exists(select * from CostBill)  --如果CostBill有数据
				begin
					select top 1 @oid2=CostBillNo from CostBill order by BillID desc
				end
			 else
				begin 
					 set @oid2=@headStr+@ym+‘0000‘   --没有数据,单号流水号归0
				end
	
			if CONVERT(nvarchar,LEFT(@oid2,6))<>@headStr+@ym
				begin 
					set @oid2=@headStr+@ym+‘0000‘
				end

			declare @str nvarchar(50) 
			  
			set @str=convert(nvarchar,(convert(int,right(@oid2,4))+1)) --订单号加一
			while (4-len(@str)>0)
				begin
					 set @str=‘0‘+@str    
				end
				set @oid2=@headStr+@ym+@str

			while exists(select * from CostBill where CostBillNO=@oid2)  --如果存在该订单号
			begin
				set @str=convert(nvarchar,(convert(int,right(@oid2,4))+1)) --订单号加一
				while (4-len(@str)>0)
				begin
					 set @str=‘0‘+@str    
				end
				set @oid2=@headStr+@ym+@str
			--print @oid2
			end

			set @oid=convert(nvarchar,@oid2)
			--print ‘HP‘+convert(nvarchar,year(getdate()))+convert(nvarchar,month(getdate()))+@str

			RETURN @oid
		END

--测试数据
insert into CostBill(CostBillNo,Client,Goods,QTY) values (dbo.GetCostBillNo(‘VISO‘,‘2016-04-01‘),‘C001‘,‘G001‘,100)