二开案例.列表插件.列表单元格打开超链接

【应用场景】列表表格单元格中的文本内容是网址，将其显示成超链接样式，且在点击单元格时，直接打开默认浏览器，跳转到指定链接。

【案例演示】采购订单，明细信息单据体，添加基础资料属性字段【淘宝链接】，引用物料的某个文本字段（该字段存放的是网址），打开采购订单列表时，将【淘宝链接】字段显示成超链接样式，且点击链接时直接打开默认浏览器，跳转到指定链接。

参考案例：https://vip.kingdee.com/article/119516731957088000

【实现步骤】

<1>编写列表插件，代码如下。

using Kingdee.BOS.Core.DynamicForm.PlugIn.Args;

using Kingdee.BOS.Core.List.PlugIn;

using Kingdee.BOS.Orm.DataEntity;

using Kingdee.BOS.Util;

using System;

using System.ComponentModel;

using System.Linq;

namespace Jac.XkDemo.BOS.Business.PlugIn

{

    /// <summary>

    /// 【列表插件】列表单元格打开超链接

    /// </summary>

    [Description("【列表插件】列表单元格打开超链接"), HotUpdate]

    public class ClickGridCellAndOpenUrlListPlugIn : AbstractListPlugIn

    {

        public override void EntryButtonCellClick(EntryButtonCellClickEventArgs e)

        {

            base.EntryButtonCellClick(e);

            //

            if (e.Row < 0)

            {

                return;

            }

            if (!e.FieldKey.EqualsIgnoreCase("F_Jac_BaseProperty"))

            {

                return;

            }

            var rowData = this.ListView.CurrentPageRowsInfo.FirstOrDefault(row => row.RowKey == e.Row);

            if (rowData == null)

            {

                return;

            }

            var material = rowData.DataRow["FMaterialId_Ref"] as DynamicObject;

            if (material == null || material["F_Jac_Text"] == null)

            {

                return;

            }

            // 生成Url地址

            var url = material["F_Jac_Text"].ToString();

            if (String.IsNullOrWhiteSpace(url))

            {

                // 超链接不存在

                return;

            }

            // 方式一：直接打开Url地址

            this.View.AddAction("ShowWebURL", url);

            // 方式二：弹窗打开Url地址

            //var webobj = new JSONObject();

            //webobj["source"] = url;

            //webobj["height"] = 600;

            //webobj["width"] = 800;

            //webobj["isweb"] = true; // true弹窗默认浏览器，false弹窗动态表单外壳

            //webobj["title"] = "百度一下";

            //this.View.AddAction("ShowKDWebbrowseForm", webobj);

            //this.View.SendDynamicFormAction(this.View);

        }

    }

}

<2>拷贝插件组件到应用站点的WebSite\Bin目录下，重启IIS。

<3>BOSIDE扩展采购订单，注册列表插件，保存元数据，开发完毕。

如果使用Python插件