业务逻辑：

1、直接调拨单审核自动形成销售出库单。

2、销售出库单明细自定义一个单据体（PAEZ_Cust_Entry100014），有3个字段：销售员（基础资料）、比例（小数）、销售员名称（文本）

3、客户主数据明细自定义单据体（PAEZ_Cust_Entry100007）,有3个字段：销售员（基础资料）、比例（小数）、销售员名称（文本）

逻辑：单据转换插件 afterconvert时，根据销售出库单上客户主数据，取自定义单据的数据，写到出库单自定义单据体的对应字段里。

我的代码如下：

如何写出库单自定义单据增加行，并把对应的值写入？

V7.3

源码如下：

public override void AfterConvert(AfterConvertEventArgs e)

{

base.AfterConvert(e);

// 固定结构

// 找到目标单单据关联主实体

var targetForm = e.TargetBusinessInfo.GetForm();

if (targetForm.LinkSet == null

|| targetForm.LinkSet.LinkEntitys == null

|| targetForm.LinkSet.LinkEntitys.Count == 0)

{

// 目标单未设置关联主实体，无法获取目标单的源单信息，携带不了

return;

}

// 关联主实体

Entity entity = e.TargetBusinessInfo.GetEntity(targetForm.LinkSet.LinkEntitys[0].ParentEntityKey);

// 关联Link子实体

Entity linkEntity = e.TargetBusinessInfo.GetEntity(targetForm.LinkSet.LinkEntitys[0].Key);

// 收集全部源单内码

HashSet<long> srcBillIds = new HashSet<long>();

// Dictionary(目标单索引, HashSet(源单内码))

Dictionary<int, HashSet<long>> dctDataIndexToSrcBillId = new Dictionary<int, HashSet<long>>();

var entryRows = e.Result.FindByEntityKey(entity.Key);

foreach (var entryRow in entryRows)

{

int dataIndex = entryRow.DataEntityIndex;

if (dctDataIndexToSrcBillId.ContainsKey(dataIndex) == false)

{

dctDataIndexToSrcBillId.Add(dataIndex, new HashSet<long>());

}

var linkRows = linkEntity.DynamicProperty.GetValue(entryRow.DataEntity) as DynamicObjectCollection;

foreach (var linkRow in linkRows)

{

long srcBillId = Convert.ToInt64(linkRow["SBillId"]);

if (srcBillIds.Contains(srcBillId) == false)

{

srcBillIds.Add(srcBillId);

}

// 记录每条目标单，其引用的源单集合

if (dctDataIndexToSrcBillId[dataIndex].Contains(srcBillId) == false)

{

dctDataIndexToSrcBillId[dataIndex].Add(srcBillId);

}

}

}

// 2023-05-23 读取源单的客户销售员页签的数据

//获取源单id

DynamicObject dynamicObject = e.Result.FindByEntityKey("FBillHead")[0].DataEntity;

var customerid = dynamicObject["CustomerID_id"];

if (customerid == null)

{

return;

}

string strSQL = @"/*dialect*/select t1.F_BJYC_XSY,t1.F_BJYC_XSYGW,t1.F_BJYC_FTBL,t1.F_BJYC_SFCYJJJS,t1.F_BJYC_SFWZXSY,t1.F_BJYC_XSBM,t2.fnumber FSaleNumber,

t21.FName FSaleName

from T_BJYC_XSYXX t1

left join V_BD_SALESMAN t2 on t1.F_BJYC_XSY=t2.fid

left join V_BD_SALESMAN_L t21 on t2.fid=t21.fid

where t1.FCUSTID=" + Convert.ToString(customerid);

DataSet DS = DBUtils.ExecuteDataSet(this.Context, strSQL);

DataTable DT = DS.Tables[0];

if (DT.Rows.Count == 0)

{

return;

}

var result = DBUtils.ExecuteDynamicObject(e.Context, strSQL);

if (result==null)

{

return;

}

//目标单据

ExtendedDataEntity[] heads = e.Result.FindByEntityKey("FBillHead");

List<DynamicObject> list = new List<DynamicObject>();

foreach (var head in heads)

{

DynamicObject dataEntity = head.DataEntity as DynamicObject;

//目标单单据实体

DynamicObjectCollection entry10014 = dataEntity["PAEZ_Cust_Entry100014"] as DynamicObjectCollection;

DynamicObject entry10014Rows = new DynamicObject(entry10014.DynamicCollectionItemPropertyType) as DynamicObject;

entry10014.Clear();

for (int i=0;i<DT.Rows.Count;i++)

{

entry10014Rows["F_BJYC_XSY"]= DT.Rows[i]["F_BJYC_XSY"];

entry10014Rows["F_BJYC_FTBL"] = DT.Rows[i]["F_BJYC_FTBL"];

}

}

}

修改后的成功了。

产品问题关于单据转换目标单据自定义单据体数据填写问题V7.3

产品问题 关于单据转换目标单据自定义单据体数据填写问题V7.3

恭喜您！

产品问题
关于单据转换目标单据自定义单据体数据填写问题V7.3

产品问题关于单据转换目标单据自定义单据体数据填写问题V7.3