AlonsoYSal_FactuGES/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.pas

unit uViewFichaBeneficiosMontaje;

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, uBizMontajes, JvComponent,
  JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
  dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
  ComCtrls, ToolWin, cxCurrencyEdit, Grids, DBGrids, uViewFiltroBase;

type
  IViewFichaBeneficiosMontaje = interface(IViewGrid)
  ['{1395A065-A16D-485A-98A9-C27F19290F64}']
    function GetFichaBeneficiosMontaje: IBizFichaBeneficiosMontaje;
    procedure SetFichaBeneficiosMontaje(const Value: IBizFichaBeneficiosMontaje);
    property FichaBeneficiosMontaje: IBizFichaBeneficiosMontaje read GetFichaBeneficiosMontaje write SetFichaBeneficiosMontaje;
  end;

  TfrViewFichaBeneficiosMontaje = class(TfrViewGrid, IViewFichaBeneficiosMontaje)
    PngImageList: TPngImageList;
    cxGridViewRecID: TcxGridDBColumn;
    cxGridViewCODIGOMONTAJE: TcxGridDBColumn;
    cxGridViewNUMCONCEPTO: TcxGridDBColumn;
    cxGridViewVENTA: TcxGridDBColumn;
    cxGridViewCOMPRA: TcxGridDBColumn;
    cxGridViewMODELO: TcxGridDBColumn;
    cxGridViewPROVEEDOR: TcxGridDBColumn;
    cxGridViewDESCRIPCION: TcxGridDBColumn;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton7: TToolButton;
    actAnadir: TAction;
    actEliminar: TAction;
    procedure cxGridViewCODIGOCustomDrawCell(
      Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure cxGridViewTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems0GetText(
      Sender: TcxDataSummaryItem; const AValue: Variant;
      AIsFooter: Boolean; var AText: String);

    procedure actAnadirExecute(Sender: TObject);
    procedure actEliminarExecute(Sender: TObject);
  protected
    FFichaBeneficiosMontaje: IBizFichaBeneficiosMontaje;
    function GetFichaBeneficiosMontaje: IBizFichaBeneficiosMontaje;
    procedure SetFichaBeneficiosMontaje(const Value: IBizFichaBeneficiosMontaje);
  public
    property FichaBeneficiosMontaje: IBizFichaBeneficiosMontaje read GetFichaBeneficiosMontaje write SetFichaBeneficiosMontaje;
  end;

var
  frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje;

implementation

uses uBizInformesBase;


{$R *.dfm}

{ TfrViewFichaBeneficiosMontaje }

{
******************************* TfrViewFichaBeneficiosMontaje *******************************
}
function TfrViewFichaBeneficiosMontaje.GetFichaBeneficiosMontaje: IBizFichaBeneficiosMontaje;
begin
  Result := FFichaBeneficiosMontaje;
end;

procedure TfrViewFichaBeneficiosMontaje.SetFichaBeneficiosMontaje(const Value: IBizFichaBeneficiosMontaje);
begin
  FFichaBeneficiosMontaje := Value;
  if Assigned(FFichaBeneficiosMontaje) then
    DADataSource.DataTable := FFichaBeneficiosMontaje.DataTable;
end;

procedure TfrViewFichaBeneficiosMontaje.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;

procedure TfrViewFichaBeneficiosMontaje.cxGridViewTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems0GetText(
  Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean;
  var AText: String);
begin
  inherited;
  AText := 'Beneficio total = ';
end;

procedure TfrViewFichaBeneficiosMontaje.actAnadirExecute(Sender: TObject);
begin
  inherited;
  if Assigned(FichaBeneficiosMontaje) then
  begin
     if FichaBeneficiosMontaje.DataTable.Editing then
        FichaBeneficiosMontaje.DataTable.Post;
     FichaBeneficiosMontaje.Append;
//        FichaBeneficiosMontaje.DataTable.Post;     
  end;
end;

procedure TfrViewFichaBeneficiosMontaje.actEliminarExecute(
  Sender: TObject);
begin
  inherited;
  if Assigned(FichaBeneficiosMontaje) then
     FichaBeneficiosMontaje.Delete;
end;

end.