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

Unidades de medida: ordenado por descripción.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@153 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-02-26 18:10:26 +00:00
parent d135e41292
commit bdc2051945
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,8 +51,8 @@ type
// FDetallesLink : TDADataSource; // FDetallesLink : TDADataSource;
// procedure SetDetalles(AValue : IBizDetalles); // procedure SetDetalles(AValue : IBizDetalles);
// function GetDetalles : IBizDetalles; // function GetDetalles : IBizDetalles;
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
procedure AfterOpen(Sender: TDADataTable); override;
public public
procedure IniciarValoresUnidadMedidaNuevo; procedure IniciarValoresUnidadMedidaNuevo;
function EsNuevo : Boolean; function EsNuevo : Boolean;
@ -88,6 +88,12 @@ uses
// EnlazarMaestroDetalle(FDetallesLink, FDetalles); // EnlazarMaestroDetalle(FDetallesLink, FDetalles);
// end; // end;
procedure TBizUnidadMedida.AfterOpen(Sender: TDADataTable);
begin
inherited;
DataTable.Sort([fld_UnidadesMedidaDESCRIPCION], [sdAscending]);
end;
constructor TBizUnidadMedida.Create(aDataTable: TDADataTable); constructor TBizUnidadMedida.Create(aDataTable: TDADataTable);
begin begin
inherited; inherited;