【结贴】代码控制子流程创建，如要在弹出流转窗体时就代码添加执行者，怎么做**

fyzy

代码控制子流程创建，如要在弹出流转窗体时就代码添加执行者，怎么做。在哪个流程事件中处理？

shangxy

http://bbs.justep.com/forum.php?mod=viewthread&tid=23968
是一个问题吧？

fyzy

不是一个，23968添加执行者是在弹出流转窗体后，再点确定后执行的，我现在要在弹出流转窗体前就添加执行者

shangxy

if lFlowTask <> nil then
      begin
        lFlowTask.Executors.Clear;
           //删除缺省执行者
        sPersID := Command.FlowControl.Executor.PersonID;
        sDeptID:=Command.FlowControl.Executor.DeptID;
        sPosiID:=Command.FlowControl.Executor.PositionID;
        lFlowTask.Executors.Add(sDeptID,sPosiID,sPersID);
      end;


把上面的3个ID换成具体的人员成员对应的ID后不行么？

fyzy

转换是成功的，但在flowout时会报错out of index0,论坛中说是BUG
能不能不管哪个帖子，只解决在弹出流转窗体时就代码添加执行者的问题

jiahaiming

楼主，试试这个：
procedure TMAINFORM.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  lSubFlowTask,lFlowTask: TFlowTask;
  lOrgSytem: TOrgSystem;
begin
  lFlowTask := Command.FlowTasks.FindFlowTask('ZLC');
  lSubFlowTask := lFlowTask.Children.FindFlowTask('ZLCRKGN');
  lOrgSytem := TOrgSystem.Create;
  try
     lSubFlowTask.AllowExecutors.Clear;
      if Assigned(lSubFlowTask) then
        lOrgSytem.GetOrgURLsByOrgExpr('OrgKey('+'BM1'+','+'GW1'+','+ 'ZS'+')',lSubFlowTask.AllowExecutors);
  finally
    lOrgSytem.Free;
  end;

fyzy

好，结，多谢