diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 46e5dd0e2..bcddd23b2 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -3481,7 +3481,7 @@ Public Class ClsVentas
     ''' <param name="CveEmpresa"></param>
     ''' <param name="Opcion"></param>
     ''' <returns></returns>
-    Public Function GetVta_ReporteCortesDetalle(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Opcion As Integer) As Boolean
+    Public Function GetVta_ReporteCortesDetalle(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Opcion As Integer, Optional ConsultaIVA As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_ReporteCortesDetalleGet")
@@ -3491,6 +3491,7 @@ Public Class ClsVentas
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@ConsultaIVA", SqlDbType.Bit).Value = ConsultaIVA
         End With
 
         Try
diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb
index 0ab594189..0143f8297 100644
--- a/Bancos/RepCortes.aspx.vb
+++ b/Bancos/RepCortes.aspx.vb
@@ -214,7 +214,7 @@ Partial Class Bancos_RepCortes
         'End If
 
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetVta_ReporteCortesDetalle(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
+        If ObjVentas.GetVta_ReporteCortesDetalle(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion:=2, ConsultaIVA:=UsuarioActual.CveEmpresa.Contiene(190, 192)) Then
             Dim DsDatos = ObjVentas.DataSetResultados.Copy()
             If DsDatos IsNot Nothing Then
                 'DESGLOSE