unit uViewAsiento;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
  DBCtrls, Grids, DBGrids, uBizAsientos, Mask, ComCtrls, uCustomView,
  JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
  cxDBEdit, cxMemo, uViewFormaPago, cxCurrencyEdit, cxMaskEdit,
  cxDropDownEdit, cxCalendar, uListaCuentas, dxLayoutControl,
  dxLayoutLookAndFeels;

type
  IViewAsiento = interface(IViewBase)
  ['{D6147CF8-EBEF-4F87-8202-97A2BA47250F}']
    function GetAsiento: IBizAsiento;
    procedure SetAsiento(const Value: IBizAsiento);
    property Asiento: IBizAsiento read GetAsiento write SetAsiento;
  end;

  TfrViewAsiento = class(TfrViewBase, IViewAsiento)
    DADataSource: TDADataSource;
    eDescripcion: TcxDBTextEdit;
    edtFecha: TcxDBDateEdit;
    cxCurrencyEdit5: TcxDBCurrencyEdit;
    dxLayoutControl1Group_Root: TdxLayoutGroup;
    dxLayoutControl1: TdxLayoutControl;
    dxLayoutControl1Group1: TdxLayoutGroup;
    dxLayoutControl1Item1: TdxLayoutItem;
    dxLayoutControl1Item2: TdxLayoutItem;
    dxLayoutControl1Item3: TdxLayoutItem;
    dxLayoutControl1Group2: TdxLayoutGroup;
    dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
    dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
  private
    FAsiento: IBizAsiento;
  protected
    function GetAsiento: IBizAsiento;
    procedure SetAsiento(const Value: IBizAsiento);
  public
    constructor Create(AOwner : TComponent); override;
    property Asiento: IBizAsiento read GetAsiento write SetAsiento;
  end;

implementation

uses uDataModuleAsientos;

{$R *.dfm}

{ TfrViewAsientos }

{
******************************* TfrViewAsientos ********************************
}
constructor TfrViewAsiento.Create(AOwner : TComponent);
begin
  inherited;
end;

function TfrViewAsiento.GetAsiento: IBizAsiento;
begin
  Result := FAsiento;
end;

procedure TfrViewAsiento.SetAsiento(const Value: IBizAsiento);
begin
  FAsiento := Value;
  if Assigned(FAsiento) then
    DADataSource.DataTable := FAsiento.DataTable
  else
    DADataSource.DataTable := NIL;
end;

initialization
  RegisterClass(TfrViewAsiento);

finalization
  UnRegisterClass(TfrViewAsiento);

end.