Correccion rutina impresión informes y nueva sobrecarga

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