diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb
index b547f75b3..331f62b03 100644
--- a/OC/PopUpBuscarReq.aspx.vb
+++ b/OC/PopUpBuscarReq.aspx.vb
@@ -143,13 +143,14 @@ Partial Class OC_PopUpBuscarReq
             ViewState("CveProveedor") = DdlProveedorMultiple.SelectedValue
             tCveProveedor = DdlProveedorMultiple.SelectedValue.ToEntero
         End If
+        Dim CveEstatus As Integer = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatus", "Tipo = 'OC' and TipoTermino = 3").ToEntero
         'Cargar Datos
         Dim ObjOC As New ClsOC
-        ObjOC.GetOrdenesCompraVinculacion("OC", -1, -1, -1, MinFecha, MaxFecha, -1, tCveProveedor, -1, -1, UsuarioActual.CveEmpresa)
+        ObjOC.GetOrdenesCompraVinculacion("OC", -1, -1, CveEstatus, MinFecha, MaxFecha, -1, tCveProveedor, -1, -1, UsuarioActual.CveEmpresa)
         Dim DtOC As Data.DataTable = ObjOC.DtResultados
         ObjOC.Dispose()
 
-        If DtOC.Rows.Count > 0 Then ' tipotermino, esattus inicial
+        If DtOC.Rows.Count > 0 Then ' tipotermino, estatus inicial
             BtnVincularOC.Visible = True
         End If