david
d7b65d47a3
- Limpieza de código para NO usar skins de DevExpress?. git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@313 f4e31baf-9722-1c47-927c-6f952f962d4b
53 lines
1.5 KiB
ObjectPascal
53 lines
1.5 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;
|
|
|
|
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.
|