Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Unidades de medida: ordenación alfabética por descripción.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@281 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-19 15:44:12 +00:00
parent cfb9a68241
commit 2ae6dc8b3d
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Source/Modulos/Unidades de medida/Model/uBizUnidadesMedida.pas
View File

@ -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;