unit uEditorResultadoPedidosConArticulo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
  JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
  ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
  ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
  pngimage, ExtCtrls, JvExControls, JvComponent,
  JvNavigationPane, uViewBarraSeleccion, StdCtrls,
  uBizPedidosProveedor, uIEditorResultadoPedidosConArticulo,
  JvExComCtrls, JvStatusBar, uEditorPedidosProveedor, uViewPedidosProveedor,
  JSDialog, uDAInterfaces;

type
  TfEditorResultadoPedidosConArticulo = class(TfEditorPedidosProveedor, IEditorResultadoPedidosConArticulo)
    EditorSeleccionActionList: TActionList;
    actBuscar2: TAction;
    actQuitarFiltro2: TAction;
    actAnchoAuto2: TAction;
    pnlHeader: TPanel;
    lblTitle: TLabel;
    lblComments: TLabel;
    actModificar2: TAction;
    procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
    procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure actAnchoAuto2Execute(Sender: TObject);
    procedure actQuitarFiltro2Execute(Sender: TObject);
    procedure actModificar2Execute(Sender: TObject);
  protected
    function GetPedidosProveedorSeleccionados: IBizPedidoProveedor;
    procedure SetMensaje (const AValue: String);
    function GetMensaje: String;
    procedure PonerTitulos(const ATitulo: String = ''); override;
    procedure ModificarInterno; override;    
  public
    property Mensaje : String read GetMensaje write SetMensaje;
    property PedidosProveedorSeleccionados: IBizPedidoProveedor read GetPedidosProveedorSeleccionados;
  end;

implementation

uses
  uStringsUtils, uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
  uGridUtils, uEditorBase, uPedidosProveedorController;

{$R *.dfm}

{ TfEditorElegirPedidosProveedor }

procedure TfEditorResultadoPedidosConArticulo.actAnchoAuto2Execute(Sender: TObject);
begin
  inherited;
  actAnchoAuto.Execute;
end;

procedure TfEditorResultadoPedidosConArticulo.actModificar2Execute(
  Sender: TObject);
begin
  inherited;
//
end;

procedure TfEditorResultadoPedidosConArticulo.actQuitarFiltro2Execute(Sender: TObject);
begin
  inherited;
  actQuitarFiltro.Execute;
end;

procedure TfEditorResultadoPedidosConArticulo.FormShow(Sender: TObject);
begin
  inherited;
  EditorActionList.State := asSuspended;
end;

procedure TfEditorResultadoPedidosConArticulo.frViewBarraSeleccion1actCancelarExecute(
  Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfEditorResultadoPedidosConArticulo.frViewBarraSeleccion1actSeleccionarExecute(
  Sender: TObject);
begin
  inherited;
  ModalResult := mrOk;
end;

function TfEditorResultadoPedidosConArticulo.GetPedidosProveedorSeleccionados: IBizPedidoProveedor;
begin
  SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
  // En SelectedRecords tengo los ID de las filas seleccionadas del grid
  Result := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor;
end;

procedure TfEditorResultadoPedidosConArticulo.ModificarInterno;
var
  APedido: IBizPedidoProveedor;
begin
//  inherited;
  APedido := FController.Buscar(Pedidos.ID);
  APedido.DataTable.Active := True;
  FController.Ver(APedido);
end;

procedure TfEditorResultadoPedidosConArticulo.PonerTitulos(const ATitulo: String);
var
  AHeaderText,
  AWindowText : String;
begin
  if EsCadenaVacia(ATitulo) then
  begin
    AHeaderText := FHeaderText;
    AWindowText := 'Listado de pedidos de proveedor encontrados'
  end
  else begin
    AHeaderText := ATitulo;
    AWindowText := 'Listado de pedidos de proveedor encontrados';
  end;

  if ReadOnly then
  begin
    AHeaderText := AHeaderText + '   (NO MODIFICABLE)';
    AWindowText := AWindowText + '   (NO MODIFICABLE)';
  end;

  JvNavPanelHeader.Caption := AHeaderText;
  Caption := AWindowText;
end;

function TfEditorResultadoPedidosConArticulo.GetMensaje: String;
begin
  Result := lblComments.Caption;
end;

procedure TfEditorResultadoPedidosConArticulo.SetMensaje(const AValue: String);
begin
  lblComments.Caption := AValue;
end;


end.