unit uViewCuenta;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
  DBCtrls, Grids, DBGrids, uBizCuentas, Mask, ComCtrls, uCustomView,
  uViewDireccion, uViewTelefonos, uViewInternet, uViewCategorias,
  JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
  cxDBEdit, cxMemo;

type
  IViewCuenta = interface(IViewBase)
    ['{076DB0D0-0E2C-49DE-861E-C8405DB35175}']
    function GetCuenta: IBizCuenta;
    procedure SetCuenta(const Value: IBizCuenta);
    property Cuenta: IBizCuenta read GetCuenta write SetCuenta;
  end;

  TfrViewCuenta = class(TfrViewBase, IViewCuenta)
    Bevel1: TBevel;
    DADataSource: TDADataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    pnlGeneral: TPanel;
    eNombre: TcxDBTextEdit;
    memOtrosDatos: TcxDBMemo;
  private
    FCuenta: IBizCuenta;
  protected
    function GetCuenta: IBizCuenta;
    procedure SetCuenta(const Value: IBizCuenta);
  public
    property Cuenta: IBizCuenta read GetCuenta write SetCuenta;
  end;

implementation

uses uDataModuleCuentas;

{$R *.dfm}

{ TfrViewCuentas }

{
******************************* TfrViewCuentas ********************************
}
function TfrViewCuenta.GetCuenta: IBizCuenta;
begin
  Result := FCuenta;
end;

procedure TfrViewCuenta.SetCuenta(const Value: IBizCuenta);
begin
  FCuenta := Value;
  if Assigned(FCuenta) then
    DADataSource.DataTable := FCuenta.DataTable
  else
    DADataSource.DataTable := NIL;
end;

initialization
  RegisterClass(TfrViewCuenta);

finalization
  UnRegisterClass(TfrViewCuenta);

end.