david
acd17b74cc
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@2 c93665c3-c93d-084d-9b98-7d5f4a9c3376
55 lines
1.5 KiB
ObjectPascal
55 lines
1.5 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;
|
|
|
|
type
|
|
TfrAgenteComisiones = 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 TfrAgenteComisiones.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 TfrAgenteComisiones.Destroy;
|
|
begin
|
|
if dsProveedores.DataTable.Active then
|
|
dsProveedores.DataTable.Active := False;
|
|
|
|
FProveedores := NIL;
|
|
FProvController := NIL;
|
|
inherited;
|
|
end;
|
|
|
|
end.
|