procedure TEVENTSOLVEFLOW.ProcUnitEVENTSOLVECreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
lFlowTask:TFlowTask;
lOrgURL:TOrgURL;
lInfo:TInfo;
dsbEvent: TBizDataSet;
begin
lInfo := (ObjectHelper.GetFieldValue(Command.FlowControl.Func.MainForm, 'InfoBroker1') as TInfoBroker).Info;
dsbEvent := lInfo.DataSetByID('dsEvent');
if dsbEvent.FieldByName('TDR').AsString.Equals('') then exit;
if dsbEvent.FieldByName('ESField03').AsString.Equals('2') then
begin
lFlowTask := Command.FlowTasks.FindFlowTask(ANextProcUnit);//根据任务环节查找任务
if lFlowTask <> nil then
begin
lFlowTask.Executors.Clear; //删除缺省执行者
lOrgURL := TOrgURL.Create('','',dsbEvent.FieldByName('TDR').AsString); //部门、岗位、人员创建组织单元
lFlowTask.Executors.Add(lOrgURL);//添加执行者