Comunes/tsWPF
10
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

' 01/07/2026 V 5.0.10 Cambios en guardar. En caso de una excepción de concurrencia se intenta desabilitando la detección de la misma

Browse Source
This commit is contained in:
Manuel Moguer
2026-07-01 10:31:17 +02:00
parent a88b76cc67
commit 4848dc4289
3 changed files with 17 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Baget/Aplicacion.nuspec
View File

@@ -2,7 +2,7 @@
<package > <package >
<metadata> <metadata>
<id>tsWPF</id> <id>tsWPF</id>
<version>5.0.9.0</version> <version>5.0.10.0</version>
<authors>Tecnosis</authors> <authors>Tecnosis</authors>
<owners>Tecnosis</owners> <owners>Tecnosis</owners>
<requireLicenseAcceptance>false</requireLicenseAcceptance> <requireLicenseAcceptance>false</requireLicenseAcceptance>

8
My Project/AssemblyInfo.vb
View File

@@ -55,10 +55,14 @@ Imports System.Windows
' mediante el asterisco ('*'), como se muestra a continuación: ' mediante el asterisco ('*'), como se muestra a continuación:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("5.0.9.0")> <Assembly: AssemblyVersion("5.0.10.0")>
<Assembly: AssemblyFileVersion("5.0.9.0")> <Assembly: AssemblyFileVersion("5.0.10.0")>
' Cambios en la versión 5.0.10.0
' 01/07/2026 V 5.0.10 Cambios en guardar. En caso de una excepción de concurrencia se intenta desabilitando la detección de la misma
' Cambios en la versión 5.0.9.0 ' Cambios en la versión 5.0.9.0
' 02/06/2026 V 5.0.9 Se cambia sobrecarga de CombinaDocx a una nueva funcion CombinaDocxPdfPorBloques ' 02/06/2026 V 5.0.9 Se cambia sobrecarga de CombinaDocx a una nueva funcion CombinaDocxPdfPorBloques

22
Obsoleto/ApCabLin.vb
View File

@@ -684,14 +684,9 @@ Public Class ApCabLin
Me.bdEntidad.SaveChanges() Me.bdEntidad.SaveChanges()
End If End If
Catch ex As Exception Catch ex As OptimisticConcurrencyException
Try If DelegadoErrorNoControlado IsNot Nothing Then DelegadoErrorNoControlado.Invoke(Me, ex)
Dim xml = tsl5.Utilidades.Serializar(Me.DataContext) Me.bdEntidad.SaveChanges(SaveOptions.AcceptAllChangesAfterSave)
Dim ex2 As New Exception("Error en SaveChanges. Estado:" & Me.Estado.ToString & " Datos del registro" & xml & " " & ex.Message, ex)
If DelegadoErrorNoControlado IsNot Nothing Then DelegadoErrorNoControlado.Invoke(Me, ex2)
Catch ex3 As Exception
End Try
Throw
End Try End Try
If Not OcultarStoryBoard Then Me.ContenedorCL.Dispatcher.BeginInvoke(New Action(Sub() Me.ContenedorCL.IniciaAnimacion("Datos Guardados", Colors.Black)), System.Windows.Threading.DispatcherPriority.Normal) If Not OcultarStoryBoard Then Me.ContenedorCL.Dispatcher.BeginInvoke(New Action(Sub() Me.ContenedorCL.IniciaAnimacion("Datos Guardados", Colors.Black)), System.Windows.Threading.DispatcherPriority.Normal)
If Me.Estado = EstadosCablin.Nuevo Then If Me.Estado = EstadosCablin.Nuevo Then
@@ -720,11 +715,14 @@ Public Class ApCabLin
Cancelar = True Cancelar = True
End If End If
End If End If
Catch ex As OptimisticConcurrencyException 'Catch ex As OptimisticConcurrencyException
If DXSplashScreen.IsActive Then DXSplashScreen.Close() ' If DelegadoErrorNoControlado IsNot Nothing Then DelegadoErrorNoControlado.Invoke(Me, ex)
DXMessageBox.Show("Los datos cargados fueron modificados por otro proceso por lo que no pueden ser guardados. Se mostrarán los nuevos datos.", "Atención") ' Cancelar = True
RefrescaUC(True) ' If DXSplashScreen.IsActive Then DXSplashScreen.Close()
' DXMessageBox.Show("Los datos cargados fueron modificados por otro proceso por lo que no pueden ser guardados. Se mostrarán los nuevos datos.", "Atención")
' RefrescaUC(True)
Catch ex As Exception Catch ex As Exception
If DelegadoErrorNoControlado IsNot Nothing Then DelegadoErrorNoControlado.Invoke(Me, ex)
If DXSplashScreen.IsActive Then DXSplashScreen.Close() If DXSplashScreen.IsActive Then DXSplashScreen.Close()
Cancelar = True Cancelar = True
Dim sMensaje As String = ex.Message Dim sMensaje As String = ex.Message