diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 2db31e03e..e92fc2ad2 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1195,7 +1195,7 @@ Partial Class Inventarios_EntradasSalidas
         DdlAlmacen.Items.Clear()
         DdlAlmacen.DataBind()
         Dim dttA As DataTable = Nothing
-        dttA = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,22,27)")
+        dttA = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (4)") '("CveTipoAlmacen IN (1,22,27)")
 
         DdlAlmacen.DataSource = dttA
         DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))