From 78c93110472d85af6e3471e68171aa51d5158e52 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 24 Mar 2021 10:02:37 -0700
Subject: [PATCH] Content Disposition Dinamico

---
 App_Code/ClsPaginas.vb | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 990a3e2f5..95e161692 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -5444,13 +5444,13 @@ Public Class ClsPaginas
     ''' <param name="NombreArchivo">Opcional Nombre del archivo que se descarga</param>
     ''' <param name="Formato">Optional, Formato de Generacion PDF o Excel</param>
     ''' <remarks></remarks>
-    Public Sub ImprimirPDF(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "DataSet1", Optional MR As ReportViewer = Nothing)
+    Public Sub ImprimirPDF(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "DataSet1", Optional MR As ReportViewer = Nothing, Optional Content_Disposition As String = "attachment")
         Dim lrds As New List(Of ReportDataSource)
         Dim rds As New ReportDataSource
         rds.Name = RDSName
         rds.Value = DtDatos
         lrds.Add(rds)
-        ImprimirPDF(RutaReporte, lrds, Parametros, NombreArchivo, Formato, MR)
+        ImprimirPDF(RutaReporte, lrds, Parametros, NombreArchivo, Formato, MR, Content_Disposition)
     End Sub
     Public Sub ImprimirPDFMultiDS(RutaReporte As String, lrds As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "DataSet1", Optional MR As ReportViewer = Nothing)
         ImprimirPDF(RutaReporte, lrds, Parametros, NombreArchivo, Formato, MR)
@@ -5465,9 +5465,9 @@ Public Class ClsPaginas
     ''' <param name="NombreArchivo">Opcional Nombre del archivo que se descarga</param>
     ''' <param name="Formato">Optional, Formato de Generacion PDF o Excel</param>
     ''' <remarks></remarks>
-    Public Sub ImprimirPDF(RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportViewer = Nothing)
+    Public Sub ImprimirPDF(RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportViewer = Nothing, Optional Content_Disposition As String = "attachment")
         'limpio ReportViwer   
-        ImprimirbytesPDF(StreamPDF(RutaReporte, DataSource, Parametros, NombreArchivo, Formato, MR), NombreArchivo, Formato)
+        ImprimirbytesPDF(StreamPDF(RutaReporte, DataSource, Parametros, NombreArchivo, Formato, MR), NombreArchivo, Formato, Content_Disposition:=Content_Disposition)
     End Sub
     Public Function StreamPDF(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "DataSet1", Optional MR As ReportViewer = Nothing) As Byte()
         Dim lrds As New List(Of ReportDataSource)
@@ -5857,7 +5857,7 @@ Public Class ClsPaginas
     ''' <param name="NombreArchivo"></param>
     ''' <param name="Formato"></param>
     ''' <remarks></remarks>
-    Public Sub ImprimirbytesPDF(bytes As Byte(), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional Descarga As Boolean = False)
+    Public Sub ImprimirbytesPDF(bytes As Byte(), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional Descarga As Boolean = False, Optional Content_Disposition As String = "attachment")
         'limpio ReportViwer   
         Dim mimeType As String = Nothing
         Dim extension As String = Nothing
@@ -5880,7 +5880,7 @@ Public Class ClsPaginas
             Response.Buffer = True
             Response.Clear()
             Response.ContentType = mimeType
-            Response.AddHeader("content-disposition", String.Format("attachment; filename={0}.{1}", NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
+            Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
             Response.BinaryWrite(bytes) ' create the file
             Response.Flush() ' send it to the client to download
             HttpContext.Current.Response.SuppressContent = True