如何代码代码限制执行者表达式于某个机构和岗位 下

john

在环节的功能里的FlowBroker1OnCreateFlowOutTasks事件中调用下面的过程：

Static procedure TFlowUtils.ModifyOrganExecutorRange(Command: TFlowOutCommand;ANextProcUnit,AOgn,ARole:string);
var
  lFlowTask:TFlowTask;
  lRange:String;
begin
  lFlowTask := Command.FlowTasks.FindFlowTask(ANextProcUnit);
  if lFlowTask <> nil then
  begin
    lRange:='OrgChildren(OrgKey('''+AOgn+''','''',''''),'''', True, False) and OrgChildren(OrgKey('''', '''+ARole+''', ''''), '''', True, False)';
    lFlowTask.AllowExecutorRange:=lRange;
    lFlowTask.ExecutorRange:=lRange;
  end;
end;