【搞定】如何新建关联时将被关联任务中的相关内容传到新任务中？**

lintou

如图

lixy

业务模型\协同系统\工作事务(处理功能)\业务任务库

这段代码是赋值的：
  if BizObjDataset.Active and ABizTaskObject.BizObjDataset.Active then
  begin
    lDescDataset := ABizTaskObject.FBizObjDataset;
    for I := 0 to ABizTaskObject.FBaseAssignFieldList.Count - 1 do
    begin
      lFieldName := ABizTaskObject.FBaseAssignFieldList[I];
      if (lDescDataset.FindField(lFieldName) <> nil) and
        (FBizObjDataset.FindField(lFieldName) <> nil) then
        lDescDataset.FieldByName(lFieldName).Assign(FBizObjDataset.FieldByName(lFieldName));
    end;

具体什么字段名会赋值：
参看

  FBaseAssignFieldList.Add('FPartyID');
  FBaseAssignFieldList.Add('FPARTYNAME');
  FBaseAssignFieldList.Add('FPlan');
  FBaseAssignFieldList.Add('FPLANNAME');
  FBaseAssignFieldList.Add('FHurry');
  FBaseAssignFieldList.Add('FImportance');
  FBaseAssignFieldList.Add('FTopic');
  FBaseAssignFieldList.Add('FTimeLimit');
  FBaseAssignFieldList.Add('FPostDetail');
  FBaseAssignFieldList.Add('FLinkMan');
  FBaseAssignFieldList.Add('FCommDate');
  FBaseAssignFieldList.Add('FCommMode');
  FBaseAssignFieldList.Add('FPRODUCTID');
  FBaseAssignFieldList.Add('FPRODUCTNAME');
  FBaseAssignFieldList.Add('FProductKind');
  FBaseAssignFieldList.Add('FProductBatchNum');
  FBaseAssignFieldList.Add('FDataOrigin');
  FBaseAssignFieldList.Add('FRecurrence');
  FBaseAssignFieldList.Add('FIsRecur');

lintou

问题解决，请结贴！