BDH. solo mostrar codigo de barras en acumuladores, RecepcionAlmacen.aspx

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1394,6 +1394,9 @@ Partial Class Inventarios_RecepcionAlmacen
         If Not TmDT.Columns.Contains("CantidadSeleccionada") Then
             TmDT.Columns.Add("CantidadSeleccionada", GetType(Decimal))
         End If
+        If Not TmDT.Columns.Contains("CveCategoria") Then
+            TmDT.Columns.Add("CveCategoria", GetType(Integer))
+        End If
 
 
         GvInv.Columns(2).Visible = False
@@ -1557,6 +1560,11 @@ Partial Class Inventarios_RecepcionAlmacen
             'FUNCIONALIDAD PISTOLA DE CODIGOS
             If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" And Not UsuarioActual.TienePermisoProceso(174) Then
                 e.Row.FCTextBox("TbCantidadF").Enabled = False
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'acumuladoras
+                    If e.Row.DBCampo("CveCategoria") <> "249" Then
+                        e.Row.FCTextBox("TbCantidadF").Enabled = True
+                    End If
+                End If
             End If
 
             If e.Row.DBCampo("CantidadF").ToDecimal = 0 Then
@@ -1606,7 +1614,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 Dim TxtCantidad = GvInv.Rows(Gvr.RowIndex).FCTextBox("TbCantidadF")
                 If Gvr.DataKey("CantidadF").ToDecimal - TxtCantidad.Text.ToDecimal - 1 >= 0 Then
 
-                    If Gvr.DataKey("AplicaSerieLote") = "True" Then
+                    If Gvr.DataKey("AplicaSerie") = "True" Then
                         TdSeriePS.Visible = True
                         TxtSeriePS.Focus()