unit uViewInstalador;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewContacto, dxLayoutLookAndFeels, DB, uDADataTable,
  dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
  cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
  Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics,
  uDAInterfaces, uCustomView, uViewBase, uViewTienda, uBizContactos,
  uViewObservaciones, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;

type
  IViewInstalador = interface(IViewContacto)
  ['{629628EE-4B68-4721-8754-CC40BD563453}']
  end;

  TfrViewInstalador = class(TfrViewContacto, IViewInstalador)
  private
    FDataItem : TDADataTable;
    function GetDataItem: TDADataTable;
    procedure SetDataItem(const Value: TDADataTable);

  protected
    procedure SetContacto(const Value: IBizContacto); override;

  public
    property DataItem : TDADataTable read GetDataItem write SetDataItem;
  end;

implementation
{$R *.dfm}

uses uFactuGES_App;

function TfrViewInstalador.GetDataItem: TDADataTable;
begin
  Result := FDataItem;
end;

procedure TfrViewInstalador.SetContacto(const Value: IBizContacto);
begin
  inherited;
  DataItem := FContacto.DataTable;
end;

procedure TfrViewInstalador.SetDataItem(const Value: TDADataTable);
begin
  FDataItem := Value;
end;

end.