79 lines
2.7 KiB
ObjectPascal
79 lines
2.7 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, dxPScxGridLnk,
|
|||
|
|
uAlmacenesController, uBizAlmacenes, TB2Item, TBX, TB2Dock, TB2Toolbar,
|
|||
|
|
uDataModuleInventario, cxRichEdit, cxTextEdit;
|
|||
|
|
|
|||
|
|
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<72>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.
|