Compras marcar partidas con PSSAT diferente entre xml y producto alias

RH/CatCursos.aspx.vb

@@ -329,7 +329,7 @@ Partial Class RH_CatCursos
 
             Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/CursosInvitados.rdlc"
 
-            If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
+            If Not File.Exists($"{Extensiones.DirectorioBaseEmpresas}/{Archivo}") Then
                 Archivo = "Empresas/Grales/Formatos/CursosInvitados.rdlc"
             End If
 
@@ -613,7 +613,7 @@ Partial Class RH_CatCursos
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim objConstancias As New ClsConstancias
         Dim DocumenBitArray As Byte() = Nothing
-        Dim RutaBase As String = Server.MapPath("~")
+        Dim RutaBase As String = Extensiones.DirectorioBaseEmpresas
 
         Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
 
@@ -650,7 +650,7 @@ Partial Class RH_CatCursos
         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"
+            RutaArchivo = $"{ Extensiones.DirectorioBaseEmpresas }\Empresas\Grales\Formatos\CursoInvitacion.docx"
         End If
 
         Dim params As New List(Of ReportParameter)
@@ -658,24 +658,22 @@ Partial Class RH_CatCursos
         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 DtDatos As New DataTable
+
+
+        Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
+        Dim Tags As New List(Of TagsDocumentos)
 
 
+        Tags.Add(New TagsDocumentos("{Curso}", _Curso))
+        Tags.Add(New TagsDocumentos("{Contenido}", Contenido))
+
+
+        objGemBoxDocument.SustituirTags(Tags)
+        objGemBoxDocument.GuardarStreamPDF()
 
 
-        'Tags.Add(New TagsDocumentos("{Curso}", _Curso))
-        'Tags.Add(New TagsDocumentos("{Contenido}", Contenido))
-
-        ''objGemBoxDocument.AgregarImagen(RutaLogo, 61.0, 53.0)
-        'objGemBoxDocument.SustituirTags(Tags)
-        'objGemBoxDocument.GuardarStream()
-
-
-        'Return objGemBoxDocument.GetBytesDocumento
+        Return objGemBoxDocument.GetBytesDocumento
 
     End Function
 
@@ -795,12 +793,9 @@ Partial Class RH_CatCursos
                     ContenidoSB.AppendLine("")
                     ContenidoSB.AppendLine("</table>")
 
-
-
-
-                    Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal, _Fecha, _Ubicacion)
-                    MandaCorreo("Invitación a Curso " & Curso, _Correo, "", ContenidoSB.ToString, BytesDocumento)
-
+                    Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal, _Fecha, _Ubicacion)
+                    MandaCorreo("Invitación a Curso " & Curso, _Correo, "", ContenidoSB.ToString, BytesDocumento)
+
                     Contador = Contador + 1
                     Dim valor As Boolean = False