unit uViewAlmacenes;

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, uBizAlmacenes, ActnList, Menus,
  cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
  JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
  dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk;

type
  IViewAlmacenes = interface(IViewGrid)
    ['{B88935A5-527C-4CF5-84A6-AA197FB71674}']
    function GetAlmacenes: IBizAlmacen;
    procedure SetAlmacenes(const Value: IBizAlmacen);
    property Almacenes: IBizAlmacen read GetAlmacenes write SetAlmacenes;
  end;

  TfrViewAlmacenes = class(TfrViewGrid, IViewAlmacenes)
    cxGrid1ViewPERSONACONTACTO: TcxGridDBColumn;
    cxGrid1ViewNOMBRE: TcxGridDBColumn;
    cxGrid1ViewTELEFONO: TcxGridDBColumn;
    cxGridViewCODIGO: TcxGridDBColumn;
    PngImageList: TPngImageList;
    procedure cxGridViewCODIGOCustomDrawCell(
      Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
  protected
    FAlmacenes: IBizAlmacen;
    function GetAlmacenes: IBizAlmacen; virtual;
    procedure SetAlmacenes(const Value: IBizAlmacen); virtual;
  public
    property DataSet: IBizAlmacen read GetAlmacenes write SetAlmacenes;
  end;
  
var
  frViewAlmacenes: TfrViewAlmacenes;

implementation

uses uDataModuleAlmacenes;


{$R *.dfm}

{ TfrViewClientes }

{
******************************* TfrViewAlmacenes *******************************
}
function TfrViewAlmacenes.GetAlmacenes: IBizAlmacen;
begin
  Result := FAlmacenes;
end;

procedure TfrViewAlmacenes.SetAlmacenes(const Value: IBizAlmacen);
begin
  FAlmacenes := Value;
  if Assigned(FAlmacenes) then
    DADataSource.DataTable := FAlmacenes.DataTable;
end;


procedure TfrViewAlmacenes.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, 0);
  ADone := True;
end;

end.