unit uViewEntradaSalidaArticulos; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ImgList, PngImageList, uDADataTable, ActnList, ComCtrls, ToolWin, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, cxDBLookupComboBox, uViewGrid, StdCtrls, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, uAlmacenesController, uBizAlmacenes, TB2Item, TBX, TB2Dock, TB2Toolbar, uDataModuleInventario, cxRichEdit, cxTextEdit, dxPgsDlg, TBXDkPanels, uViewFiltroBase, cxSpinEdit, uDAInterfaces, uCustomView, uViewBase; type IViewViewEntradaSalidaArticulos = interface(IViewGrid) ['{71338ADF-30FD-44AA-974F-8270D228268B}'] // function GetAlmacenes: IBizAlmacen; // property Almacenes: IBizAlmacen read GetAlmacenes; end; TfrViewEntradaSalidaArticulos = class(TfrViewGrid, IViewViewEntradaSalidaArticulos) DADataSourceAlmacenes: TDADataSource; cxGridViewRecID: TcxGridDBColumn; cxGridViewID: TcxGridDBColumn; cxGridViewID_ARTICULO: TcxGridDBColumn; cxGridViewCANTIDAD: TcxGridDBColumn; cxGridViewID_PEDIDO_PROVEEDOR: TcxGridDBColumn; cxGridViewID_PEDIDO_CLIENTE: TcxGridDBColumn; cxGridViewREFERENCIA_PED_CLI: TcxGridDBColumn; cxGridViewDESCRIPCION: TcxGridDBColumn; cxGridViewID_EMPRESA: TcxGridDBColumn; cxGridViewREFERENCIA: TcxGridDBColumn; cxGridViewREFERENCIA_PROV: TcxGridDBColumn; cxGridViewSTOCK: TcxGridDBColumn; private //Es para cuando el almacen destino sea relativo a cada artículo, como lo vamos a //hacer relativo al conjunto esto sobra // FController: IAlmacenesController; // FAlmacenes: IBizAlmacen; // function GetAlmacenes: IBizAlmacen; public // property Almacenes: IBizAlmacen read GetAlmacenes; // constructor Create(AOwner : TComponent); override; // destructor destroy; override; end; implementation {$R *.dfm} uses uDataModuleAlmacenes; { TfrViewEntradaArticulosInventario } {constructor TfrViewEntradaSalidaArticulos.Create(AOwner: TComponent); begin inherited; FController := TAlmacenesController.Create; FAlmacenes := FController.BuscarTodos; DADataSourceAlmacenes.DataTable := FAlmacenes.DataTable; DADataSourceAlmacenes.DataTable.Active := True; end; destructor TfrViewEntradaSalidaArticulos.destroy; begin FController := Nil; inherited; end; function TfrViewEntradaSalidaArticulos.getAlmacenes: IBizAlmacen; begin Result := FAlmacenes; end;} end.