Correccion rutina impresión informes y nueva sobrecarga

This commit is contained in:
2025-07-06 11:24:25 +02:00
parent 5f93587d97
commit b4d92cf533
2 changed files with 19 additions and 3 deletions

View File

@@ -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

View File

@@ -15,12 +15,15 @@
<RootNamespace>tsWPFCore</RootNamespace>
<PackageId>tsWPFCore</PackageId>
<PackageTags>net8.0-windows, libreria</PackageTags>
<Version>1.3.1</Version>
<Version>1.3.4</Version>
<Authors>Manuel</Authors>
<Company>Tecnosis S.A</Company>
<Description>Utilidades para aplicaciones WPF Entity Framework compatibles con EF Core 8.</Description>
<PackageReleaseNotes>
- 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
</PackageReleaseNotes>
<PackageReadmeFile>README.md</PackageReadmeFile>
</PropertyGroup>