-- PA, para solo ver lo pendiente de vincular a compras

App_Code/ClsOC.vb

@@ -1745,6 +1745,39 @@ Public Class ClsOC
         Return Retorno
     End Function
 
+    Public Function GetOrdenesCompraVinculacion(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveEstatus As Integer, FechaInicio As Date,
+                                        FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuario As Integer,
+                                        CveEmpresa As Integer, Optional Serie As String = "-1") As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OC_OrdenesCompraVinculacion")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Tipo", SqlDbType.VarChar).Value = Tipo
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Folio", SqlDbType.Int).Value = Folio
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener Ordenes de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function GetOrdenesCompraCorreo(CveCompra As Integer, Optional CveMovimiento As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 

OC/PopUpBuscarReq.aspx.vb

@@ -145,8 +145,8 @@ Partial Class OC_PopUpBuscarReq
         End If
         'Cargar Datos
         Dim ObjOC As New ClsOC
-        ObjOC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, -1, tCveProveedor, -1, -1, -1, UsuarioActual.CveEmpresa, -1)
-        Dim DtOC As Data.DataTable = ObjOC.DtResultados.FiltraParametros("TipoTermino =  3") ' tipotermino, esattus inicial
+        ObjOC.GetOrdenesCompraVinculacion("OC", -1, -1, -1, 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
@@ -154,7 +154,7 @@ Partial Class OC_PopUpBuscarReq
         End If
 
         'SOLO CARGAMOS OC'S QUE ESTEN PENDIENTES POR SURTIR
-        GV.DataSource = DtOC.FiltraParametros("CveOrdenCompraDisponible > 0")
+        GV.DataSource = DtOC
 
         GV.DataBind()
         LblTotalRegistros.Text = "Número de registros: " & GV.Rows.Count.ToString