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

general

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-03-24 12:40:36 -07:00
parent 58e74bfbf2 07f2c1333c
commit 5cd37daa98
73 changed files with 14769 additions and 12881 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
RH/CatCursos.aspx.vb
View File

@@ -480,9 +480,8 @@ Partial Class RH_CatCursos
Dim Correo As String = row.DataKey("Correo")
Dim _Nombres As String = row.DataKey("Nombres")
Dim _CvePersonal As Integer = row.DataKey("CvePersonal").ToString.ToEntero
Dim chkGrupo As CheckBox = row.FCCheckBox("chkGrupo")
Dim Contenido As String = "Buen día <br/> Estimado(a) " & _Nombres & " <br/> Por medio de la presente el departamento de recursos de esta empresa le hace la cordial invitación para asistir al curso " & Curso & " Impartido por " & Capacitador & ". Esperamos contar con su asistencia."
Dim Contenido As String = "Buen día <br/> Estimado(a) " & _Nombres & " <br/> Por medio de la presente, el departamento de Capital Humano de " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación para asistir al curso " & Curso & " Impartido por el capacitador " & Capacitador & ".Esperamos contar con su asistencia."
If CveCursoPersonal = -1 Then
If chkGrupo.Checked = True Then
@@ -638,11 +637,17 @@ Partial Class RH_CatCursos
End Sub
Private Function GenerarImvitacion(_Curso As String, _Capacitador As String, _Nombres As String, _CvePersonal As Integer) As Byte()
Private Function GenerarImvitacion(_Curso As String, _Capacitador As String, _Nombres As String, _CvePersonal As Integer, _Fecha As String, _Ubicacion As String) As Byte()
'Darle formato a la fecha
Dim FechaAux As Date = Date.Parse(_Fecha)
Dim dia As Integer = Day(FechaAux)
Dim mes As Integer = Month(FechaAux)
Dim mesArray = New String() {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}
Dim año As Integer = Year(FechaAux)
Dim RutaArchivo As String = UsuarioActual.Empresa.Ruta & "\Formatos\CursoInvitacion.docx"
Dim RutaLogo As String = Path.Combine(UsuarioActual.Empresa.Ruta, "Logo.png")
Dim Contenido As String = "Buen día. Estimado(a) " & _Nombres & vbLf & vbLf & vbLf & vbLf & " Por medio de la presente, el departamento de Recursos Humanos de esta " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación para asistir al curso " & _Curso & " impartido por el capacitador " & _Capacitador & "." & vbLf & vbLf & vbLf & vbLf & "Esperamos contar con su asistencia."
Dim Contenido As String = "Buen día. Estimado(a) " & _Nombres & vbLf & vbLf & vbLf & vbLf & " Por medio de la presente, el departamento de Capital Humano de esta " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación para asistir al curso " & _Curso & " impartido por el capacitador " & _Capacitador & ", el día " & dia & " de " & mesArray(mes - 1) & " de " & año & " en lugar " & _Ubicacion & "." & vbLf & vbLf & vbLf & vbLf & "Esperamos contar con su asistencia."
If Not File.Exists(RutaArchivo) Then
RutaArchivo = $"{Server.MapPath("~")}\Empresas\Grales\Formatos\CursoInvitacion.docx"
@@ -773,7 +778,7 @@ Partial Class RH_CatCursos
Dim ContenidoSB As New StringBuilder
ContenidoSB.Append("Buen día. <br/> Estimado(a) " & _Nombres & " <br/> Por medio de la presente el departamento de recursos humanos de la empresa le hace la cordial invitación para asistir al curso " & _Curso & " Impartido por " & _Capacitador & ". Esperamos contar con su asistencia.")
ContenidoSB.Append("Buen día. <br/> Estimado(a) " & _Nombres & " <br/> Por medio de la presente el departamento de Capital Humano de la empresa le hace la cordial invitación para asistir al curso " & _Curso & " Impartido por " & _Capacitador & ". Esperamos contar con su asistencia.")
ContenidoSB.Append("<br><br>")
ContenidoSB.AppendLine("<table boder='1'>")
@@ -793,7 +798,7 @@ Partial Class RH_CatCursos
Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal)
Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal, _Fecha, _Ubicacion)
MandaCorreo("Invitación a Curso " & Curso, _Correo, "", ContenidoSB.ToString, BytesDocumento)
Contador = Contador + 1