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

2026-03-12 V1.3.10 Se lanza el evento campoactualizado si se ha lanzado con FuerzaValidarControl

Browse Source
This commit is contained in:
Manuel Moguer
2026-03-12 12:40:23 +01:00
parent 4b37dda13c
commit 93a2a4936e
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
tsUserControl.vb
View File

@@ -1120,8 +1120,8 @@ Public MustInherit Class tsUserControl
Private Sub _ValidarControl(sender As Object, e As ValidationEventArgs)
Try
If ValidarControles AndAlso (Me IsNot Nothing AndAlso (Not (System.ComponentModel.DesignerProperties.GetIsInDesignMode(Me)) And (e.UpdateSource = Validation.Native.UpdateEditorSource.DoValidate OrElse e.UpdateSource = Validation.Native.UpdateEditorSource.LostFocus OrElse e.UpdateSource = Validation.Native.UpdateEditorSource.ValueChanging))) Then
If FuerzaValidacion OrElse sender.GetType Is GetType(DateEdit) OrElse (sender.EditValue Is Nothing And e.Value IsNot Nothing) OrElse (sender.EditValue IsNot Nothing And e.Value Is Nothing) OrElse sender.GetType Is GetType(DevExpress.Xpf.Grid.LookUp.LookUpEdit) OrElse sender.EditValue <> e.Value Then
If ValidarControles AndAlso (Me IsNot Nothing AndAlso (Not (System.ComponentModel.DesignerProperties.GetIsInDesignMode(Me)) AndAlso (e.UpdateSource = Validation.Native.UpdateEditorSource.DoValidate OrElse e.UpdateSource = Validation.Native.UpdateEditorSource.LostFocus OrElse e.UpdateSource = Validation.Native.UpdateEditorSource.ValueChanging))) Then
If FuerzaValidacion OrElse sender.GetType Is GetType(DateEdit) OrElse (sender.EditValue Is Nothing AndAlso e.Value IsNot Nothing) OrElse (sender.EditValue IsNot Nothing AndAlso e.Value Is Nothing) OrElse sender.GetType Is GetType(DevExpress.Xpf.Grid.LookUp.LookUpEdit) OrElse sender.EditValue <> e.Value Then
Dim ev As ErrorValidacion = Nothing
Dim ValorCambiado As Object = Nothing
@@ -1149,6 +1149,7 @@ Public MustInherit Class tsUserControl
Else
e.IsValid = True
End If
If FuerzaValidacion Then RaiseEvent CampoActualizado(sender, Nothing)
End If
End If
End If