unit uViewSubCuenta;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
  DBCtrls, Grids, DBGrids, uBizSubCuentas, Mask, ComCtrls, uCustomView,
  JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
  cxDBEdit, dxLayoutControl, uDAInterfaces, cxGraphics, cxDropDownEdit,
  cxImageComboBox, cxMaskEdit, cxCalendar;

type
  IViewSubCuenta = interface(IViewBase)
  ['{F44F8AEF-CB9C-44D5-93DA-53D6AB6A2D29}']
    function GetSubCuenta: IBizSubCuenta;
    procedure SetSubCuenta(const Value: IBizSubCuenta);
    property SubCuenta: IBizSubCuenta read GetSubCuenta write SetSubCuenta;
  end;
  
  TfrViewSubCuenta = class(TfrViewBase, IViewSubCuenta)
    DADataSource: TDADataSource;
    dxLayoutControlSubCuentaGroup_Root: TdxLayoutGroup;
    dxLayoutControlSubCuenta: TdxLayoutControl;
    dxLayoutControlSubCuentaGroup1: TdxLayoutGroup;
    dxLayoutControlSubCuentaItem3: TdxLayoutItem;
    eReferencia: TcxDBTextEdit;
    dxLayoutControlSubCuentaItem1: TdxLayoutItem;
    eDescripcion: TcxDBTextEdit;
  protected
    FSubCuenta: IBizSubCuenta;
    function GetSubCuenta: IBizSubCuenta;
    procedure SetSubCuenta(const Value: IBizSubCuenta);
  public
    property SubCuenta: IBizSubCuenta read GetSubCuenta write SetSubCuenta;
  end;
  
implementation
{$R *.dfm}

{ TfrViewSubCuentas }

{
******************************* TfrViewSubCuentas ********************************
}

function TfrViewSubCuenta.GetSubCuenta: IBizSubCuenta;
begin
  Result := FSubCuenta;
end;

procedure TfrViewSubCuenta.SetSubCuenta(const Value: IBizSubCuenta);
begin
  FSubCuenta := Value;
  if Assigned(FSubCuenta) then
    DADataSource.DataTable := FSubCuenta.DataTable
  else
    DADataSource.DataTable := NIL;
end;

end.