procedure TCT1.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
lFlowTask:TFlowTask;
lOrgURL: TOrgURL;
lStr:string;
zxz,dl,qcid:string;
begin
lFlowTask := Command.FlowTasks.FindFlowTask('PS');//根据任务环节查找任务
if lFlowTask <> nil then
lFlowTask.Executors.Clear; //删除缺省执行者
datasetbroker7.DataSet.Open;
datasetbroker7.DataSet.First;
while not datasetbroker7.DataSet.Eof do
begin
zxz := datasetbroker7.DataSet.FieldByName('psid').AsString;
//lStr:= zxz;
if lFlowTask <> nil then
begin
lOrgURL := TOrgURL.Create('','',zxz); //部门、岗位、人员创建组织单元
lFlowTask.Executors.Add(lOrgURL);//添加执行者
end;
datasetbroker7.DataSet.Next;
end;
end;
end. |