阜阳升级:流程问题2**

fyzy · 发表于 2007-7-21 13:59:11

见附图

相关流程任务产生代码如下:
procedure THNGR.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  i: integer;
  j: integer;
  lOrgURL: TOrgURL;
  lBUrl: TBizURL;
  lFlowTask:TFlowTask;
  llist: Tlist;
// ll: TList;
begin
  Inherited;
  //ll := TList.Create();
  //COmmand.FlowTasks.GetFlowTasks('zzhngr1', ll);

  lFlowTask := Command.FlowTasks.FindFlowTask('cS');
// Command.UserModify:=False;
  Command.UserConfirm:=False;
  lBUrl := TBizURL.Create;
  llist := Tlist.Create ;
  datasetbroker2.DataSet.Open;
if lFlowTask <> nil then
  begin
   DataSetBroker2.DataSet.First;
   for i:=0 to DataSetBroker2.DataSet.RecordCount - 1  do
         begin
            lBUrl.URL := DataSetBroker2.DataSet.FieldByName('zsid').AsString;
            DataSetBroker2.DataSet.Next;
            lOrgURL := TOrgURL.Create(lBUrl ); //部门、岗位、人员创建组织单元
            lFlowTask.Executors.Add(lOrgURL);//添加执行者
         end;
  end;
  Command.FlowTasks.GetFlowTasks('cS',llist);
  lBurl.Free;

end;

fyzy · 发表于 2007-7-23 09:38:05

ding

atiger · 发表于 2007-7-23 09:43:12

请问，你是怎么看的“流程轨迹”和“流程监控”，是用的系统提供的“业务模型系统空间\系统功能业务流程\流程监控流程监控”这个功能吗？我这里看的是正常的，见附件轨迹图

atiger · 发表于 2007-7-23 09:43:31

监控图

如果不是这样，请分别截取这两张图，我看看

fyzy · 发表于 2007-7-23 10:04:05

是通过流程监控查的，如图

fyzy · 发表于 2007-7-23 10:09:35

见图形控制

atiger · 发表于 2007-7-23 10:24:10

不是，因为“工作联系单”是异步环节，所以就这样了，这跟你1楼说的上一环节“最终回拟稿人”代码给“工作联系单”这个异步环节定义接收者没有关系，即时是你手工选择接收者也是这样的

fyzy · 发表于 2007-7-23 11:17:35

这个没有大的影响，就这样吧。如果能在流程图上也显示结束就好了

atiger · 发表于 2007-7-23 14:31:34

呵呵，好的，回头我再问问，有好消息马上跟贴告知

atiger · 发表于 2007-7-25 11:08:37

我后来又测试了一下，如果end环节前面有个活动环节，那么就从前面就有一根绿线画下来的，我已经提交了，后续完善，见附件图

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