147 lines
4.3 KiB
ObjectPascal
147 lines
4.3 KiB
ObjectPascal
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.
|