unit uEditorAlbaranesDevProveedor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uEditorAlbaranesProveedor, JSDialog, Menus, DB, uDADataTable,
  JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
  PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
  TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
  JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesDevProveedor,
  uDAInterfaces, dxGDIPlusClasses;

type

  TfEditorAlbaranesDevProveedor = class(TfEditorAlbaranesProveedor, IEditorAlbaranesDevProveedor)
    N4: TMenuItem;
    Acercade1: TMenuItem;
  protected
    procedure AsignarVista; override;
    procedure NuevoInterno; override;
  public
    procedure PonerTitulos(const ATitulo: string = ''); override;
		constructor Create(AOwner: TComponent);  
  end;

implementation
{$R *.dfm}

uses
  uDataModuleUsuarios, uViewAlbaranesDevProveedor, uFactuGES_App;
   
{ TfEditorAlbaranesDevProveedor }

procedure TfEditorAlbaranesDevProveedor.AsignarVista;
begin
  ViewGrid := CreateView(TfrViewAlbaranesDevProveedor) as IViewAlbaranesDevProveedor;
end;

constructor TfEditorAlbaranesDevProveedor.Create(AOwner: TComponent);
begin
	inherited;

  FHeaderText := 'Lista de órdenes de devolución de proveedor';
  FWindowCaption := FHeaderText;	
end;

procedure TfEditorAlbaranesDevProveedor.NuevoInterno;
begin
//  inherited;
  if FController.AnadirAlbaranDev(Albaranes) then
     FController.Ver(Albaranes);
end;

procedure TfEditorAlbaranesDevProveedor.PonerTitulos(const ATitulo: string);
var
  FTitulo : String;
begin
  FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
  inherited PonerTitulos(FTitulo);
end;

end.