[请求]代码控制流程流转**

huixiangtao

我现在想实现的功能是如果某一任务过期后还没有被处理，则它会自动流转到下一环节。请问如何在流程外部用代码控制这种流程的流转。也就是通过timer来检查控制流转。或者x3系统中是否已经实现了我想要的功能。谢谢。

lixy

平台里面没有这个功能。
你看看alang的分享帖子，怎么代码操作流程。

huixiangtao

我在用代码控制流程流转到下一个环节之后，可原来的环节并没有在工作台中消失，而是两个环节都出现在了工作台中，请问如何让原先的环节在工作台中消失。我的测试代码是：
var
  lid,ldept,lgw:string;
begin
  lid :=TSystemCore.Operator.ID;
  ldept := TSystemCore.Operator.Positions[0].DeptID;
  lgw := TSystemCore.Operator.Positions[0].Position.ID;
  //Biz:\ZSGL\ZSLR\ZSLRLC.PROC
  COMMONLIB.TCOMMONLIB.UserStartFlow(self.Context, 'Biz:\ZSGL\ZSLRLC.PROC', 'CLRXGGN', '6FBFE989C2274FCDAFEE5150C0D617DD', 'hello', 'sh', ldept, lgw, lid);
end;

huixiangtao

在线等...................................

shangxy

参考一下：5楼，先找到要运行任务，然后把任务运行起来，在flowout
http://bbs.justep.com/forum.php? ... 4%B6%AF%C1%F7%D7%AA

huixiangtao

DoGetFlowGUIDs()函数在哪里找？

shangxy

在练接中的3楼，这个事自定义的函数。

huixiangtao

现在可以用代码控制流程流转了。但是每次流转时都会显示一下运行窗体，我想不让运行窗体显示出来，该怎样解决呢？以下是我的测试代码：
procedure TMainForm.Button3Click(Sender: TObject);
var
  lTaskParam: TLoadTaskParam;
  lFlowParam: TLoadFlowParam;
  lTasks: TTasks;
  lDataSet: TDataSet;
  lFunc: TFunc;
  lFlowControl: TFlowControl;
begin
  zslr.DataSet.Open;
  lDataSet:= zslr.DataSet;
  if not lDataSet.Active or lDataSet.Eof then
    Exit;
  dialogs.ShowMessage(sysutils.inttostr(lDataSet.RecordCount));
  lFlowParam := TLoadFlowParam.Create;
  lTaskParam := TLoadTaskParam.Create;
  lTasks := TTasks.Create;
  try

    DoGetFlowGUIDs(lDataSet.FieldByName('SQBH').AsString,lFlowParam.GUIDs);
    lTaskParam.States := [TTaskState.tsStarted, TTaskState.tsProcessing, TTaskState.tsWaiting];
    //以给定的条件查询任务（这里给定的条件由lFlowParam给出，根据流程Guid值查询，lTaskParam条件是按照任务状态，只查询出需要处理的任务）
    Flow.FlowEngine.GetTasks(lFlowParam, lTaskParam, lTasks);
    lFunc := SystemCore.TSystemCore.FuncManager.RunTask(SystemCore.TSystemCore.Operator.Positions[0], lTasks[0]);
  //如果需要自动流转，则需要下面的代码vvvvvvvvvvvvvv
    lFlowControl := lFunc.Context.GetParentContext(BizSys.IL_FLOW).Owner as TFlowControl;
    lFlowControl.FlowOut(nil);
  finally
    lFlowParam.Free;
    lTaskParam.Free;
    lTasks.Free;
  end;

end;

//查询流程ID表，根据流程ID，查询出对应的FlowGuid值
procedure DoGetFlowGUIDs(const AFlowID: string; AFlowGUIDs: TStrings);
begin
  Query:= tquery.Create(nil);
  Query.ConnectionString:= 'DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
  Query.CommandText := SysUtils.Format('SELECT FFLOWGUID FROM TFLOWID WHERE FID = ''%s''', [AFlowID]);
  Query.Open;
  while not Query.Eof do
  begin
    AFlowGUIDs.Add(Query.FieldByName('FFLOWGUID').AsString);
    dialogs.ShowMessage(Query.FieldByName('FFLOWGUID').AsString);
    Query.Next;
  end;
  Query.Close;
end;

shangxy

现在可以用代码控制流程流转了。但是每次流转时都会显示一下运行窗体，我想不让运行窗体显示出来，该怎样解决呢？以下是我的测试代码：

这个窗体时那个窗体呢？

huixiangtao

就是用代码启动运行的那个窗体。例如：我通过查询要代码启动运行“申请功能”，使它流转到“审批功能”。这样，在流转过程中会显示一下“申请功能”的运行窗体，现在是想控制流转过程中不要显示出“申请功能”的运行时窗体，而流转到“审批功能”。