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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-06-15 17:51:19 -07:00
parent 51d05ecc25
commit d2ffd13bfd
5 changed files with 702 additions and 490 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
RH/Personal.aspx.vb
View File

@@ -2147,7 +2147,7 @@ Partial Class RH_Personal
If EnviarCorreoNomina AndAlso DDLUsuarioNomina.SelectedValue.ToEntero > 0 Then
'EnviarCorreoNominista()
EviarCorreoBajaReingresoNomista(TipoMovimientoRH.Alta)
EnviarCorreoBajaReingresoNomista(TipoMovimientoRH.Alta)
End If
@@ -7513,7 +7513,7 @@ Partial Class RH_Personal
If continuar Then
EviarCorreoBajaReingresoNomista(If(estatus = 1, TipoMovimientoRH.Reingreso, TipoMovimientoRH.Baja))
EnviarCorreoBajaReingresoNomista(If(estatus = 1, TipoMovimientoRH.Reingreso, TipoMovimientoRH.Baja))
End If
@@ -7669,7 +7669,7 @@ Partial Class RH_Personal
Reingreso
End Enum
Private Sub EviarCorreoBajaReingresoNomista(eTipoMovimientoRH As TipoMovimientoRH)
Private Sub EnviarCorreoBajaReingresoNomista(eTipoMovimientoRH As TipoMovimientoRH)
Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).FiltroPrimeroValor("Correo")