unit uViewPagoProveedor;

interface

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

type
  IViewPagoProveedor = interface(IViewPago)
  ['{DEAA710D-F179-4C55-B233-2BB34A34DAA9}']
  end;

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

var
  frViewPagoProveedor: TfrViewPagoProveedor;

implementation

{$R *.dfm}
{ TfrViewPagoProveedor }

uses uBizContacto;

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

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

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

end.