sql生成单据

 

/****
  单据去号之用。@sCharater表示单据号码的特性编号，@sBranchNo代表机构编号，  @sFunc_Name为该作业显示的名称，
  @sSheet_No为返回的单据号码。
  本过程系以xt_bmqh为单据号码的中心,以此找出符合条件的作大数号码加一或取新的从一开始的单号.
****/
CREATE procedure spGet_Sheet_No(
@sCharater VarChar(5),
@sBranchNo varChar(4),
@sFunc_Name VarChar(40),
@sSheet_No VarChar(15) output
)

as
set transaction isolation level serializable

declare @sDate Char(10)
declare @sCharaterStr VarChar(10)
declare @sNum VarChar(15)
declare @sTemp VarChar(10)
declare @iRecord int

set @iRecord=0
set @sDate=cast(getdate() as Char(10))
set @sTemp=substring(@sDate,4,2)
if (substring(@sTemp,1,1)='')
set @sTemp='0'+substring(@sTemp,2,1)

set @sCharaterStr=@sCharater+@sBranchNo+substring(@sDate,9,2)+substring(@sDate,1,2)+@sTemp

select @sNum=Max(kp_sheet_no) from xt_bmqh where kp_sheet_no like @sCharaterStr+'%'

if not (@sNum is null)
begin
  set @sTemp=substring(@sNum,11,len(@sNum)-10)
  set @sTemp=cast(@sTemp as int)+1
 
  while not len(@sTemp)=4
    set @sTemp='0'+@sTemp

  set @sNum=@sCharaterStr+@sTemp 
end
else if @@RowCount=0
  set @sNum=@sCharaterStr+'0001'

insert xt_bmqh(kp_sheet_no,kp_func_name,kp_work_Date) values(@sNum,@sFunc_Name,GetDate())

set @sSheet_No=@sNum

GO