unit uEditorElegirSituacionPedido;

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,
  cxImageComboBox;

type
  TfEditorElegirSituacionPedido = class(TfEditorBasico)
    Label1: TLabel;
    bAceptar: TButton;
    bCancelar: TButton;
    combo: TLabel;
    Panel1: TPanel;
    cbSituacion: TcxImageComboBox;

  private
    function GetSituacion: Variant;

  public
    property Situacion: Variant Read GetSituacion;

  end;

implementation
{$R *.dfm}

uses uFactuGES_App;

function TfEditorElegirSituacionPedido.GetSituacion: Variant;
begin
  Result := cbSituacion.EditValue;
end;

end.