--内部变量声明 declare @recnum integer, @rowcount integer set @recnum=0 /*非事务内容执行*/
--每一过程拥有一唯一区界号,过程内的异常编号在此基础上增加 declare @errcode integer set @errcode=1800 declare @return integer set @return=0
--启动事务处理 declare @tran_point int --控制事务嵌套 set @tran_point=@@trancount --保存事务点 if @tran_point=0 begin tran tran_SOF_getmaxbh else save tran tran_SOF_getmaxbh
if @addflag=1 or @addflag=3 begin update maxbh set @recnum=recnum=recnum+1 where biaoshi=@biaoshi set @rowcount=@@rowcount if @@error<>0 begin set @return=1 goto err_lab end end else begin select @recnum=recnum from maxbh(nolock) where biaoshi=@biaoshi end
if @rowcount=0 begin set @recnum=0 insert into maxbh (biaoshi,maxbh,mkbh,recnum) values (@biaoshi,'','',@recnum) end
--返回结果 declare @s_recnum varchar(11) set @s_recnum=LTRIM(str(@recnum))
if @addflag>1 set @maxbh=@biaoshi+ REPLICATE('0',11-len(@biaoshi)-len(@s_recnum))+@s_recnum else select @biaoshi+ REPLICATE('0',11-len(@biaoshi)-len(@s_recnum))+@s_recnum as recnum
--结束事务处理 if @tran_point=0 commit tran tran_SOF_getmaxbh goto return_lab err_lab: if @return<100 set @return=@errcode +@return rollback tran tran_SOF_getmaxbh return_lab: return @return
ALTER PROCEDURE SOF_getmaxbh
@biaoshi varchar(3), --单据类型标识
@addflag integer, --0,1 在前台使用;2 组成一个号返回,序号不加1(结转号),3 序号加 1 返回(单据编号);
@maxbh varchar(11)=NULL output --直接返回编号
AS
/***************************************************************/
--过程主题:获得单据编号 errorID=1800
/***************************************************************/
--内部变量声明
declare @recnum integer,
@rowcount integer
set @recnum=0
/*非事务内容执行*/
--每一过程拥有一唯一区界号,过程内的异常编号在此基础上增加
declare @errcode integer
set @errcode=1800
declare @return integer
set @return=0
--启动事务处理
declare @tran_point int --控制事务嵌套
set @tran_point=@@trancount --保存事务点
if @tran_point=0
begin tran tran_SOF_getmaxbh
else
save tran tran_SOF_getmaxbh
if @addflag=1 or @addflag=3
begin
update maxbh set @recnum=recnum=recnum+1 where biaoshi=@biaoshi
set @rowcount=@@rowcount
if @@error<>0
begin
set @return=1
goto err_lab
end
end
else
begin
select @recnum=recnum from maxbh(nolock) where biaoshi=@biaoshi
end
if @rowcount=0
begin
set @recnum=0
insert into maxbh (biaoshi,maxbh,mkbh,recnum) values (@biaoshi,'','',@recnum)
end
--返回结果
declare @s_recnum varchar(11)
set @s_recnum=LTRIM(str(@recnum))
if @addflag>1
set @maxbh=@biaoshi+ REPLICATE('0',11-len(@biaoshi)-len(@s_recnum))+@s_recnum
else
select @biaoshi+ REPLICATE('0',11-len(@biaoshi)-len(@s_recnum))+@s_recnum as recnum
--结束事务处理
if @tran_point=0
commit tran tran_SOF_getmaxbh
goto return_lab
err_lab:
if @return<100 set @return=@errcode +@return
rollback tran tran_SOF_getmaxbh
return_lab:
return @return