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

Ordenamiento en JS

Browse Source
This commit is contained in:
caudillochon
2025-02-22 16:25:15 -07:00
parent 73f73663b7
commit dceeec905f
11 changed files with 612 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Nomina/CatPeriodos.aspx.vb
View File

@@ -233,6 +233,7 @@ Partial Class Nomina_CatPeriodos
Dim EsInicioAño As Boolean
Dim EsFinAño As Boolean
Dim FueCalculado As Boolean
Dim AplicaAjusteAlNeto As Integer
Dim Numero As Integer = TxtNumeroAdd.Text.Trim.ToEntero()
Dim FechaInicio As Date = TxtFechaInicioAdd.Text().Trim.ToDate()
Dim FechaFin As Date = TxtFechaFinAdd.Text.Trim().ToDate()
@@ -270,11 +271,13 @@ Partial Class Nomina_CatPeriodos
If item.Selected Then EsFinAño = True Else EsFinAño = False
Case 7
If item.Selected Then FueCalculado = True Else FueCalculado = False
Case 8
If item.Selected Then AplicaAjusteAlNeto = 1 Else AplicaAjusteAlNeto = 0
End Select
Next
If Comando = "Agregar" Then
If ObjNom_Periodos.AddPeriodo(CveTipoPeriodo, Ejercicio, Mes, Numero, FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero(), CveSubTipoPeriodo) Then
If ObjNom_Periodos.AddPeriodo(CveTipoPeriodo, Ejercicio, Mes, Numero, FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero(), CveSubTipoPeriodo, AplicaAjusteAlNeto) Then
Alert("El nuevo Periodo se guardó correctamente.", TipoMensaje.MsgInformacion)
UpDatos.Update()
@@ -290,7 +293,7 @@ Partial Class Nomina_CatPeriodos
End If
ElseIf Comando = "Actualizar" Then
If ObjNom_Periodos.UpdatePeriodo(FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, CveTipoPeriodo, Ejercicio, Mes, Numero, Estatus, CvePeriodo, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), CveSubTipoPeriodo) Then
If ObjNom_Periodos.UpdatePeriodo(FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, CveTipoPeriodo, Ejercicio, Mes, Numero, Estatus, CvePeriodo, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), CveSubTipoPeriodo, UsuarioActual.CveUsuario, AplicaAjusteAlNeto) Then
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
UpDatos.Update()
@@ -350,9 +353,11 @@ Partial Class Nomina_CatPeriodos
item.Selected = Convert.ToBoolean(GvRow.DataKey("EsFinAño").ToString())
Case 7
item.Selected = Convert.ToBoolean(GvRow.DataKey("FueCalculado").ToString())
Case 8
item.Selected = Convert.ToBoolean(GvRow.DataKey("AplicaAjusteAlNeto").ToString())
End Select
Next
UpModalPerido.Update()
UpAddInventarioFisico.Update()
RegistraScript("$('#divAddPeriodo').modal('show')")
End Sub
@@ -381,6 +386,8 @@ Partial Class Nomina_CatPeriodos
item.Selected = False
Case 7
item.Selected = False
Case 8
item.Selected = True
End Select
Next
UpModalPerido.Update()