Tecsitel_FactuGES2/Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.pas

unit uViewFiltroClientes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
  StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme;

type
  IViewFiltroClientes = interface(IViewParametrosInforme)
    ['{129906DA-8E64-4312-8095-A04F8007CF7F}']
  end;
  
  TfrViewFiltroClientes = class(TfrViewParametrosInforme, IViewFiltroClientes)
    TBXLabel2: TTBXLabel;
    rd1: TRadioButton;
    rd2: TRadioButton;
    cbxDesglosado: TCheckBox;
    BitBtn1: TBitBtn;
    cxDBTextEdit1: TcxDBTextEdit;
    procedure rd1Click(Sender: TObject);
    procedure rd2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

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

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

end.