diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb
index 470eba0bb..6cf82a8a9 100644
--- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb
+++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb
@@ -2,6 +2,7 @@
 Option Strict On
 
 Imports Extensiones
+Imports System.Data
 Partial Class Inventarios_Default
     Inherits ClsPaginas
 
@@ -247,7 +248,7 @@ Partial Class Inventarios_Default
         Dim ObjInventarios As New ClsInventarios
         If ObjInventarios.GetExistencias119(DDlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Compuesto) Then
             GV.DataSource = ObjInventarios.DtResultados
-            TblBusqueda.Visible = False
+            TblBusqueda.Visible = True
             CargaPS(DDlPS.SelectedValue.ToEntero)
             GV.Columns(6).Visible = True
         End If
@@ -280,16 +281,18 @@ Partial Class Inventarios_Default
     End Sub
 #End Region
 
-    Private Sub CargarMedRin()
-        Dim ObjGral As New ClsGenerales
-        If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
-            DdlMedidas.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="Medida")
-            If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
-                DdlRin.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="RinTamaño")
-            End If
-        End If
-        ObjGral.Dispose()
-        DdlMedidas.DataBind()
+    Private Sub CargarMedRin()
+        'Dim ObjGral As New ClsGenerales
+        'If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
+        '    DdlMedidas.DataSource = GlobalDTPS.FiltraParametros("", Orderby:="Medida")
+        '    If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
+        '        DdlRin.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="RinTamaño")
+        '    End If
+        'End If
+        'ObjGral.Dispose()
+        DdlMedidas.DataSource = GlobalDTPSMedidas(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Medida")
+        DdlMedidas.DataBind()
+        DdlRin.DataSource = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="RinTamaño")
         DdlRin.DataBind()
         DdlMedidas.Items.Insert(0, New ListItem("-", "-1"))
         DdlRin.Items.Insert(0, New ListItem("-", "-1"))