LuisLeon_FactuGES2/Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesProcesoPedidoCliente.pas

unit uDialogOpcionesProcesoPedidoCliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, cxGraphics, cxControls,
  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit;

type
  TfDialogOpcionesProcesoPedidoCliente = class(TfDialogBase)
    cbSituacion: TcxComboBox;
    Label1: TLabel;
    procedure actAceptarExecute(Sender: TObject);
    procedure actCancelarExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function ElegirOpcionesProcesoPedidoCliente(var ASituacion: String): Boolean;

implementation

{$R *.dfm}

function ElegirOpcionesProcesoPedidoCliente(var ASituacion : String): Boolean;
var
  AEditor : TfDialogOpcionesProcesoPedidoCliente;
begin
  AEditor := TfDialogOpcionesProcesoPedidoCliente.Create(NIL);
  try
    AEditor.cbSituacion.EditValue := ASituacion;

    Result := (AEditor.ShowModal = mrOk);
    if Result then
    begin
      ASituacion := AEditor.cbSituacion.EditValue;
    end;
  finally
    AEditor.Release;
  end;
end;

procedure TfDialogOpcionesProcesoPedidoCliente.actAceptarExecute(Sender: TObject);
begin
  inherited;
  ModalResult := mrOk
end;

procedure TfDialogOpcionesProcesoPedidoCliente.actCancelarExecute(Sender: TObject);
begin
  inherited;
  ModalResult := mrCancel;
end;

end.