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

-- limpieza de métido ABT

Browse Source
This commit is contained in:
rrene
2023-06-30 18:32:11 -07:00
parent 7a428af5e8
commit 743713fee6
1 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
App_Code/ClsVentas.vb
View File

@@ -2126,24 +2126,24 @@ Public Class ClsVentas
End Function
#End Region
Public Function GetRepABT(Ejercicio As Integer, Periodo As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_VentasGetRepABT")
'Public Function GetRepABT(Ejercicio As Integer, Periodo As Integer) As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_VentasGetRepABT")
With SqlAdapter.SelectCommand.Parameters
.Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
.Add("@Periodo", SqlDbType.Int).Value = Periodo
End With
' With SqlAdapter.SelectCommand.Parameters
' .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
' .Add("@Periodo", SqlDbType.Int).Value = Periodo
' End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el Reporte ABT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al obtener el Reporte ABT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
' End Try
Return Retorno
End Function
' Return Retorno
'End Function
#Region " PROMOCIONES "
Public Function GetPromociones(CvePromocion As Integer, Fecha As String, CveVendedor As Integer, CveCliente As Integer, Estatus As Integer, CveEmpresa As Integer,