Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Familias: ordenación alfabética por descripción.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@141 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-02-24 16:02:36 +00:00
parent 9f3343c14e
commit d04e71709d
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/Modulos/Familias/Model/uBizFamilias.pas
View File

@ -14,10 +14,19 @@ type
end; end;
TBizFamilia = class(TFamiliasDataTableRules, IBizFamilia) TBizFamilia = class(TFamiliasDataTableRules, IBizFamilia)
procedure AfterOpen(Sender: TDADataTable); override;
end; end;
implementation implementation
{ TBizFamilia }
procedure TBizFamilia.AfterOpen(Sender: TDADataTable);
begin
inherited;
DataTable.Sort([fld_FamiliasDESCRIPCION], [sdAscending]);
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_FAMILIA, TBizFamilia); RegisterDataTableRules(BIZ_CLIENT_FAMILIA, TBizFamilia);