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. }
{ }
@ -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;