【搞定】怎样得到执行者列表信息**

crskyp

就是这里的信息，看图

lisb

http://bbs.justep.com/forum.php? ... 0%D5%DF%C1%D0%B1%ED
2楼

crskyp

lFlowTask := Command.FlowTasks.FindFlowTask(ANextProcUnit);
ANextProcUnit 这的是本环节还是下一个环节。
我的需求是：点击 确定 流转时检查执行者中有没有 本人 ，
如果有不流转，并给出提示。

crskyp

在这里判断

crskyp

在点击 确定 时，检查执行者中是否有本人，
有，就不能流转。
这样的过程能实现吗？

lisb

procedure TMAINFORM.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  lFlowTask: TFlowTask;
  lPersonID: string;
  i: integer;
begin
  lFlowTask := Command.FlowTasks.FindFlowTask('SH1');   //下一个流程环节的ID
  if lFlowTask <> nil then
  begin
    for i := 0 to lFlowTask.Executors.Count - 1 do
    begin
      lPersonID := lFlowTask.Executors.PersonID;
      if lPersonID = systemutils.Tcontextutils.GetOperator(context).ID then
      begin
        jsdialogs.ShowMsg('不能包含自己','');
        sysutils.Abort;
      end;
    end;
  end;
end;

crskyp

不认识 systemutils  
需要加入或引用那个类

lisb

引用 业务模型\系统空间\系统运行库\系统函数库

yancm

业务模型\系统空间\系统运行库\系统函数库

下次碰到此类问题在业务对象树里面用systemutils查找一下就可以了

crskyp

版主还是不行，当我点击 流转 时，
出现下图，
触发这个事件的时机不对