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' And FFieldName like 'FMultiCheckLevel2'
Update ICTemplate Set FVisForBillType = 31 Where FID = 'A01' And FFieldName like 'FMultiCheckDate2'
--采购入库显示二级审核人和审核日期
Update ICTemplate Set FVisForBillType = 31 Where FID = 'A01' And FFieldName like 'FMultiCheckLevel3'
Update ICTemplate Set FVisForBillType = 31 Where FID = 'A01' And FFieldName like 'FMultiCheckDate3'
--采购入库显示三级审核人和审核日期
---以下字段需要写个执行文件或触发器,实在不会你保存成.SQL文件每次审核授权后到系统管理执行命令
Delete From t_MultiLevelCheck Where FBillType = 1
insert into t_MultiLevelCheck (FBillType, FCheckLevel, FCheckMan) select 1,1,FUserID from t_AccessControl where fobjecttype=80000
insert into t_MultiLevelCheck (FBillType, FCheckLevel, FCheckMan) select 1,2,FUserID from t_AccessControl where fobjecttype=80001
insert into t_MultiLevelCheck (FBillType, FCheckLevel, FCheckMan) select 1,3,FUserID from t_AccessControl where fobjecttype=80002
--设置采购入库一二三级审核人 (需要先在权限高级里增加授权)
insert into t_MultiLevelCheck (FBillType, FCheckLevel, FCheckMan) select 1,1,FUserID from t_User where FName='manager'
insert into t_MultiLevelCheck (FBillType, FCheckLevel, FCheckMan) select 1,2,FUserID from t_User where FName='manager'
insert into t_MultiLevelCheck (FBillType, FCheckLevel, FCheckMan) select 1,3,FUserID from t_User where FName='manager'
--设置管理员manager采购入库一二三级审核人
GO
请问采购入库单取消了多级审核,但入库单上还有显示,如何删除这个显示呢
测试通过,那请问单据序时簿中如何显示审核人及审核日期
高手啊 ,已经测试通过
KIS专业版多级审核
本文2024-09-16 19:40:21发表“kis知识”栏目。
本文链接:https://wenku.my7c.com/article/kingdee-kis-30149.html