Posted on 2008-04-15 22:23
一味 阅读(58)
评论(0) 编辑 收藏 网摘 所属分类:
金蝶K3相关
Create Proc GetICBillNo
@billtype int,
@isuse bit,
@billno varchar(100) out
as
set @billno=''
select a.*,isnull(b.ftable,'') as ftable,isnull(e.ffieldname,'') as FieldName
into #tmp
from t_billcoderule a
left join t_option e on a.fprojectid=e.fprojectid and a.fformatindex=e.fid
Left OUter join t_checkproject b on a.fbilltype=b.fbilltypeid and a.fprojectval=b.ffield
where a.fbilltypeid = @billtype order by a.FClassIndex
declare @pid int,@pval varchar(20),@length int,@format varchar(20)
DECLARE cc CURSOR FOR
SELECT FProjectID, FProjectVal, FLength,FFormatIndex
FROM #tmp
ORDER BY FClassIndex
OPEN cc
FETCH NEXT FROM cc
INTO @pid,@pval,@length,@format
WHILE @@FETCH_STATUS = 0
BEGIN
if(@pid=1)
begin
set @billno=@billno+@pval
end
else if(@pid=3)
begin
declare @v varchar(100)
set @v='00000000000000000000000000000000000000000000000000000000'
set @billno=@billno+left(@v,@length-len(@pval))+@pval
end
FETCH NEXT FROM cc
INTO @pid,@pval,@length,@format
END
CLOSE cc
DEALLOCATE cc
if(@isuse=1)
Update t_billcoderule set FProjectVal=Cast(FProjectVal as int)+1 where fbilltypeid = @billtype and FProjectID=3
select @billno
GO
declare @no varchar(100)
Exec GetICBillNo 80,0,@no out
print @no