单据转换多个单据体转换赋值的插件实现案例

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

单据转换多个单据体转换赋值的插件实现案例

一、【业务需求】

一个单据有多个个单据体,想在单据转换中配置下推功能,可是不支持多单据体字段转换映射的配置

image.webp

image.webp


二、【分析实现】

单据转换中源单中被选择的字段只能来源于一个单据体,目标单中做映射的字段也只能来源于一个单据体,当单据转换字段配置涉及多个单据体字段时,平台目前无法支持。只能通过二开转换插件处理,对单据体数据携带赋值。


解决方案:

二开一个单据转换插件(基类=Kingdee.BOS.Core.Metadata.ConvertElement.PlugIn.AbstractConvertPlugIn,Kingdee.BOS.Core.dll)。重载其中的AfterConvert事件,根据所选的源单,自行读取上游单据对应的单据体数据,然后填写到目标单对应单据体中。


以出库申请单-其他出库单为例,分别在申请单和出库单扩展一个单据体,添加相应的字段,简单化处理,配置物料、批号、备注字段。

image.webp

using Kingdee.BOS;
using Kingdee.BOS.Contracts;
using Kingdee.BOS.Core.Metadata.ConvertElement.PlugIn;
using Kingdee.BOS.Orm.DataEntity;
using Kingdee.BOS.ServiceHelper;
using Kingdee.BOS.App.Core;
using System.Collections.Generic;
using Kingdee.BOS.Core.Metadata.ConvertElement.PlugIn.Args;
using System;
using Kingdee.BOS.Util;
using Kingdee.BOS.Core.Metadata;
using Kingdee.BOS.Orm.Metadata.DataEntity;

namespace Demo
{
    public class CusEntityMapSetEx : AbstractConvertPlugIn
    {
        private List<long> fids = new List<long>();
        public override void OnGetSourceData(GetSourceDataEventArgs e)
        {
            base.OnGetSourceData(e);
            if (e.SourceBusinessInfo.GetForm().Id.EqualsIgnoreCase("STK_OutStockApply"))
            {
                foreach (DynamicObject data in e.SourceData)
                {
                    long fid = Convert.ToInt64(data["FID"]);
                    if (!fids.Contains(fid))
                    {
                        fids.Add(fid);
                    }
                }
            }
        }
        
      public override void AfterConvert(BOS.Core.Metadata.ConvertElement.PlugIn.Args.AfterConvertEventArgs e)
        {
            List<DynamicObject> sourceBillDatas = new List<DynamicObject>();
            IViewService viewService = Kingdee.BOS.Contracts.ServiceFactory.GetService<IViewService>(this.Context);
            BaseDataField materialExtfield = e.TargetBusinessInfo.GetField("FMaterialId_Ext") as BaseDataField;
            var dataObjs = e.Result.FindByEntityKey("FBillHead");
            foreach (var obj in dataObjs)
            {
                foreach (var fid in fids)
                {
                    FormMetadata metadata = MetaDataServiceHelper.Load(this.Context, "STK_OutStockApply") as FormMetadata;
                    DynamicObject[] soDatas = BusinessDataServiceHelper.Load(this.Context, new object[] { fid }, metadata.BusinessInfo.GetDynamicObjectType());
                    if (soDatas.Length > 0)
                    {
                        sourceBillDatas.AddRange(soDatas);
                    }
                }
                
                DynamicObjectType entryDyType = e.TargetBusinessInfo.GetEntity("FEntity1").DynamicObjectType;
                DynamicObjectCollection cusEntrys = obj["CustEntry"] as DynamicObjectCollection;
                if (cusEntrys == null)
                {
                    cusEntrys = new DynamicObjectCollection(entryDyType, obj);
                }
                foreach (DynamicObject item in sourceBillDatas)
                {
                    DynamicObjectCollection cusEntry = item["CustEntry"] as DynamicObjectCollection;
                    DynamicObject material = viewService.LoadSingle(this.Context, entry["MaterialId_Ext_Id"], materialExtfield.RefFormDynamicObjectType);
                    DynamicObject dy = new DynamicObject(entryDyType);
                    
                    dy["MaterialId_Ext_Id"] = entry["MaterialId_Ext_Id"];
                    dy["MaterialId_Ext"] = material;
                    dy["Lot_Ext_Text"] = entry["Lot_Ext_Text"];
                    dy["Note_Ext"] = "原单编号: " + Convert.ToString(item["BillNo"]);
                    cusEntrys.Add(dy);
                }
            }
        }
}


实现效果:

1、出库申请单,扩展单据体数据

image.webp


2、下推其他出库单,对应单据体赋值

image.webp



相关参考:

设计单据转换规则,在保存时提示:不支持多单据体映射,源单/目标单存在多个子单据体映射

多单据体下推转换示例.rar


entry这个变量你是怎么来的?我没看出来


有注释嘛?

单据转换多个单据体转换赋值的插件实现案例

一、【业务需求】一个单据有多个个单据体,想在单据转换中配置下推功能,可是不支持多单据体字段转换映射的配置二、【分析实现】单据转换中...
点击下载文档
确认删除?
回到顶部
客服QQ
  • 客服QQ点击这里给我发消息