【结贴】[请求]关于流程的问题!**

rzport_jqf

需求: 通过编码选择流程的环节和执行者.

问题: 只能取到默认环节. 取不到其他环节.   

代码如下:

procedure TNG.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  lFlowTask:TFlowTask;
   lFlowTask2:TFlowTask;
   
begin

  //...
  lFlowTask := Command.FlowTasks.FindFlowTask('NGBMSH');//根据任务环节查找任务
         lFlowTask.Executors.Clear; //删除缺省执行者

         lFlowTask := Command.FlowTasks.FindFlowTask('BMHQ');//根据任务环节查找任务

         if  lFlowTask=nil then
             dialogs.ShowMessage('err');

   //...
end;

相关流程图如下:

lixy

lFlowTask := Command.FlowTasks.FindFlowTask('NGBMSH');//根据任务环节查找任务
         lFlowTask.Executors.Clear; //删除缺省执行者
交换下顺序

rzport_jqf

交换下不行的.

执行 lFlowTask.Executors.Clear; 的时候对象为空.

rzport_jqf

NGBMSH 为默认环节, 可以找的到. 删除默认执行者后, 找环节 BMHQ 依然找不到.

lixy

procedure TMainForm.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
lFlowTask:TFlowTask;
begin
         Command.FlowTasks.Clear;
         lFlowTask := Command.FlowTasks.CopyAFlowTaskFrom(Command.AllowFlowTasks[2]);//.FindFlowTask('LCZJGN1');//根据任务环节查找任务
         if lFlowTask <> nil then
           begin
                lFlowTask.Executors.Clear;
                 lFlowTask.Executors.Add('ASUPPORT','ENGINEER','zs');//添加执行者

         end;

end;

rzport_jqf

可以了.谢谢!