unit uEditorArticuloProveedor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uEditorArticulo, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
  JvFormPlacement, DB, uDADataTable, ImgList, PngImageList, StdActns, ActnList,
  ComCtrls, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls,
  JvComponent, JvNavigationPane,
  uIEditorArticuloProveedor, uArticulosController, uBizArticulos, JvExComCtrls,
  JvStatusBar, dxLayoutLookAndFeels;

type
  TfEditorArticuloProveedor = class(TfEditorArticulo, IEditorArticuloProveedor)
  protected
    //Si queremos crear otra vista para el editor heredado solo tendriamos que
    //sobreescribir este metodo
    procedure AsignarVista; override;

    procedure SetController (const Value : IArticulosController); override;
    procedure SetArticulo(const Value: IBizArticulo); override;

    procedure PonerTitulos(const ATitulo: string = ''); override;    
  end;

var
  fEditorArticuloProveedor: TfEditorArticuloProveedor;

implementation
{$R *.dfm}

uses uViewArticuloProveedor, uBizArticulosProveedor, uArticulosProveedorController,
  uViewArticulo;

{ TfEditorArticuloProveedor }

procedure TfEditorArticuloProveedor.AsignarVista;
var
  AViewArticuloProveedor: TfrViewArticuloProveedor;
begin
  AViewArticuloProveedor := TfrViewArticuloProveedor.create(Self);
  with AViewArticuloProveedor do
  begin
    Parent := pagGeneral;
    Align := alClient;
    dxLayoutControlArticulo.LookAndFeel := dxLayoutOfficeLookAndFeel1;
  end;
  ViewArticulo := AViewArticuloProveedor;
end;

procedure TfEditorArticuloProveedor.SetController(const Value: IArticulosController);
begin
  inherited;
{  if Assigned(FController) then
    (ViewArticulo as IViewArticuloProveedor).ViewDatosProveedor.Controller := (FController as IArticulosProveedorController).DatosProveedorController;}
end;

procedure TfEditorArticuloProveedor.PonerTitulos(const ATitulo: string);
var
  FTitulo : String;
begin
  if Assigned(Articulo) then
  begin
    if Articulo.EsNuevo then
      FTitulo := 'Nuevo artículo'
    else
      FTitulo := 'Artículo';
  end;

  inherited PonerTitulos(FTitulo);
end;

procedure TfEditorArticuloProveedor.SetArticulo(const Value: IBizArticulo);
begin
  inherited;
{  if Assigned(FViewArticulo) then
  begin
    (ViewArticulo as IViewArticuloProveedor).ViewDatosProveedor.DatosProveedor := (FArticulo as IBizArticuloProveedor).DatosProveedor;
  end;}
end;

end.