【结】还是流转时限制时间设定的问题，涉及子流程，在线等待**

gpo2002

流转时限制时间设定的问题
参照帖子：http://bbs.justep.com/forum.php?mod=viewthread&tid=27679
procedure TLXSQBD.FlowBrokerCreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  I: Integer;
begin
  for I := 0 to Command.FlowTasks.Count - 1 do
    Command.FlowTasks.Items[I].LimitTime :=
      GGHSK.TGGHSK.GetFunLimitDate(Command.FlowTasks.Items[I].FuncURL.URL);
end;

GGHSK.TGGHSK.GetFunLimitDate的作用是根据Command.FlowTasks.Items[I].FuncURL.URL查表得到限制日期。

现在遇到一个问题在子流程是可以的，但是在子流程之间的功能环节，Command.FlowTasks.Items[I].FuncURL.URL是空。

前后子流程间的流转功能时间如何设定？

atiger

LXSQBD  这个是是子流程功能中间环节功能主窗体的ID吗？如果不是，那是啥的ID呢？

gpo2002

TLXSQBD 是一个信息里面的表单名字，
Command.FlowTasks.Items[I].FuncURL.URL在一个流程里面是有正确的值的
但是如果是子流程的话，上个子流程的结束功能里面流转到下个子流程的入口功能的时候，
Command.FlowTasks.Items[I].FuncURL.URL是空，有自动获得下个子流程入口功能URL的方法吗？

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=1204  可以获得ID

gpo2002

按照楼上的方法，现在能取得了后续子流程以及子流程中的功能URL了
但是还有个问题：
如果下个功能是另外一个子流程的入口功能，在FlowBrokerCreateFlowOutFlowTasks事件中
如何得到该功能对应的Task对象？子流程入口功能前面一个功能FlowBrokerCreateFlowOutFlowTasks事件中的Command.FlowTasks.Items[0]里面显示的是子流程。
没有具体的Task对象就没有办法对它设置限制时间

gpo2002

自己解决了。

atiger

ok，结。
请共享一下方法

gpo2002

if Command.FlowTasks.Items[I].Kind in [TFlowTaskKind.ftkActivity] then
         Command.FlowTasks.Items[I].LimitTime :=
           GetFunLimitDate(Command.FlowTasks.Items[I].FuncURL.URL);
      if Command.FlowTasks.Items[I].Kind in [TFlowTaskKind.ftkSubProc] then
        设置Command.FlowTasks.Items[I].Children.Item[J].LimitTime就可以了
我原来想写个递归函数完成这个功能，
把Command.FlowTasks作为函数参数，函数运行OK，
但是流转界面谈出以后，时间还是为空。最后还是直接传Command为参数，没有递归
作了2层判断，先将就用起。