unit uBizSubfamilias;

interface

uses
  uDAInterfaces, uDADataTable, schSubfamiliasClient_Intf;

const
  BIZ_CLIENT_SUBFAMILIA = 'Client.Subfamilia';

type
  IBizSubfamilia = interface(ISubfamilias)
  ['{43A4E2BA-F3C9-4116-9ACE-2CB4C4159CF6}']
  end;

  TBizSubFamilia = class(TSubFamiliasDataTableRules, IBizSubFamilia)
    procedure AfterOpen(Sender: TDADataTable); override;
  end;

implementation

{ TBizSubFamilia }

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

initialization
  RegisterDataTableRules(BIZ_CLIENT_SUBFAMILIA, TBizSubFamilia);

finalization

end.