diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 48c37025e..71020a7ac 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -1040,28 +1040,28 @@ Public Class ClsNominas End Function - 'Reporte Conceptos Acumulados - Public Function GetRepConceptosAcumulados(CveConcepto As Integer, Ejercicio As Integer, CveTipoPeriodo As Integer, CvePeriodo As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Nom_ConceptosAcumuladosGetRep") + ''Reporte Conceptos Acumulados + 'Public Function GetRepConceptosAcumulados(CveConcepto As Integer, Ejercicio As Integer, CveTipoPeriodo As Integer, CvePeriodo As Integer, CveEmpresa As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Nom_ConceptosAcumuladosGetRep") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto - .Add("@CveTipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo - .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo - .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto + ' .Add("@CveTipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo + ' .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo + ' .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte Conceptos Acumulados.", 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 Conceptos Acumulados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try - Return Retorno - End Function + ' Return Retorno + 'End Function Public Function UpdateNom_NominasDetallesMasivoSueldo(CvePeriodo As Integer, CveConcepto As Integer, Salario As Double, Importe As Double, ImporteExento As Double, ImporteGravado As Double, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False