diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 4366af744..f3ca82ff8 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -247,12 +247,15 @@ Partial Class Inventarios_KardexAlmacen
         Imprimir("Excel")
     End Sub
     Private Sub Imprimir(Optional reporte As String = "PDF")
-        ' Demo()
-        Dim StrFiltro As New StringBuilder
-        If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedText)
-        If ddlProducto2.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat(" Producto/Servicio: {0},", ddlProducto2.SelectedText)
-        If TxtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", TxtFechaF.Text)
-        GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Existencias Almacen", UsuarioActual, StrFiltro.ToString, 100, 200)
+        If GvDatos.Rows.Count > 0 Then
+            Dim StrFiltro As New StringBuilder
+            If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedText)
+            If ddlProducto2.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat(" Producto/Servicio: {0},", ddlProducto2.SelectedText)
+            If TxtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", TxtFechaF.Text)
+            GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Existencias Almacen", UsuarioActual, StrFiltro.ToString, 100, 200)
+        Else
+            Alert("Debe consultar para generar un excel", TipoMensaje.MsgAdvertencia)
+        End If
     End Sub
     Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
     End Sub
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index e5801a2a1..893218bd1 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -854,7 +854,11 @@ Partial Class Inventarios_RecepcionAlmacen
                     ElseIf NumProductos = 0 AndAlso NumUsados > 0 Then
                         CargaSoloUsados = True
                         DtRecepcion = ObjInventario.DtResultados.Copy()
-                        CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22")
+                        If UsuarioActual.CveRol = 1 Then
+                            CargaAlmacenes(-1, "22,24")
+                        Else
+                            CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22")
+                        End If
                     Else
                         DtRecepcion = ObjInventario.DtResultados.Copy()
                     End If