- 2025-10-20 V1.3.8 Se añade botón de previsualizar

tsUserControl.vb

@@ -100,7 +100,7 @@ Public MustInherit Class tsUserControl
     Public Event EstadoCambiado(EstadoAnterior As EstadosAplicacion, EstadoNuevo As EstadosAplicacion)
     Public Event Enlazar(Celda As EditGridCellData, Defecto As Boolean)
     Public Event EjecutarAccion(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs, idAccion As Integer)
-    Public Event ImprimirPlantilla(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs, idPlantilla As Integer)
+    Public Event ImprimirPlantilla(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs, idPlantilla As Integer, Previsualizar As Boolean)
     Public Event TeclaFuncionPulsada(sender As Object, e As KeyEventArgs)
     '  Public Event AbreRegistroBuscado(uc As tsUserControl)
     Public Event BotonNuevoPulsado()
@@ -714,6 +714,7 @@ Public MustInherit Class tsUserControl
                     ContenedorAplicacion.btGuardarYBuscar.IsVisible = False
                     ContenedorAplicacion.btBuscar.IsVisible = False
                 End If
+                If Configuracion.MostrarPrevisualizar = False Then ContenedorAplicacion.btPrevisualizaPlantilla.IsVisible = False
                 If Not Me.PermisosConcedidos.Exportar Then Me.ContenedorAplicacion.btExportar.IsEnabled = False
             End If
             If DXSplashScreen.IsActive Then DXSplashScreen.Close()
@@ -1932,7 +1933,7 @@ Public MustInherit Class tsUserControl
             DXMessageBox.Show("Error en LanzaEjecutaAccion " & ex.Message, "Error")
         End Try
     End Sub
-    Sub LanzaImprimirPlantilla(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs, idPlantilla As Integer)
+    Sub LanzaImprimirPlantilla(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs, idPlantilla As Integer, Previsualizar As Boolean)
         Try
             Dim be As BaseEdit = Nothing
             Try
@@ -1959,7 +1960,7 @@ Public MustInherit Class tsUserControl
                 linea.View.CommitEditing()
                 If linea.View.HasValidationError Then Cancelar = True
             Next
-            If Not Cancelar Then RaiseEvent ImprimirPlantilla(sender, e, idPlantilla)
+            If Not Cancelar Then RaiseEvent ImprimirPlantilla(sender, e, idPlantilla, Previsualizar)
         Catch ex As Exception
             Debug.Write(ex.Message)
         End Try