roberto
6d9cdf76e1
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@119 93f398dd-4eb6-7a46-baf6-13f46f578da2
71 lines
2.5 KiB
ObjectPascal
71 lines
2.5 KiB
ObjectPascal
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.
|