Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se adapta para que en el caso de tener varias vistas se quiten las agrupaciones y todas y cada una de ellas

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@264 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
David Arranz 2008-07-01 11:14:29 +00:00
parent ab8e38d08b
commit c9d18a1e39
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Source/Base/GUIBase/uViewGrid.pas
View File

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