david
ceacc28fe9
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@75 f33bb606-9f5c-448d-9c99-757f00063c96
54 lines
1.6 KiB
ObjectPascal
54 lines
1.6 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, cxLookAndFeels,
|
|
cxLookAndFeelPainters;
|
|
|
|
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.
|