roberto
692c3ef605
Tareas #815: Cambiar la forma de pago y ponerla abajo en facturas Tareas #809: El informe de facturas y recibos de cliente que sea página larga y no apaisada para que quepan más, ponerlo tambien en recibos de clinete Tareas #808: ponme el porcentaje de Iva en el informe de clientes, igual que esta en los proveedores, es decir, a parte de la cantidad, que salga el 18% o el 8%... Gracias.! Tareas #806: Cuando metemos una factura de un proveedor y la asocio con un contrato para ver el beneficio.....en vez asociarse con un contrato deberia asociarse con una factura, ya que despues del contrato a veces se hacen ampliaciones etc etc... git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@46 93f398dd-4eb6-7a46-baf6-13f46f578da2
70 lines
2.5 KiB
ObjectPascal
70 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;
|
|
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.
|