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

-- cambios de globaldt RH

Browse Source
This commit is contained in:
rrene
2023-02-15 09:34:52 -07:00
parent 170ba0364d
commit d8cf1662f3
32 changed files with 77 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
RH/CatMotivosHorasExtras.aspx.vb
View File

@@ -44,9 +44,8 @@ Partial Class RH_CatMotivosHorasExtras
Public Sub CargaDatos()
Dim ObjMotivosHorasExtras As New ClsRH
If ObjMotivosHorasExtras.GetMotivoHorasExtras() Then
ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados
If ObjMotivosHorasExtras.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) Then
ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados
Else
Me.GvDatos.DataSource = Nothing
End If
@@ -77,7 +76,7 @@ Partial Class RH_CatMotivosHorasExtras
Alert("El nuevo Motivo de Horas Extras se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulos.Update()
ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados
GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
@@ -108,7 +107,7 @@ Partial Class RH_CatMotivosHorasExtras
If ObjMotivosHorasExtras.RemoveMotivoHoraExtra(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
GvDatos.EditIndex = -1
ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados
GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing
Alert("El MotivoHoraExtra se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -138,8 +137,8 @@ Partial Class RH_CatMotivosHorasExtras
If ObjMotivosHorasExtras.UpdateMotivoHoraExtra(MotivoHoraExtra, Estatus, CveMotivoHoraExtra) Then
GvDatos.EditIndex = -1
ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados
ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados
GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If