[请求]流程的默认执行者设置（续）

wfox · 发表于 2009-7-21 14:28:16

原问题路径：
http://bbs.justep.com/forum.php?mod=viewthread&tid=28965

经过一段时间使用，发现这样修改代码存在一些后遗症了。

没有设置默认执行者的环节，系统会从拥有该环节功能权限的人员自行选择一个，
这时if lFlowTask.Executors.Count > 0 then还是大于0的，所以无法通过用户上次流转的人员来确认执行者。

请问有没有一个好的方法能够判定，这个环节有没有使用表达式设置了默认执行者。或者取消掉系统随机选择的人员。使得我能够实现如果在流程中进行了设置则永远按照设置来确认默认执行者，如果没有设置则通过用户上次流转的人员来确认执行者

lixy · 发表于 2009-7-21 16:30:33

你贴的链接里面有去掉平台记录的默认执行者的代码。
可以在http://bbs.justep.com/showthread.php?threadid=18672
链接的函数位置加代码。
也就是
业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体
procedure TSTANDARDSTYLEMAINFORM.DoOnCreateFlowTasks(Sender: TObject; ACommand: TFlowCommand);
begin
TDefaultFlowExecutorsManager.RefreshExecutors(ACommand);
............. 后面做。

wfox · 发表于 2009-7-21 17:07:51

默认执行者的代码我也不想完全去掉，在没有使用表达式设置了默认执行者的情况下，我还是希望使用上一次的执行者。所以我是修改了这个函数内的代码
TSTANDARDSTYLEMAINFORM.DoOnCreateFlowTasks

原来修改的方法有点问题，不知道怎么能判定这个环节是否设置了表达式，
取得这个环节的执行者的代码跟不进去
lFlowTask := lCommand.AllowFlowTasks[I];

lixy · 发表于 2009-7-21 17:39:32

TFlowCommand
---
property FlowControl: TFlowControl;
---
function GetExecuteRule(AProcUnit: TProcUnit): TExecuteRule;
-----
property ExecutorRangeEx: TTaskExecutorRangeEx;
-----
TTaskExecutorRangeEx = class(TBaseTaskExecutorRange)
public
  constructor create(AOwner: Business.System.TPersistent);
  procedure Assign(Source: Business.System.TPersistent); override;
  procedure Destroy; override;
  property DefaultExecutorExpression: TTaskExecutorExpression;
  property LimitExecutorExpression: TTaskExecutorExpression;
end;

楼主试试吧，不知道这个时机，是否能判断公式。

wfox · 发表于 2009-7-21 17:53:56

没有找到TFlowCommand的源代码，我们应该没有，
请问路径在哪，我们3126版本

lixy · 发表于 2009-7-21 18:00:26

看帮助。上面是看帮助查的。根据这个从 lCommand.判断出来。

wfox · 发表于 2009-7-22 12:50:16

这回应该是彻底搞定了，多谢了！！！

		自动登录	找回密码
密码			立即注册