From bdc2051945b4d3b37abb837dbeafcc8b4adfe9a1 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 26 Feb 2008 18:10:26 +0000
Subject: [PATCH] =?UTF-8?q?Unidades=20de=20medida:=20ordenado=20por=20desc?=
 =?UTF-8?q?ripci=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@153 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../Unidades de medida/Model/uBizUnidadesMedida.pas       | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Source/Modulos/Unidades de medida/Model/uBizUnidadesMedida.pas b/Source/Modulos/Unidades de medida/Model/uBizUnidadesMedida.pas
index b0fa09e4..b6de6203 100644
--- a/Source/Modulos/Unidades de medida/Model/uBizUnidadesMedida.pas	
+++ b/Source/Modulos/Unidades de medida/Model/uBizUnidadesMedida.pas	
@@ -51,8 +51,8 @@ type
     // FDetallesLink : TDADataSource;
     // procedure SetDetalles(AValue : IBizDetalles);
     // function GetDetalles : IBizDetalles;
-
     procedure OnNewRecord(Sender: TDADataTable); override;
+    procedure AfterOpen(Sender: TDADataTable); override; 
   public
     procedure IniciarValoresUnidadMedidaNuevo;
     function EsNuevo : Boolean;
@@ -88,6 +88,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;