unit uViewArticulosProveedor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewArticulos, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
  dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, ImgList, PngImageList, cxGridCustomPopupMenu,
  cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGridLnk, uDADataTable,
  cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  uBizArticulos,
  cxClasses, cxControls, cxGridCustomView, cxGrid, uBizArticulosProveedor,
  Grids, DBGrids;

type
  IViewArticulosProveedor = interface(IViewArticulos)
  ['{55EF70A6-F758-4603-AFB9-38BC4BDFBA27}']
  end;

  TfrViewArticulosProveedor = class(TfrViewArticulos, IViewArticulosProveedor)
    cxGridViewID: TcxGridDBColumn;
    cxGridViewCOMISIONABLE: TcxGridDBColumn;
    cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
    cxGridViewPRECIO_COSTE: TcxGridDBColumn;
    cxGridViewPRECIO_PORTE: TcxGridDBColumn;
    cxGridViewDESCUENTO: TcxGridDBColumn;
    cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn;
  protected
    FArticulosProveedor: IBizArticuloProveedor;
  public
    procedure SetArticulos(const Value: IBizArticulo); override;
  end;

implementation

uses
  schArticulosClient_Intf, uViewGridBase, uViewGrid;

{$R *.dfm}

procedure TfrViewArticulosProveedor.SetArticulos(const Value: IBizArticulo);
begin
  inherited;
  if Assigned(FArticulos) then
  begin
    FArticulosProveedor := (FArticulos as IBizArticuloProveedor);
  end
  else begin
    FArticulosProveedor := nil;
  end;
end;

end.