unit uViewEpigrafe;

interface

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

type
  IViewEpigrafe = interface(IViewBase)
  ['{F44F8AEF-CB9C-44D5-93DA-53D6AB6A2D29}']
    function GetEpigrafe: IBizEpigrafe;
    procedure SetEpigrafe(const Value: IBizEpigrafe);
    property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe;
  end;
  
  TfrViewEpigrafe = class(TfrViewBase, IViewEpigrafe)
    DADataSource: TDADataSource;
    dxLayoutControlEpigrafeGroup_Root: TdxLayoutGroup;
    dxLayoutControlEpigrafe: TdxLayoutControl;
    dxLayoutControlEpigrafeGroup1: TdxLayoutGroup;
    dxLayoutControlEpigrafeItem3: TdxLayoutItem;
    eReferencia: TcxDBTextEdit;
    dxLayoutControlEpigrafeItem1: TdxLayoutItem;
    eDescripcion: TcxDBTextEdit;
  protected
    FEpigrafe: IBizEpigrafe;
    function GetEpigrafe: IBizEpigrafe;
    procedure SetEpigrafe(const Value: IBizEpigrafe);
  public
    property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe;
  end;
  
implementation
{$R *.dfm}

{ TfrViewEpigrafes }

{
******************************* TfrViewEpigrafes ********************************
}

function TfrViewEpigrafe.GetEpigrafe: IBizEpigrafe;
begin
  Result := FEpigrafe;
end;

procedure TfrViewEpigrafe.SetEpigrafe(const Value: IBizEpigrafe);
begin
  FEpigrafe := Value;
  if Assigned(FEpigrafe) then
    DADataSource.DataTable := FEpigrafe.DataTable
  else
    DADataSource.DataTable := NIL;
end;

end.