diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index 9fc5391cf..d23155cc2 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -518,7 +518,7 @@
 
                     <%--GV DATOS--%>
                     <asp:GridView ID="GvDatos" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowFooter="True" ShowHeader="true" ShowHeaderWhenEmpty="True"
-                        DataKeyNames="Consec,CvePS,Codigo,CodigoBarras,AplicaSerieLote,CveUM,CantidadC,CantidadF,UM,PS,CveClasificacion,CveVentaDetalle,CveTamaño,AplicaSeccion, AplicaSerie,AplicaLote,AplicaCaducidad" HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall ScrollAD gvInventario mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
+                        DataKeyNames="Consec,CvePS,Codigo,CodigoBarras,CveUM,CantidadC,CantidadF,UM,PS,CveClasificacion,CveCategoria,CveVentaDetalle,CveTamaño,AplicaSeccion, AplicaSerie,AplicaLote,AplicaCaducidad" HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall ScrollAD gvInventario mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
                         <HeaderStyle Height="30px" />
                         <Columns>
                             <asp:TemplateField>
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index a11886ad0..f4b716677 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -938,7 +938,6 @@ Partial Class Inventarios_EntregaAlmacen
                     e.Row.FCTextBox("TbCantidadF").Text = "0"
                 End If
 
-
                 If TipoDocto = "DPe" Then
                     CveConsecSerie = e.Row.DBCampo("Consec").ToString().ToEntero()
                     PSSerie = e.Row.DBCampo("PS").ToString()
@@ -976,15 +975,7 @@ Partial Class Inventarios_EntregaAlmacen
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
                 If DdlAlmacen.SelectedValue.ToEntero() > 0 Then
                     CargaSeccionesAlmacen(e.Row.FCDropDownList("DdlSeccionAlmacen"), DdlAlmacen.SelectedValue.ToEntero(), e.Row.DBCampo("CvePS").ToEntero(), UsuarioActual.CveEmpresa, True)
-                    'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), e.Row.DBCampo("CvePS").ToEntero())
-                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
-                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
-                    'If dtt.Rows.Count > 1 Then
-                    '    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
-                    'End If
-                    'dtt.Dispose()
                 End If
-
             Else
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = False
             End If
@@ -1027,19 +1018,27 @@ Partial Class Inventarios_EntregaAlmacen
 
 
             'FUNCIONALIDAD PISTOLA DE CODIGOS
-            If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
-                e.Row.FCTextBox("TbCantidadF").Text = "0"
+            If e.Row.DBCampo("CodigoBarras").Trim <> "" AndAlso UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
+
                 'NO BLOQUEA PARA ROL AD
                 If UsuarioActual.CveRol = 1 Then
                     If AplicaSerie Then
                         e.Row.FCTextBox("TbCantidadF").Enabled = False
+                        e.Row.FCTextBox("TbCantidadF").Text = "0"
                     Else
                         e.Row.FCTextBox("TbCantidadF").Text = e.Row.DBCampo("CantidadF").ToDecimal.ToString("#,##0.######")
                     End If
                 End If
 
-                If Not UsuarioActual.CveRol = 1 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
+                Else
+                    If Not UsuarioActual.CveRol = 1 Then
+                        e.Row.FCTextBox("TbCantidadF").Enabled = False
+                        e.Row.FCTextBox("TbCantidadF").Text = "0"
+                    End If
                 End If
             End If
 
@@ -1048,7 +1047,6 @@ Partial Class Inventarios_EntregaAlmacen
                 e.Row.FCCheckBox("cbInv").Enabled = False
             End If
 
-
         End If
     End Sub