|
|
楼主 |
发表于 2009-11-27 10:55:47
|
显示全部楼层
procedure TCFJH.FlowBroker1AfterNotify(Sender: TObject; Command: TFlowNotifyCommand);
{var
lFlowTask:TFlowTask;
ProcUnit : TProcUnit;
//lOrgURL: TOrgURL;
count:Integer;
begin
//lFlowTask := Command.FlowTasks.FindFlowTask('YWYCLJH');//根据任务环节查找任务
//ProcUnit := FlowBroker1.FlowControl.CurrentProcUnit.SuccedentUnits[0];
//lFlowTask := command.FlowTasks.GetFlowTask(ProcUnit);
if lFlowTask <> nil then
begin
count:=lFlowTask.Executors.Count; //删除缺省执行者
//lOrgURL := TOrgURL.Create('XSB','XSY',ZXX' ); //部门、岗位、人员创建组织单元
//lFlowTask.Executors.Add(lOrgURL);//添加执行者
//Dialogs.ShowMessage(command.FlowTasks[0].Executors[j].PersonID);
Dialogs.ShowMessage(Variants.VarToStr(count));
end; }
var i,j :integer;
begin
for i:=0 to Command.FlowTasks.Count-1 do
begin
for j:=0 to Command.FlowTasks.Executors.count-1 do
begin
Dialogs.ShowMessage(Command.FlowTasks.Executors[j].PersonID);
end;
end;
Command.Accept:= false;
end;
包括注释掉的代码
返回的都是空 |
|
发表于 2009-11-26 18:19:35