unit uEditorElegirFechaCancelacion;

interface

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

type
  TfEditorElegirFechaCancelacion = class(TfEditorBasico, IEditorElegirFechaCancelacion)
    Label1: TLabel;
    bAceptar: TButton;
    bCancelar: TButton;
    Label2: TLabel;
    Panel1: TPanel;
    cbFechaCancelacion: TcxDateEdit;
    procedure FormShow(Sender: TObject);

  private
    FFechaCancelacion: datetime;
    function GetFechaCancelacion: datetime;
    procedure SetFechaCancelacion(const Value: datetime);

  public
    property FechaCancelacion: datetime Read GetFechaCancelacion write SetFechaCancelacion;
  end;

implementation
{$R *.dfm}

uses uFactuGES_App, DateUtils;

procedure TfEditorElegirFechaCancelacion.FormShow(Sender: TObject);
begin
  cbFechaCancelacion.EditValue := DateOf(Date);
end;

function TfEditorElegirFechaCancelacion.GetFechaCancelacion: datetime;
begin
  Result := cbFechaCancelacion.EditValue;
end;

procedure TfEditorElegirFechaCancelacion.SetFechaCancelacion(const Value: datetime);
begin
  cbFechaCancelacion.EditValue := Value;
end;


end.