单据内实现套打所选分录

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

单据内实现套打所选分录

【应用场景】

目前仅列表支持套打所选分录，本帖指导通过二开表单插件实现单据或基础资料内套打所选分录

【注意事项】

该实现方案涉及到二开表单插件

【实现步骤】

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

        public override void OnPrepareNotePrintQueryParam(PrepareNotePrintQueryParamEventArgs e)
        {
            base.OnPrepareNotePrintQueryParam(e);
            NotePrintSelectRows(e);
        }

        private void NotePrintSelectRows(PrepareNotePrintQueryParamEventArgs e)
        {
            if (e.NotePrintTplId.EqualsIgnoreCase("adfb2ec4-bfd2-4eae-8b21-8c68f05eb620"))
            {
                int[] rowIndexs = this.View.GetControl<EntryGrid>("FEntity").GetSelectedRows();
                Entity entity = this.View.BillBusinessInfo.GetEntity("FEntity");
                List<string> pkIds = new List<string>();
                foreach (int rowIndex in rowIndexs)
                {
                    DynamicObject rowObj = this.Model.GetEntityDataObject(entity, rowIndex);
                    string pkId = rowObj["Id"].ToString();
                    if (!pkId.IsNullOrEmptyOrWhiteSpace() && pkId != "0")
                    {
                        pkIds.Add(pkId);
                    }
                }
                if (pkIds.Count == 0)
                {
                    e.QueryParameter.FilterClauseWihtKey = e.QueryParameter.FilterClauseWihtKey.JoinFilterString("1<>1");
                }
                else
                {
                    e.QueryParameter.FilterClauseWihtKey = e.QueryParameter.FilterClauseWihtKey.JoinFilterString(
                        String.Format("FEntryID in ({0})", String.Join(",", pkIds))
                        );//FEntryID分录内码标识
                }
            }
        }

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