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

22
Obsoleto/ApCabLin.vb
View File

@@ -684,14 +684,9 @@ Public Class ApCabLin
Me.bdEntidad.SaveChanges()
End If
Catch ex As Exception
Try
Dim xml = tsl5.Utilidades.Serializar(Me.DataContext)
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
Catch ex As OptimisticConcurrencyException
If DelegadoErrorNoControlado IsNot Nothing Then DelegadoErrorNoControlado.Invoke(Me, ex)
Me.bdEntidad.SaveChanges(SaveOptions.AcceptAllChangesAfterSave)
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 Me.Estado = EstadosCablin.Nuevo Then
@@ -720,11 +715,14 @@ Public Class ApCabLin
Cancelar = True
End If
End If
Catch ex As OptimisticConcurrencyException
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 OptimisticConcurrencyException
' If DelegadoErrorNoControlado IsNot Nothing Then DelegadoErrorNoControlado.Invoke(Me, ex)
' Cancelar = 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
If DelegadoErrorNoControlado IsNot Nothing Then DelegadoErrorNoControlado.Invoke(Me, ex)
If DXSplashScreen.IsActive Then DXSplashScreen.Close()
Cancelar = True
Dim sMensaje As String = ex.Message