Átállás 17.2.3-ra

Related Work Items: #123

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.vb

@@ -31,7 +31,7 @@ Public Class BallanceVC
         Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
 
         If View.Id = "BallanceHeader_ListView" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
             Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "' or 'SysAdmin'='" & SecuritySystem.CurrentUserName & "'"
         End If
         If View.Id = "BallanceHeader_DetailView" Then
@@ -40,10 +40,10 @@ Public Class BallanceVC
         End If
 
         If View.Id = "TrialBalanceHeader_DetailView_BallanceHeader_Current" Then
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
 
             Dim _BallanceHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), BallanceHeader)
             If _BallanceHeader IsNot Nothing Then
@@ -51,10 +51,10 @@ Public Class BallanceVC
             End If
         End If
         If View.Id = "TrialBalanceHeader_DetailView_BallanceHeader_Previous" Then
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
 
             Dim _BallanceHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), BallanceHeader)
             If _BallanceHeader IsNot Nothing Then
@@ -66,7 +66,7 @@ Public Class BallanceVC
         MyBase.OnDeactivated()
 
         If View.Id = "BallanceHeader_ListView" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
         End If
     End Sub
 

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb

@@ -49,12 +49,12 @@ Public Class GLCardVC
         MyBase.OnActivated()
         AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
         If View.Id Like "GLCardsHeader_GLCardsRows_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of ModificationsController)().Active.SetItemValue("", False)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
         End If
 
         If View.Id = "GLCardsHeader_DetailView" Then
@@ -65,8 +65,8 @@ Public Class GLCardVC
                     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 DeleteObjectsViewController).Active.SetItemValue("", False)
-                    Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+                    Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
                     Frame.GetController(Of GLCardVC).aGLCardsQuery.Active.SetItemValue("", False)
                 End If
             End If
@@ -95,8 +95,8 @@ Public Class GLCardVC
                     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 DeleteObjectsViewController).Active.SetItemValue("", True)
-                    Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+                    Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
                     Frame.GetController(Of GLCardVC).aGLCardsQuery.Active.SetItemValue("", True)
                 End If
             End If

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.vb

@@ -34,11 +34,11 @@ Public Class GLRowsVC
         Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", False)
         MyBase.OnActivated()
         If View.Id Like "GLReport_GLReportRows_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 DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of ExportController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ExportController)?.Active.SetItemValue("", True)
 
             Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", True)
 
@@ -46,7 +46,7 @@ Public Class GLRowsVC
                 If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
                     If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport) IsNot Nothing Then
                         If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport).InPublic Then
-                            Frame.GetController(Of ViewVariantsModule.ChangeVariantController).Active.SetItemValue("", False)
+                            Frame.GetController(Of ViewVariantsModule.ChangeVariantController)?.Active.SetItemValue("", False)
                         End If
                     End If
                 End If
@@ -58,7 +58,7 @@ Public Class GLRowsVC
                 If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
                     If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport) IsNot Nothing Then
                         If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport).InPublic Then
-                            Frame.GetController(Of ViewVariantsModule.ChangeVariantController).Active.SetItemValue("", False)
+                            Frame.GetController(Of ViewVariantsModule.ChangeVariantController)?.Active.SetItemValue("", False)
                         End If
                     End If
                 End If
@@ -74,8 +74,8 @@ Public Class GLRowsVC
                     '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 DeleteObjectsViewController).Active.SetItemValue("", False)
-                    Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+                    Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
                     Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", False)
                 End If
             End If
@@ -87,8 +87,8 @@ Public Class GLRowsVC
         End If
 
         If View.Id = "GLReport_ListView_Public" Then
-            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
         If View.Id = "GLReport_ListView_Private" Then
             If SecuritySystem.CurrentUserName = "SysAdmin" Then
@@ -99,14 +99,14 @@ Public Class GLRowsVC
     End Sub
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
-        'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+        'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
         If View.Id Like "GLReport_DetailView*" Then
 
             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 DeleteObjectsViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
             Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", True)
         End If
 
@@ -1197,7 +1197,7 @@ Public Class GLRowsVC
         e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck)
     End Sub
     Private Sub aGLDTRChangeParam_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLDTRChangeParam.Execute
-        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 = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
         Dim _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck)
         Dim _GLRows As GLRows
@@ -1329,7 +1329,7 @@ Public Class GLRowsVC
             Dim parentView As View = nestedFrame.View
             parentView.ObjectSpace.Refresh()
         End If
-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
     End Sub
 
     Private Sub aSelectCustomersFrom_DTR_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomersFrom_DTR.CustomizePopupWindowParams

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.vb

@@ -43,10 +43,10 @@ Public Class ABRQueryVC
             Frame.GetController(Of ABRQueryVC).aPrintABRReport.Active.SetItemValue("", True)
         End If
         If View.Id = "ABRQueryHeader_ABRQueryCustomersFrom_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
             Frame.GetController(Of ABRQueryVC).aSelectCustomersFromABR.Active.SetItemValue("", True)
         End If
         If View.Id = "ABRQueryHeader_ABRQueryRowsDetail_ListView_HUF" Then
@@ -62,9 +62,9 @@ Public Class ABRQueryVC
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
         If View.Id = "ABRQueryHeader_ABRQueryCustomersFrom_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
         End If
     End Sub
     Private Sub aGenerateABRQuery_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateABRQuery.Execute

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.vb

@@ -33,27 +33,27 @@ Public Class PartnerAccountConnectionInfoQueryVC
         Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomers.Active.SetItemValue("", False)
         Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomersFrom.Active.SetItemValue("", False)
         If View.Id = "PartnerAccountConnectionInfoQueryHeader_PartnerAccountConnectionInfoQuerySelectedCustomers_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
             Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomers.Active.SetItemValue("", True)
         End If
         If View.Id = "PartnerAccountConnectionInfoQueryHeader_PartnerAccountConnectionInfoQuerySelectedCustomersFrom_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
             Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomersFrom.Active.SetItemValue("", True)
         End If
         If View.Id = "Customers_ListView_Select" Then
-            Frame.GetController(Of NewObjectViewController).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)
 
         End If
         If View.Id = "CustomersFrom_ListView_Select" Then
-            Frame.GetController(Of NewObjectViewController).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)
         End If
     End Sub
     Private Sub aGenerateReport_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateReport.Execute

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.vb

@@ -61,11 +61,11 @@ Public Class PCIVC
             Frame.GetController(Of PCIVC).aRepairPCIGroup.Active.SetItemValue("", False)
         End If
         If View.Id = "PCIGroup_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
 
 
 
@@ -79,11 +79,11 @@ Public Class PCIVC
         End If
 
         If View.Id = "PCIDetail_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
 
 
             Frame.GetController(Of PCIVC).aCreateConnectionDirectDifferentCurrency.Active.SetItemValue("", True)
@@ -114,7 +114,7 @@ Public Class PCIVC
     End Sub
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
-        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
         RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
     End Sub
     Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
@@ -1340,7 +1340,7 @@ Public Class PCIVC
 
 
         RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
-        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+        Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
 
         For Each _PCIGroup In View.SelectedObjects
             RaiseEvent DoWork()
@@ -1358,7 +1358,7 @@ Public Class PCIVC
         RaiseEvent FinalWork
         _ocur.CommitChanges()
 
-        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
     End Sub
 
     Private Sub aViewPCIDGroup_GLDetails_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDGroup_GLDetails.Execute

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUpVC.vb

@@ -23,23 +23,23 @@ Public Class PartnerConnectionInfoCleanUpVC
     Protected Overrides Sub OnActivated()
         MyBase.OnActivated()
         If View.Id = "PartnerConnectionInfoCleanUp_PopupWindow_PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem_ListView" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController).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 LinkUnlinkController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.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 LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
         End If
     End Sub
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
         If View.Id = "PartnerConnectionInfoCleanUp_PopupWindow_PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem_ListView" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController).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 LinkUnlinkController).Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.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 LinkUnlinkController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
         End If
     End Sub
 End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.vb

@@ -51,7 +51,7 @@ Public Class TrialBalanceVC
         If View.Id = "TrialBalanceHeader_TrialBalanceOpenClose_ListView" Or _
             View.Id = "TrialBalanceHeader_TrialBalance_ListView" Then
             Frame.GetController(Of TrialBalanceVC).aTrialBalanceViewCard.Active.SetItemValue("", True)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
         End If
 
         If View.Id = "TrialBalanceHeader_DetailView" Then
@@ -62,8 +62,8 @@ Public Class TrialBalanceVC
                     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 DeleteObjectsViewController).Active.SetItemValue("", False)
-                    Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+                    Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
                     Frame.GetController(Of TrialBalanceVC).aTrialBalanceQuery.Active.SetItemValue("", False)
                     Frame.GetController(Of TrialBalanceVC).aTrialBalanceOpenCloseQuery.Active.SetItemValue("", False)
                 End If
@@ -75,10 +75,10 @@ Public Class TrialBalanceVC
             Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteriaMode = TargetObjectsCriteriaMode.TrueForAll
         End If
         If View.Id = "TrialBalanceHeader_DetailView_BeforeClose" Then
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
 
             Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
             If _GLOpenCloseHeader IsNot Nothing Then
@@ -86,37 +86,37 @@ Public Class TrialBalanceVC
             End If
         End If
         If View.Id = "TrialBalanceHeader_DetailView_AfterClose_SheetProfit" Then
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
 
             Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
             View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_SheetProfit)
         End If
         If View.Id = "TrialBalanceHeader_DetailView_AfterClose_Ballance" Then
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
 
             Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
             View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_Ballance)
         End If
         If View.Id = "TrialBalanceHeader_DetailView_AfterOpen" Then
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
 
             Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
             View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterOpen)
         End If
         If View.Id = "TrialBalanceHeader_DetailView_AfterDividend" Then
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
 
             Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
             View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterDividend)
@@ -136,8 +136,8 @@ Public Class TrialBalanceVC
                     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 DeleteObjectsViewController).Active.SetItemValue("", True)
-                    Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+                    Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
                     Frame.GetController(Of TrialBalanceVC).aTrialBalanceQuery.Active.SetItemValue("", True)
                 End If
             End If

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb

@@ -39,11 +39,11 @@ Public Class VATReportVC
         If View.Id Like "VATReport_VATReportDetail_ListView" Or _
             View.Id = "VATReport_VATReportGroup_ListView" Or _
             View.Id = "VATReport_VATReportNoPayDetail_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).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 NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
         End If
 
         If View.Id = "VATReport_DetailView" Then
@@ -60,8 +60,8 @@ Public Class VATReportVC
                     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 DeleteObjectsViewController).Active.SetItemValue("", False)
-                    Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+                    Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
                     Frame.GetController(Of VATReportVC).aGenerateVATReport.Active.SetItemValue("", False)
                 End If
             End If
@@ -73,18 +73,18 @@ Public Class VATReportVC
         End If
 
         If View.Id = "VATReport_ListView_Closed" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
 
             Frame.GetController(Of VATReportVC).aVATClosePreviewPDF.Active.SetItemValue("", True)
         End If
         If View.Id = "VATReport_VATReportGroupCustomers2M_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
 
             Frame.GetController(Of VATReportVC).aVATClosePreviewPDF.Active.SetItemValue("", False)
         End If
@@ -101,17 +101,17 @@ Public Class VATReportVC
                     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 DeleteObjectsViewController).Active.SetItemValue("", True)
-                    Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+                    Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
                     Frame.GetController(Of VATReportVC).aGenerateVATReport.Active.SetItemValue("", True)
                 End If
             End If
         End If
         If View.Id = "VATReport_VATReportGroupCustomers2M_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
         End If
     End Sub