|

楼主 |
发表于 2007-10-9 08:29:32
|
显示全部楼层
我的代码如下:
procedure TMainForm.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
lFlowTask:TFlowTask;
lFlowTask1:TFlowTask;
lOrgURL: TOrgURL;
lOrgURL1:TOrgURL;
lStr:string;
lStr1:string;
begin
lStr:= DataSetBroker1.DataSet.FieldByName('SP').AsString;
lStr1:= DataSetBroker1.DataSet.FieldByName('SH').AsString;
lFlowTask := Command.FlowTasks.FindFlowTask('BZDZDX1');//根据任务环节查找任务
lFlowTask1 := Command.FlowTasks.FindFlowTask('BZCHILD');
if lFlowTask <> nil then
begin
lFlowTask.Executors.Clear; //删除缺省执行者
lOrgURL := TOrgURL.Create('','',lStr); //部门、岗位、人员创建组织单元
lFlowTask.Executors.Add(lOrgURL);//添加执行者
end;
if lFlowTask1 <> nil then
begin
lFlowTask1.Executors.Clear; //删除缺省执行者
lOrgURL1 := TOrgURL.Create('','',lStr1); //部门、岗位、人员创建组织单元
lFlowTask1.Executors.Add(lOrgURL1);//添加执行者
end;
end;
在流程里走是可以实现我的需求的。 |
|