unit uEditorArticulosProveedor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uEditorArticulos, Menus, DB, uDADataTable, JvAppStorage,
  JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
  StdActns, ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
  uViewArticulos, ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock,
  TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
  uIEditorArticulosProveedor, JvExComCtrls, JvStatusBar, Grids, DBGrids;

type
  TfEditorArticulosProveedor = class(TfEditorArticulos, IEditorArticulosProveedor)
  protected
    //Si queremos crear otra vista para el editor heredado solo tendriamos que
    //sobreescribir este metodo
    procedure AsignarVista; override;
  end;

implementation
{$R *.dfm}

uses uViewArticulosProveedor;

{ TfEditorArticulosProveedor }

procedure TfEditorArticulosProveedor.AsignarVista;
begin
  // INHERITED;
  ViewGrid := CreateView(TfrViewArticulosProveedor) as IViewArticulos;
end;

end.