From d04e71709d041058b6c16b7ed050c46998b09390 Mon Sep 17 00:00:00 2001 From: david Date: Sun, 24 Feb 2008 16:02:36 +0000 Subject: [PATCH] =?UTF-8?q?Familias:=20ordenaci=C3=B3n=20alfab=C3=A9tica?= =?UTF-8?q?=20por=20descripci=C3=B3n.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@141 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Modulos/Familias/Model/uBizFamilias.pas | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/Source/Modulos/Familias/Model/uBizFamilias.pas b/Source/Modulos/Familias/Model/uBizFamilias.pas index 9bf8e21c..f4f09eeb 100644 --- a/Source/Modulos/Familias/Model/uBizFamilias.pas +++ b/Source/Modulos/Familias/Model/uBizFamilias.pas @@ -14,10 +14,19 @@ type 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);