unit uBizIdiomas;

interface

uses
  uDAInterfaces, uDADataTable, schContactosClient_Intf;

const
  BIZ_CLIENT_IDIOMAS = 'Client.Idiomas';

type
  IBizIdiomas = interface(IIdiomas)
  ['{39C02F2A-A2FB-4CF4-AABE-C84F84A8EC86}']
  end;

  TBizIdiomas = class(TIdiomasDataTableRules, IBizIdiomas)
  protected
    procedure AfterOpen(Sender: TDADataTable); override;
  end;

implementation

{ TBizIdiomas }

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

initialization
  RegisterDataTableRules(BIZ_CLIENT_IDIOMAS, TBizIdiomas);

finalization

end.