RepEstadoResultadosHorizontal Correcion 172, Compras Excedido pago al cambiar PS, Transferencias Validar Prepoliza, RepIva 119 RPT correcion

RH/Personal.aspx.vb

@@ -5545,8 +5545,7 @@ Partial Class RH_Personal
 
         Dim objConstancias As New ClsConstancias
         Dim DocumenBitArray As Byte() = Nothing
-        Dim RutaDocumento As String = Server.MapPath("~")
-        'RutaDocumento = Path.Combine(RutaDocumento, "Empresas\Grales\FormatoDC3.docx")
+        Dim RutaDocumento As String = DirectorioBaseEmpresas
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim _CveCurso As Integer = GvRow.DataKey("CveCurso").ToEntero()