电脑桌面
添加蚂蚁七词文库到电脑桌面
安装后可以在桌面快捷访问

二开案例.表单插件.多选基础资料字段

来源:金蝶云社区作者:金蝶2024-09-236

二开案例.表单插件.多选基础资料字段

【应用场景】

在界面上显示并使用多选基础资料字段。



【案例演示】

采购订单,新增多选基础资料字段,简单演示其使用方法。



【实现步骤】

<1>编写表单插件,代码如下。

using Kingdee.BOS;
using Kingdee.BOS.App.Core;
using Kingdee.BOS.Core.DynamicForm.PlugIn;
using Kingdee.BOS.Core.DynamicForm.PlugIn.Args;
using Kingdee.BOS.Core.Metadata.FieldElement;
using Kingdee.BOS.Orm.DataEntity;
using Kingdee.BOS.ServiceHelper;
using Kingdee.BOS.Util;
using System;
using System.ComponentModel;
using System.Linq;
namespace Jac.XkDemo.BOS.Business.PlugIn
{
    /// <summary>
    /// 【表单插件】多选基础资料
    /// https://vip.kingdee.com/article/141576438863919104
    /// </summary>
    [Description("【表单插件】多选基础资料"), HotUpdate]
    public class MulBaseDataFieldFormPlugIn : AbstractDynamicFormPlugIn
    {
        public override void BarItemClick(BarItemClickEventArgs e)
        {
            base.BarItemClick(e);
            if (e.BarItemKey.EndsWith("tbModelSetValue", StringComparison.OrdinalIgnoreCase))
            {
                // 使用基础资料内码进行赋值
                var ids = new[] { "135764", "136446" };
                this.Model.SetValue("F_Jac_MulBase", ids, 0);
                return;
            }
            if (e.BarItemKey.EndsWith("tbFieldSetValue", StringComparison.OrdinalIgnoreCase))
            {
                // 使用基础资料内码进行赋值
                var ids = new object[] { "135793", "100209" };
                // 获取多选基础资料字段
                var field = this.View.Model.BillBusinessInfo.GetField("F_Jac_MulBase") as MulBaseDataField;
                if (field == null)
                {
                    return;
                }
                // 获取多选基础资料字段所在数据行
                var entityObj = this.Model.GetEntityDataObject(field.Entity, 0);
                FieldSetValue(this.Context, field, entityObj, ids);
                this.View.UpdateView("F_Jac_MulBase");
                return;
            }
            if (e.BarItemKey.EndsWith("tbDataObjectSetValue", StringComparison.OrdinalIgnoreCase))
            {
                // 使用基础资料内码进行赋值
                var ids = new object[] { "100211", "100212" };
                // 获取多选基础资料字段
                var field = this.View.Model.BillBusinessInfo.GetField("F_Jac_MulBase") as MulBaseDataField;
                if (field == null)
                {
                    return;
                }
                // 获取多选基础资料字段所在数据行
                var entityObj = this.Model.GetEntityDataObject(field.Entity, 0);
                DataObjectSetValue(this.Context, field, entityObj, ids);
                this.View.UpdateView("F_Jac_MulBase");
                return;
            }
        }
        /// <summary>
        /// 多选基础资料字段赋值(通过字段修改数据包)
        /// </summary>
        /// <param name="ctx">上下文</param>
        /// <param name="field">多选基础资料字段</param>
        /// <param name="entityObj">多选基础资料字段所在数据行</param>
        /// <param name="pkValues">多个基础资料的内码的集合</param>
        private void FieldSetValue(Context ctx, MulBaseDataField field, DynamicObject entityObj, object[] pkValues)
        {
            // 获取多选基础资料字段的数据包集合
            var mulBaseDataEntitySet = field.GetFieldValue(entityObj) as DynamicObjectCollection;
            //var mulBaseDataEntitySet = entityObj[field.PropertyName] as DynamicObjectCollection;
            if (mulBaseDataEntitySet == null)
            {
                mulBaseDataEntitySet = new DynamicObjectCollection(field.RefEntityDynamicObjectType, entityObj);
                field.RefEntityDynamicProperty.SetValue(entityObj, mulBaseDataEntitySet);
            }
            mulBaseDataEntitySet.Clear();
            // 从数据库读取指定的基础资料的数据包,并填充到当前多选基础资料字段的数据包集合中
            var baseDataObjects = BusinessDataServiceHelper.LoadFromCache(ctx, pkValues, field.RefFormDynamicObjectType);
            foreach (var baseDataObject in baseDataObjects)
   

二开案例.表单插件.多选基础资料字段

【应用场景】在界面上显示并使用多选基础资料字段。【案例演示】采购订单,新增多选基础资料字段,简单演示其使用方法。【实现步骤】<1>编...
点击下载文档文档为doc格式

声明:除非特别标注,否则均为本站原创文章,转载时请以链接形式注明文章出处。如若本站内容侵犯了原著者的合法权益,可联系本站删除。

已经是第一篇
确认删除?
回到顶部
客服QQ
  • 客服QQ点击这里给我发消息
QQ群
  • 答案:my7c点击这里加入QQ群
支持邮箱
微信
  • 微信