- Se traslada versión a git desde tfs

2025-05-30 12:06:37 +02:00
commit b93d857a6f
103 changed files with 86476 additions and 0 deletions
--- a/Utilidades/tsXtraReports.vb
+++ b/Utilidades/tsXtraReports.vb
@@ -0,0 +1,109 @@
+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