【结帖】代码控制子流程创建，在弹出流转窗体时代码添加执行者[请求]**

zfang

lFlowTask := Command.FlowTasks.FindFlowTask('XMSB_FS');
lSubFlowTask := lFlowTask.Children.FindFlowTask('XMJYS');
我是说'XMSB_FS'这个具体是什么？是环节ID么？

chinavvv

是的，如上图。每个环节上我标示出来的都是环节ID

zfang

楼主，你调试运行看下lFlowTask 这个对象，是否为空对象

chinavvv

是空对象，应该怎么写程序呢？

zfang

写法就是跟楼主的一样啊。就是楼主的那个代码得到的是空对象，那就要检查你传入的那个参数是否能找到了。。。

chinavvv

感谢，先结贴吧。我正在调试。

zfang

好，谢谢反馈。

chinavvv

解决了：
总结些经验，可能后来的同行能有所帮助：

procedure TXMSB_FS_CT.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  lSubFlowTask,lFlowTask: TFlowTask;
  lOrgSytem: TOrgSystem;
  sDeptID    : String;
  sPosiID    : String;
  sPersID    : String;
begin

  lFlowTask := Command.FlowTasks.FindFlowTask('XMJYS');     //主流程中子流程环节ID

  lSubFlowTask := lFlowTask.Children.FindFlowTask('XJSB');  //子流程入口环节ID
  lOrgSytem := TOrgSystem.Create;

        sPersID:='BM';
        sDeptID:='GW';
        sPosiID:='RY';
  try
     lSubFlowTask.AllowExecutors.Clear;
      if Assigned(lSubFlowTask) then
        lOrgSytem.GetOrgURLsByOrgExpr('OrgKey('+sPersID+','+sDeptID+','+ sPosiID+')',lSubFlowTask.AllowExecutors);
  finally
    lOrgSytem.Free;
  end;
end;

关键是 这两行：
  lFlowTask := Command.FlowTasks.FindFlowTask('XMJYS');     //主流程中子流程环节ID

  lSubFlowTask := lFlowTask.Children.FindFlowTask('XJSB');  //子流程入口环节ID