unit uViewRemesasProveedor;

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, uBizRemesasProveedor, ActnList, Menus,
  cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
  JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
  dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
  cxGridCustomPopupMenu, cxGridPopupMenu, cxCurrencyEdit, cxSpinEdit, cxCheckBox,
  cxCheckComboBox, cxImageComboBox, TB2Item, TBX, TB2Toolbar, TBXDkPanels,
  TB2Dock, uViewFiltroBase, dxPgsDlg;

type
  IViewRemesasProveedor = interface(IViewGrid)
  ['{969B34FC-84E0-4D62-B577-371F71F32FB8}']
    function GetRemesasProveedor: IBizRemesaProveedor;
    procedure SetRemesasProveedor(const Value: IBizRemesaProveedor);
    property RemesasProveedor: IBizRemesaProveedor read GetRemesasProveedor write SetRemesasProveedor;
  end;

  TfrViewRemesasProveedor = class(TfrViewGrid, IViewRemesasProveedor)
    PngImageList: TPngImageList;
    cxGridViewRecID: TcxGridDBColumn;
    cxGridViewREFERENCIA: TcxGridDBColumn;
    cxGridViewFECHA_REMESA: TcxGridDBColumn;
    cxGridViewDESCRIPCION: TcxGridDBColumn;
    cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
    cxGridViewNOMBRE: TcxGridDBColumn;
    cxGridViewENTIDAD: TcxGridDBColumn;
    cxGridViewSUCURSAL: TcxGridDBColumn;
    cxGridViewDC: TcxGridDBColumn;
    cxGridViewCUENTA: TcxGridDBColumn;
    cxGridViewTIPO: TcxGridDBColumn;
    cxGridViewNUM_COPIAS: TcxGridDBColumn;
    procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
      var ADone: Boolean);
  protected
    FRemesasProveedor: IBizRemesaProveedor;
    function GetRemesasProveedor: IBizRemesaProveedor; virtual;
    procedure SetRemesasProveedor(const Value: IBizRemesaProveedor); virtual;
  public
    property RemesasProveedor: IBizRemesaProveedor read GetRemesasProveedor write SetRemesasProveedor;
  end;

implementation

uses uDataModuleRemesasProveedor;


{$R *.dfm}

{ TfrViewRemesasProveedor }

{
******************************* TfrViewRemesasProveedor *******************************
}
procedure TfrViewRemesasProveedor.cxGridViewNUM_COPIASCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  R : TRect;
begin
  inherited;
  if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
  begin
    R := AViewInfo.ContentBounds;
    ACanvas.FillRect(R);
    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2);
    ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
    ADone := True;
  end;
end;

function TfrViewRemesasProveedor.GetRemesasProveedor: IBizRemesaProveedor;
begin
  Result := FRemesasProveedor;
end;

procedure TfrViewRemesasProveedor.SetRemesasProveedor(const Value: IBizRemesaProveedor);
begin
  FRemesasProveedor := Value;
  if Assigned(FRemesasProveedor) then
    dsDataSource.DataTable := FRemesasProveedor.DataTable;
end;

end.