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

Grupos de contactos: ordenación alfabética por descripción.

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

BIN
Source/Modulos/Contactos/Model/Contactos_model.res
View File

Binary file not shown.

10
Source/Modulos/Contactos/Model/uBizGruposCliente.pas
View File

@ -14,10 +14,20 @@ type
end; end;
TBizGrupoCliente = class(TGruposClienteDataTableRules, IBizGrupoCliente) TBizGrupoCliente = class(TGruposClienteDataTableRules, IBizGrupoCliente)
protected
procedure AfterOpen(Sender: TDADataTable); override;
end; end;
implementation implementation
{ TBizGrupoCliente }
procedure TBizGrupoCliente.AfterOpen(Sender: TDADataTable);
begin
inherited;
DataTable.Sort([fld_GruposClienteDESCRIPCION], [sdAscending]);
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_GRUPOSCLIENTE, TBizGrupoCliente); RegisterDataTableRules(BIZ_CLIENT_GRUPOSCLIENTE, TBizGrupoCliente);

10
Source/Modulos/Contactos/Model/uBizGruposEmpleado.pas
View File

@ -14,10 +14,20 @@ type
end; end;
TBizGrupoEmpleado = class(TGruposEmpleadoDataTableRules, IBizGrupoEmpleado) TBizGrupoEmpleado = class(TGruposEmpleadoDataTableRules, IBizGrupoEmpleado)
protected
procedure AfterOpen(Sender: TDADataTable); override;
end; end;
implementation implementation
{ TBizGrupoEmpleado }
procedure TBizGrupoEmpleado.AfterOpen(Sender: TDADataTable);
begin
inherited;
DataTable.Sort([fld_GruposEmpleadoDESCRIPCION], [sdAscending]);
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_GRUPOSEMPLEADO, TBizGrupoEmpleado); RegisterDataTableRules(BIZ_CLIENT_GRUPOSEMPLEADO, TBizGrupoEmpleado);

10
Source/Modulos/Contactos/Model/uBizGruposProveedor.pas
View File

@ -14,10 +14,20 @@ type
end; end;
TBizGrupoProveedor = class(TGruposProveedorDataTableRules, IBizGrupoProveedor) TBizGrupoProveedor = class(TGruposProveedorDataTableRules, IBizGrupoProveedor)
protected
procedure AfterOpen(Sender: TDADataTable); override;
end; end;
implementation implementation
{ TBizGrupoProveedor }
procedure TBizGrupoProveedor.AfterOpen(Sender: TDADataTable);
begin
inherited;
DataTable.Sort([fld_GruposProveedorDESCRIPCION], [sdAscending]);
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_GRUPOSPROVEEDOR, TBizGrupoProveedor); RegisterDataTableRules(BIZ_CLIENT_GRUPOSPROVEEDOR, TBizGrupoProveedor);