Átállás 17.2.3-ra

Related Work Items: #123

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb

@@ -47,64 +47,64 @@ Public Class CRMEstateVC
             View.Id = "CRMEstate_Leads_Selected_StudentHostel_ListView" Or _
             View.Id = "CRMEstate_Opportunity_Immovables_ListView_Navigation" Then
 
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of ModificationsController).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 DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
 
         End If
         If View.Id = "CRMEstate_Opportunity_DetailView" Then
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).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 DeleteObjectsViewController)?.Active.SetItemValue("", False)
         End If
 
 
         If View.Id Like "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView*" Or _
            View.Id Like "CRMEstate_Leads_CRMEstate_Opportunity_ListView*" Then
             AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf CRMEstate_Leads_CRMEstate_Opportunity_ListView_DeleteAction_Executing
-            Frame.GetController(Of ModificationsController).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 ModificationsController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Or _
            View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Customers_ListView" Or _
            View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Or _
            View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Rent_ListView" Then
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_DetailView" Then
             AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
         End If
         If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_CollectionOfReservation_ListView" Then
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).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 DeleteObjectsViewController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Then
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).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 DeleteObjectsViewController)?.Active.SetItemValue("", False)
             AddHandler View.SelectionChanged, AddressOf Selectionchanged_CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView
         End If
         If View.Id = "CRMEstate_Opportunity_AdvanceMoney_DetailView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "CRMEstate_Leads_DetailView" Or _
             View.Id = "CRMEstate_Leads_ListView" Then
             AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf CRMEstate_Leads_DetailView_DeleteAction_Executing
         End If
         If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" 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)
 
             AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, _
                 AddressOf CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView_DeleteAction_Executing
@@ -116,36 +116,36 @@ Public Class CRMEstateVC
             RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
         End If
         If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_CollectionOfReservation_ListView" Then
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController).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 DeleteObjectsViewController)?.Active.SetItemValue("", True)
         End If
         If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Then
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController).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 DeleteObjectsViewController)?.Active.SetItemValue("", True)
         End If
         If View.Id = "CRMEstate_Opportunity_DetailView" Then
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController).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 DeleteObjectsViewController)?.Active.SetItemValue("", True)
         End If
 
         If View.Id Like "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView*" Or _
           View.Id Like "CRMEstate_Leads_CRMEstate_Opportunity_ListView*" Then
-            Frame.GetController(Of ModificationsController).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 ModificationsController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
         End If
         If View.Id = "CRMEstate_Opportunity_AdvanceMoney_DetailView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
         End If
         If View.Id = "CRMEstate_Leads_DetailView" Or _
            View.Id = "CRMEstate_Leads_ListView" Then
@@ -153,8 +153,8 @@ Public Class CRMEstateVC
         End If
 
         If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" 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)
 
             RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, _
                 AddressOf CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView_DeleteAction_Executing
@@ -563,7 +563,7 @@ Public Class CRMEstateVC
             Throw New Exception("*A(z) " & _CRMEstate_Opportunity_AdvanceMoney.CustomersFrom.Name & " céghez nincs megfelelő sablon az ajánlati sablonban! Kérjük ellenőrizze!")
         End If
 
-        'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", False)
+        'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
         '-- A tárgyban forgó ingatlanról levesszük az eladható státuszt
         _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.CanForSale = False
         _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.Save()
@@ -615,7 +615,7 @@ Public Class CRMEstateVC
 
 
         _ocur.CommitChanges()
-        'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
         View.Close()
     End Sub
     Private Sub aDeleteCRMEstate_Opportunity_AdvanceMoney_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeleteCRMEstate_Opportunity_AdvanceMoney.Execute

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVC.vb

@@ -28,55 +28,55 @@ Public Class ImmovablesPriceListVC
     Protected Overrides Sub OnActivated()
         MyBase.OnActivated()
         If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Then
-            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 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)
         End If
         If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then
-            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 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)
         End If
         If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Then
-            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 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)
         End If
         If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Then
-            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 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)
         End If
     End Sub
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
         If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Then
-            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 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)
         End If
         If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then
-            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 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)
         End If
         If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Then
-            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 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)
         End If
         If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Then
-            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 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)
         End If
     End Sub
     Private Sub aGenerateIPriceList_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateIPriceList.Execute

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