From f8e2d2ea4b4538779a78ecc335f7a7913c054856 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Fri, 18 Jun 2021 19:08:18 -0700 Subject: [PATCH] Filtro deducible --- App_Code/ClsCompras.vb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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