unit uEditorBuscarArticuloAlbaran;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
  cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico,
  cxGraphics, DB, uDAInterfaces, uDADataTable, cxDBEdit,
  cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;

type
  TfEditorBuscarArticuloAlbaran = class(TfEditorBasico)
    Label1: TLabel;
    bBuscar: TButton;
    bCancelar: TButton;
    Panel1: TPanel;
    cxConceptoABuscar: TcxTextEdit;
    procedure FormShow(Sender: TObject);

  private
    FConceptoABuscar: Variant;
    function GetConceptoABuscar: Variant;
    procedure SetConceptoABuscar(const Value: Variant);

  public
    property ConceptoABuscar: Variant Read GetConceptoABuscar write SetConceptoABuscar;

  end;

implementation
{$R *.dfm}

uses uFactuGES_App;


{ TfEditorBuscarArticulo }

procedure TfEditorBuscarArticuloAlbaran.FormShow(Sender: TObject);
begin
  cxConceptoABuscar.SetFocus;
end;

function TfEditorBuscarArticuloAlbaran.GetConceptoABuscar: Variant;
begin
  Result := cxConceptoABuscar.EditValue;
end;

procedure TfEditorBuscarArticuloAlbaran.SetConceptoABuscar(const Value: Variant);
begin
  cxConceptoABuscar.EditValue := Value;
end;

end.