unit uBizIdiomas;

interface

uses
  uDAInterfaces, uDADataTable, schIdiomasClient_Intf;

const
  BIZ_CLIENT_IDIOMAS = 'Client.Idiomas';
  IDIOMA_DEFAULT = 'es';
  PAIS_DEFAULT = 'Espaņa';
  CTE_ID_IDIOMA_DEFAULT = 1;  
  CTE_ID_IDIOMA_EN = 2;
  CTE_ID_IDIOMA_FR = 3;


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.