Átállás 17.2.3-ra

Related Work Items: #123

Nuvolar.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb

@@ -24,19 +24,19 @@ Public Class ContactsVC
     Protected Overrides Sub OnActivated()
         MyBase.OnActivated()
         If View.Id = "Contact_EmailSendQueue_PopUp_HTMLMailTemplate_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
         End If
     End Sub
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
         If View.Id = "Contact_EmailSendQueue_PopUp_HTMLMailTemplate_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
         End If
     End Sub
 
@@ -59,7 +59,7 @@ Public Class ContactsVC
         Dim _CRM_Leads_Activity As CRM_Leads_Activity = _onew.CreateObject(Of CRM_Leads_Activity)()
 
         Dim currentUser As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
 
         If _CRM_Leads Is Nothing Then
             _CRM_Leads = _ocur.CreateObject(Of CRM_Leads)()
@@ -78,7 +78,7 @@ Public Class ContactsVC
             _CRM_Leads_Activity.HRPerson = _onew.GetObject(_CRM_Leads.HRPerson)
         End If
 
-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
 
         e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_Activity_DetailView", True, _CRM_Leads_Activity)
     End Sub

Nuvolar.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.vb

@@ -42,52 +42,52 @@ Public Class CustomersVC
             _CustomersNG = TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.FindObject(Of CustomersNG)(1, CriteriaOperator.Parse("Oid=Oid"))
 
             If _CustomersNG Is Nothing Then
-                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
             Else
-                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
             End If
         End If
         If View.Id = "Customers_CRM_Opportunities_ListView" Then
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
-            'Frame.GetController(Of LinkDialogController)().Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            'Frame.GetController(Of LinkDialogController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
         End If
         If View.Id = "CustomersNGCollection_DetailView" Then
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
         End If
         If View.Id = "Customers_CustomersBankAccounts_ListView" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of LinkDialogController).Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkDialogController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "CustomersFrom_CustomersBankAccounts_ListView" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of LinkDialogController).Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkDialogController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "Customers_DetailView" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
             AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Customers_DetailView_DeleteAction_Executing
             AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf Customers_DetailView_Save_Executing
             AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.Executing, AddressOf Customers_DetailView_Save_Executing
             AddHandler Frame.GetController(Of ModificationsController).SaveAndNewAction.Executing, AddressOf Customers_DetailView_Save_Executing
         End If
         If View.Id = "Customers_LookupListView" Then
-            'Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+            'Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
         End If
         If View.Id = "CustomersFileAttachment_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "Customers_CustomersFileAttachment_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "Customers_Customers_BusinessDirectory_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
         End If
 
         If View.Id = "Customers_ListView_Deleted" Then
@@ -97,8 +97,8 @@ Public Class CustomersVC
             Frame.GetController(Of CustomersVC).aCustomers_CreateBusinessDirectory.Active.SetItemValue("", False)
             Frame.GetController(Of CustomersVC).aMergeCustomers.Active.SetItemValue("", False)
 
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
             If TryCast(View, ListView) IsNot Nothing Then
                 If TryCast(View, ListView).CollectionSource IsNot Nothing Then
                     If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then
@@ -123,48 +123,48 @@ Public Class CustomersVC
             _CustomersNG = TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.FindObject(Of CustomersNG)(1, CriteriaOperator.Parse("Oid=Oid"))
 
             If _CustomersNG Is Nothing Then
-                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
             Else
-                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
             End If
         End If
         If View.Id = "Customers_CRM_Opportunities_ListView" Then
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            'Frame.GetController(Of LinkDialogController)().Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+            'Frame.GetController(Of LinkDialogController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
         End If
         If View.Id = "CustomersNGCollection_Deatilview" Then
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
         End If
         If View.Id = "Customers_CustomersBankAccounts_ListView" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of LinkDialogController).Active.SetItemValue("", True)
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkDialogController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
         End If
         If View.Id = "CustomersFrom_CustomersBankAccounts_ListView" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of LinkDialogController).Active.SetItemValue("", True)
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkDialogController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
         End If
         If View.Id = "Customers_DetailView" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
         End If
         If View.Id = "Customers_LookupListView" Then
-            'Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+            'Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
         End If
         If View.Id = "CustomersFileAttachment_ListView" Then
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
         End If
         If View.Id = "Customers_CustomersFileAttachment_ListView" Then
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
         End If
         If View.Id = "Customers_Customers_BusinessDirectory_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
         End If
         If View.Id = "Customers_ListView_Deleted" Then
             Frame.GetController(Of CustomersVC).aCreateOpportunityFromCustomers.Active.SetItemValue("", True)
@@ -172,8 +172,8 @@ Public Class CustomersVC
             Frame.GetController(Of CustomersVC).aPCICheck_Customers.Active.SetItemValue("", True)
             Frame.GetController(Of CustomersVC).aCustomers_CreateBusinessDirectory.Active.SetItemValue("", True)
 
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
             Frame.GetController(Of CustomersVC).aMergeCustomers.Active.SetItemValue("", True)
         End If
     End Sub
@@ -228,7 +228,7 @@ Public Class CustomersVC
 
     End Sub
     Private Sub aRecreateCustomersOrderDocuments_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRecreateCustomersOrderDocuments.Execute
-        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+        Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
 
         Try
             If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
@@ -286,7 +286,7 @@ Public Class CustomersVC
                 End If
             Next
             RaiseEvent FinalWork
-            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+            Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
@@ -341,7 +341,7 @@ Public Class CustomersVC
 
     Private Sub aMergeCustomers_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aMergeCustomers.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 _CustomersMergePopup As CustomersMergePopup = e.PopupWindow.View.SelectedObjects(0)
             Dim _Object As Object
@@ -366,7 +366,7 @@ Public Class CustomersVC
         Catch ex As Exception
             MsgBox(ex.Message)
         Finally
-            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+            Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
         End Try
 
     End Sub

Nuvolar.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting_VC.vb

@@ -24,11 +24,11 @@ Public Class CustomersMeeting_VC
     Protected Overrides Sub OnActivated()
         MyBase.OnActivated()
         If View.Id = "CustomersMeeting_CustomersMeetingDocuments_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
         End If
         If View.Id = "CustomersMeeting_ListView_Support" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
 
             Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
             Dim _User As DevExpress.Persistent.BaseImpl.User = TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User)
@@ -45,7 +45,7 @@ Public Class CustomersMeeting_VC
             End If
         End If
         If View.Id = "CustomersMeeting_ListView_Subcontractor" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
 
             Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
             Dim _User As DevExpress.Persistent.BaseImpl.User = TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User)
@@ -71,7 +71,7 @@ Public Class CustomersMeeting_VC
             End If
         End If
         If View.Id = "CustomersMeeting_DetailView_Subcontractor" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "CustomersMeeting_DetailView" Then
             Dim _CustomersMeeting As CustomersMeeting = TryCast(View.SelectedObjects(0), CustomersMeeting)
@@ -98,17 +98,17 @@ Public Class CustomersMeeting_VC
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
         If View.Id = "CustomersMeeting_CustomersMeetingDocuments_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
         End If
         If View.Id = "CustomersMeeting_ListView_Support" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
         End If
         If View.Id = "CustomersMeeting_ListView_Subcontractor" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
         End If
         If View.Id = "CustomersMeeting_DetailView_Subcontractor" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
 
         End If
     End Sub

Nuvolar.Module/BusinessObjects/GeneralObjects/GeneralStocks/GeneralStocks_VC.vb

@@ -23,16 +23,16 @@ Public Class GeneralStocks_VC
         MyBase.OnActivated()
 
         If View.Id = "CustomsTariffs_LookupListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
         End If
     End Sub
 
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
         If View.Id = "CustomsTariffs_LookupListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
         End If
     End Sub
 End Class

Nuvolar.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.vb

@@ -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

Nuvolar.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.vb

@@ -98,9 +98,9 @@ Public Class OperationalLog_VC
             _OperationalLog_CollectionSource.EndUpdateCriteria()
         End If
         If View.Id = "OperationalLog_OperationalLogDocuments_ListView" Then
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
         End If
     End Sub
     Protected Overrides Sub OnDeactivated()
@@ -110,9 +110,9 @@ Public Class OperationalLog_VC
 
         End If
         If View.Id = "OperationalLog_OperationalLogDocuments_ListView" Then
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
         End If
     End Sub
 

Nuvolar.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.vb

@@ -24,13 +24,13 @@ Public Class BusinessDirectory_VC
     Protected Overrides Sub OnActivated()
         MyBase.OnActivated()
         If View.Id = "Role_ListView_BusinessDirectory" Then
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
         End If
     End Sub
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
         If View.Id = "Role_ListView_BusinessDirectory" Then
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
         End If
     End Sub
     Private Sub aBusinessDirectory_OppenDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OppenDocument.Execute