[请问]如何用代码添加流程中下个环节的执行者**

zykj_flame

如何用代码添加流程中下个环节的执行者?
代码如何实现?

yancm

http://bbs.justep.com/forum.php? ... =%D6%B4%D0%D0%D5%DF

zykj_flame

流程环节间的逻辑控制、业务数据的传递可以直接通过设置过程模型实现，如果需要根据业务数据来控制流程的流转，就需要在流程环节的OnCreateFlowOutTasks事件中写代码来实现。因此想指定下一环节的接受者需要在OnCreateFlowOutTasks事件中写代码实现，按照流程环节ID，查找到对应这个环节的流程任务，然后根据业务数据对这个流程任务的执行者赋值。

1、代码修改执行者列表

procedure TMainForm.FlowDDLRCreateFlowOutFlowTasks(…;…);
var
  lFlowTask:TFlowTask;
  lOrgURL: TOrgURL;
begin
  lFlowTask := Command.FlowTasks.FindFlowTask(ANextProcUnit);//根据任务环节查找任务
  if lFlowTask <> nil then
  begin
    lFlowTask.Executors.Clear;   //删除缺省执行者
    lOrgURL := TOrgURL.Create('XSB','XSY',ZXX' ); //部门、岗位、人员创建组织单元
    lFlowTask.Executors.Add(lOrgURL);//添加执行者
  end;
end;

2、代码修改执行者表达式

procedure TMainForm.FlowDDLRCreateFlowOutFlowTasks(…);
var
  lFlowTask:TFlowTask;
  lOrgURL: TOrgURL;
  Range:String;
begin
  lFlowTask := Command.FlowTasks.FindFlowTask('DDSH');
  if lFlowTask <> nil then
  begin
    Range:= 'OrgSelect(orgcondition('+''''+'*.psm'''+',ISPLAYNAME =
    '+''''+'李海萍'+''''+','+''''+'''))'
    lFlowTask.ExecutorRange:=Range; //执行组织机构表达式
  end;
end;

zykj_flame

3楼中
1、代码修改执行者列表
lOrgURL := TOrgURL.Create('XSB','XSY',ZXX' )
部门：   'XSB'
岗位：   'XSY'
人员：   ZXX'
这个代码只能加一个人执行一次
我想把具有该功能执行权限的人全列出来
该如何做？

lixy

http://bbs.justep.com/forum.php? ... 6%C4%DC%C8%A8%CF%DE

zykj_flame

5楼给的连接中

OrgChildren(OrgSelect(OrgCondition('','',:OrgUnit.FuncRef = '\YWGLXT\FJ_1_JHSP.FUNC')),OrgCondition('*.psm', '', ''), True) or OrgSelect(OrgCondition('*.psm','',:OrgUnit.FuncRef= '\YWGLXT\FJ_1_JHSP.FUNC'))


这段代码如何使用？

yancm

按2、代码修改执行者表达式 使用
设置为Range

zykj_flame

按照７楼所说的

procedure TMainForm.FlowDDLRCreateFlowOutFlowTasks(…);
var
  lFlowTask:TFlowTask;
  lOrgURL: TOrgURL;
  Range:String;
begin
  lFlowTask := Command.FlowTasks.FindFlowTask('DDSH');
  if lFlowTask <> nil then
  begin
lFlowTask.ExecutorRange:=OrgChildren(OrgSelect(OrgCondition('','',:OrgUnit.FuncRef = '\YWGLXT\FJ_1_JHSP.FUNC')),OrgCondition('*.psm', '', ''), True) or OrgSelect(OrgCondition('*.psm','',:OrgUnit.FuncRef= '\YWGLXT\FJ_1_JHSP.FUNC'))

end;
end;
编译不过去
能否帮忙调整下代码

atiger

不知道楼主在做啥？为啥要通过代码来做呢？
直接在下一个功能环节上设置 执行规则 的 执行者范围 为所有，
如果任务需要发到某个人员成员上，设置 类型 为 人员成员 就可以了，见附件
，

zykj_flame

我做了如图的设置