From 06e41a255ad02a8ea98f6ca5802f2b4696f5e9a9 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 15 Jul 2023 10:44:36 -0700 Subject: [PATCH] -- condiconal para descarga de OI, Para E13,83 --- SigAyuda.aspx | 42 +++++++++++++++++++++++++++++++++++++++ SigAyuda.aspx.vb | 51 ++++++++++++++++++++++++++++++------------------ 2 files changed, 74 insertions(+), 19 deletions(-) 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