From c9d18a1e39e9140e34e16f4a2bbd01a61270100c Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 1 Jul 2008 11:14:29 +0000
Subject: [PATCH] Se adapta para que en el caso de tener varias vistas se
 quiten las agrupaciones y todas y cada una de ellas

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@264 c93665c3-c93d-084d-9b98-7d5f4a9c3376
---
 Source/Base/GUIBase/uViewGrid.pas | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/Source/Base/GUIBase/uViewGrid.pas b/Source/Base/GUIBase/uViewGrid.pas
index 1a64dab7..5cb7460b 100644
--- a/Source/Base/GUIBase/uViewGrid.pas
+++ b/Source/Base/GUIBase/uViewGrid.pas
@@ -1,6 +1,6 @@
-{*******************************************************}
+{*******************************************************}
 {                                                       }
-{       Administración de puntos de venta               }
+{       Administración de puntos de venta               }
 {                                                       }
 {       Copyright (C) 2006 Rodax Software S.L.          }
 {                                                       }
@@ -139,16 +139,19 @@ end;
 procedure TfrViewGrid.actQuitarAgrupacionesExecute(Sender: TObject);
 var
   Columna: TcxGridDBColumn;
-  i: Integer;
+  i,j: Integer;
 begin
   inherited;
-  for i := 0 to  cxGridView.ColumnCount - 1 do
+  for j := 0 to cxGrid.ViewCount - 1 do
   begin
-    Columna := (cxGridView as TcxGridDBTableView).Columns[i];
-    if not (Columna.GroupIndex < 0) then
+    for i := 0 to  (cxGrid.Views[j] as tcxGridDBTableView).ColumnCount - 1 do
     begin
-      Columna.GroupIndex := -1;
-      Columna.Visible := True;
+      Columna := (cxGrid.Views[j] as TcxGridDBTableView).Columns[i];
+      if not (Columna.GroupIndex < 0) then
+      begin
+        Columna.GroupIndex := -1;
+        Columna.Visible := True;
+      end;
     end;
   end;
 end;