unit uViewComerciales;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewContactos, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
  dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, ImgList, PngImageList, cxGridCustomPopupMenu,
  cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, uDADataTable,
  cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, ActnList, TB2Item,
  TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, uDAInterfaces,
  uCustomView, uViewBase;

type
  IViewComerciales = interface(IViewContactos)
  ['{91B6DB6C-D90F-4943-84F8-2A9752A4FA34}']
  end;

  TfrViewComerciales = class(TfrViewContactos, IViewComerciales)
    cxGridViewDELEGACION: TcxGridDBColumn;
    actDelegaciones: TAction;
    TBSeparatorItem1: TTBSeparatorItem;
    TBXItem2: TTBXItem;
    procedure actDelegacionesExecute(Sender: TObject);
    procedure actDelegacionesUpdate(Sender: TObject);
  end;

implementation

{$R *.dfm}

procedure TfrViewComerciales.actDelegacionesExecute(Sender: TObject);
begin
  if (cxGridViewDELEGACION.GroupIndex < 0) then
  begin
    cxGridViewDELEGACION.GroupIndex := cxGridView.GroupedColumnCount;
    cxGridViewDELEGACION.Visible := False;
  end
  else
  begin
    cxGridViewDELEGACION.GroupIndex := -1;
    cxGridViewDELEGACION.Visible := True;
  end;

end;

procedure TfrViewComerciales.actDelegacionesUpdate(Sender: TObject);
begin
  inherited;
  (Sender as TAction).Checked := not (cxGridViewDELEGACION.GroupIndex < 0);
end;

end.