k3获取单据编号

alter Procedure txkj_GetBillNo
--单据编号获取存储过程
@ClassType Int,--单据类型id
@isSave int,--是否更新
@BillNo Varchar(200) OutPut,--输出编号
@DeptID Int = 0,
@EmpID Int = 0
As
--如果没有对应的单据编码规则，则返回空白
If Not Exists(Select 1 From t_BillCodeRule Where FBillTypeID = @ClassType)
Begin
Set @BillNo = ''
Goto H_End
End
Declare @ProjectID Int
Declare @ProjectVal varchar(100)
Declare @Length Int
Declare @table Varchar(100)
Declare @field Varchar(100)
Declare @Pre Varchar(100)
Declare @Pre2 Varchar(100)
Declare @Suf Varchar(100)
Declare @Suf2 Varchar(100)
Declare @Cur Varchar(100)
Declare @Next Varchar(100)
Declare @Len Int
Declare @Now Varchar(10)
Declare @year Varchar(4)
Declare @Month Varchar(2)
Declare @Day Varchar(2)
Declare @I Int
Declare @iLoc3 Int
Declare @ItemID Int
Declare @Item Varchar(100)
Declare @SSQL NVarchar(1000)
Select @Pre = '',@Pre2 = '',@Suf = '',@Suf2 = ''
--获得当前编号、下一个编号和编号长度
Select @Cur = FProjectVal,@Next = 1 + FProjectVal,@Len = FLength From t_BillCodeRule Where FBillTypeID = @ClassType And FProjectID = 3
--调整编号长度，并用0格式化当前编号和下一个编号，获得流水号（截止2008-11-12，K3编码规则中流水号一项必有且唯一）
If Len(