如何代码限制下一个的执行者在操作者所属机构的上级机构内

john

Static procedure TFlowUtils.RestrictExecutorInOgn(Command: TFlowOutCommand;AContext:TContext;ANextProcUnit:string);
var
  lRange:string;
  lFlowTask:TFlowTask;
begin
  lFlowTask := Command.FlowTasks.FindFlowTask(ANextProcUnit);
  if lFlowTask <> nil then
  begin
    lRange:='OrgChildren(OrgParent(GetProcUnitExecutorOgn('''+ANextProcUnit+''', false), '''', False, False), '''', True, False)';
    lFlowTask.AllowExecutorRange:=lRange;
    lFlowTask.ExecutorRange:=lRange;
  end;
end;