diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index d198effdb..f01f4b90e 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -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,