Átállás 17.2.3-ra

Related Work Items: #123

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

@@ -60,7 +60,7 @@ Public Class ContactsVC
     End Sub
     Private Sub aContacts_SysncToOutlook_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aContacts_SysncToOutlook.Execute
         Try
-            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
             Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
             Dim _NeedCommitChanges As Boolean = False
             Dim _Contacts_SysncOutlook As Contacts_SysncOutlook = TryCast(e.PopupWindow.View.SelectedObjects(0), Contacts_SysncOutlook)
@@ -207,7 +207,7 @@ Public Class ContactsVC
             MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
         Finally
             _Waitformclass.FinalWork
-            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
         End Try
     End Sub
     Private Sub aContacts_SysncFromOutlook_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aContacts_SysncFromOutlook.CustomizePopupWindowParams
@@ -230,7 +230,7 @@ Public Class ContactsVC
     End Sub
     Private Sub aContacts_SysncFromOutlook_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aContacts_SysncFromOutlook.Execute
         Try
-            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
             Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
             Dim _NeedCommitChanges As Boolean = False
             Dim _Contacts_SysncOutlook As Contacts_SysncOutlook = TryCast(e.PopupWindow.View.SelectedObjects(0), Contacts_SysncOutlook)
@@ -331,7 +331,7 @@ Public Class ContactsVC
             MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
         Finally
             _Waitformclass.FinalWork
-            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
         End Try
     End Sub
 End Class

Nuvolar.Module.Win/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.vb

@@ -39,8 +39,8 @@ Public Class Dashboard_VC
             Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
             Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
             Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
 
             Dim _DetailView As DetailView = TryCast(View, DetailView)
             Dim _DashboardViewer_ViewItem As ViewItem = _DetailView.FindItem("DashboardViewer")
@@ -52,8 +52,8 @@ Public Class Dashboard_VC
             Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
             Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
             Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
 
             Dim _DetailView As DetailView = TryCast(View, DetailView)
             Dim _DashboardDesigner_ViewItem As ViewItem = _DetailView.FindItem("DashboardDesigner")
@@ -70,8 +70,8 @@ Public Class Dashboard_VC
             Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
             Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
             Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
         End If
     End Sub
     Private Sub DashboardViewer_ViewItem_ControlCreated(sender As Object, e As EventArgs)

Nuvolar.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEmailVC.vb

@@ -48,22 +48,22 @@ Public Class OutlookEmailVC
         Frame.GetController(Of OutlookEmailVC).aAttachFile.Active.SetItemValue("", False)
         Frame.GetController(Of OutlookEmailVC).aViewAttachedFile.Active.SetItemValue("", False)
         If View.Id = "OutlookEMailIn_ListView" Then
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
-            'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of ObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            'Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ObjectViewController)()?.Active.SetItemValue("", False)
             AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
         End If
         If View.Id = "OutlookEMailIn_DetailView" Then
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of ObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of ModificationsController)().Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
         End If
         If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
         End If
         If View.Id = "OutlookEMail_DetailView" Then
             Dim _OutlookEMail As OutlookEMail = TryCast(View.SelectedObjects(0), OutlookEMail)
@@ -80,8 +80,8 @@ Public Class OutlookEmailVC
         End If
         If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Or _
             View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
             Frame.GetController(Of OutlookEmailVC).aAttachFile.Active.SetItemValue("", True)
             Frame.GetController(Of OutlookEmailVC).aViewAttachedFile.Active.SetItemValue("", True)
         End If
@@ -89,15 +89,15 @@ Public Class OutlookEmailVC
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
         If View.Id = "OutlookEMailIn_ListView" Then
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of ObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of ObjectViewController)()?.Active.SetItemValue("", True)
             RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
         End If
         If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Then
-            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.ListViewProcessCurrentObjectController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
         End If
         If View.Id = "OutlookEMail_DetailView" Then
             Dim _OutlookEMail As OutlookEMail = TryCast(View.SelectedObjects(0), OutlookEMail)
@@ -114,8 +114,8 @@ Public Class OutlookEmailVC
         End If
         If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Or _
             View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
         End If
     End Sub
     Protected Overrides Sub OnViewControlsCreated()

Nuvolar.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.vb

@@ -50,8 +50,8 @@ Public Class BusinessDirectory_VC
             Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
             Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
 
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
 
             Dim _DetailView As DetailView = TryCast(View, DetailView)
             Dim _SpreadXML_ViewItem As ViewItem = _DetailView.FindItem("SpreadXML")

Nuvolar.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditorVC.vb

@@ -43,8 +43,8 @@ Public Class CustomRoleEditorVC
         ''____________Továbbgondolásig letíltva!__________________________<<<
 
         If View.Id = "PermissionMatrix_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
             AddHandler View.SelectionChanged, AddressOf PermissionMatrix_selection_changed
         End If
 
@@ -54,8 +54,8 @@ Public Class CustomRoleEditorVC
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
         If View.Id = "PermissionMatrix_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
 
             RemoveHandler View.SelectionChanged, AddressOf PermissionMatrix_selection_changed
         End If