unit FLISTADOOPCIONESALMACEN;

interface

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

type
  TLISTADOOPCIONESALMACEN = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    RBTODOS: TRadioButton;
    RBNOAVISAR: TRadioButton;
    RBAVISAR: TRadioButton;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label4: 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 Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2DblClick(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
    FECHAINICIO,FECHAFINAL: tdatetime;
    sfechainicio,sfechafinal:string;
    CADENA:STRING;    
    ENSTOCK,todo,TODAS :boolean;
  end;

var
  LISTADOOPCIONESALMACEN: TLISTADOOPCIONESALMACEN;

implementation

uses UDMGS, FDLGCLIENTEAUX, FDLGARTICULOSAUX;

{$R *.dfm}

procedure TLISTADOOPCIONESALMACEN.BitBtn1Click(Sender: TObject);
begin
    cadena := '';TODAS:=FALSE;
    if TRIM(EDIT1.Text) <> '' then
      cadena := ' DESCRIPCION >= '''+TRIM(EDIT1.Text)+''' ';
    if TRIM(EDIT2.TEXT) <> '' then
     if cadena <> '' then
      cadena := cadena + ' and DESCRIPCION <= '''+TRIM(EDIT2.TEXT)+''' '
     else
      cadena := ' DESCRIPCION <= '''+TRIM(EDIT2.Text)+''' ';

    IF GROUPBOX1.Color = CLMAROON THEN
       TODAS:= TRUE;

    todo := true;
    if RBNOAVISAR.Checked then
    begin
       ENSTOCK := true;
       todo := false;
    end;
    if RBAVISAR.Checked then
    begin
       ENSTOCK := false;
       todo := false;
    end;
    modalresult:=mrok;
end;

procedure TLISTADOOPCIONESALMACEN.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;

     IF ((ORD(KEY)) > 20) AND NOT (ACTIVECONTROL IS TEDIT)
     THEN
          CADENA := CADENA + KEY;
     if NOT (ACTIVECONTROL IS TEDIT )
     then
     begin
      IF UPPERCASE(CADENA) = 'LOLI' THEN
        begin
           IF GROUPBOX1.Color = $00D2D2D2 THEN
              GROUPBOX1.COLOR := CLMAROON
           ELSE
              GROUPBOX1.Color := $00D2D2D2
        end;
      END
      else
           CADENA:= '';          
end;

procedure TLISTADOOPCIONESALMACEN.FormShow(Sender: TObject);
begin
 EDIT1.TEXT := '';
 EDIT2.TEXT := '';
end;

procedure TLISTADOOPCIONESALMACEN.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=112 then
    begin
         DLGARTICULOSAUX := TDLGARTICULOSAUX.CREATE(NIL);
         IF DLGARTICULOSAUX.Showmodal=mrOk then
         begin
             LABEL1.CAPTION :=DLGARTICULOSAUX.codigo;
             EDIT1.TEXT := DLGARTICULOSAUX.DESCRIPCION;
         end
         ELSE
             LABEL1.Caption := '';
         DLGARTICULOSAUX.Free;
         DLGARTICULOSAUX := NIL;
    end
end;

procedure TLISTADOOPCIONESALMACEN.Edit1DblClick(Sender: TObject);
begin
         DLGARTICULOSAUX := TDLGARTICULOSAUX.CREATE(NIL);
         IF DLGARTICULOSAUX.Showmodal=mrOk then
         begin
             LABEL1.CAPTION :=DLGARTICULOSAUX.codigo;
             EDIT1.TEXT := DLGARTICULOSAUX.DESCRIPCION;
         end
         ELSE
             LABEL1.Caption := '';
         DLGARTICULOSAUX.Free;
         DLGARTICULOSAUX := NIL;
end;

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

procedure TLISTADOOPCIONESALMACEN.Edit2KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if key=112 then
    begin
         DLGARTICULOSAUX := TDLGARTICULOSAUX.CREATE(NIL);
         IF DLGARTICULOSAUX.Showmodal=mrOk then
         begin
             LABEL4.CAPTION :=DLGARTICULOSAUX.codigo;
             EDIT2.TEXT := DLGARTICULOSAUX.DESCRIPCION;
         end
         ELSE
             LABEL4.Caption := '';
         DLGARTICULOSAUX.Free;
         DLGARTICULOSAUX := NIL;
    end
end;

procedure TLISTADOOPCIONESALMACEN.Edit2DblClick(Sender: TObject);
begin
      DLGARTICULOSAUX := TDLGARTICULOSAUX.CREATE(NIL);
      IF DLGARTICULOSAUX.Showmodal=mrOk then
      begin
          LABEL4.CAPTION :=DLGARTICULOSAUX.codigo;
          EDIT2.TEXT := DLGARTICULOSAUX.DESCRIPCION;
      end
      ELSE
          LABEL4.Caption := '';
      DLGARTICULOSAUX.Free;
      DLGARTICULOSAUX := NIL;
end;

end.