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
2020-08-17 15:33:03 -07:00
parent 196e695461
commit 9b4fccd311
8 changed files with 117 additions and 111 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
RH/MiPerfil.aspx.vb
View File

@@ -1576,9 +1576,13 @@ end_of_for:
BtnEliminar.Visible = True
If (EnviarCorreoNuevaSolicitud()) Then
Dim Destinatario As String = ""
If (UsuarioActual.CveEmpresa.Contiene(72)) Then
Destinatario = "recursoshumanos@compuproveedores.com"
End If
If Destinatario.Length > 0 AndAlso (EnviarCorreoNuevaSolicitud(Destinatario)) Then
Dim Destinatario As String = GlobalDTUsuarios(1781, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
Mensaje.AppendLine(String.Format("<br /><br />Se ha notificado al correo <b>{0}</b>", Destinatario))
End If
Alert(Mensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion)
@@ -1635,7 +1639,7 @@ end_of_for:
End If
End Sub
Protected Function EnviarCorreoNuevaSolicitud() As Boolean
Protected Function EnviarCorreoNuevaSolicitud(Destinatario As String) As Boolean
Dim Correo As New ClsSisMail()
Dim Asunto As String = String.Format("{0} Nueva Solicitud de Viáticos: {1}", UsuarioActual.Empresa.NombreCorto, TxtFolio.Text)
Dim Cuerpo As New StringBuilder()
@@ -1647,14 +1651,8 @@ end_of_for:
If (UsuarioActual.CveEmpresa.Contiene(72, 1, 2)) Then
Dim Destinatario As String = ""
If (UsuarioActual.CveEmpresa.Contiene(72)) Then
Destinatario = "recursoshumanos@compuproveedores.com"
End If
If (Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString())) Then
If Destinatario.Length > 0 AndAlso (Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString())) Then
MensajeEnviado = True
@@ -1831,9 +1829,12 @@ end_of_for:
BtnEliminar.Visible = True
If (EnviarCorreoNuevaSolicitud()) Then
Dim Destinatario As String = ""
If (UsuarioActual.CveEmpresa.Contiene(72)) Then
Dim Destinatario As String = GlobalDTUsuarios(1781, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
Destinatario = "recursoshumanos@compuproveedores.com"
End If
If Destinatario.Length > 0 AndAlso (EnviarCorreoNuevaSolicitud(Destinatario)) Then
Mensaje.AppendLine(String.Format("<br /><br />Se ha notificado al correo <b>{0}</b>", Destinatario))
End If
Alert(Mensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion)