unit uViewMontajePedido;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewMontajeRelacionado, ImgList, PngImageList, ActnList,
  cxControls, cxContainer, cxEdit, cxTextEdit, ComCtrls, ToolWin, ExtCtrls,
  StdCtrls, DB, uDADataTable, cxDBEdit;

type
  TfrViewMontajePedido = class(TfrViewMontajeRelacionado)
    procedure actElegirMontajeExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frViewMontajePedido: TfrViewMontajePedido;

implementation

uses uDataModuleMontajes, uBizMontajes;

{$R *.dfm}

procedure TfrViewMontajePedido.actElegirMontajeExecute(Sender: TObject);
var
  AMontaje : IBizMontaje;
begin
  inherited;

  AMontaje := dmMontajes.GetItemsPendientes(sitPendienteRecepcion);
  try
    if AMontaje.ShowForSelect = mrOK then
    begin
      AMontaje := dmMontajes.GetItemsSeleccionados(AMontaje);
      AMontaje.DataTable.Active := True;
      Self.Montaje := AMontaje;
    end;
  finally
    AMontaje := NIL;
  end;
end;

end.