AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--parametro de consulta de iva

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-06-03 18:06:46 -07:00
parent 6edc749fd5
commit 8fdf1c8c15
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsVentas.vb
View File

@@ -3481,7 +3481,7 @@ Public Class ClsVentas
''' <param name="CveEmpresa"></param> ''' <param name="CveEmpresa"></param>
''' <param name="Opcion"></param> ''' <param name="Opcion"></param>
''' <returns></returns> ''' <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 Dim Retorno As Boolean = False
DataAdapter("PA_Vta_ReporteCortesDetalleGet") DataAdapter("PA_Vta_ReporteCortesDetalleGet")
@@ -3491,6 +3491,7 @@ Public Class ClsVentas
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@ConsultaIVA", SqlDbType.Bit).Value = ConsultaIVA
End With End With
Try Try

2
Bancos/RepCortes.aspx.vb
View File

@@ -214,7 +214,7 @@ Partial Class Bancos_RepCortes
'End If 'End If
Dim ObjVentas As New ClsVentas 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() Dim DsDatos = ObjVentas.DataSetResultados.Copy()
If DsDatos IsNot Nothing Then If DsDatos IsNot Nothing Then
'DESGLOSE 'DESGLOSE