roberto
c06cdb0a91
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1067 0c75b7a4-871f-7646-8a2f-f78d34cc349f
113 lines
3.7 KiB
ObjectPascal
113 lines
3.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, dxPScxGrid6Lnk,
|
|
uAlmacenesController, uBizAlmacenes, TB2Item, TBX, TB2Dock, TB2Toolbar,
|
|
uDataModuleInventario, cxRichEdit, cxTextEdit, dxPgsDlg, TBXDkPanels,
|
|
uViewFiltroBase, cxSpinEdit, uDAInterfaces, uCustomView, uViewBase;
|
|
|
|
type
|
|
IViewViewEntradaSalidaArticulos = interface(IViewGrid)
|
|
['{C195FC01-604A-484E-A809-0ED49890DBBE}']
|
|
// 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;
|
|
cxStyle_CANTIDAD_IMPAR: TcxStyle;
|
|
cxStyle_CANTIDAD_PAR: TcxStyle;
|
|
procedure cxGridViewStylesGetContentStyle(
|
|
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
|
|
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
|
|
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;}
|
|
|
|
{ TfrViewEntradaSalidaArticulos }
|
|
|
|
{ TfrViewEntradaSalidaArticulos }
|
|
|
|
procedure TfrViewEntradaSalidaArticulos.cxGridViewStylesGetContentStyle(
|
|
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
|
|
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
|
|
begin
|
|
inherited;
|
|
if Assigned(AItem) then
|
|
begin
|
|
if AItem.Index = cxGridViewCANTIDAD.Index then
|
|
begin
|
|
if Odd(ARecord.Index) then
|
|
AStyle := cxStyle_NORMAL_PAR
|
|
else
|
|
AStyle := cxStyle_NORMAL_IMPAR;
|
|
AStyle.Font.Style := [fsBold];
|
|
end
|
|
else begin
|
|
if Odd(ARecord.Index) then
|
|
AStyle := cxStyle_ORDENADO_PAR
|
|
else
|
|
AStyle := cxStyle_ORDENADO_IMPAR;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
end.
|