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

chinavvv

procedure TXMSB_FS_CT.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  lSubFlowTask,lFlowTask: TFlowTask;
  lOrgSytem: TOrgSystem;
begin
  lFlowTask := Command.FlowTasks.FindFlowTask('XJSB');
  lSubFlowTask := lFlowTask.Children.FindFlowTask('XMJYS');
  lOrgSytem := TOrgSystem.Create;
  try
     lSubFlowTask.AllowExecutors.Clear;
      if Assigned(lSubFlowTask) then
        lOrgSytem.GetOrgURLsByOrgExpr('OrgKey('+'BM1'+','+'GW1'+','+ 'ZS'+')',lSubFlowTask.AllowExecutors);
  finally
    lOrgSytem.Free;
  end;
end;

编译通过，运行提示错误：
lSubFlowTask := lFlowTask.Children.FindFlowTask('XMJYS');  
该行
Access violation at address 024C217C in module 'CLRModel.bpl'. Read of address 00000050

lFlowTask := Command.FlowTasks.FindFlowTask('XJSB');   是查找下一任务环节
lSubFlowTask := lFlowTask.Children.FindFlowTask('XMJYS');   这行代码怎么解释

zfang

这段代码哪里来的呢？

jiahaiming

找子流程的入口环节

chinavvv

http://bbs.justep.com/forum.php? ... ildren.FindFlowTask

我的流程图：

chinavvv

如果要走 项目建议书子流程
lFlowTask := Command.FlowTasks.FindFlowTask('????');
lSubFlowTask := lFlowTask.Children.FindFlowTask('???');
应该怎么设置呢？

zfang

申报初审。
项目建议书。
应该是这样子。

chinavvv

begin
  lFlowTask := Command.FlowTasks.FindFlowTask('XMSB_FS');
  lSubFlowTask := lFlowTask.Children.FindFlowTask('XMJYS');
  lOrgSytem := TOrgSystem.Create;
  try
     lSubFlowTask.AllowExecutors.Clear;
      if Assigned(lSubFlowTask) then
        lOrgSytem.GetOrgURLsByOrgExpr('OrgKey('+'BM1'+','+'GW1'+','+ 'ZS'+')',lSubFlowTask.AllowExecutors);
  finally
    lOrgSytem.Free;
  end;
end;

仍然在
lSubFlowTask := lFlowTask.Children.FindFlowTask('XMJYS');
这行
有 Access violation at address 024C217C in module 'CLRModel.bpl'. Read of address 00000050   的错误

zfang

你传入的是什么？

chinavvv

你说的传入？
我要实现的 是在点击流转时，代码定义下一环节的执行者。

chinavvv

图片表达的意思可能有出入。
流程ID 都是统一的ID
图片说明的流程ID 应该理解为  流程的标示编码