unit uViewDetallesPresupuestoCliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewDetallesArticulos, cxStyles, cxCustomData, cxGraphics, cxFilter,
  cxData, cxDataStorage, cxEdit, DB, cxDBData, ImgList, PngImageList,
  uDADataTable, ActnList, ComCtrls, ToolWin, cxGridLevel, cxClasses, cxControls,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, cxCurrencyEdit,
  Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, ExtActns, StdActns,
  JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar,
  uControllerDetallesArticulos, uBizPresupuestosCliente, uDAInterfaces;

type
  IViewDetallesPresupuestoCliente = interface(IViewDetallesArticulos)
  ['{3AF39FF4-291E-4E87-AF9A-93C240A744CD}']
    function GetPedido: IBizPresupuestoCliente;
    procedure SetPedido(const Value: IBizPresupuestoCliente);
    property Pedido: IBizPresupuestoCliente read GetPedido write SetPedido;
  end;

  TfrViewDetallesPresupuestoCliente = class(TfrViewDetallesArticulos, IViewDetallesPresupuestoCliente)
  protected
    FPedido: IBizPresupuestoCliente;
    function GetPedido: IBizPresupuestoCliente;
    procedure SetPedido(const Value: IBizPresupuestoCliente);

    procedure AnadirArticulosInterno; override;
    function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;

  public
    property Pedido: IBizPresupuestoCliente read GetPedido write SetPedido;
  end;

implementation
{$R *.dfm}

uses uDetallesPresupuestoClienteController;

{ TfrViewDetallesPedidoProveedor }

function TfrViewDetallesPresupuestoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
begin
  Result := (Controller as IDetallesPresupuestoClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Pedido.Cliente.ID);
end;

procedure TfrViewDetallesPresupuestoCliente.AnadirArticulosInterno;
begin
  (Controller as IDetallesPresupuestoClienteController).AnadirArticulos(Detalles, Pedido.Cliente);
end;

function TfrViewDetallesPresupuestoCliente.GetPedido: IBizPresupuestoCliente;
begin
  Result := FPedido; 
end;

procedure TfrViewDetallesPresupuestoCliente.SetPedido(const Value: IBizPresupuestoCliente);
begin
  FPedido := Value;
end;

end.