代码实现流程转发**

欧诺万德

procedure TWDRW.btnMoveClick(Sender: TObject);
var
  lFlowControl: TFlowControl;
  lTask :TTask;
  lExecuter: TOrgURL;
  lTasks :TList;
begin

  lTasks :=TList.Create;
  lTask :=TTask.Create;
  lFlowControl := TFlowControl.Create(Context);
  lExecuter := TOrgURL.Create('KFGCS', 'ZW', '');  //执行者为“开发部”
  try
    lTask.LoadFromDB(lGUID);//这样是根据任务的GUID获取到任务吗?????
    lTasks.Add(lTask);
    lFlowControl.ExecuteTask(lTask,lExecuter);
    //if (not lFlowControl.FlowTransmit(lTasks)) then begin
    //   raise Exception.CreateFmt('该功能不能实现转发');
    //end;
    lFlowControl.FlowTransmit(lTasks);//执行到这步的时候报错
  finally
    lFlowControl.Free;
  end;
end;

这样能不能代码实现转发???
大体设计思路是这样的
1.创建流程环境
2.根据GUID获取任务,运行任务
3执行 FlowControl.FlowTransmit 实现转发

atiger

请问你这段代码写到普通的一个功能上？还是流程中的功能？

不知道出于啥原因不用流程的标准“转发”动作呢？

atiger

请问你这段代码写到普通的一个功能上？还是流程中的功能？

不知道出于啥原因不用流程的标准“转发”动作呢？

欧诺万德

是在表单里写的,
这是写了个测试的列子,因为我要实现批量转发,不是单个转发

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=16703

或者
http://bbs.justep.com/forum.php?mod=viewthread&tid=3041

用“FlowEngine”搜索

yancm

批量转发，找到你要的纪录，直接修改任务消息表是最简单的方法。

atiger

??

欧诺万德

SORRY  这几天上不了网 我先再研究下

欧诺万德

如果直接修改任务消息表的话应该怎么修改,
执行一个转发进行了哪些数据操作,因为我们需要给客户提供流程轨迹的,直接修改接收人应该是不行的

yancm

如果要保留流程轨迹，不能直接改数据，看5楼的方法