KIS专业版多级审核

客户使用专业版，需要实现多级审核，经过几天努力，终于实现了，奉献给大家。下面是采购入库单为例子，

其他单据想授权到 ICTransType表里找到单据对应的FID和FTemplateID 修改语句 执行就行

UPDATE t_SystemProfile SET FVALUE=1 WHERE  FKey='ISUseMultiCheck'

--启用多级审核

Delete From t_MultiCheckOption Where FBillType = 1

insert into t_MultiCheckOption (FBillType, FOptionValue, FMultiCheckAmount, FCurrencyID, FCheckCtlLevel, FMaxCheckLevel) values (1,20,0,1,3,3)

--设置采购入库多级审核

delete from t_objecttype where fobjecttype>=80000 

delete from t_objectaccesstype where fobjecttype>=80000 

delete from t_objectaccess where FObjectType >= 80000 

insert into t_objecttype (fobjecttype,fobjectid,fname,fdescription)  Values (80000,0,'采购入库一级审核','采购入库一级审核')

Insert Into t_objectaccesstype (FObjectType,FObjectID,FIndex,FAccessMask,FAccessUse,FName,FDescription,FName_cht,FName_en,FDescription_cht,FDescription_en)  Values (80000,0,1,1,0,'一级审核','一级审核','','','','')

Insert Into t_objectaccess (FGroupID,FObjectType,FObjectID,FIndex) Values (80000,80000,0,1)

insert into t_objecttype (fobjecttype,fobjectid,fname,fdescription)  Values (80001,0,'采购入库二级审核','采购入库二级审核')

Insert Into t_objectaccesstype (FObjectType,FObjectID,FIndex,FAccessMask,FAccessUse,FName,FDescription,FName_cht,FName_en,FDescription_cht,FDescription_en)  Values (80001,0,1,1,0,'二级审核','二级审核','','','','')

Insert Into t_objectaccess (FGroupID,FObjectType,FObjectID,FIndex) Values (80001,80001,0,1)

insert into t_objecttype (fobjecttype,fobjectid,fname,fdescription)  Values (80002,0,'采购入库三级审核','采购入库三级审核')

Insert Into t_objectaccesstype (FObjectType,FObjectID,FIndex,FAccessMask,FAccessUse,FName,FDescription,FName_cht,FName_en,FDescription_cht,FDescription_en)  Values (80002,0,1,1,0,'三级审核','三级审核','','','','')

Insert Into t_objectaccess (FGroupID,FObjectType,FObjectID,FIndex) Values (80002,80002,0,1)

--权限高级里增加授权

Update ICTemplate Set FVisForBillType = 31  Where FID = 'A01' And FFieldName like 'FMultiCheckLevel1' 

Update ICTemplate Set FVisForBillType = 31   Where FID = 'A01' And FFieldName like 'FMultiCheckDate1'  

--采购入库显示一级审核人和审核日期

Update ICTemplate Set FVisForBillType = 31  Where FID = 'A01'