unit uViewDatosPedido;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, StdCtrls, cxControls, cxContainer, cxEdit,
  cxTextEdit, cxDBEdit, DB, uDADataTable, uBizPedidosProveedor;

type
  IViewDatosPedido = interface(IViewBase)
  ['{0882CE51-5185-4809-983E-6B2F01BA5FD7}']
    function GetPedido: IBizPedidosProveedor;
    procedure SetPedido(const Value: IBizPedidosProveedor);
    property Pedido: IBizPedidosProveedor read GetPedido write SetPedido;
  end;

  TfrViewDatosPedido = class(TfrViewBase, IViewDatosPedido)
    DADataSource: TDADataSource;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    eReferencia: TcxDBTextEdit;
    Label2: TLabel;
    cxDBTextEdit2: TcxDBTextEdit;
    Label1: TLabel;
    cxDBTextEdit1: TcxDBTextEdit;
  private
    FPedido : IBizPedidosProveedor;
    function GetPedido: IBizPedidosProveedor;
    procedure SetPedido(const Value: IBizPedidosProveedor);
  public
    property Pedido: IBizPedidosProveedor read GetPedido write SetPedido;
  end;

var
  frViewDatosPedido: TfrViewDatosPedido;

implementation

{$R *.dfm}

{ TfrViewDatosPedido }

function TfrViewDatosPedido.GetPedido: IBizPedidosProveedor;
begin
  Result := FPedido;
end;

procedure TfrViewDatosPedido.SetPedido(const Value: IBizPedidosProveedor);
begin
  FPedido := Value;
  if Assigned(FPedido) then
  begin
    DADataSource.DataTable := FPedido.DataTable;
    Self.Visible := True;
  end
  else
    DADataSource.DataTable := NIL;
end;

end.