unit uViewFacturasProveedor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewGrid, uViewPreview, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl,
  dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
  dxPSFillPatterns, dxPSEdgePatterns, cxImageComboBox, cxTextEdit, ImgList,
  PngImageList, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  dxPSCore, dxPScxCommon, dxPScxGridLnk, ActnList, uDADataTable,
  cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid,
  cxImage, Grids, DBGrids, uBizFacturasProveedor;

type
  IViewFacturasProveedor = interface(IViewGrid)
    ['{82E4A231-1B52-4C90-8E10-D485E8A13C49}']
    procedure SyncFocusedRecord;
    function GetFacturasProveedor: IBizFacturasProveedor;
    procedure SetFacturasProveedor(const Value: IBizFacturasProveedor);
    property FacturasProveedor: IBizFacturasProveedor read GetFacturasProveedor
      write SetFacturasProveedor;
  end;

  TfrViewFacturasProveedor = class(TfrViewGrid, IViewFacturasProveedor)
    PngImageList: TPngImageList;
    cxGridViewNOMBRE: TcxGridDBColumn;
    cxGridViewFECHAFACTURA: TcxGridDBColumn;
    cxGridViewSITUACION: TcxGridDBColumn;
    cxGridViewIMPORTETOTAL: TcxGridDBColumn;
    cxGridViewREFERENCIA: TcxGridDBColumn;
    cxGridViewCODIGO: TcxGridDBColumn;
    cxGridViewICONO: TcxGridDBColumn;
    procedure cxGridViewCODIGOCustomDrawCell(
      Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
  private
  protected
    FFacturasProveedor: IBizFacturasProveedor;
    function GetFacturasProveedor: IBizFacturasProveedor;
    procedure SetFacturasProveedor(const Value: IBizFacturasProveedor);
  public
    procedure SyncFocusedRecord;
    property FacturasProveedor: IBizFacturasProveedor read GetFacturasProveedor
      write SetFacturasProveedor;
  end;

var
  frViewFacturasProveedor: TfrViewFacturasProveedor;

implementation

uses
  uDataModuleFacturasProveedor;

{$R *.dfm}

{ TfrViewFacturasProveedor }

function TfrViewFacturasProveedor.GetFacturasProveedor: IBizFacturasProveedor;
begin
  Result := FFacturasProveedor;
end;

procedure TfrViewFacturasProveedor.SetFacturasProveedor(
  const Value: IBizFacturasProveedor);
begin
  FFacturasProveedor := Value;
  if Assigned(FFacturasProveedor) then
    DADataSource.DataTable := FFacturasProveedor.DataTable;
end;

procedure TfrViewFacturasProveedor.cxGridViewCODIGOCustomDrawCell(
  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, 2);
  ADone := True;
end;

procedure TfrViewFacturasProveedor.SyncFocusedRecord;
begin
//
end;

end.