unit uViewPagoCliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewPago, DB, uDADataTable, uViewDatosYSeleccionContacto,
  uViewFormaPago, uCustomView, uViewBase, uViewDatosPago, uBizPagos,
  uListaCuentas;

type
  IViewPagoCliente = interface(IViewPago)
  ['{2EBD9235-AF8F-4207-B883-09F54085F8A4}']
  end;

  TfrViewPagoCliente = class(TfrViewPago, IViewPagoCliente)
  protected
    procedure SetPago(const Value: IBizPagos); override;
    procedure OnContactoChanged(Sender : TObject);
  end;

var
  frViewPagoCliente: TfrViewPagoCliente;

implementation

{$R *.dfm}
{ TfrViewPagoCliente }

uses uBizContacto;

procedure TfrViewPagoCliente.OnContactoChanged(Sender: TObject);
begin
  Pago.Contacto := (frViewContacto.Contacto as IBizCliente);
end;

procedure TfrViewPagoCliente.SetPago(const Value: IBizPagos);
begin
  inherited;

  frViewContacto.Contacto := Pago.Contacto;
  frViewContacto.OnContactoChanged := OnContactoChanged;
end;

end.