unit uEditorFechaPagoProveedor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
  cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPagoProveedor;

type
  TfEditorFechaPagoProveedor = class(TfEditorBasico, IEditorFechaPagoProveedor)
    Label1: TLabel;
    eFechaPago: TcxDateEdit;
    bAceptar: TButton;
    bCancelar: TButton;
    Label2: TLabel;
    Panel1: TPanel;
    procedure FormShow(Sender: TObject);
    procedure eFechaPagoPropertiesEditValueChanged(Sender: TObject);
  private
    FFechaPago : TDateTime;
    function GetFechaPago: TDateTime;
    procedure SetFechaPago(const Value: TDateTime);
  public
    property FechaPago: TDateTime Read GetFechaPago write SetFechaPago;
  end;

implementation
{$R *.dfm}

procedure TfEditorFechaPagoProveedor.eFechaPagoPropertiesEditValueChanged(
  Sender: TObject);
begin
  FechaPago := eFechaPago.Date;
end;

procedure TfEditorFechaPagoProveedor.FormShow(Sender: TObject);
begin
  if (length(eFechaPago.Text) = 0) then
     eFechaPago.Date := Date;
end;

function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime;
begin
  Result := FFechaPago;
end;

procedure TfEditorFechaPagoProveedor.SetFechaPago(const Value: TDateTime);
begin
  FFechaPago := Value;
  eFechaPago.EditValue := FFechaPago;
end;

end.
