roberto
8679a9bc04
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
80 lines
2.8 KiB
ObjectPascal
80 lines
2.8 KiB
ObjectPascal
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.
|
||
|