【搞定】独立业务功能直接流转特定流程点流程**

andrewzeng

想用一个独立业务功能自动流转某个流程点下的某个流程，现在已经成功获取到了流程实例TFLow，但是如何向下流转？代码如下，但是报错。

procedure TMainForm.Button1Click(Sender: TObject);
var
  lFlowParam: TLoadFlowParam;
   FFlowList :TObjectList;
  FFlow: TFlow;
  lFlowControl: TFlowControl;
  List: TList;
  FlowBroker: TFlowBroker;

begin
  //FTasks.Clear;
  //lTaskParam := TLoadTaskParam.Create;
  GUID := TStrings.Create();
  IDs := TStrings.Create();

  try
      lFlowParam := TLoadFlowParam.Create();
    lFlowParam.ProcURLs.Add('Biz:\NRJBYWKJ\ECKFDLZ.PROC');
    lFlowParam.States := [TFlowState.fsProcessing, TFlowState.fsWaiting];
    lFlowParam.GUIDs.Add('672A2B1628DC4EEFA731A1092312B9CA')  ;
    //lFlowParam.IDs.Add('070010');

    FFlowList := TObjectList.Create;
    FFlowList.Clear;

    Flow.FlowEngine.GetFlows(lFlowParam,FFlowList);
    {
    TLoadFlowParam = class(Business.System.TPersistent)
    public
         constructor create;
         procedure Assign(Source: Business.System.TPersistent); override;
         procedure Destroy; override;
         property CreateDateTimeRange: TDateTimeRange;
         property GUIDs: Business.System.TStrings;
         property IDs: Business.System.TStrings;
         property ProcURLs: Business.System.TStrings;
         property States: TFlowStates;
    end;
    }

    FFlow := TFlow(FFlowList.Items[0]);

    FlowBroker := TFlowBroker.Create(Context.Owner);
    FlowBroker.FlowControl.RegisterFlow(FFlow,nil);

    FlowBroker.FlowControl.FlowOut(nil);
  finally
      lFlowParam.Free;
  end;
end;

andrewzeng

异常

alang

你1楼的方法肯定不行的。
不是找到任务实例，而是找到任务，然后运行任务，流转
请参考
      lFunc := SystemCore.TSystemCore.FuncManager.RunTask(Command.FlowControl.Context, Command.FlowControl.Flow.Tasks[j]);
      lFlowControl := SystemUtils.TContextUtils.GetFlowControl(lFunc.Context);
      lFlowControl.FlowOut(nil);

RunTask时候要传一个岗位环境，第二个参数是任务
运行起来任务以后，找到这个任务环境的流程控制，用这个流程控制来流转。

Akon

由于楼主长时间未跟贴,此帖先结,有问题请开新帖.