se liberó el modulo, de personal acumulados

This commit is contained in:
2021-07-09 14:57:49 -07:00
parent 9798dd017c
commit 6ecda75175
2 changed files with 1 additions and 22 deletions

View File

@@ -1063,26 +1063,6 @@ Public Class ClsNominas
Return Retorno
End Function
'Reporte Personal Acumulados
Public Function GetRepPersonalAcumulados(CvePersonal As Integer, Ejercicio As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Nom_PersonalAcumuladosGetRep")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
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
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
DataAdapter("PA_Nom_NominasDetallesUpdateMasivoSueldo")

View File

@@ -3853,7 +3853,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Nomina/ISRCalculoAnual.aspx".ToUpper(), 918)
PaginaDict.Add("/Nomina/MovimientosSUA.aspx".ToUpper(), 919)
PaginaDict.Add("/Nomina/Acumulados.aspx".ToUpper(), 916)
'PaginaDict.Add("/Nomina/Acumulados.aspx".ToUpper(), 916)
PaginaDict.Add("/RH/CalculoSBC.aspx".ToUpper(), 915)
PaginaDict.Add("/Inicio.aspx".ToUpper(), -1)
PaginaDict.Add("/reporteador.aspx".ToUpper(), -1)
@@ -4728,7 +4728,6 @@ Public Class ClsPaginas
PaginaDict.Add("/Nomina/ConceptoNomina.aspx".ToUpper(), 172)
PaginaDict.Add("/Nomina/RegistroNomina.aspx".ToUpper(), 173)
PaginaDict.Add("/Nomina/RepConceptosAcumulados.aspx".ToUpper(), 174)
PaginaDict.Add("/Nomina/RepPersonalAcumulados.aspx".ToUpper(), 393)
PaginaDict.Add("/Nomina/CatPeriodos.aspx".ToUpper(), 177)
PaginaDict.Add("/Nomina/Finiquito.aspx".ToUpper(), 197)
PaginaDict.Add("/Nomina/CatSatBancos.aspx".ToUpper(), 255)