unit uBizUbicacionesAlmacen;

interface

uses
  uDAInterfaces, uDADataTable, schAlmacenesClient_Intf;

const
  BIZ_CLIENT_UBICACIONESALMACEN = 'Almacen.UbicacionesAlmacen';

type
  IBizUbicacionAlmacen = interface(IAlmacenesUbicaciones)
  ['{DFE837B7-4A5E-472C-B896-2140CDEA9D1E}']
  end;

  TBizUbicacionAlmacen = class(TAlmacenesUbicacionesDataTableRules, IBizUbicacionAlmacen)
    procedure AfterOpen(Sender: TDADataTable); override;
  end;

implementation

{ TBizUbicacionAlmacen }

procedure TBizUbicacionAlmacen.AfterOpen(Sender: TDADataTable);
begin
  inherited;
  DataTable.Sort([fld_AlmacenesUbicacionesDESCRIPCION], [sdAscending]);
end;

initialization
  RegisterDataTableRules(BIZ_CLIENT_UBICACIONESALMACEN, TBizUbicacionAlmacen);

finalization

end.