【结贴】区分活动环节

zfang

请等一下，一会儿告诉你结果。

zfang

找到一个地方，看是否可以这么修改下
业务模型\系统空间\用户界面基础\界面库\系统接口\流转窗体
procedure TFLOWOUTFORM.RefreshFlowTaskNodes;
var
  I: Integer;
  lFlowTask: TFlowTask;
  lNode: TFlowTaskNode;
begin
  for I := 0 to FlowTaskGraph.NodeCount - 1 do
  begin
    lNode := TFlowTaskNode(FlowTaskGraph.Nodes[I]);
    if lNode.ProcUnit.Kind in Flow.SProcActivityKinds then
    begin
      //下面这句话导致的，他从FlowTasks中去找任务，而FlowTasks只有一个，所以默认选中一个环节，FAllowFlowTasks中去找任务就能找到，因为他是多个。
      //lFlowTask := FlowTasks.FindFlowTask(lNode.ProcUnit, True);
      lFlowTask := FAllowFlowTasks.FindFlowTask(lNode.ProcUnit, True);
      lNode.Selected := (lFlowTask <> nil) and (lFlowTask.Executors.Count > 0);
    end
    else
      lNode.Selected := False;
  end;
end;

weirongjia

我把那句话注释后
后续环节不会自动选中了   而且也不能选中了

zfang

？看我的流程图中or环节后市两个后续环节，分别给了执行者，然后按照12楼改了之后就默认是选中了后续的两个环节

zfang

另外，13楼的修改方法需要改变一下
业务模型\系统空间\用户界面基础\界面库\系统接口\流转窗体
procedure TFLOWOUTFORM.RefreshFlowTaskNodes;
var
  I: Integer;
  lFlowTask: TFlowTask;
  lNode: TFlowTaskNode;
begin
  for I := 0 to FlowTaskGraph.NodeCount - 1 do
  begin
    lNode := TFlowTaskNode(FlowTaskGraph.Nodes[I]);
    if lNode.ProcUnit.Kind in Flow.SProcActivityKinds then
    begin
      //下面这句话导致的，他从FlowTasks中去找任务，而FlowTasks只有一个，所以默认选中一个环节，FAllowFlowTasks中去找任务就能找到，因为他是多个。
      //lFlowTask := FlowTasks.FindFlowTask(lNode.ProcUnit, True);
      [B]lFlowTask := GetFlowTask(lNode.ProcUnit);[/B]
      lNode.Selected := (lFlowTask <> nil) and (lFlowTask.Executors.Count > 0);
    end
    else
      lNode.Selected := False;
  end;
end;

weirongjia

还是选不中啊
按照楼上的方法  我的那个环节还是没有选中

zfang

我14楼的效果，不对吗？
是否按照上面的方式修改了，是否编译？另外，是否给后续环节添加了默认执行者（如果没有添加，那当然不选中状态）

weirongjia

打开以后里面就有一个执行者
但是这个功能没有处于选中状态

zfang

贴个图看看。
实在不行就只能远程看下了。

weirongjia

如图所示：
第一个是点击流转按钮后生成的图片：