diff --git a/Utilidades/tsXtraReports.vb b/Utilidades/tsXtraReports.vb index c37d4a4..8a8bcb9 100644 --- a/Utilidades/tsXtraReports.vb +++ b/Utilidades/tsXtraReports.vb @@ -111,8 +111,21 @@ Public Class tsXtraReport Return ms End Function Private Shared NumeroCopias As Integer - Friend Shared Sub ImprimeInforme(xr As XtraReport, ImpresoraPredeterminada As Boolean, Copias As Integer, Fecha As Date, Datos As Object) + + + Public Shared Sub ImprimirPlantilla(Plantilla As Byte(), ImpresoraPredeterminada As Boolean, Copias As Integer, Datos As Object, Optional Fecha As DateTime? = Nothing) Try + If Fecha Is Nothing Then Fecha = Now + Dim xr As New XtraReport + xr.LoadLayoutFromXml(New MemoryStream(Plantilla), True) + ImprimeInforme(xr, ImpresoraPredeterminada, Copias, Fecha, Datos) + Catch ex As Exception + DXMessageBox.Show(ex.Message, "Atención", MessageBoxButton.OK, MessageBoxImage.Error) + End Try + End Sub + Public Shared Sub ImprimeInforme(xr As XtraReport, ImpresoraPredeterminada As Boolean, Copias As Integer, Datos As Object, Optional Fecha As DateTime? = Nothing) + Try + If Fecha Is Nothing Then Fecha = Now For Each pr In xr.Parameters pr.Visible = False If pr.Name = "Fecha" Then diff --git a/tsWPFCore.vbproj b/tsWPFCore.vbproj index 69b5d31..09c0076 100644 --- a/tsWPFCore.vbproj +++ b/tsWPFCore.vbproj @@ -15,12 +15,15 @@ tsWPFCore tsWPFCore net8.0-windows, libreria - 1.3.1 + 1.3.4 Manuel Tecnosis S.A Utilidades para aplicaciones WPF Entity Framework compatibles con EF Core 8. - - Se traslada versión a git desde tfs + - 2025-07-06 V1.3.4 Correccion rutina impresión informes y nueva sobrecarga + - 2025-07-06 V1.3.3 Correccion rutina impresión informes + - 2025-07-06 V1.3.2 Nueva rutina impresión de informes + - 2025-xx-xx V1.3.1 Se traslada versión a git desde tfs README.md