--parametro de consulta de iva

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

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