金蝶KIS专业版启用多级审核SQL语句,启用多级审核工具。

[全站通告] 想快速节省您的时间并可接受付费的朋友,可扫右边二维码加博主微信-非诚勿扰!

金蝶KIS专业版本身是没有自带多级审核的功能的,可以使用特殊工具启用多级审核,也可以使用下面的语句从而开启多级审核!

收费工具,需要工具加博主微信详细沟通,下面语句免费,语句仅专业人士使用,使用前备份账套!

金蝶用户在使用金蝶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采购入库一二三级审核人

注意:任何非正常使用可能导致数据变动,切记备份数据。

发表回复

加入本站VIP会员,海量资源免费查看下载

目前为止共有136位优秀的VIP会员加入! 立即加入!