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

Carga masiva de periodos

Browse Source 
carga masiva de conceptos
alerta de periodos no cargados en nominas y carga
Correccion  en el catalogo de puestos para que no asigne todas la empresas al global  de la empresa
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-11-20 07:37:53 -07:00
parent f85d769c12
commit 13f7b26b2d
8 changed files with 1542 additions and 1269 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
RH/CatPuesto.aspx.vb
View File

@@ -135,7 +135,7 @@ Partial Class RH_CatPuesto
CargaCatalogoOcupaciones()
If ObjPuestos.GetPuestos(-1) Then
If ObjPuestos.GetPuestos(UsuarioActual.CveEmpresa) Then
GvPuestos.DataSource = ObjPuestos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTRHPuestos(UsuarioActual.CveEmpresa) = ObjPuestos.DtResultados
@@ -344,12 +344,12 @@ Partial Class RH_CatPuesto
If CvePuesto = -1 And Actualizar = False Then
If ObjPuestos.AddPuesto(TxtPuesto.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlOcupacion.SelectedValue.ToEntero) Then
If ObjPuestos.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjPuestos.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
If ObjPuestos.GetPuestos(UsuarioActual.CveEmpresa) Then Application("GlobalDTRHPuestos") = ObjPuestos.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
Alert("Puesto agregado correctamente.")
End If
Else
If ObjPuestos.UpdatePuesto(CvePuesto, TxtPuesto.Text.Trim, estatus, UsuarioActual.CveUsuario, DdlOcupacion.SelectedValue.ToEntero) Then
If ObjPuestos.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjPuestos.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
If ObjPuestos.GetPuestos(UsuarioActual.CveEmpresa) Then Application("GlobalDTRHPuestos") = ObjPuestos.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
Alert("Puesto actualizado correctamente.")
End If
End If
@@ -372,7 +372,7 @@ Partial Class RH_CatPuesto
Dim _CvePuesto As Integer = GvRow.DataKey("CvePuesto").ToEntero
If objRH.RemovePuesto(_CvePuesto) Then
If objRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = objRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
If objRH.GetPuestos(UsuarioActual.CveEmpresa) Then Application("GlobalDTRHPuestos") = objRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
CargaDatos()
Else
Alert("Ocurrio un error al eliminar el puesto", TipoMensaje.MsgError)