From 19b3ce181f6777e3a9fd4ee449e8abfde492fed9 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 24 Aug 2020 18:55:17 -0700
Subject: [PATCH] nuevo filtro de busqueda

---
 App_Code/ClsOC.vb | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb
index 4a1cd26ba..b12725805 100644
--- a/App_Code/ClsOC.vb
+++ b/App_Code/ClsOC.vb
@@ -1729,9 +1729,11 @@ Public Class ClsOC
     'End Function
 #End Region
 
-    Public Function GetOrdenesCompraRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer,
-                               FechaInicio As Date, FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveActivoFijo As Integer = -1,
-                                        Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
+    Public Function GetOrdenesCompraRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer, FechaInicio As Date,
+                                        FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer,
+                                        CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1",
+                                        Optional CveActivoFijo As Integer = -1, Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1,
+                                        Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OC_OrdenesCompraRep")
@@ -1757,6 +1759,8 @@ Public Class ClsOC
             .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
             .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso
             .Add("@CveUsuarioAutorizo", SqlDbType.Int).Value = CveUsuarioAutorizo
+            .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado
+            .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta
             .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
 
         End With
@@ -1863,7 +1867,7 @@ Public Class ClsOC
     End Function
 
     Public Function GetOrdenesPendientes(pTipo As String, pTipoBusqueda As Integer, pCveEmpresa As Integer, pCveProyecto As Integer, pCveSubProyecto As Integer, pCveEstatusCompra As Integer,
-                              pCveUsuario As Integer, CveCliente As Integer, Optional SoloSubProyectosConPermiso As Boolean = False) As Boolean
+                              pCveUsuario As Integer, CveCliente As Integer, Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OC_OrdenesCompraPendientes")
@@ -1878,6 +1882,8 @@ Public Class ClsOC
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@TipoBusqueda", SqlDbType.Int).Value = pTipoBusqueda
             .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso
+            .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado
+            .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta
         End With
 
         Try