AbetoDesign_FactuGES2/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas

unit uViewContratosClienteBeneficios;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
  dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, ImgList, PngImageList, ActnList, cxGridCustomPopupMenu,
  cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, uDAInterfaces,
  uDADataTable, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uCustomView,
  uViewBase, uViewFiltroBase, cxGridLevel, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
  cxGrid, uBizContratosCliente, cxCalendar, cxCurrencyEdit;

type
  TfrViewContratosClienteBeneficios = class(TfrViewGrid)
    cxGridViewID: TcxGridDBColumn;
    cxGridViewREFERENCIA: TcxGridDBColumn;
    cxGridViewFECHA_CONTRATO: TcxGridDBColumn;
    cxGridViewNOMBRE: TcxGridDBColumn;
    cxGridViewNIF_CIF: TcxGridDBColumn;
    cxGridViewIMPORTE_NETO: TcxGridDBColumn;
    cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn;
    cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
    cxGridViewIMPORTE_FACTURAS_PROVEEDOR: TcxGridDBColumn;
    cxGridViewIMPORTE_BENEFICIO: TcxGridDBColumn;
    cxGridViewPORCENTAJE_BENEFICIO: TcxGridDBColumn;
    cxGridViewIMPORTE_FACTURAS_CLIENTE: TcxGridDBColumn;
    cxGridViewIMPORTE_BENEFICIO_REAL: TcxGridDBColumn;
    cxGridViewPORCENTAJE_BENEFICIO_REAL: TcxGridDBColumn;
    cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
    procedure CustomViewDestroy(Sender: TObject);
  private
    FContratos: IBizContratosClienteBeneficios;
    function GetContratos: IBizContratosClienteBeneficios;
    procedure SetContratos(const Value: IBizContratosClienteBeneficios);

  public
    property Contratos: IBizContratosClienteBeneficios read GetContratos write SetContratos;
  end;

var
  frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios;

implementation

{$R *.dfm}

{ TfrViewContratosClienteBeneficios }

procedure TfrViewContratosClienteBeneficios.CustomViewDestroy(Sender: TObject);
begin
  FContratos := NIL;
  inherited;
end;

function TfrViewContratosClienteBeneficios.GetContratos: IBizContratosClienteBeneficios;
begin
  Result := FContratos;
end;

procedure TfrViewContratosClienteBeneficios.SetContratos(const Value: IBizContratosClienteBeneficios);
begin
  FContratos := Value;
  dsDataSource.DataTable := FContratos.DataTable;
end;

end.