diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb index a9c7242e5..416ba3ef3 100644 --- a/App_Code/ClsPuntoVenta.vb +++ b/App_Code/ClsPuntoVenta.vb @@ -243,29 +243,29 @@ Public Class ClsPuntoVenta End Try Return Retorno - End Function + End Function + + 'Public Function GetCortesPorCuenta(CveCuenta As Integer, CveEmpresa As Integer) As Boolean + ' Dim Retorno As Boolean = False - Public Function GetCortesPorCuenta(CveCuenta As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False + ' DataAdapter("PA_Vta_CuentaCorteGet") - DataAdapter("PA_Vta_CuentaCorteGet") + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' .Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output + ' End With - With SqlAdapter.SelectCommand.Parameters - .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output - End With + ' Try + ' SqlAdapter.Fill(Data) + ' CveCorte = Integer.Parse(SqlAdapter.SelectCommand.Parameters("@CveCorte").Value.ToString) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener los cuenta de corte", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try - Try - SqlAdapter.Fill(Data) - CveCorte = Integer.Parse(SqlAdapter.SelectCommand.Parameters("@CveCorte").Value.ToString) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los cuenta de corte", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function + ' Return Retorno + 'End Function Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveSubProyecto As Integer = -1, Optional CveCorte As Integer = -1) As Boolean