|
按照论坛上的代码限定执行者范围,发现没有效果,在选择执行者界面依然显示所有部门,如图:
代码如下:
lFlowTask := Command.FlowTasks.FindFlowTask('TXSBHQGN');
if lFlowTask <> nil then
begin
lRange:='OrgChildren(OrgKey('''+lQuery.FieldByName('DEPARTMENT_ID').AsString+''','''',''''), '''', True, False)';
lFlowTask.ExecutorMustBeFuncOwner:=True; //执行者必须是功能拥有者
lFlowTask.ExecutorAmount:= TTaskExecutorAmount.teaMulti; //TTaskExecutorAmount.teaMulti; //执行者范围
lFlowTask.ExecutorKinds := [TTaskExecutorKind.ekPersonMember]; //执行者类型 人员成员
lFlowTask.AllowExecutorRange:=lRange; //限定执行者范围
lFlowTask.ExecutorRange:=lRange; //默认执行者范围
end;
|
|