unit uBizTarifas;

interface

uses
  uDAInterfaces, uDADataTable, schTarifasClient_Intf;

const
  BIZ_CLIENT_TARIFA = 'Client.Tarifa';

type
  IBizTarifa = interface(ITarifas)
  ['{005445B0-ABEC-4080-9BE9-611C23B3ED7E}']
  end;

  TBizTarifa = class(TTarifasDataTableRules, IBizTarifa)
    procedure AfterOpen(Sender: TDADataTable); override;  
  end;

implementation

{ TBizTarifa }

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

initialization
  RegisterDataTableRules(BIZ_CLIENT_Tarifa, TBizTarifa);

finalization

end.