unit uBizIdiomas;

interface

uses
  uDAInterfaces, uDADataTable, schContactosClient_Intf;

const
  BIZ_CLIENT_IDIOMAS = 'Client.Idiomas';

type
  IBizIdioma = interface(IIdiomas)
  ['{8A218E04-95DF-46A4-A53D-4097F2584D41}']
  end;

  TBizIdioma = class(TIdiomasDataTableRules, IBizIdioma)
  protected
    procedure AfterOpen(Sender: TDADataTable); override;
  end;

implementation

{ TBizIdiomas }

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

initialization
  RegisterDataTableRules(BIZ_CLIENT_IDIOMAS, TBizIdioma);

finalization

end.