unit uBizFamilias;

interface

uses
  uDAInterfaces, uDADataTable, schFamiliasClient_Intf;

const
  BIZ_CLIENT_FAMILIA = 'Client.Familia';

type
  IBizFamilia = interface(IFamilias)
  ['{4DEDACCD-5CC1-474A-BE9A-46D3BCCF9025}']
  end;

  TBizFamilia = class(TFamiliasDataTableRules, IBizFamilia)
    procedure AfterOpen(Sender: TDADataTable); override;  
  end;

implementation

{ TBizFamilia }

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

initialization
  RegisterDataTableRules(BIZ_CLIENT_FAMILIA, TBizFamilia);

finalization

end.