unit uViewPagos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, ActnList, Menus,
  cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
  JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
  dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
  uBizPagos;

type
  IViewPagos = interface(IViewGrid)
    ['{A407C7DD-49D2-4710-97AC-FA76AA91CEA6}']
    function GetPagos: IBizPagos;
    procedure SetPagos(const Value: IBizPagos);
    property Pagos: IBizPagos read GetPagos write SetPagos;
  end;

  TfrViewPagos = class(TfrViewGrid, IViewPagos)
    PngImageList: TPngImageList;
    cxGridViewRecID: TcxGridDBColumn;
    cxGridViewCODIGOEMPRESA: TcxGridDBColumn;
    cxGridViewCODIGO: TcxGridDBColumn;
    cxGridViewFECHAALTA: TcxGridDBColumn;
    cxGridViewUSUARIO: TcxGridDBColumn;
    cxGridViewCUENTA: TcxGridDBColumn;
    cxGridViewIMPORTE: TcxGridDBColumn;
    cxGridViewFORMAPAGO: TcxGridDBColumn;
    cxGridViewDESCRIPCION: TcxGridDBColumn;
    cxGridViewFECHAPAGO: TcxGridDBColumn;
    cxGridViewFECHAMODIFICACION: TcxGridDBColumn;
    cxGridViewCODIGOCONTACTO: TcxGridDBColumn;
    cxGridViewNOMBRE: TcxGridDBColumn;
    cxGridViewCODIGOCATEGORIA: TcxGridDBColumn;
    cxGridViewCATEGORIA: TcxGridDBColumn;
    cxGridViewICONO: TcxGridDBColumn;
    procedure cxGridViewICONOCustomDrawCell(
      Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
  protected
    FPagos: IBizPagos;
    function GetPagos: IBizPagos; virtual;
    procedure SetPagos(const Value: IBizPagos); virtual;
  public
    property DataSet: IBizPagos read GetPagos write SetPagos;
  end;

var
  frViewPagos: TfrViewPagos;

implementation

uses uDataModulePagos;


{$R *.dfm}

{ TfrViewClientes }

{
******************************* TfrViewPagos *******************************
}
function TfrViewPagos.GetPagos: IBizPagos;
begin
  Result := FPagos;
end;

procedure TfrViewPagos.SetPagos(const Value: IBizPagos);
begin
  FPagos := Value;
  if Assigned(FPagos) then
    DADataSource.DataTable := FPagos.DataTable;
end;


procedure TfrViewPagos.cxGridViewICONOCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  R : TRect;
begin
  inherited;
  R := AViewInfo.ContentBounds;
  ACanvas.FillRect(R);
  ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
  ADone := True;
end;

end.