roberto
5102831435
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@1 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
55 lines
1.6 KiB
ObjectPascal
55 lines
1.6 KiB
ObjectPascal
unit uViewAgenteComisiones;
|
|
|
|
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, uBizContactos, uProveedoresController,
|
|
cxDBLookupComboBox, cxSpinEdit, uDAInterfaces;
|
|
|
|
type
|
|
TfrViewAgenteComisiones = class(TfrViewDetallesGenerico)
|
|
dsProveedores: TDADataSource;
|
|
cxGridViewPROVEEDOR: TcxGridDBColumn;
|
|
cxGridViewCOMISION: TcxGridDBColumn;
|
|
protected
|
|
FProvController : IProveedoresController;
|
|
FProveedores : IBizProveedor;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfrAgenteComisiones }
|
|
|
|
constructor TfrViewAgenteComisiones.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 TfrViewAgenteComisiones.Destroy;
|
|
begin
|
|
if dsProveedores.DataTable.Active then
|
|
dsProveedores.DataTable.Active := False;
|
|
|
|
FProveedores := NIL;
|
|
FProvController := NIL;
|
|
inherited;
|
|
end;
|
|
|
|
end.
|