如何代码启动流程

john

在代码中创建流程控制组件（TFlowControl），对流程参数进行赋值，用这个组件来启动流程实例，并且把这个流程实例保存到系统数据库中。

procedure TMainForm.UserStartFlow
(AFlowUrl,ADept,ARole,APerson,AStartProc,AFlowID,ASubject,ADescription:string);
var
  lBizURL: TBizURL;
  lFlowValue: TFlowValue;
  lFlowControl: TFlowControl;
  lExecutor: TOrgURL;
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.SaveToDB;
  finally       
    lFlowControl.Free;
    lFlowValue.Free;
    lBizURL.Free;
  end;
end;

atiger

关于流程实例的：“开始时间”和“结束时间”是不能维护的，在流程启动时，平台自动维护，结束时间也是如此。

lFlowControl.StartupFlow(lBizURL,AStartProc,lExecutor,lFlowValue);   //启动流程
此时，发送者和接受者都是lExecutor，如果要修改，可以在Save前赋值
...
  begin
...
    lExecutor := TOrgURL.Create('BM1','GW1','RY1'); //传入发起者的部门、岗位、人员
    lFlowControl.StartupFlow(lBizUrl,'BMSP',lExecutor,lFlowValue);
    lFlowControl.FlowRunnerbyIndex[0].CurrentTask.PreemptMode := TTaskPreemptMode.omFirstProcess;
    lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverDeptID := GGHS.TGGHS.GetDeptName(BizUrlValue.ID);//传入接收者的部门ID
    lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverPositionID := GGHS.TGGHS.GetPositionName(BizUrlValue.ID); //传入接收者的岗位ID
    lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverID := BizUrlValue.ID; //传入接收者的人员ID
    lFlowControl.FlowRunnerByIndex[0].CurrentTask.SaveToDB;
  end;

atiger

实现代码参考如下：

在lFlowControl.FlowRunnerbyIndex[0].CurrentTask.SaveToDB;
之前加一句
lFlowControl.FlowRunnerbyIndex[0].CurrentTask.PreemptMode := 1;


注：这个方法仅仅适用于1554以前的版本（包括1554）

alang

代码启动流程其实是创建一个流程实例，然后为某个用户产生一个这个流程实例上某个环节上的任务。
有时需要在创建了任务以后，马上运行起来这个任务，就可以参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=18984