Varela_PuntosVenta/Source/Modulos/Stock/Reglas/uBizStock.pas

unit uBizStock;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDAInterfaces,
  DataAbstract3_Intf, uROTypes, schStockClient_Intf;

const
  BIZ_STOCK_EDI = 'Client.StockEDI';
  BIZ_STOCK_EDIINVENTARIO = 'Client.StockEDIInventario';
  BIZ_STOCK_VARELA = 'Client.StockVARELA';
  BIZ_STOCK_PRENDAS_CENTROS = 'Client.StockPrendasCentros';

type
  IBizStockEDI = interface(IStockEDI)
  ['{01767388-AF6D-4EF0-A2A4-092D698ECD19}']
  end;

  IBizStockEDIInventario = interface(IStockEDIInventario)
  ['{156E243C-7B4D-4223-8FAF-A965E8C5A94D}']
  end;

  IBizStockVARELA = interface(IStockVARELA)
  ['{2DC85C8D-E7CA-4B13-A7CE-46E412D05D76}']
  end;

  IBizStockPrendasCentros = interface(IStockPrendasCentros)
  ['{F17984D3-1262-4D0B-94F3-E86DA3B1357E}']
  end;

  TBizStockEDIDataTableRules = class(TStockEDIDataTableRules, IBizStockEDI)
    procedure OnBeforeDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest);
    procedure OnBeforeSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest);
  public
    constructor Create(aDataTable: TDADataTable); override;
  end;

  TBizStockEDIInventarioDataTableRules = class(TStockEDIInventarioDataTableRules, IBizStockEDIInventario)
    procedure OnBeforeDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest);
    procedure OnBeforeSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest);
  public
    constructor Create(aDataTable: TDADataTable); override;
  end;

  TBizStockVARELADataTableRules = class(TStockVARELADataTableRules, IBizStockVARELA)
    procedure OnBeforeDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest);
    procedure OnBeforeSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest);
  public
    constructor Create(aDataTable: TDADataTable); override;
  end;

  TBizStockPrendasCentrosDataTableRules = class(TStockPrendasCentrosDataTableRules, IBizStockPrendasCentros)
    procedure OnBeforeDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest);
    procedure OnBeforeSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest);
  public
    constructor Create(aDataTable: TDADataTable); override;
  end;


implementation

{uses
  Dialogs, uEditorUtils, uDataModuleVentasTerminadas;}

{ TBizStockPrendasCentrosDataTableRules }

constructor TBizStockPrendasCentrosDataTableRules.Create(
  aDataTable: TDADataTable);
begin
  inherited;
  if Assigned(DataTable) then
  begin
     DataTable.OnBeforeDataRequestCall := OnBeforeDataRequestCall;
     DataTable.OnBeforeSchemaCall := OnBeforeSchemaCall;
  end;
end;

procedure TBizStockPrendasCentrosDataTableRules.OnBeforeDataRequestCall(
  DataTable: TDADataTable; Request: TDARemoteRequest);
begin
  Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;

procedure TBizStockPrendasCentrosDataTableRules.OnBeforeSchemaCall(
  DataTable: TDADataTable; Request: TDARemoteRequest);
begin
  Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;

{ TBizStockEDIDataTableRules }

constructor TBizStockEDIDataTableRules.Create(aDataTable: TDADataTable);
begin
  inherited;
  if Assigned(DataTable) then
  begin
     DataTable.OnBeforeDataRequestCall := OnBeforeDataRequestCall;
     DataTable.OnBeforeSchemaCall := OnBeforeSchemaCall;
  end;
end;

procedure TBizStockEDIDataTableRules.OnBeforeDataRequestCall(
  DataTable: TDADataTable; Request: TDARemoteRequest);
begin
  Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;

procedure TBizStockEDIDataTableRules.OnBeforeSchemaCall(DataTable: TDADataTable;
  Request: TDARemoteRequest);
begin
  Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;

{ TBizStockEDIInventarioDataTableRules }

constructor TBizStockEDIInventarioDataTableRules.Create(
  aDataTable: TDADataTable);
begin
  inherited;
  if Assigned(DataTable) then
  begin
     DataTable.OnBeforeDataRequestCall := OnBeforeDataRequestCall;
     DataTable.OnBeforeSchemaCall := OnBeforeSchemaCall;
  end;
end;

procedure TBizStockEDIInventarioDataTableRules.OnBeforeDataRequestCall(
  DataTable: TDADataTable; Request: TDARemoteRequest);
begin
  Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;

procedure TBizStockEDIInventarioDataTableRules.OnBeforeSchemaCall(
  DataTable: TDADataTable; Request: TDARemoteRequest);
begin
  Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;

{ TBizStockVARELADataTableRules }

constructor TBizStockVARELADataTableRules.Create(aDataTable: TDADataTable);
begin
  inherited;
  if Assigned(DataTable) then
  begin
     DataTable.OnBeforeDataRequestCall := OnBeforeDataRequestCall;
     DataTable.OnBeforeSchemaCall := OnBeforeSchemaCall;
  end;
end;

procedure TBizStockVARELADataTableRules.OnBeforeDataRequestCall(
  DataTable: TDADataTable; Request: TDARemoteRequest);
begin
  Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;

procedure TBizStockVARELADataTableRules.OnBeforeSchemaCall(
  DataTable: TDADataTable; Request: TDARemoteRequest);
begin
  Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;

initialization
  RegisterDataTableRules(BIZ_STOCK_EDI, TBizStockEDIDataTableRules);
  RegisterDataTableRules(BIZ_STOCK_EDIINVENTARIO, TBizStockEDIInventarioDataTableRules);
  RegisterDataTableRules(BIZ_STOCK_VARELA, TBizStockVarelaDataTableRules);
  RegisterDataTableRules(BIZ_STOCK_PRENDAS_CENTROS, TBizStockPrendasCentrosDataTableRules);
finalization

end.