[分享]功能或者工作台对流转事件的截获（x3平台消息的应用）

lixy

关键字：
流程 流程事件 业务消息 截获

说明：
可以利用业务消息(TBizMessage)机制，在系统中任意位置截获流程动作，完成业务需求。

我们可以参考
业务模型\系统空间\系统运行库\系统核心库\系统消息接收
TFlowAfterFlowCommandBizMessageHandler类的应用
从而做成自己的流程消息截获。

例子：
uses
   Business.Model.Flow, ……
type
  //自定义消息处理对象
TFlowAfterFlowCommandBizMessageHandler = class(TBizMessageHandler)
  protected
    //自定义消息处理动作
    procedure DoExecute(AMessage: TBizMessage; const AParam: THandleParam; var Handled: Boolean); override;
  public
        tmpForm:TFormDoc;
  end;

  //表单文档，截获业务消息的位置
  TKBBD1 = class(TFormDoc)
    .....
     FFlowAfterFlowCommandBizMessageHandler: TFlowAfterFlowCommandBizMessageHandler;
  public
    {public declarations}
  end;

//实现
procedure TKBBD1.FormDocCreate(Sender: TObject);
begin
  FFlowAfterFlowCommandBizMessageHandler := TFlowAfterFlowCommandBizMessageHandler.Create;
  FFlowAfterFlowCommandBizMessageHandler.tmpForm:=self;
  BizSys.GlobalContext.AddMessageHandler(Flow.BM_AFTERFLOWCOMMAND, FFlowAfterFlowCommandBizMessageHandler);//我们要截获流程命令后的事件BM_AFTERFLOWCOMMAND
end;

procedure TKBBD1.FormDocDestroy(Sender: TObject);
begin
    BizSys.GlobalContext.RemoveMessageHandler(Flow.BM_AFTERFLOWCOMMAND, FFlowAfterFlowCommandBizMessageHandler);
     FFlowAfterFlowCommandBizMessageHandler.free;
end;
procedure TFlowAfterFlowCommandBizMessageHandler.DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean);
var
  lCommand: TFlowTaskCommand;
begin
  lCommand := TFlowTaskCommand((AMessage as TFlowCommandMessage).FlowCommand);

  case lCommand.ID of
    Flow.FLC_FLOWOUT://流转后执行
           TKBBD1(tmpForm).Label1.Caption:=sysutils.DateTimeToStr(sysutils.Now);
//    Flow.FLC_FLOWBACK:
//      ;
//  Flow.FLC_FLOWTRANSMIT:
//  ;
//   Flow.FLC_FLOWNOTIFY:;
  end;
  Handled := false;
end;

lixy

附件

rzport_lq0

收到

crskyp

好东东，marker