diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 2c7a86278..13e274982 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -36,6 +36,14 @@ Partial Class Inventarios_RecepcionAlmacen
             ViewState("ValidaLoteCaducidad") = value
         End Set
     End Property
+    Private Property CveTipoAlmacen As Integer
+        Get
+            Return CType(ViewState("CveTipoAlmacen"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("CveTipoAlmacen") = value
+        End Set
+    End Property
     Private Property DtInv As DataTable
         Get
             If ViewState("DtInv") Is Nothing Then
@@ -557,18 +565,26 @@ Partial Class Inventarios_RecepcionAlmacen
     End Sub
 
     Private Sub RecargaporAlmacenes()
-
+        CveTipoAlmacen = -1
         If DdlAlmacen.SelectedValue <> "-1" Then
 
-            Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToEntero
-            'RMF condición temporal
-            If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
-                ValidaLoteCaducidad = True
-            Else
-                ValidaLoteCaducidad = False
+            Dim drr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero).FiltroPrimero("")
+            If drr IsNot Nothing Then
+                '("CveSubProyecto").ToEntero
+                Dim CveSubProyecto As Integer = drr("CveSubProyecto").ToString.ToEntero
+                'RMF condición temporal
+                If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
+                    ValidaLoteCaducidad = True
+                Else
+                    ValidaLoteCaducidad = False
+                End If
+
+                CveTipoAlmacen = drr("CveTipoAlmacen").ToString.ToEntero
+
             End If
 
 
+
             CargaGVInv()
             'For Each Gvr As GridViewRow In GvInv.Rows
             '    If Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue = "-1" Then
@@ -1421,6 +1437,16 @@ Partial Class Inventarios_RecepcionAlmacen
                 e.Row.FCCheckBox("cbInv").Enabled = False
                 Dim Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", e.Row.DataKey("Consec"))).Rows.Count
                 e.Row.FCTextBox("TbCantidadF").Text = Contador.ToString
+
+                '' Empresa Acumuladores
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                    If CveTipoAlmacen = 21 Then
+                        e.Row.FCButton("BtnSerie").Visible = False
+                        e.Row.FCTextBox("TbCantidadF").Enabled = True
+                        e.Row.FCCheckBox("cbInv").Enabled = True
+                    End If
+                End If
+
                 'ElseIf e.Row.DBCampo("CveMetodoInventario").ToString = "6" Then
                 '    e.Row.FCButton("BtnLote").Visible = True
                 '    e.Row.FCButton("BtnLote").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°{5}", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PU"), e.Row.DBCampo("PS"), e.Row.DBCampo("CantidadF"), e.Row.DBCampo("Consec"))