unit uViewDetallesPedidosProveedor;

interface

uses
  Windows, Messages, cxImageComboBox,
  cxTextEdit, cxSpinEdit, cxStyles, cxCustomData, cxGraphics, cxFilter,
  cxData, cxDataStorage, cxEdit, DB, cxDBData, ImgList, Controls,
  PngImageList, uDADataTable, Classes, ActnList, ComCtrls, ToolWin,
  cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxClasses, cxControls, cxGridCustomView, cxGrid, uViewDetallesFamilias,
  cxCheckBox, cxMaskEdit, cxCurrencyEdit, uViewDetallesNormales;

type
  TfrViewDetallesPedidosProveedor = class(TfrViewDetallesNormales)
    cxGridViewDESCRIPCION: TcxGridDBColumn;
    cxGridViewCANTIDAD: TcxGridDBColumn;
    cxGridViewIMPORTEUNIDAD: TcxGridDBColumn;
    cxGridViewIMPORTETOTAL: TcxGridDBColumn;
    cxGridViewPOSICION: TcxGridDBColumn;
    procedure cxGridViewEditing(Sender: TcxCustomGridTableView;
      AItem: TcxCustomGridTableItem; var AAllow: Boolean);
  end;


implementation

uses
  Variants, uBizImportesDetalleBase, SysUtils;

{$R *.dfm}

procedure TfrViewDetallesPedidosProveedor.cxGridViewEditing(
  Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem;
  var AAllow: Boolean);
var
  IndiceCol : Integer;
begin
  IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_IMPORTEPUNTOS).Index;
  if AItem.Index = IndiceCol then
  begin
    IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index;
    if (UpperCase(AItem.GridView.Items[IndiceCol].EditValue) = TIPODETALLE_SUBTOTAL) then
      AAllow := False
    else
      AAllow := True
  end
  else
    inherited;
end;

end.