diff --git a/Source/Modulos/Contactos/Model/Contactos_model.res b/Source/Modulos/Contactos/Model/Contactos_model.res
index 1641339f..8b251f31 100644
Binary files a/Source/Modulos/Contactos/Model/Contactos_model.res and b/Source/Modulos/Contactos/Model/Contactos_model.res differ
diff --git a/Source/Modulos/Contactos/Model/uBizGruposCliente.pas b/Source/Modulos/Contactos/Model/uBizGruposCliente.pas
index 349403b6..36f4cd84 100644
--- a/Source/Modulos/Contactos/Model/uBizGruposCliente.pas
+++ b/Source/Modulos/Contactos/Model/uBizGruposCliente.pas
@@ -14,10 +14,20 @@ type
   end;
 
   TBizGrupoCliente = class(TGruposClienteDataTableRules, IBizGrupoCliente)
+  protected
+    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);
 
diff --git a/Source/Modulos/Contactos/Model/uBizGruposEmpleado.pas b/Source/Modulos/Contactos/Model/uBizGruposEmpleado.pas
index 0c106e2a..15231685 100644
--- a/Source/Modulos/Contactos/Model/uBizGruposEmpleado.pas
+++ b/Source/Modulos/Contactos/Model/uBizGruposEmpleado.pas
@@ -14,10 +14,20 @@ type
   end;
 
   TBizGrupoEmpleado = class(TGruposEmpleadoDataTableRules, IBizGrupoEmpleado)
+  protected
+    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);
 
diff --git a/Source/Modulos/Contactos/Model/uBizGruposProveedor.pas b/Source/Modulos/Contactos/Model/uBizGruposProveedor.pas
index 8e5a6115..8b808719 100644
--- a/Source/Modulos/Contactos/Model/uBizGruposProveedor.pas
+++ b/Source/Modulos/Contactos/Model/uBizGruposProveedor.pas
@@ -14,10 +14,20 @@ type
   end;
 
   TBizGrupoProveedor = class(TGruposProveedorDataTableRules, IBizGrupoProveedor)
+  protected
+    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);