unit uViewFiltroClientes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewDatosYSeleccionClienteBase, ImgList, PngImageList, ActnList, DB,
  uDAInterfaces, uDADataTable, StdCtrls, Buttons, ExtCtrls, dxLayoutControl,
  cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit;

type
  TfrViewFiltroClientes = class(TfrViewDatosYSeleccionClienteBase)
    dxLayoutControl1Item1: TdxLayoutItem;
    edtlNombre: TcxDBTextEdit;
    dxLayoutControl1Item2: TdxLayoutItem;
    edtNIFCIF: TcxDBTextEdit;
    GroupBox1: TGroupBox;
    rd1: TRadioButton;
    rd2: TRadioButton;
    cbxDesglosado: TCheckBox;
    procedure rd1Click(Sender: TObject);
    procedure rd2Click(Sender: TObject);
  end;

implementation
{$R *.dfm}

procedure TfrViewFiltroClientes.rd1Click(Sender: TObject);
begin
  inherited;
  if rd1.Checked then
  begin
    cbxDesglosado.Enabled := True;
    actElegirContacto.Enabled := False;
    actVerContacto.Enabled := False;
    Cliente := Nil;
  end;
end;

procedure TfrViewFiltroClientes.rd2Click(Sender: TObject);
begin
  inherited;
  if rd2.Checked then
  begin
    cbxDesglosado.Enabled := False;
    actElegirContacto.Enabled := True;
    actVerContacto.Enabled := True;
  end;
end;

end.