unit uViewPago;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
  cxDropDownEdit, cxCalendar, cxDBEdit, DB, uDADataTable, StdCtrls, Mask,
  DBCtrls, ExtCtrls, cxGraphics, uCustomView, AppEvnts,
  uViewFormaPago, uBizPagos, uViewDatosYSeleccionContacto,  uViewDatosPago,
  uListaCuentas;

type
  IViewPago = interface(IViewBase)
  ['{E25FF94C-E4F6-4839-AA33-58039FA11611}']
    function GetPago: IBizPagos;
    procedure SetPago(const Value: IBizPagos);
    property Pago: IBizPagos read GetPago write SetPago;
  end;

  TfrViewPago = class(TfrViewBase, IViewPago)
    DADataSource: TDADataSource;
    frViewDatosPago: TfrViewDatosPago;
    frViewFormaPago: TfrViewFormaPago;
    frViewContacto: TfrViewDatosYSeleccionContacto;
    frListaCuentas1: TfrListaCuentas;
  private
    FPago: IBizPagos;
  protected
    function GetPago: IBizPagos;
    procedure SetPago(const Value: IBizPagos); virtual;
  public
    property Pago: IBizPagos read GetPago write SetPago;
  end;

implementation

uses uBizContacto, uExceptions, uDataModuleCuentas;

{$R *.dfm}

function TfrViewPago.GetPago: IBizPagos;
begin
  Result := FPago;
end;

procedure TfrViewPago.SetPago(const Value: IBizPagos);
begin
  FPago := Value;
  if Assigned(FPago) then
    DADataSource.DataTable := FPago.DataTable
  else
    DADataSource.DataTable := NIL;

  frViewFormaPago.DADataSource.DataTable := DADataSource.DataTable;
  frViewDatosPago.DADataSource.DataTable := DADataSource.DataTable;
end;

end.