资产卡片使用分配自定义科目携带到折旧调整单

栏目：云星空知识作者：金蝶来源：金蝶云社区发布：2024-09-16浏览：1

需求实现说明：

2022.05补丁增加了一项新功能，支持资产卡片二开字段自动携带至盘点表、变更单、批量变更单、折旧调整单等单据，就以资产卡片折旧分配页签增加科目及核算维度，并携带到折旧调整单为例，简单进行测试。

增加自定义字段：

扩展单据“资产卡片”及单据“折旧调整单”，并分别在“资产卡片”的“使用分配”页签，以及“折旧调整单”的“折旧分配”页签增加“折旧费用科目”及“折旧科目核算维度”两个字段（如下仅截图资产卡片）：

折旧费用科目字段（类型：基础资料）：

折旧费用维度字段（类型：维度关联字段）：

配置字段自动携带设置：

在固定资产模块中找到“字段自动携带设置”（如果没有就先授权），新增一张配置并提交审核，具体内容如图，这里需要注意的是，匹配字段部分只允许一行，我也只设置了“折旧费用科目”的匹配，但实测核算维度会自动携带，不需要重复配置，如果重复配置，反而会导致折旧计提报错（这里走了一点弯路）。

验证结果：

下图是资产卡片的使用分配页签，上面设置了两个部门，并分别定义了折旧费用科目及核算维度：

下图是执行折旧计提后，自动生成的折旧调整单，可以看到，科目及核算维度均可自动携带：

楼主的配置方式很实用！！！！

做个补充实现

若启用了“多组织”“折旧费用科目”跟随“资产组织”的更改自动取“资产组织”对应的“会计科目”

通过插件的方式实现

1、

2、

3、插件内容直接复制即可【标识字段一定要对应好！！】

#引入clr运行库
import clr
#添加对cloud插件开发的常用组件的引用
clr.AddReference('System')
clr.AddReference('System.Data')
clr.AddReference('Kingdee.BOS')
clr.AddReference('Kingdee.BOS.DataEntity')
clr.AddReference('Kingdee.BOS.Core')
clr.AddReference('Kingdee.BOS.App')
clr.AddReference('Kingdee.BOS.App.Core')
clr.AddReference('Kingdee.BOS.ServiceHelper')
#导入cloud基础库中的常用实体对象（分命名空间导入，不会递归导入）
from Kingdee.BOS import *
from Kingdee.BOS.Core import *
from Kingdee.BOS.Core.DependencyRules import *
from Kingdee.BOS.Core.Bill import *
from Kingdee.BOS.Core.DynamicForm.PlugIn import *
from Kingdee.BOS.Core.DynamicForm.PlugIn.ControlModel import *
from System import *
from System.Data import *
from Kingdee.BOS.App.Data import *
from System.Collections.Generic import List
from Kingdee.BOS.ServiceHelper import *
from Kingdee.BOS.Core.DynamicForm import *
from Kingdee.BOS.Core.Metadata.EntityElement import *
from Kingdee.BOS.Core.Metadata.FieldElement import *
from Kingdee.BOS.Orm.DataEntity import *

#资料字段选择前事件,通俗来讲：就是放大镜点击弹出选择列表前触发的事件
#用途1:此用法最多，就是对弹出的选择列表进行动态过滤，控制数据选择范围
#用途2:控制资料字段录入顺序,例如,可以控制没选供应商，就不能选物料，并弹出提示!
#用途3:非资料类型字段，启用编辑按钮(3个点...)，点击时触发
def BeforeF7Select(e):
    #可以从事件参数中读取的信息
    fldKey=e.FieldKey.ToUpperInvariant();#触发的字段标识大写
    baseFormId=e.FormId;#资料字段的具体资料类型,例如物料，就是BD_Material
    #通过修改事件参数中的信息,可以实现的功能,一定要判断字段标识
    if(fldKey=="F_QDQE_BASE_TZK"):
        xmObj=this.View.Model.GetValue("FAssetOrgID");#使用字段标识,获取项目
        if(xmObj==None):
            this.View.ShowWarnningMessage("请先选择资产组织");
            e.Cancel=True;#取消弹出选择列表
            return;#跳出事件方法
        xmId=xmObj["Id"];
        #msg=("fldKey:{0}   baseFormId:{1}  row:{2}  xmNumber:{3} ").format(fldKey,baseFormId,row,xmNumber);
        myFilterStr = (" FUseOrgId In ({0}) ").format(xmId);
        #this.View.ShowMessage(myFilterStr);
        e.ListFilterParameter.Filter=myFilterStr;#