通过二开实现单据上显示附件列表的附件
【应用场景】
在选项下上传的附件,想要在单据列表可以直接看到上传的附件名称。
【案例演示】
币别单据可以直接在列表上看到上传的附件名称。
【实现步骤】
<1>编写列表插件,代码如下。
using Kingdee.BOS; using Kingdee.BOS.App.Data; using Kingdee.BOS.Core.Bill; using Kingdee.BOS.Core.DynamicForm.PlugIn.Args; using Kingdee.BOS.Core.List; using Kingdee.BOS.Core.List.PlugIn; using Kingdee.BOS.Core.Metadata.FormElement; using Kingdee.BOS.Util; using System; using System.Collections.Generic; using System.ComponentModel; namespace DemoPlugin { /// <summary> /// 【表单插件】暂存操作后刷新字段 /// </summary> [Description("修改附件列表时,同步更新单据的附件名"), HotUpdate] public class ShowAttachmentName : AbstractListPlugIn { public override void AfterDoOperation(AfterDoOperationEventArgs e) { base.AfterDoOperation(e); if (e.Operation.OperationId == FormOperation.Operation_Close) { var relateView = this.View.ParentFormView; if (relateView == null) { return; } object billFid; if (relateView is IBillView) { billFid = relateView.Model.DataObject[0]; } else if (relateView is IListView) { var currRow = (relateView as IListView).CurrentSelectedRowInfo; if (currRow == null) { return; } billFid = currRow.PrimaryKeyValue; } else { return; } // 用于显示附件文件名的字段标识 string nameFieldKey = "FAttachmentFileNames"; var form = relateView.BillBusinessInfo.GetForm(); var nameField = relateView.BillBusinessInfo.GetField(nameFieldKey); if (form == null || nameField == null) { return; } bool preStatus = relateView.Model.DataChanged; var sql = "select FATTACHMENTNAME from T_BAS_Attachment where FBILLTYPE=@FBILLTYPE and FINTERID=@FINTERID"; var paramList = new List<SqlParam> { new SqlParam("@FBILLTYPE", KDDbType.AnsiString, form.Id), new SqlParam("@FINTERID", KDDbType.AnsiString, billFid), }; var attachmentNames = new List<string>(); using (var dr = DBUtils.ExecuteReader(this.Context, sql, paramList)) { while (dr.Read()) { attachmentNames.Add(dr.GetValue<string>(0)); } } // 将从数据库中找到的多个附件文件名处理成界面上要显示的内容 string namesForShow = string.Join("|", attachmentNames); var updateSql = string.Format("update {0} set {1}=@FieldValue where {2}=@EntryPkFieldValue", nameField.TableName, nameField.FieldName, nameField.Entity.EntryPkFieldName); var updateParams = new List<SqlParam> { new SqlParam("@FieldValue", KDDbType.AnsiString, namesForShow), new SqlParam("@EntryPkFieldValue", KDDbType.AnsiString, billFid), }; var count = DBUtils.Execute(this.Context, updateSql, updateParams); if (relateView is IBillView) { relateView.Model.SetValue(nameFieldKey, namesForShow); } if (!preStatus) { relateView.Model.DataChanged = false; } } /* sql server 单据附件名更新 sql 如下 T_BD_CURRENCY:单据头表名 FCURRENCYID:单据头表的主键名 FAttachmentFileNames:单据头中用来保存附件名的字段名 MERGE INTO T_BD_CURRENCY a using(select FBILLTYPE,FINTERID,FileNames= stuff((SELECT '|' + FATTACHMENTNAME FROM T_BAS_Attachment WHERE FBILLTYPE=A.FBILLTYPE AND FINTERID=A.FINTERID and FATTACHMENTNAME <> '' FOR XML path('')),1,1,'') from T_BAS_Attachment A GROUP BY FBILLTYPE,FINTERID HAVING A.FBILLTYPE='BD_Currency') b ON (a.FCURRENCYID = b.finterid) WHEN MATCHED THEN UPDATE SET FAttachmentFileNames=b.FileNames; */ } } }
<2>拷贝插件组件dll到应用站点的WebSite\Bin目录下,重启IIS。
<3>BOSIDE扩展币别单据,在单据头新增文本字段,标识、字段名、绑定实体属性都设为FAttachmentFileNames,编辑长度适当调长,以免文件名太长存不下;
保存元数据。
<4>BOSIDE扩展附件明细(BOS_Attachment)单据,注册列表插件
【功能验证】
<1>登录业务站点,打开币别列表,选择一条数据上传附件,关闭附件列表后刷新数据
【旧数据升级】
按照上面的操作做完后,需要打开并关闭附件列表后,才能直接在单据上看到附件的文件名。
当然针对这种情况也有解决办法,对于 sql server 数据库,可以使用下面的脚本更新单据中附件名的值。
-- T_BD_CURRENCY:单据头表名 -- FCURRENCYID:单据头表的主键名 -- FAttachmentFileNames:单据头中用来保存附件名的字段名 MERGE INTO T_BD_CURRENCY a using(select FBILLTYPE,FINTERID,FileNames = stuff((SELECT '|' + FATTACHMENTNAME FROM T_BAS_Attachment WHERE FBILLTYPE=A.FBILLTYPE AND FINTERID=A.FINTERID and FATTACHMENTNAME <> '' FOR XML path('')),1,1,'') from T_BAS_Attachment A GROUP BY FBILLTYPE,FINTERID HAVING A.FBILLTYPE='BD_Currency') b ON (a.FCURRENCYID = b.finterid) WHEN MATCHED THEN UPDATE SET FAttachmentFileNames=b.FileNames;
通过二开实现单据上显示附件列表的附件
【应用场景】在选项下上传的附件,想要在单据列表可以直接看到上传的附件名称。【案例演示】币别单据可以直接在列表上看到上传的附件名称。...
点击下载文档
本文2024-09-16 18:31:27发表“云星空知识”栏目。
本文链接:https://wenku.my7c.com/article/kingdee-k3cloud-22695.html
您需要登录后才可以发表评论, 登录登录 或者 注册
最新文档
热门文章