Descargar manual de SIG

Site.master

@@ -274,6 +274,7 @@
                                     <li runat="server" id="DivPerfil" visible="false">
                                         <a runat="server" id="A1" href="/RH/MiPerfil.aspx" style="cursor: pointer;"><i class="fa fa-user"></i>Mi Perfil</a>
                                     </li>
+                                    <li><asp:LinkButton ID="LnkDescargarManual" runat="server" Text="<i class='fa fa-download'></i>  Descargar Manual SIG" OnClick="LnkDescargarManual_Click"></asp:LinkButton></li>
                                     <li><a onclick="javascript:AbrirVentana('/Sistemas/CatContrasenia.aspx');"><i class="fa fa-exchange"></i>Cambiar Contraseña</a></li>
                                     <li runat="server" id="DivConfiguracionEmpresa" visible="false"><a runat="server" id="BtnConfiguracionEmpresa" style="cursor: pointer;"><i class="fa fa-cog"></i>Configuración Empresa</a></li>
                                     <li><a runat="server" id="BtnCerrarSesion"><i class="fa fa-key"></i>Cerrar Sesión</a></li>

Site.master.vb

@@ -77,6 +77,7 @@ Partial Class Site
                 If UsuarioActual.Empresa.CvePlataforma = 3 Then
                     lnkFavicon.Href = "/Imagenes/favicongps.ico"
                     tTitulo.Text = "SIGNALS GPS"
+                    LnkDescargarManual.Visible = False
                 Else
                     lnkFavicon.Href = "/Imagenes/favicon.ico"
                 End If
@@ -571,6 +572,34 @@ Partial Class Site
         UpNotificacionesFoliosSAT.Update()
         RegistraScript(String.Format("$('#{0}').modal();", pnlNotificacionSAT.ClientID))
     End Sub
+    Protected Sub LnkDescargarManual_Click(sender As Object, e As EventArgs)
+        Dim ruta As String = $"{ModExtensiones.DirectorioEmpresas}Grales\ManualSIG.pdf"
+
+        Dim Archivo As New System.IO.FileInfo(ruta)
+
+        Try
+            If Archivo IsNot Nothing Then
+                If Archivo.Exists Then
+
+                    HttpContext.Current.Response.Clear()
+                    HttpContext.Current.Response.ClearContent()
+                    HttpContext.Current.Response.ContentType = "application/octet-stream"
+                    HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", "Manual Plataforma SIG 2021.pdf"))
+                    HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
+                    HttpContext.Current.Response.TransmitFile(ruta)
+                    Response.Flush() ' send it to the client to download
+                    HttpContext.Current.Response.SuppressContent = True
+                    HttpContext.Current.ApplicationInstance.CompleteRequest()
+                    Response.End()
+
+                Else
+                    Alert("El archivo no existe", TipoMensaje.MsgAdvertencia)
+                End If
+
+            End If
+        Catch ex As Exception
+        End Try
+    End Sub
 End Class
 Public Class TipoCambioActual
     Public Fecha As Date