david
900b88959d
- Configuración del módulo de contactos (sin terminar) git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@272 f4e31baf-9722-1c47-927c-6f952f962d4b
59 lines
2.0 KiB
ObjectPascal
59 lines
2.0 KiB
ObjectPascal
unit uViewClienteDescuentos;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics,
|
|
cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList,
|
|
PngImageList, uDADataTable, ComCtrls, ToolWin, cxGridLevel,
|
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
|
cxControls, cxGridCustomView, cxGrid, cxDBLookupComboBox, cxSpinEdit,
|
|
uBizContactos, uProveedoresController, uDAInterfaces, dxSkinsCore,
|
|
dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans,
|
|
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
|
|
dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
|
|
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
|
|
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
|
|
dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
|
|
|
type
|
|
TfrViewClienteDescuentos = class(TfrViewDetallesGenerico)
|
|
dsProveedores: TDADataSource;
|
|
cxGridViewPROVEEDOR: TcxGridDBColumn;
|
|
cxGridViewDESCUENTO: TcxGridDBColumn;
|
|
protected
|
|
FProvController : IProveedoresController;
|
|
FProveedores : IBizProveedor;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
constructor TfrViewClienteDescuentos.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FProvController := TProveedoresController.Create;
|
|
FProveedores := (FProvController.BuscarTodos as IBizProveedor);
|
|
dsProveedores.DataTable := FProveedores.DataTable;
|
|
|
|
if not dsProveedores.DataTable.Active then
|
|
dsProveedores.DataTable.Active := True;
|
|
end;
|
|
|
|
destructor TfrViewClienteDescuentos.Destroy;
|
|
begin
|
|
if dsProveedores.DataTable.Active then
|
|
dsProveedores.DataTable.Active := False;
|
|
|
|
FProveedores := NIL;
|
|
FProvController := NIL;
|
|
inherited;
|
|
end;
|
|
|
|
end.
|