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

.

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-03-09 16:13:54 -07:00
parent 183f6b7990
commit 0ccf4fa100
6 changed files with 199 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
RH/CatCursos.aspx.vb
View File

@@ -642,28 +642,35 @@ Partial Class RH_CatCursos
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."
If Not File.Exists(RutaArchivo) Then
RutaArchivo = $"{Server.MapPath("~")}\Empresas\Grales\Formatos\CursoInvitacion.docx"
End If
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Curso", _Curso))
params.Add(New ReportParameter("Contenido", Contenido))
params.Add(New ReportParameter("Fecha", Today.ToString))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
Dim DtDatos As New DataTable
Return StreamPDF("Empresas/72/Formatos/CursoInvitacion.rdlc", DtDatos, params, "Invitación a curso", "PDF")
Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
Dim Tags As New List(Of TagsDocumentos)
'Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
'Dim Tags As New List(Of TagsDocumentos)
Dim Contenido As String = "Buen día. Estimado(a) " & _Nombres & vbLf & " 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 el capacitador " & _Capacitador & ". Esperamos contar con su asistencia."
Tags.Add(New TagsDocumentos("{Curso}", _Curso))
Tags.Add(New TagsDocumentos("{Contenido}", Contenido))
'Tags.Add(New TagsDocumentos("{Curso}", _Curso))
'Tags.Add(New TagsDocumentos("{Contenido}", Contenido))
'objGemBoxDocument.AgregarImagen(RutaLogo, 61.0, 53.0)
objGemBoxDocument.SustituirTags(Tags)
objGemBoxDocument.GuardarStream()
''objGemBoxDocument.AgregarImagen(RutaLogo, 61.0, 53.0)
'objGemBoxDocument.SustituirTags(Tags)
'objGemBoxDocument.GuardarStream()
Return objGemBoxDocument.GetBytesDocumento
'Return objGemBoxDocument.GetBytesDocumento
End Function
@@ -678,7 +685,7 @@ Partial Class RH_CatCursos
With itemMail
itemMail.ArchivoBinario = ArchivoBinario
itemMail.NombreArchivo = "Invitación.docx"
itemMail.NombreArchivo = "Invitación.pdf"
End With