unit uViewDetallesFacturaProforma;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewDetallesBase, 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, StdActns, ExtActns,
  JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar,
  uControllerDetallesArticulos, uViewDetallesArticulos, uBizFacturasProforma,
  uDAInterfaces, cxDropDownEdit, cxButtonEdit, Menus, cxGridCustomPopupMenu,
  cxGridPopupMenu, cxEditRepositoryItems, uViewDetallesArticulosParaVenta;

type
  IViewDetallesFacturaProforma = interface(IViewDetallesArticulos)
  ['{AC75205E-0A9F-4C50-ACD6-62B71DFD99BD}']
    function GetFactura: IBizFacturaProforma;
    procedure SetFactura(const Value: IBizFacturaProforma);
    property Factura: IBizFacturaProforma read GetFactura write SetFactura;
  end;

  TfrViewDetallesFacturaProforma = class(TfrViewDetallesArticulosParaVenta, IViewDetallesFacturaProforma)
    TBXItem18: TTBXItem;
  protected
    FFactura: IBizFacturaProforma;
    function GetFactura: IBizFacturaProforma;
    procedure SetFactura(const Value: IBizFacturaProforma);

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

  public
    property Factura: IBizFacturaProforma read GetFactura write SetFactura;
  end;

implementation
{$R *.dfm}

uses uDetallesFacturaProformaController;

{ TfrViewDetallesFacturaProforma }

function TfrViewDetallesFacturaProforma.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
begin
  Result := (Controller as IDetallesFacturaProformaController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Factura.Cliente.ID);
end;

procedure TfrViewDetallesFacturaProforma.AnadirArticulosInterno;
begin
  (Controller as IDetallesFacturaProformaController).AnadirArticulos(Detalles, Factura.Cliente);
end;

function TfrViewDetallesFacturaProforma.GetFactura: IBizFacturaProforma;
begin
  Result := FFactura;
end;

procedure TfrViewDetallesFacturaProforma.RellenarArticulosInterno;
begin
  (Controller as IDetallesFacturaProformaController).AnadirArticulos(Detalles, Factura.Cliente, False);
end;

procedure TfrViewDetallesFacturaProforma.SetFactura(const Value: IBizFacturaProforma);
begin
  FFactura := Value;
end;

end.