for i:= 0 to Command.AllowFlowTasks.Count -1 do
begin
if Command.AllowFlowTasks.Executors.Count >0 then
begin
Dialogs.ShowMessage(Command.AllowFlowTasks.ProcUnit.DisplayName+'/////'+Command.AllowFlowTasks.ProcUnit.ID );
//Dialogs.ShowMessage(Command.FlowTasks.ProcUnit.DisplayName+'/***\'+Command.FlowTasks.ProcUnit.ID);
end;
end;
var
mFlowTask:TFlowTask;
begin
mFlowTask := Command.FlowTasks.FindFlowTask('orhj');//根据环节找任务
if mFlowTask <> nil then
Dialogs.ShowMessage('1')
else
Dialogs.ShowMessage('0');