unit uViewAlbaranFactura;

interface

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

type
  TfrViewAlbaranFactura = class(TfrViewAlbaranRelacionado)
    procedure actElegirAlbaranExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frViewAlbaranFactura: TfrViewAlbaranFactura;

implementation
{$R *.dfm}

uses uBizAlbaranesCliente, uDataModuleAlbaranesCliente;

procedure TfrViewAlbaranFactura.actElegirAlbaranExecute(Sender: TObject);
var
  AAlbaran : IBizAlbaranesCliente;
begin
  inherited;

  if Length(edtlReferencia.Text) > 0 then
    if (MessageBox(0, 'Esta factura ya tiene asociado un albarán. '+#13+#10+
      'Si elige otro albarán, se cambiará en esta factura el cliente y los conceptos '+#13+#10+
      'para hacerlos coincidir con el albarán elegido. '+#13+#10+
      '¿Desea continuar?', 'Confirmación', MB_ICONQUESTION or MB_YESNO) = idNo) then
      Exit;

  AAlbaran := dmAlbaranesCliente.GetItems;
  try
    if AAlbaran.ShowForSelect = mrOK then
    begin
      Self.Albaran := dmAlbaranesCliente.GetItemsSeleccionados(AAlbaran)
    end;
  finally
    AAlbaran := NIL;
  end;
end;

end.