|
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;
为什么我用这段代码:
Command.FlowTasks.FindFlowTask(ANextProcUnit);
返回的流程对象总是空啊? |
|