ivanszabo/Nuvolar
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Átállás 17.2.3-ra

Browse Source 
Related Work Items: #123
This commit is contained in:
ivanszabo
2017-12-02 16:09:26 +01:00
parent 2b2f1b201c
commit 9cca882b34
201 changed files with 16991 additions and 3617 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.vb
+4 -4
View File
@@ -156,7 +156,7 @@ Public Class HRPerson_VC
Private Sub aMergeUsers_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aMergeUsers.Execute
Try
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _Object As Object
Dim _User As User
@@ -187,13 +187,13 @@ Public Class HRPerson_VC
MsgBox(ex.Message)
Finally
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Try
End Sub
Private Sub aMergeHRPerson_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aMergeHRPerson.Execute
Try
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _Object As Object
Dim _HRPerson As HRPerson
@@ -224,7 +224,7 @@ Public Class HRPerson_VC
MsgBox(ex.Message)
Finally
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Try
End Sub
End Class