Átállás 17.2.3-ra

Related Work Items: #123

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.vb

@@ -33,49 +33,49 @@ Public Class ImmovablesCostRecordExcelVC
         End If
 
         If View.Id = "ImmovablesCostRecordExcel_ListView" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
         End If
 
         If View.Id = "ImmovablesCostRecordExcel_DetailView" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).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 ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelImmovables_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
         End If
     End Sub
 
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
         If View.Id = "ImmovablesCostRecordExcel_ListView" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
         End If
 
         If View.Id = "ImmovablesCostRecordExcel_DetailView" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
         End If
 
         If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController).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 ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
         End If
 
     End Sub

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.vb

@@ -23,7 +23,7 @@ Public Class EstateVC
     Protected Overrides Sub OnActivated()
         MyBase.OnActivated()
         If View.Id = "Immovables_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "Immovables_ChangeGroup_PopUp_DetailView" Then
             AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing
@@ -32,7 +32,7 @@ Public Class EstateVC
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
         If View.Id = "Immovables_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)
         End If
         If View.Id = "Immovables_ChangeGroup_PopUp_DetailView" Then
             RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb

@@ -29,7 +29,7 @@ Public Class ImmovablesVC
     End Sub
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
     End Sub
     Private Sub aIRentGetContracts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIRentGetContracts.Execute
         Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
@@ -37,7 +37,7 @@ Public Class ImmovablesVC
 
         Dim _ContractRows As ContractRows
         Dim _ContractRows_Collection As XPCollection(Of ContractRows)
-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
         RaiseEvent InitWork(1, 1, TryCast(View, ListView).CollectionSource.List.Count)
         For Each _Immovables In TryCast(View, ListView).CollectionSource.List
             RaiseEvent DoWork()
@@ -52,6 +52,6 @@ Public Class ImmovablesVC
             Next
         Next
         RaiseEvent FinalWork
-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
     End Sub
 End Class