unit uViewMontajeRelacionado;

interface

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

type
  IViewMontajeRelacionado = interface(IViewBase)
  ['{202B0654-733C-403B-8795-4E8CF61A428E}']

    function GetMontaje: IBizMontaje;
    procedure SetMontaje(const Value: IBizMontaje);
    property Montaje: IBizMontaje read GetMontaje write SetMontaje;

    function GetOnMontajeChanged : TNotifyEvent;
    procedure SetOnMontajeChanged (const Value : TNotifyEvent);
    property OnMontajeChanged : TNotifyEvent read GetOnMontajeChanged
      write SetOnMontajeChanged;
  end;

  TfrViewMontajeRelacionado = class(TfrViewBase, IViewMontajeRelacionado)
    Label5: TLabel;
    Bevel1: TBevel;
    ActionList1: TActionList;
    actElegirMontaje: TAction;
    actVerMontaje: TAction;
    PngImageList: TPngImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton2: TToolButton;
    lblNombre: TLabel;
    DADataSource: TDADataSource;
    edtlReferencia: TcxDBTextEdit;
    procedure actVerMontajeExecute(Sender: TObject);
    procedure actVerMontajeUpdate(Sender: TObject);
  private
    FMontaje : IBizMontaje;
    FOnMontajeChanged : TNotifyEvent;
  protected
    function GetMontaje: IBizMontaje;
    procedure SetMontaje(const Value: IBizMontaje);
    function GetOnMontajeChanged : TNotifyEvent;
    procedure SetOnMontajeChanged (const Value : TNotifyEvent);
  public
    property Montaje: IBizMontaje read GetMontaje write SetMontaje;
    property OnMontajeChanged : TNotifyEvent read GetOnMontajeChanged
      write SetOnMontajeChanged;
  end;

var
  frViewMontajeRelacionado: TfrViewMontajeRelacionado;

implementation

uses
  uDataModuleMontajes, schMontajesClient_Intf;

{$R *.dfm}

{ TfrViewMontajeAlbaran }

procedure TfrViewMontajeRelacionado.actVerMontajeExecute(
  Sender: TObject);
begin
  FMontaje.Show;
end;

procedure TfrViewMontajeRelacionado.actVerMontajeUpdate(
  Sender: TObject);
begin
  inherited;
  (Sender as TAction).Enabled := (Length(edtlReferencia.Text) > 0);
end;

function TfrViewMontajeRelacionado.GetMontaje: IBizMontaje;
begin
  Result := FMontaje;
end;

procedure TfrViewMontajeRelacionado.SetMontaje(const Value: IBizMontaje);
begin
  FMontaje := Value;
  DADataSource.DataTable := FMontaje.DataTable;

  if Assigned(FOnMontajeChanged) then
    FOnMontajeChanged(Self);
end;

function TfrViewMontajeRelacionado.GetOnMontajeChanged: TNotifyEvent;
begin
  Result := FOnMontajeChanged;
end;

procedure TfrViewMontajeRelacionado.SetOnMontajeChanged(
  const Value: TNotifyEvent);
begin
  FOnMontajeChanged := Value;
end;

end.