This commit is contained in:
Rakcsle Supertramp
2020-04-24 17:41:33 -07:00

View File

@@ -1119,11 +1119,12 @@ Partial Class RH_MiPerfil
continuar = False continuar = False
End If End If
End If End If
Dim CorreoSupervisor As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, DdlSupervisor.SelectedValue.ToEntero).FiltroPrimeroValor("Correo")
objRH.Dispose() objRH.Dispose()
If continuar Then If continuar Then
CargaVacaciones() CargaVacaciones()
CargaVacacionesResumenPeriodoActual() CargaVacacionesResumenPeriodoActual()
VacacionesMandaCorreoSupervisor("Vacaciones " & UsuarioActual.Nombre, "antonio.gonzalez@adssistemas.mx", VacSupervisorNombre, NombreCompleto, fInicio, fFin, "vacaciones") VacacionesMandaCorreoSupervisor("Vacaciones " & UsuarioActual.Nombre, CorreoSupervisor, VacSupervisorNombre, NombreCompleto, fInicio, fFin, "vacaciones")
RegistraScript("$('#ModalAddVacaciones').modal('hide');") RegistraScript("$('#ModalAddVacaciones').modal('hide');")
End If End If
Else Else
@@ -1208,7 +1209,8 @@ Partial Class RH_MiPerfil
Else Else
Alert("Permiso agregado Actualizado correctamente") Alert("Permiso agregado Actualizado correctamente")
End If End If
VacacionesMandaCorreoSupervisor("Permiso para " & UsuarioActual.Nombre, "antonio.gonzalez@adssistemas.mx", VacSupervisorNombre, NombreCompleto, TxtFechaInicioPer.Text, TxtFechaFinPer.Text, "permiso") Dim CorreoSupervisor As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, DdlSupervisor.SelectedValue.ToEntero).FiltroPrimeroValor("Correo")
VacacionesMandaCorreoSupervisor("Permiso para " & UsuarioActual.Nombre, CorreoSupervisor, VacSupervisorNombre, NombreCompleto, TxtFechaInicioPer.Text, TxtFechaFinPer.Text, "permiso")
RegistraScript("$('#DvPermisos').modal('hide');") RegistraScript("$('#DvPermisos').modal('hide');")
End If End If