From 2ae6dc8b3d38527f8356ccd7b617b8d73dc935cb Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 19 Feb 2008 15:44:12 +0000
Subject: [PATCH] =?UTF-8?q?Unidades=20de=20medida:=20ordenaci=C3=B3n=20alf?=
 =?UTF-8?q?ab=C3=A9tica=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.Tecsitel_FactuGES2/trunk@281 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Unidades de medida/Model/uBizUnidadesMedida.pas        | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Source/Modulos/Unidades de medida/Model/uBizUnidadesMedida.pas b/Source/Modulos/Unidades de medida/Model/uBizUnidadesMedida.pas
index b0fa09e4..a55bf991 100644
--- a/Source/Modulos/Unidades de medida/Model/uBizUnidadesMedida.pas	
+++ b/Source/Modulos/Unidades de medida/Model/uBizUnidadesMedida.pas	
@@ -53,6 +53,7 @@ type
     // function GetDetalles : IBizDetalles;
 
     procedure OnNewRecord(Sender: TDADataTable); override;
+    procedure AfterOpen(Sender: TDADataTable); override;        
   public
     procedure IniciarValoresUnidadMedidaNuevo;
     function EsNuevo : Boolean;
@@ -88,6 +89,12 @@ uses
 //   EnlazarMaestroDetalle(FDetallesLink, FDetalles);
 // end;
 
+procedure TBizUnidadMedida.AfterOpen(Sender: TDADataTable);
+begin
+  inherited;
+  DataTable.Sort([fld_UnidadesMedidaDESCRIPCION], [sdAscending]);
+end;
+
 constructor TBizUnidadMedida.Create(aDataTable: TDADataTable);
 begin
   inherited;