diff --git a/SigAyuda.aspx b/SigAyuda.aspx
index d54b7103e..fcf0a1a56 100644
--- a/SigAyuda.aspx
+++ b/SigAyuda.aspx
@@ -621,6 +621,48 @@
+ <%-- O I --%>
+
+
<%--
diff --git a/SigAyuda.aspx.vb b/SigAyuda.aspx.vb
index 5172f53a7..1acdde30e 100644
--- a/SigAyuda.aspx.vb
+++ b/SigAyuda.aspx.vb
@@ -1,32 +1,45 @@
-
-Partial Class Metronic_SigAyuda
- Inherits System.Web.UI.Page
+Option Explicit On
+Option Strict On
+Imports Extensiones
+
+Partial Class Metronic_SigAyuda
+ Inherits ClsPaginas
+
+ Private Sub Metronic_SigAyuda_Load(sender As Object, e As EventArgs) Handles Me.Load
+ If Not Page.IsPostBack Then
+ If usuarioActual.CveEmpresa.Contiene(13, 83) Then
+ divtaskOI.Visible = True
+ End If
+
+ End If
+ End Sub
Protected Sub btnDownload_Click(sender As Object, e As EventArgs)
Try
Dim docto As String = TxtDocto.Text.Replace("/", "\")
Dim path As String = $"{AppDomain.CurrentDomain.BaseDirectory}{docto}"
-
Dim file As New System.IO.FileInfo(path)
- Dim mimeType As String = "text/plain"
- Try
- mimeType = MimeMapping.GetMimeMapping(path)
- Catch ex As Exception
- End Try
- 'Response.Write(path)
- Response.Clear()
- Response.ClearHeaders()
- Response.ClearContent()
- Response.AddHeader("Content-Disposition", $"attachment; filename= {Uri.EscapeDataString(file.Name)}")
- Response.AddHeader("Content-Length", file.Length.ToString())
- Response.ContentType = mimeType
- Response.Flush()
- Response.TransmitFile(file.FullName)
- Response.End()
+ Dim mimeType As String = "text/plain"
+ Try
+ mimeType = MimeMapping.GetMimeMapping(path)
+ Catch ex As Exception
+ End Try
+ 'Response.Write(path)
+ Response.Clear()
+ Response.ClearHeaders()
+ Response.ClearContent()
+ Response.AddHeader("Content-Disposition", $"attachment; filename= {Uri.EscapeDataString(file.Name)}")
+ Response.AddHeader("Content-Length", file.Length.ToString())
+ Response.ContentType = mimeType
+ Response.Flush()
+ Response.TransmitFile(file.FullName)
+ Response.End()
Catch ex As Exception
'GuardaLog($"GenerateFile: {ex.ToString()}")
End Try
End Sub
+
+
End Class