unit uBizTiendaWebServer;

interface

uses
  schTiendaWebServer_Intf, uDAInterfaces, uDADelta,
  uDADataTable, uDABusinessProcessor;

const
  BIZ_SERVER_TIENDA_WEB = 'Server.TiendaWeb';

type
  TBizTiendaWebServer = class(TTiendaWebBusinessProcessorRules)
    procedure BeforeProcessChange(Sender: TDABusinessProcessor; aChangeType: TDAChangeType; aChange: TDADeltaChange; var ProcessChange: boolean); override;
  end;

implementation

uses
  Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses, DARemoteService_Impl,
  schTiendaWebClient_Intf, uBusinessUtils, uROClasses;

{ TBizRemesasClienteServer }

{ TBizTiendaWebServer }

procedure TBizTiendaWebServer.BeforeProcessChange(Sender: TDABusinessProcessor;
  aChangeType: TDAChangeType; aChange: TDADeltaChange;
  var ProcessChange: boolean);
begin
  inherited;
  showMessage('Hola');

end;

initialization
  RegisterBusinessProcessorRules(BIZ_SERVER_TIENDA_WEB, TBizTiendaWebServer);

end.