diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb
index 029912473..2be37d84d 100644
--- a/App_Code/ClsOC.vb
+++ b/App_Code/ClsOC.vb
@@ -1655,7 +1655,7 @@ Public Class ClsOC
                                         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, Optional CveMoneda As Integer = -1) As Boolean
+                                        Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveMoneda As Integer = -1, Optional MetodoPago As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OC_OrdenesCompraRep")
@@ -1685,6 +1685,7 @@ Public Class ClsOC
             .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta
             .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
+            .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago
 
         End With