Correccion rutina impresión informes y nueva sobrecarga
This commit is contained in:
@@ -111,8 +111,21 @@ Public Class tsXtraReport
|
|||||||
Return ms
|
Return ms
|
||||||
End Function
|
End Function
|
||||||
Private Shared NumeroCopias As Integer
|
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
|
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
|
For Each pr In xr.Parameters
|
||||||
pr.Visible = False
|
pr.Visible = False
|
||||||
If pr.Name = "Fecha" Then
|
If pr.Name = "Fecha" Then
|
||||||
|
|||||||
@@ -15,12 +15,15 @@
|
|||||||
<RootNamespace>tsWPFCore</RootNamespace>
|
<RootNamespace>tsWPFCore</RootNamespace>
|
||||||
<PackageId>tsWPFCore</PackageId>
|
<PackageId>tsWPFCore</PackageId>
|
||||||
<PackageTags>net8.0-windows, libreria</PackageTags>
|
<PackageTags>net8.0-windows, libreria</PackageTags>
|
||||||
<Version>1.3.1</Version>
|
<Version>1.3.4</Version>
|
||||||
<Authors>Manuel</Authors>
|
<Authors>Manuel</Authors>
|
||||||
<Company>Tecnosis S.A</Company>
|
<Company>Tecnosis S.A</Company>
|
||||||
<Description>Utilidades para aplicaciones WPF Entity Framework compatibles con EF Core 8.</Description>
|
<Description>Utilidades para aplicaciones WPF Entity Framework compatibles con EF Core 8.</Description>
|
||||||
<PackageReleaseNotes>
|
<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>
|
</PackageReleaseNotes>
|
||||||
<PackageReadmeFile>README.md</PackageReadmeFile>
|
<PackageReadmeFile>README.md</PackageReadmeFile>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
|
|||||||
Reference in New Issue
Block a user