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

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@142 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Modulos/Contactos/Model/uBizGruposCliente.pas

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

Source/Modulos/Contactos/Model/uBizGruposEmpleado.pas

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

Source/Modulos/Contactos/Model/uBizGruposProveedor.pas

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