unit uViewClientesTiendaWeb;

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
  IViewClienteTiendaWeb = interface(IViewBase)
    ['{170B3BE4-C5A0-4CFA-9F5D-795067501F17}']
    function GetContacto: IBizContacto;
    procedure SetContacto(const Value: IBizContacto);
    property Contacto: IBizContacto read GetContacto write SetContacto;
  end;

  TfrViewClienteTiendaWeb = 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
  frViewClienteTiendaWeb: TfrViewClienteTiendaWeb;

implementation

{$R *.dfm}

{ TfrViewClienteTiendaWeb }

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

procedure TfrViewClienteTiendaWeb.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.