109 lines
4.2 KiB
VB.net
109 lines
4.2 KiB
VB.net
Imports System.IO
|
|
|
|
Public Class tsXtraReport
|
|
Public Shared Sub ExportarAPDF(Plantilla() As Byte, Datos As Object, FicheroPDF As String)
|
|
Dim xr As DevExpress.XtraReports.UI.XtraReport
|
|
Dim s As String = System.Text.Encoding.UTF8.GetString(Plantilla)
|
|
Using sw As New StreamWriter(New MemoryStream())
|
|
sw.Write(s)
|
|
sw.Flush()
|
|
|
|
xr = DevExpress.XtraReports.UI.XtraReport.FromStream(sw.BaseStream, True)
|
|
End Using
|
|
Try
|
|
Dim pr As Global.DevExpress.XtraReports.Parameters.Parameter = (From p As DevExpress.XtraReports.Parameters.Parameter In xr.Parameters Where p.Name = "Fecha").First
|
|
pr.Value = Now
|
|
pr.Visible = False
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
xr.DataSource = Datos
|
|
xr.CreateDocument()
|
|
xr.ExportToPdf(FicheroPDF)
|
|
End Sub
|
|
|
|
Public Shared Sub ExportarAxls(Plantilla() As Byte, Datos As Object, Ficheroxls As String)
|
|
Dim xr As DevExpress.XtraReports.UI.XtraReport
|
|
Dim s As String = System.Text.Encoding.UTF8.GetString(Plantilla)
|
|
Using sw As New StreamWriter(New MemoryStream())
|
|
sw.Write(s)
|
|
sw.Flush()
|
|
xr = DevExpress.XtraReports.UI.XtraReport.FromStream(sw.BaseStream, True)
|
|
End Using
|
|
Try
|
|
Dim pr As Global.DevExpress.XtraReports.Parameters.Parameter = (From p As DevExpress.XtraReports.Parameters.Parameter In xr.Parameters Where p.Name = "Fecha").First
|
|
pr.Value = Now
|
|
pr.Visible = False
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
xr.DataSource = Datos
|
|
xr.CreateDocument()
|
|
xr.ExportToXls(Ficheroxls)
|
|
|
|
End Sub
|
|
Public Shared Sub ExportarAxlsx(Plantilla() As Byte, Datos As Object, Ficheroxlsx As String)
|
|
Dim xr As DevExpress.XtraReports.UI.XtraReport
|
|
Dim s As String = System.Text.Encoding.UTF8.GetString(Plantilla)
|
|
Using sw As New StreamWriter(New MemoryStream())
|
|
sw.Write(s)
|
|
sw.Flush()
|
|
xr = DevExpress.XtraReports.UI.XtraReport.FromStream(sw.BaseStream, True)
|
|
End Using
|
|
Try
|
|
Dim pr As Global.DevExpress.XtraReports.Parameters.Parameter = (From p As DevExpress.XtraReports.Parameters.Parameter In xr.Parameters Where p.Name = "Fecha").First
|
|
pr.Value = Now
|
|
pr.Visible = False
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
xr.DataSource = Datos
|
|
xr.CreateDocument()
|
|
xr.ExportToXlsx(Ficheroxlsx)
|
|
|
|
End Sub
|
|
Public Shared Sub ExportarAcsv(Plantilla() As Byte, Datos As Object, Ficherocsv As String)
|
|
Dim xr As DevExpress.XtraReports.UI.XtraReport
|
|
Dim s As String = System.Text.Encoding.UTF8.GetString(Plantilla)
|
|
Using sw As New StreamWriter(New MemoryStream())
|
|
sw.Write(s)
|
|
sw.Flush()
|
|
xr = DevExpress.XtraReports.UI.XtraReport.FromStream(sw.BaseStream, True)
|
|
End Using
|
|
Try
|
|
Dim pr As Global.DevExpress.XtraReports.Parameters.Parameter = (From p As DevExpress.XtraReports.Parameters.Parameter In xr.Parameters Where p.Name = "Fecha").First
|
|
pr.Value = Now
|
|
pr.Visible = False
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
xr.DataSource = Datos
|
|
xr.CreateDocument()
|
|
xr.ExportToCsv(Ficherocsv)
|
|
|
|
End Sub
|
|
|
|
|
|
Public Shared Function ExportarAPDF(Plantilla() As Byte, Datos As Object) As MemoryStream
|
|
Dim xr As DevExpress.XtraReports.UI.XtraReport
|
|
Dim s As String = System.Text.Encoding.UTF8.GetString(Plantilla)
|
|
Using sw As New StreamWriter(New MemoryStream())
|
|
sw.Write(s)
|
|
sw.Flush()
|
|
|
|
xr = DevExpress.XtraReports.UI.XtraReport.FromStream(sw.BaseStream, True)
|
|
End Using
|
|
Try
|
|
Dim pr As Global.DevExpress.XtraReports.Parameters.Parameter = (From p As DevExpress.XtraReports.Parameters.Parameter In xr.Parameters Where p.Name = "Fecha").First
|
|
pr.Value = Now
|
|
pr.Visible = False
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
xr.DataSource = Datos
|
|
xr.CreateDocument()
|
|
Dim ms As New MemoryStream
|
|
xr.ExportToPdf(ms)
|
|
Return ms
|
|
End Function
|
|
End Class |