起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 105|回复: 3

【结贴】To alang**

[复制链接]
发表于 2007-12-27 13:29:50 | 显示全部楼层 |阅读模式
wangyl  现在 在 北京海晔科技,
谢谢!
回复

使用道具 举报

 楼主| 发表于 2007-12-27 13:47:43 | 显示全部楼层
我用以下代码 启动流程
批量生成了两个流程任务,
在我的待办任务里有两个任务,打开一个任务,能看到两个业务数据,不能精确到一个业务数据

代码:

procedure TINF_LEASEHOLDBALANCE.UserStartFlow
(AFlowUrl,ADept,ARole,APerson,AStartProc,AFlowID,ASubject,ADescription:string);
var
  lBizURL: TBizURL;
  lFlowValue: TFlowValue;
  lFlowControl: TFlowControl;
  lExecutor: TOrgURL;
  lFlow : TFlow;
begin
  lBizURL := TBizURL.Create;
  lFlowValue := TFlowValue.Create;
  lFlowControl := TFlowControl.Create(Self.Context);

  lExecutor := TOrgURL.Create(ADept, ARole, APerson);
  lBizURL.URL := AFlowUrl;
  try
    lFlowValue.IDs.Add(AFlowID);//      //流程ID
    lflowvalue.Subject := ASubject;         //流程主题
    lFlowValue.Description:= ADescription;  //流程描述
    //启动流程实例
    lFlowControl.StartupFlow(lBizURL, AStartProc, lExecutor, lFlowValue);
    lFlowControl.FlowRunnerbyIndex[0].CurrentTask.PreemptMode := TTaskPreemptMode.omFirstProcess;
    //流程实例数据保存到数据库

    lFlowControl.FlowRunnerbyIndex[0].CurrentTask.SaveToDB;
  finally
    lFlowControl.Free;
    lFlowValue.Free;
    lBizURL.Free;
  end;

end;

为什么呀?谢谢!
回复 支持 反对

使用道具 举报

发表于 2007-12-27 13:50:15 | 显示全部楼层
已经在 http://bbs.justep.com/forum.php?mod=viewthread&tid=20387 回了
这个帖子就先结了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-27 13:53:31 | 显示全部楼层
Ok
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-4 00:57 , Processed in 0.038945 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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