diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index 17e401ead..0f7b199d5 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -585,7 +585,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
 
             'verifica existencias
-            If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141) Then
+            If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152) Then
                 UsaGlobal = False
 
                 Dim objInv As New ClsInventarios
diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb
index 118f8aa6a..f4d2d40c4 100644
--- a/OC/PopUpBuscarReq.aspx.vb
+++ b/OC/PopUpBuscarReq.aspx.vb
@@ -126,12 +126,15 @@ Partial Class OC_PopUpBuscarReq
         ViewState("CveProveedor") = Request("P")
         UPFiltros.Visible = False
 
-        Dim ObjPro As New ClsCompProveedores
-        ObjPro.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ViewState("CveProveedor").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa)
-        If ObjPro.DtResultados.Rows.Count > 0 Then
-            LbTitulo.Text = String.Format("Órdenes de Compra - {0}", ObjPro.DtResultados.Rows(0)("RazonSocial").ToString)
-        End If
-        ObjPro.Dispose()
+        Dim NombreProv As String = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, ViewState("CveProveedor").ToString.ToEntero).FiltroPrimeroValor("RazonSocial")
+        LbTitulo.Text = String.Format("Órdenes de Compra - {0}", NombreProv)
+
+        'Dim ObjPro As New ClsCompProveedores
+        'ObjPro.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ViewState("CveProveedor").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa)
+        'If ObjPro.DtResultados.Rows.Count > 0 Then
+        '    LbTitulo.Text = String.Format("Órdenes de Compra - {0}", ObjPro.DtResultados.Rows(0)("RazonSocial").ToString)
+        'End If
+        'ObjPro.Dispose()
 
         'Cargar Datos
         Dim ObjOC As New ClsOC