unit uViewProveedorTiendaWeb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, uBizContactos, cxGraphics, dxLayoutControl, cxSpinEdit,
  cxDBEdit, StdCtrls, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxControls, DB,
  uDADataTable, cxCheckBox;

type
  IViewProveedorTiendaWeb = interface(IViewBase)
    ['{A9210E16-6EE0-4A34-8444-7B998CB09D1D}']
    function GetContacto: IBizContacto;
    procedure SetContacto(const Value: IBizContacto);
    property Contacto: IBizContacto read GetContacto write SetContacto;
  end;

  TfrViewProveedorTiendaWeb = class(TfrViewBase)
    dxLayoutControlTiendaWeb: TdxLayoutControl;
    dxLayoutGroup1: TdxLayoutGroup;
    dxLayoutControlTiendaWebGroup3: TdxLayoutGroup;
    cxDBCheckBox1: TcxDBCheckBox;
    dxLayoutControlTiendaWebItem1: TdxLayoutItem;
    dsTiendaWeb: TDADataSource;
    Label1: TLabel;
    dxLayoutControlTiendaWebItem2: TdxLayoutItem;
  protected
    FContacto : IBizContacto;
    function GetContacto: IBizContacto;
    procedure SetContacto(const Value: IBizContacto);
  public
    property Contacto: IBizContacto read GetContacto write SetContacto;
  end;

var
  frViewProveedorTiendaWeb: TfrViewProveedorTiendaWeb;

implementation

{$R *.dfm}

{ TfrViewProveedorTiendaWeb }

function TfrViewProveedorTiendaWeb.GetContacto: IBizContacto;
begin
  Result := FContacto;
end;

procedure TfrViewProveedorTiendaWeb.SetContacto(const Value: IBizContacto);
begin
  FContacto := Value;
  if Assigned(FContacto) then
  begin
    dsTiendaWeb.DataTable := FContacto.DataTable;
  end
  else begin
    dsTiendaWeb.DataTable := NIL;
  end
end;

end.