Impresion de excel en estados de cuenta stimultsoft

App_Code/ClsPaginas.vb

@@ -6118,7 +6118,12 @@ Public Class ClsPaginas
         rds.Value = DtDatos
         lrds.Add(rds)
 
-        ImprimirbytesPDF(StreamBytesStimulsoft("Facturas", RutaReporte, lrds, Parametros, NombreArchivo:=NombreArchivo, Formato:="PDF"), NombreArchivo, Formato, Content_Disposition:=Content_Disposition)
+        Dim Extension = "pdf"
+        If Formato.ToLower() = "excel" Then
+            Extension = "xlsx"
+        End If
+
+        ImprimirbytesPDF(StreamBytesStimulsoft("Facturas", RutaReporte, lrds, Parametros, NombreArchivo:=NombreArchivo, Formato:=Formato), NombreArchivo, Formato, Content_Disposition:=Content_Disposition, Extension:=Extension)
     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)
@@ -6582,10 +6587,9 @@ 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, Optional Content_Disposition As String = "attachment")
+    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", Optional Extension As String = "")
         'limpio ReportViwer   
         Dim mimeType As String = Nothing
-        Dim extension As String = Nothing
 
         'If Descarga Then
         '    Try
@@ -6610,7 +6614,15 @@ Public Class ClsPaginas
                 Response.ContentType = mimeType
             End If
             Response.ClearHeaders()
-            Response.AddHeader("content-disposition", String.Format("{0}; filename=""{1}.{2}""", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
+
+            Dim fileExtension As String = ""
+            If Not String.IsNullOrEmpty(extension) Then
+                fileExtension = extension
+            Else
+                fileExtension = If(Formato = "PDF", "pdf", "xls")
+            End If
+
+            Response.AddHeader("content-disposition", String.Format("{0}; filename=""{1}.{2}""", Content_Disposition, NombreArchivo, fileExtension))
             Response.BinaryWrite(bytes) ' create the file
             Response.Flush() ' send it to the client to download
             bytes = Nothing

Ventas/Clientes.aspx.vb

@@ -4249,7 +4249,23 @@ Partial Class Clientes
                 Try
                     Dim File As Byte()
                     If Archivo.Exists Then
-                        File = ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato)
+                        Dim ArchivoSti As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.mrt", UsuarioActual.Empresa.Ruta))
+                        If ArchivoSti.Exists Then
+                            Dim listass As New List(Of ReportParameter)
+                            For Each item As CrystalParametro In lista
+                                listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString()))
+                            Next
+
+                            Dim lrds As New List(Of ReportDataSource)
+                            Dim rds As New ReportDataSource
+                            rds.Name = "Datos"
+                            rds.Value = DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha")
+                            lrds.Add(rds)
+
+                            File = StreamBytesStimulsoft("Facturas", $"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", lrds, listass, NombreArchivo:="Estado de cuenta", Formato:=Formato)
+                        Else
+                            File = ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato)
+                        End If
                     Else
                         File = ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato)
                     End If
@@ -4282,7 +4298,6 @@ Partial Class Clientes
                         Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion)
                     Catch ex As Exception
                         Alert("Ocurrió un error al enviar el correo", TipoMensaje.MsgAdvertencia)
-
                     End Try
 
                 Catch ex As Exception
@@ -4295,8 +4310,8 @@ Partial Class Clientes
                         Dim listass As New List(Of ReportParameter)
                         For Each item As CrystalParametro In lista
                             listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString()))
-                        Next
+                        Next
-                        ImprimirPDFStimulsoft($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato)
+                        ImprimirPDFStimulsoft($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato)
                     Else
                         ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
                     End If
@@ -4348,8 +4363,8 @@ Partial Class Clientes
                     Dim listass As New List(Of ReportParameter)
                     For Each item As CrystalParametro In lista
                         listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString()))
-                    Next
+                    Next
-                    ImprimirPDFStimulsoft($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato)
+                    ImprimirPDFStimulsoft($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato)
                 Else
                     ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
                 End If
@@ -4357,6 +4372,56 @@ Partial Class Clientes
                 ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
             End If
         End If
+    End Sub
+
+    Public Sub ImprimirExcelStimulsoft(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional RDSName As String = "Datos", 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)
+
+        ImprimirbytesExcel(StreamBytesStimulsoft("Facturas", RutaReporte, lrds, Parametros, NombreArchivo:=NombreArchivo, Formato:="EXCEL"), NombreArchivo, "EXCEL", Content_Disposition:=Content_Disposition)
+    End Sub
+    Public Sub ImprimirbytesExcel(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
+
+        'If Descarga Then
+        '    Try
+        '        bytes = bytes
+        '        File.WriteAllBytes(String.Format("{0}PDF/whatever.gif", UsuarioActual.Empresa.Ruta), img)
+        '    Catch ex As Exception
+        '        If UsuarioActual.CveRol = 1 Then
+        '            Alert(ex.Message, TipoMensaje.MsgAdvertencia)
+        '        Else
+        '            Alert("Ocurrió un error al generar la descarga. Favor de contactar a soporte tecnico cod'IMPDFclspag'", TipoMensaje.MsgAdvertencia)
+        '        End If
+        '    End Try
+        'End If
+
+        Try
+            bytes = bytes
+            Response.Buffer = True
+            Response.Clear()
+            Response.ContentType = "application/vnd.ms-excel"
+            Response.ClearHeaders()
+            Response.AddHeader("content-disposition", String.Format("{0}; filename=""{1}.{2}""", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xlsx")))
+            Response.BinaryWrite(bytes) ' create the file
+            Response.Flush() ' send it to the client to download
+            bytes = Nothing
+            HttpContext.Current.Response.SuppressContent = True
+            HttpContext.Current.ApplicationInstance.CompleteRequest()
+            'HttpContext.Current.Response.End()
+        Catch ex As Exception
+
+            If UsuarioActual.CveRol = 1 Then
+                Alert($"Error: {ex.Message}  | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))}", TipoMensaje.MsgAdvertencia)
+            Else
+                Alert("Ocurrió un error al generar la descarga. Favor de contactar a soporte tecnico cod:'IMPDFclspag'", TipoMensaje.MsgAdvertencia)
+            End If
+        End Try
     End Sub
     Private Sub MandaCorreoEstadoCuenta(CveUsuario As Integer, CveEmpresa As Integer, CveCliente As Integer, File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False)