- 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/Informes/dxwEditor.xaml.vb
+++ b/Informes/dxwEditor.xaml.vb
@@ -0,0 +1,110 @@
+Imports DevExpress.Xpf.Core
+Imports DevExpress.Xpf.RichEdit
+Imports DevExpress.XtraRichEdit.Export
+Imports DevExpress.XtraRichEdit.Export.Html
+Imports DevExpress.XtraRichEdit.Commands
+Imports DevExpress.Office.Services
+Public Class dxwEditor
+    Public Delegate Sub Guardar(ms As IO.Stream)
+    Public Delegate Sub GuardarYExportarHTML(ms As IO.Stream, msHTML As IO.Stream)
+    Private DlGuardar As Guardar
+    Private DlGuardarYExportarHTML As GuardarYExportarHTML
+    Public Delegate Sub CargarDatosMailMerge(dxrte As RichEditControl)
+    Private DlCargarDatosMailMerge As CargarDatosMailMerge
+    Private _FormatoOrigen As DevExpress.XtraRichEdit.DocumentFormat
+    Private _FormatoDestino As DevExpress.XtraRichEdit.DocumentFormat
+    Private _SoloLectura As Boolean
+
+
+
+    Private Sub biGuardar_ItemClick(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs)
+        Dim ms As New IO.MemoryStream
+        'If _Formato = DevExpress.XtraRichEdit.DocumentFormat.Html Then          
+        '    Dim options As New HtmlDocumentExporterOptions()
+        '    options.ExportRootTag = ExportRootTag.Html
+        '    options.CssPropertiesExportType = CssPropertiesExportType.Inline
+        '    options.EmbedImages = True
+        '    Dim exporter = New HtmlExporter(Me.recEditor.Model, options)            
+        '    Dim s As String = exporter.Export()
+        '    ms = New IO.MemoryStream(System.Text.Encoding.Unicode.GetBytes(s))
+        'Else
+        Me.recEditor.SaveDocument(ms, _FormatoDestino)
+        'End If
+        If Me.DlGuardar IsNot Nothing Then
+            Me.DlGuardar.Invoke(ms)
+        End If
+        If Me.DlGuardarYExportarHTML IsNot Nothing Then
+            Dim options As New HtmlDocumentExporterOptions()
+            options.ExportRootTag = ExportRootTag.Html
+            options.CssPropertiesExportType = CssPropertiesExportType.Inline
+            options.EmbedImages = True            
+            Dim exporter = New HtmlExporter(Me.recEditor.Model, options)
+            Dim s As String = exporter.Export()
+            Dim mshtml = New IO.MemoryStream(System.Text.Encoding.UTF8.GetBytes(s))
+            Me.DlGuardarYExportarHTML(ms, mshtml)
+        End If
+
+
+
+    End Sub
+    Private Sub biGuardarYSalir_ItemClick(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs)
+        biGuardar_ItemClick(sender, e)
+        Me.Close()
+    End Sub
+    Public Sub New(Documento As IO.Stream, DelegadoGuardar As Guardar, Optional DelegadoCargaMailMerge As CargarDatosMailMerge = Nothing, Optional SoloLectura As Boolean = False)
+        _FormatoOrigen = DevExpress.XtraRichEdit.DocumentFormat.OpenXml
+        _FormatoDestino = DevExpress.XtraRichEdit.DocumentFormat.OpenXml
+        _SoloLectura = SoloLectura
+        Nuevo(Documento, DelegadoGuardar, Nothing, DelegadoCargaMailMerge)
+
+    End Sub
+    Public Sub New(Documento As IO.Stream, FormatoOrigen As DevExpress.XtraRichEdit.DocumentFormat, FormatoDestino As DevExpress.XtraRichEdit.DocumentFormat, DelegadoGuardarYExportarHTML As GuardarYExportarHTML, Optional DelegadoCargaMailMerge As CargarDatosMailMerge = Nothing, Optional SoloLectura As Boolean = False)
+        _FormatoOrigen = FormatoOrigen
+        _FormatoDestino = FormatoDestino
+        _SoloLectura = SoloLectura
+        Nuevo(Documento, Nothing, DelegadoGuardarYExportarHTML, DelegadoCargaMailMerge)
+    End Sub
+
+    Public Sub New(Documento As IO.Stream, FormatoOrigen As DevExpress.XtraRichEdit.DocumentFormat, FormatoDestino As DevExpress.XtraRichEdit.DocumentFormat, DelegadoGuardar As Guardar, Optional DelegadoCargaMailMerge As CargarDatosMailMerge = Nothing, Optional SoloLectura As Boolean = False)
+        _FormatoOrigen = FormatoOrigen
+        _FormatoDestino = FormatoDestino
+        _SoloLectura = SoloLectura
+        Nuevo(Documento, DelegadoGuardar, Nothing, DelegadoCargaMailMerge)
+    End Sub
+    Private Sub Nuevo(Documento As IO.Stream, DelegadoGuardar As Guardar, Optional DelegadoGuardaryExportarHTML As GuardarYExportarHTML = Nothing, Optional DelegadoCargaMailMerge As CargarDatosMailMerge = Nothing)
+        Try
+            DXSplashScreen.Show(Of SplashScreenTecnosis)()
+            DXSplashScreen.SetState("Cargando Documento ...")
+
+            ' Llamada necesaria para el diseñador.
+            InitializeComponent()
+            DlGuardar = DelegadoGuardar
+            If _SoloLectura Then Me.biGuardar.IsEnabled = False
+            DlGuardarYExportarHTML = DelegadoGuardaryExportarHTML
+
+            DlCargarDatosMailMerge = DelegadoCargaMailMerge
+            If Documento IsNot Nothing Then
+                Me.recEditor.LoadDocument(Documento, _FormatoOrigen)
+            Else
+                Me.recEditor.Document.Sections(0).Page.PaperKind = System.Drawing.Printing.PaperKind.A4
+            End If
+        Catch ex As Exception
+            If DXSplashScreen.IsActive Then DXSplashScreen.Close()
+            DXMessageBox.Show(ex.Message, "Error Cargando Documento")
+        Finally
+
+            If DXSplashScreen.IsActive Then DXSplashScreen.Close()
+        End Try
+        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
+
+    End Sub
+
+    Private Sub dxwEditor_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+        If Me.DlCargarDatosMailMerge IsNot Nothing Then
+            Me.DlCargarDatosMailMerge.Invoke(Me.recEditor)
+        Else
+            Me.pageMailMerge.IsVisible = False
+        End If
+    End Sub
+  
+End Class