起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 243|回复: 9

【结】关于代码实现流程流转的问题**

[复制链接]
发表于 2008-12-30 17:11:09 | 显示全部楼层 |阅读模式
在初始功能中(没有进行流程过滤),如何代码流转一个被退回的任务?
回复

使用道具 举报

发表于 2008-12-30 17:12:14 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-12-30 17:35:16 | 显示全部楼层

任务能查到,但怎么流转?

我用了以下代码
     lDataSet := DataSetBroker1.DataSet;
    if not lDataSet.Active or lDataSet.Eof then
       Exit;

  lFlowParam := TLoadFlowParam.Create;
  lTaskParam := TLoadTaskParam.Create;
    DoGetFlowGUIDs(DataSetBroker1.dataset.FieldByName('guid').AsString, lFlowParam.GUIDs);
    if  lFlowParam.GUIDs.count = 0 then
    begin
        //accept:=true;
        exit;
    end;
    //lFlowParam.GUIDs.Add(DataSetBroker1.dataset.FieldByName('guid').AsString);
  lTasks := TTasks.Create;
  lFlows:= TObjectList.Create;
    Flow.FlowEngine.GetFlows(lFlowParam, lFlows);

    lTaskParam.States := [TTaskState.tsReturned];
    //以给定的条件查询任务(这里给定的条件由lFlowParam给出,根据流程Guid值查询,lTaskParam条件是按照任务状态,只查询出需要处理的任务)
    Flow.FlowEngine.GetTasks(lFlowParam, lTaskParam, lTasks);
    if lTasks.Count < 1 then
    begin
         //accept:=true;
       exit;
    end;

    lFlowControl := self.Context.GetParentContext(BizSys.IL_FLOW).Owner as TFlowControl;
    lFlowControl.InitializationByTask(lTasks);
    lFlowControl.FlowOut(lTasks);

但是有两个问题:
1。流转时,只能选择回退前的下一步环节,而不是初始环节的下一环节;
2。流转后桌面的待办任务还在。
麻烦看下代码!!
回复 支持 反对

使用道具 举报

发表于 2008-12-30 17:37:56 | 显示全部楼层
2。流转后桌面的待办任务还在。
你在工作台右键点刷新,任务还在吗?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-12-30 18:09:02 | 显示全部楼层
还在
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-12-31 10:00:51 | 显示全部楼层

我顶

初始功能中有FlowBroker,这个代理的FlowControl好象不能直接用,麻烦看看上面三楼的代码,到底应该怎么用呢?
回复 支持 反对

使用道具 举报

发表于 2008-12-31 10:40:29 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2008-12-31 10:53:37 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-12-31 11:24:31 | 显示全部楼层
谢谢!
先别结贴,试试先!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-1-4 09:41:26 | 显示全部楼层
两个链接已经参考,一个是批处理,一个和我们的需求没什么联系。
后参考坛子里其它代码基本实现了我们的需求,感谢!
结贴!!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-28 19:56 , Processed in 0.039379 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表