Tecsitel_FactuGES2/Source/Modulos/Inventario/Views/uViewInventario.pas

unit uViewInventario;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frxClass, frxPreview, cxStyles,
  cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB,
  cxDBData, ActnList, uDADataTable, cxGridLevel, cxClasses, cxControls,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, StdCtrls, ExtCtrls, cxLabel, dxPSGlbl, dxPSUtl,
  dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, cxImage,
  cxImageComboBox, ImgList, PngImageList, cxTextEdit, Grids, DBGrids, cxDBLookupComboBox,
  cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid,
  uBizInventario, cxSpinEdit, uViewFiltroBase, TB2Item, TBX,
  TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uDAInterfaces,
  cxContainer, cxMaskEdit, cxDropDownEdit;
//  uBizAlmacenes, uBizObras;

type
  IViewInventario = interface(IViewGrid)
    ['{4BAE6CBE-4CBB-4103-B85E-80BE5310723A}']
    function GetInventario: IBizInventario;
    procedure SetInventario(const Value: IBizInventario);
    property Inventario: IBizInventario read GetInventario write SetInventario;
    function GetAlmacenes: TStringList;
    procedure SetAlmacenes(const Value: TStringList);
    property Almacenes: TStringList read GetAlmacenes write SetAlmacenes;
    function GetObras: TStringList;
    procedure SetObras(const Value: TStringList);
    property Obras: TStringList read GetObras write SetObras;
  end;

  TfrViewInventario = class(TfrViewGrid, IViewInventario)
    cxGridDBTableView1: TcxGridDBTableView;
    cxStyleArticuloSinStock: TcxStyle;
    cxGridViewSTOCK: TcxGridDBColumn;
    cxGridViewDESCRIPCION: TcxGridDBColumn;
    cxGridViewREFERENCIA: TcxGridDBColumn;
    cxGridViewFAMILIA: TcxGridDBColumn;
    cxGridViewALMACEN: TcxGridDBColumn;
    cxGridViewID_ALMACEN: TcxGridDBColumn;
    cxGridViewRESERVA: TcxGridDBColumn;
    cxGridViewPENDIENTE_RECEPCION: TcxGridDBColumn;
    cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
    cxGridViewUNIDADES_ALMACEN: TcxGridDBColumn;
    cxGridViewPRECIO_NETO: TcxGridDBColumn;
    cxGridViewCOSTE_UNIDADES: TcxGridDBColumn;
    cxGridViewID: TcxGridDBColumn;
    cxGridViewID_ARTICULO: TcxGridDBColumn;
    cxStyleArticuloConStock: TcxStyle;
    Panel1: TPanel;
    cxListaAlmacenesObras: TcxComboBox;
    procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
            ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
            AStyle: TcxStyle);
    procedure cxListaObrasPropertiesEditValueChanged(Sender: TObject);

  private
    //Filtros relativos a la vista
    procedure AnadirFiltroAlmacenesObras;

  protected
    FAlmacenes: TStringList;
    FObras: TStringList;
    FInventario: IBizInventario;
    function GetAlmacenes: TStringList;
    procedure SetAlmacenes(const Value: TStringList);
    function GetObras: TStringList;
    procedure SetObras(const Value: TStringList);
    function GetInventario: IBizInventario;
    procedure SetInventario(const Value: IBizInventario);
  public
    property Inventario: IBizInventario read GetInventario write SetInventario;
    procedure AnadirOtrosFiltros; override;
    destructor Destroy; override;
  end;

implementation
{$R *.dfm}

uses uDataModuleInventario, schInventarioClient_Intf;

procedure TfrViewInventario.AnadirFiltroAlmacenesObras;
var
  FFiltro : TcxFilterCriteriaItemList;
  CodigoAlmacen: String;
begin
  FFiltro := AddFilterGrid(fboAnd);

  //INV_ALMACENES
  if Assigned(FAlmacenes) then
     CodigoAlmacen := FAlmacenes.Values[cxListaAlmacenesObras.EditValue]
  //INV_OBRAS
  else if Assigned(FObras) then
     CodigoAlmacen := FObras.Values[cxListaAlmacenesObras.EditValue]
  else
     Raise Exception.Create('No se ha asignado ninguna lista de ALMACENES');

  if CodigoAlmacen <> '' then
  begin
     FFiltro.AddItem(cxGridViewID_ALMACEN, foEqual, CodigoAlmacen, CodigoAlmacen);
     cxGridViewALMACEN.Visible := False;
  end
  else
     cxGridViewALMACEN.Visible := True;
end;

procedure TfrViewInventario.AnadirOtrosFiltros;
begin
  inherited;

  AnadirFiltroAlmacenesObras;

  //Finalmente activamos el filtro si tenemos algo
  if cxGridView.DataController.Filter.IsEmpty
  then cxGridView.DataController.Filter.Active := False
  else cxGridView.DataController.Filter.Active := True;
  cxGrid.ActiveLevel.GridView := cxGridView;
end;

procedure TfrViewInventario.cxGridViewStylesGetContentStyle(Sender:
        TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
        TcxCustomGridTableItem; out AStyle: TcxStyle);
var
  IndiceCol: Integer;
  AStock: Variant;
begin
  inherited;
  if Assigned(ARecord) then
  begin
    IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_INVENTARIOSTOCK).Index;
    AStock := ARecord.DisplayTexts[IndiceCol];
    if (AStock < 0) then
      AStyle.TextColor := cxStyleArticuloSinStock.TextColor
    else
      AStyle.TextColor := cxStyleArticuloConStock.TextColor;
  end;
end;

procedure TfrViewInventario.cxListaObrasPropertiesEditValueChanged(
  Sender: TObject);
begin
  inherited;
  RefrescarFiltro;  
end;

destructor TfrViewInventario.Destroy;
begin
  FAlmacenes := Nil;
  FObras := Nil;  
  FInventario := Nil;
  inherited;
end;

function TfrViewInventario.GetAlmacenes: TStringList;
begin
  Result := FAlmacenes;
end;

function TfrViewInventario.GetInventario: IBizInventario;
begin
  Result := FInventario;
end;

function TfrViewInventario.GetObras: TStringList;
begin
  Result := FObras;
end;

procedure TfrViewInventario.SetAlmacenes(const Value: TStringList);
var
  Nivel: TcxGridLevel;
  i: integer;
begin
  FAlmacenes := Value;

  if Assigned(FAlmacenes) then
  begin
    cxGrid.BeginUpdate;
    try
      with cxListaAlmacenesObras.Properties.Items do
      begin
        BeginUpdate;
        try
          Clear;
          for i := 0 to FAlmacenes.Count - 1 do
            Add(FAlmacenes.Names[i]);
        finally
          EndUpdate;
        end;
      end;

    finally
      cxGrid.EndUpdate;
    end;
  end;
end;

procedure TfrViewInventario.SetInventario(const Value: IBizInventario);
begin
  FInventario := Value;
  if Assigned(FInventario) then
     dsDataSource.DataTable := FInventario.DataTable
  else
     dsDataSource.DataTable := Nil;
end;

procedure TfrViewInventario.SetObras(const Value: TStringList);
var
  Nivel: TcxGridLevel;
  i: integer;
begin
  FObras := Value;

  if Assigned(FObras) then
  begin
    cxGrid.BeginUpdate;
    try
      with cxListaAlmacenesObras.Properties.Items do
      begin
        BeginUpdate;
        try
          Clear;
          for i := 0 to FObras.Count - 1 do
            Add(FObras.Names[i]);
        finally
          EndUpdate;
        end;
      end;

    finally
      cxGrid.EndUpdate;
    end;
  end;
end;

end.