【结贴】主送抄送问题**

wulei_doudou_1

我们现在做了一个人员选择弹出窗体，想实现多单位的发放，但是现在往表格里填写数据是没有问题，想实现点击流转按钮时直接按照所选择的人员接收应该怎么办？

zfang

在流转的功能上放个flowbroker，然后在CreateFlowOutFlowTasks事件中用代码增加执行者。
参考代码：
   lFlowTask := Command.FlowTasks.FindFlowTask('HTQDTZ');
      if lFlowTask <> nil then
      begin
        lFlowTask.Executors.Clear;   //删除缺省执行者
        while not Eof do
        begin
          lDepartMent := Trim(FieldByName('FRDEPT').AsString);
          lPosition := Trim(FieldByName('FRPOSITION').AsString);
          lPerson := Trim(FieldByName('FRPERSON').AsString);
          //部门、岗位、人员创建组织单元
          lOrgURL := TOrgURL.Create(lDepartMent,lPosition,lPerson);
          lFlowTask.Executors.Add(lOrgURL);//添加执行者

          Next;
        end;
      end;

wulei_doudou_1

我知道用这段代码，可是就像上面图上的“分发单位”，我就建的是一个字段，它如何能实现每个名字的识别？

yancm

按照您1楼展示的，这个字段只存储了人员名称的字符串是吗？这样的可以这样：
1。建立一个子表至少四个字段：主表关联字段，人员，岗位，部门。
2.在选择分发单位时，将他的部门岗位人员信息存入子表。在调用2楼的代码时，从子表里面取信息。

wulei_doudou_1

这个是写好的代码，已经可以了，需要在业务流程里的执行策略里设置一些相应的东西，将执行者范围改为多个，任务协作策略改为独立分配和同时执行。这样就OK了。结帖，谢谢！
procedure TGCLLDZCT.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  lFlowTask:TFlowTask;
  lOrgURL: TOrgURL;
  lPerson:string;
begin
  lFlowTask := Command.FlowTasks.FindFlowTask('GCLLDHQ');
      if lFlowTask <> nil then
      begin
        lFlowTask.Executors.Clear;   //删除缺省执行者
        while  not DataSetBroker1.DataSet.Eof do
        begin
                    lPerson := Business.System.SysUtils.Trim(DataSetBroker1.DataSet.FieldByName('RYID0').AsString);
          //部门、岗位、人员创建组织单元
          lOrgURL := TOrgURL.Create('','',lPerson);
          lFlowTask.Executors.Add(lOrgURL);//添加执行
          DataSetBroker1.DataSet.Next;
        end;
      end;
END;