unit FLISTADOOPCIONEScobro;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, Buttons,dateutils;

type
  TLISTADOOPCIONEScobro = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    RBTODOS: TRadioButton;
    RBCOBRADOS: TRadioButton;
    RBNOCOBRADOS: TRadioButton;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    FECHAINICIO,FECHAFINAL: tdatetime;
    sfechainicio,sfechafinal:string;
    cadena :string;
    cobrado,todo :boolean;
    anyo:smallint;
  end;

var
  LISTADOOPCIONEScobro: TLISTADOOPCIONEScobro;

implementation

uses UDMGS, FDLGCLIENTEAUX, menu;

{$R *.dfm}

procedure TLISTADOOPCIONEScobro.BitBtn1Click(Sender: TObject);
begin

    cadena := '';
    if trim(edit1.text) <> '' then
     if cadena <> '' then
      cadena := cadena + ' and id_cliente = '+trim(edit1.text)+' '
     else
      cadena := ' id_cliente = '+trim(edit1.text)+' ';

    if trim(edit2.text) <> '' then
     if cadena <> '' then
      cadena := cadena + ' and anyo = '+trim(edit2.text)+' '
     else
      cadena := ' anyo = '+trim(edit2.text)+' ';

    todo := true;
    if RBCOBRADOS.Checked then
    begin
       cobrado := true;
       todo := false;
    end;
    if RBNOCOBRADOS.Checked then
    begin
       cobrado := false;
       todo := false;
    end;
    modalresult:=mrok;
end;

procedure TLISTADOOPCIONEScobro.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if ActiveControl=nil then
    begin
        Perform(WM_NextDLGCtl, 0, 0);
        key:=#0;
    end;

    if (key = #13) and not (activecontrol is tbutton) then
    begin
        Perform(WM_NextDLGCtl, 0, 0);
        key:=#0;
    end;
end;

procedure TLISTADOOPCIONEScobro.FormShow(Sender: TObject);
begin
 edit1.SetFocus;
 EDIT2.Text := FMENU.ANYO
end;

procedure TLISTADOOPCIONEScobro.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=112 then
    begin
        DMGS.cdsq_clienteaux.Close;
        dlgclienteAUX := tdlgclienteAUX.Create(NIL);
        if dlgclienteAUX.Showmodal=mrok then
        begin
            EDIT1.TEXT := dlgclienteaux.codigo;
            Perform(WM_NextDLGCtl, 0, 0);
        end;
        dlgclienteaux.Free;
        dlgclienteaux := nil;
    end
end;

procedure TLISTADOOPCIONEScobro.Edit1DblClick(Sender: TObject);
begin
        DMGS.cdsq_clienteaux.Close;
        dlgclienteAUX := tdlgclienteAUX.Create(NIL);
        if dlgclienteAUX.Showmodal=mrok then
        begin
            EDIT1.TEXT := dlgclienteaux.codigo;
            Perform(WM_NextDLGCtl, 0, 0);
        end;
        dlgclienteaux.Free;
        dlgclienteaux := nil;

end;

procedure TLISTADOOPCIONEScobro.FormCreate(Sender: TObject);
begin
 cadena := '';
 cobrado := false;
 todo := true;
 sfechainicio:='';
 sfechafinal:=''; 
end;

procedure TLISTADOOPCIONEScobro.Edit2KeyPress(Sender: TObject;
  var Key: Char);
begin
  IF  NOT (KEY IN ['0'..'9',#8]) THEN
     KEY:=#0;
end;

end.