diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index 83377e9b8..d2a33c406 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -941,7 +941,7 @@ Public Class ClsCompras
     Public Function GetRepProductosServicios(CveProyecto As Integer, CveSubProyecto As String, CveCategoria As String, CveClasificacion As Integer, CvePS As Integer, FechaI As Date,
                                              FechaF As Date, CveProveedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Gpo As Integer,
                                              CveFamilia As Integer, CveSubFamilia As Integer, CveTipoActivoFijo As String, CveSubTipoActivoFijo As String, CveActivoFijo As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoGasto As String = "-1",
-                                             Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1") As Boolean
+                                             Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1", Optional Deducible As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_GetRepPS")
@@ -969,6 +969,7 @@ Public Class ClsCompras
             .Add("@TipoGasto", SqlDbType.VarChar).Value = TipoGasto
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+            .Add("@Deducible", SqlDbType.Int).Value = Deducible
         End With
 
         Try
@@ -984,7 +985,7 @@ Public Class ClsCompras
                                                     FechaF As Date, CveProveedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Gpo As Integer,
                                                     CveFamilia As Integer, CveSubFamilia As Integer, CveTipoActivoFijo As String, CveSubTipoActivoFijo As String, CveActivoFijo As Integer,
                                                     CveMoneda As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1,
-                                                    Optional TipoGasto As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1") As Boolean
+                                                    Optional TipoGasto As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1", Optional Deducible As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_GetRepPSDetalle")
@@ -1016,6 +1017,8 @@ Public Class ClsCompras
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+            .Add("@Deducible", SqlDbType.Int).Value = Deducible
+
         End With
 
         Try