Átállás 17.2.3-ra

Related Work Items: #123
2017-12-02 16:09:26 +01:00
parent 2b2f1b201c
commit 9cca882b34
201 changed files with 16991 additions and 3617 deletions
@@ -41,10 +41,10 @@ Public Class GLAccountsVC
        Frame.GetController(Of GLAccountsVC).aFinal_GLAccounts.Active.SetItemValue("", False)
        Frame.GetController(Of GLAccountsVC).aFinalAndNew_GLAccounts.Active.SetItemValue("", False)
        Frame.GetController(Of GLAccountsVC).aViewPCIDW_GLAccounts.Active.SetItemValue("", False)
-        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
-        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
-        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-        Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
+        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
+        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+        Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)

    End Sub
    Protected Overrides Sub OnActivated()
@@ -66,7 +66,7 @@ Public Class GLAccountsVC
            If _GLAccounts Is Nothing Then
            Else
                If _GLAccounts.IsEditable = True And _GLAccounts.IsStorno = False Then
-                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
                    Frame.GetController(Of GLAccountsVC).aToTable_GLAccounts.Active.SetItemValue("", True)
                    Frame.GetController(Of GLAccountsVC).aToTableD_GLAccounts.Active.SetItemValue("", True)
                    Frame.GetController(Of GLAccountsVC).aBackToRowEdit_GLAccounts.Active.SetItemValue("", True)
@@ -82,7 +82,7 @@ Public Class GLAccountsVC
            End If
        End If
        If View.Id = "GLAccounts_ListView_Editable" Then
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) 'Akkor sem klónozható a gyári cloneactionnal, ha még szerkeszthető?
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False) 'Akkor sem klónozható a gyári cloneactionnal, ha még szerkeszthető?
            Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", False)
        End If
        If View.Id = "Vivaldi_GLAccounts_ListView" Or View.Id = "Corner_GLAccounts_ListView" Then
@@ -90,16 +90,16 @@ Public Class GLAccountsVC

        End If
        If View.Id = "GLAccounts_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
            Frame.GetController(Of GLAccountsVC).aViewPCIDW_GLAccounts.Active.SetItemValue("", True)
            Frame.GetController(Of GLAccountsVC).aPCICheckGLAccounts.Active.SetItemValue("", True)
            Frame.GetController(Of GLAccountsVC).aCloneGLAccounts.Active.SetItemValue("", True)
        End If
        '------------------- LISTVIEW -----------------------------------------------------------------------------------------------------
        If View.Id Like "GLHeader_GLRows_ListView_Accounts" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "GLAccounts_ListView_Deleted" Then
            Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", False)
@@ -128,12 +128,12 @@ Public Class GLAccountsVC
        Frame.GetController(Of GLAccountsVC).aFinal_GLAccounts.Active.SetItemValue("", True)
        Frame.GetController(Of GLAccountsVC).aFinalAndNew_GLAccounts.Active.SetItemValue("", True)

-        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True)
-        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
-        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
-        Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
-        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
-        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)

        Frame.GetController(Of GLAccountsVC).aCloneGLAccounts.Active.SetItemValue("", False)
        If View.Id = "GLAccounts_DetailView" Then
@@ -843,7 +843,7 @@ Public Class GLAccountsVC
        Dim _Controlling As Controlling

        If _ListView IsNot Nothing Then
-            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+            Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)


            For Each _RegistryTelephone In _ListView.CollectionSource.List
@@ -1016,7 +1016,7 @@ Public Class GLAccountsVC
        End If

        _ocur.CommitChanges()
-        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
        View.Refresh()
    End Sub

@@ -42,12 +42,12 @@ Public Class AssetsPCIVC
        Frame.GetController(Of AssetsPCIVC).aViewLateCharges.Active.SetItemValue("", False)

        If View.Id Like "AssetsPCIHeader_AssetsPCIRows_ListView*" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
            Frame.GetController(Of AssetsPCIVC).aViewLateCharges.Active.SetItemValue("", True)
        End If
        If View.Id = "PCIGroup_ListView_DelayedPay" Then
@@ -55,11 +55,11 @@ Public Class AssetsPCIVC
            Frame.GetController(Of AssetsPCIVC).aViewLateCharges.Active.SetItemValue("", True)
        End If
        If View.Id = "AssetsHandling_ListView_Active" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
-            If TryCast(SecuritySystem.CurrentUser, User).UserName <> "SysAdmin" Then Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
+            If TryCast(SecuritySystem.CurrentUser, User).UserName <> "SysAdmin" Then Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)

            Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Active.SetItemValue("", True)
            Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Active.SetItemValue("", True)
@@ -72,11 +72,11 @@ Public Class AssetsPCIVC
            AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
        End If
        If View.Id = "AssetsHandling_ListView_All" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
-            If TryCast(SecuritySystem.CurrentUser, User).UserName <> "SysAdmin" Then Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
+            If TryCast(SecuritySystem.CurrentUser, User).UserName <> "SysAdmin" Then Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)

            Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Active.SetItemValue("", True)
            Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Active.SetItemValue("", True)
@@ -92,38 +92,38 @@ Public Class AssetsPCIVC
    End Sub
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", True)
-        Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
        Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Active.SetItemValue("", False)
        Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Active.SetItemValue("", False)
        Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling3.Active.SetItemValue("", False)
        Frame.GetController(Of AssetsPCIVC).aCreateLateCharges.Active.SetItemValue("", False)

        If View.Id Like "AssetsPCIHeader_AssetsPCIRows_ListView*" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
        End If

        If View.Id = "AssetsHandling_ListView_Active" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)

            RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
        End If

        If View.Id = "AssetsHandling_ListView_All" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)

            RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
        End If
@@ -932,7 +932,7 @@ Public Class AssetsPCIVC
            Dim _InvoiceHeader As InvoiceHeader
            Dim _PCIGroup As PCIGroup
            Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
-            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 _PCIGroup In TryCast(View, ListView).CollectionSource.List
                RaiseEvent DoWork()
@@ -952,7 +952,7 @@ Public Class AssetsPCIVC
            Next
            _uow.CommitChanges()
            RaiseEvent FinalWork()
-            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
        Else
            Dim _AssetsHandling As AssetsHandling
            Dim _AssetsHandling_Collection As New XPCollection(Of AssetsHandling)(_ocur.Session, CriteriaOperator.Parse("NoAssetsHandling = False and IsActive=True"))
@@ -1216,7 +1216,7 @@ Public Class AssetsPCIVC
        Dim _AssetsHandlingGroupChange As AssetsHandlingGroupChange = TryCast(e.PopupWindow.View.SelectedObjects(0), AssetsHandlingGroupChange)
        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 _AssetsHandling In View.SelectedObjects
            RaiseEvent DoWork()
            If _AssetsHandlingGroupChange.IsQueueIndex Then
@@ -1239,7 +1239,7 @@ Public Class AssetsPCIVC
        Next
        RaiseEvent FinalWork()
        _ocur.CommitChanges()
-        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
    End Sub

    Private Sub aViewLateCharges_AssetsHandling_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aViewLateCharges_AssetsHandling.CustomizePopupWindowParams
@@ -35,25 +35,25 @@ Public Class GLBankVC
        Frame.GetController(Of GLBankVC).aRecalculateBallance.Active.SetItemValue("", False)

        If View.Id Like "GLHeader_GLRows_ListView_Bank" 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 CloneObject.CloneObjectViewController)().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 CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)

            Dim nv As ListView = CType(View, ListView)
            Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
            AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged
        End If
        If View.Id = "GLBank_DetailView" Then
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
            Dim _GLBank As GLBank = TryCast(View.CurrentObject, GLBank)
            If _GLBank Is Nothing Then
            Else

                If _GLBank.IsEditable = False Then
-                    Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)

                    Frame.GetController(Of GLBankVC).aFinal_GLBank.Active.SetItemValue("", False)
                    Frame.GetController(Of GLBankVC).aFinalAndNew_GLBank.Active.SetItemValue("", False)
@@ -73,30 +73,30 @@ Public Class GLBankVC
                    End If
                End If
                If _GLBank.IsStorno = True Then
-                    Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
-                    Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
                End If
            End If
        End If
        If View.Id = "GLBank_ListView" Then
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
            Frame.GetController(Of GLBankVC).aMakeEditable_GLBank.Active.SetItemValue("", True)
            Frame.GetController(Of GLBankVC).aRecalculateBallance.Active.SetItemValue("", True)
        End If
        If View.Id = "GLBank_ListView_Editable" Then
            AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf GLBank_DeleteAction_Executed
-            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "PCIGroup_ListView_HUF" 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 LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "GLBankPrepareName_GLBankPrepareNameGroup_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
            AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
        End If

@@ -109,23 +109,23 @@ Public Class GLBankVC
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id = "GLBank_ListView" Then
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
        End If
        If View.Id Like "GLHeader_GLRows_ListView_Bank" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)

            Dim nv As ListView = CType(View, ListView)
            Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
            RemoveHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged
        End If
        If View.Id = "PCIGroup_ListView_HUF" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController)().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 DeleteObjectsViewController)()?.Active.SetItemValue("", True)
        End If

    End Sub
@@ -52,9 +52,9 @@ Public Class GLBaseVC
        End If
        If View.Id Like "GLRows_ListView_*" Then
            Frame.GetController(Of GLBaseVC).aGLBaseOpenDocument.Active.SetItemValue("", True)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            'Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            'Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
        End If
        If View.Id = "GLRows_ListView_Error_NoDetails" Then
            Dim _ListView As ListView = TryCast(View, ListView)
@@ -70,9 +70,9 @@ Public Class GLBaseVC
        MyBase.OnDeactivated()
        If View.Id Like "GLRows_ListView_*" Then
            Frame.GetController(Of GLBaseVC).aGLBaseOpenDocument.Active.SetItemValue("", True)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
        End If
    End Sub
    Private Sub aGLBaseDivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLBaseDivideRows.CustomizePopupWindowParams
@@ -251,7 +251,7 @@ Public Class GLBaseVC
        'Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)


-        'Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+        'Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)

        'Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow, CriteriaOperator.Parse("isnull(InvoiceHeader)=False and isnull(DateExecution)=True"))
        'Dim _InvoiceRows As InvoiceRows
@@ -288,7 +288,7 @@ Public Class GLBaseVC



-        'Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        'Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
    End Sub

    Private Sub aDeleteGLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeleteGLRows.Execute
@@ -428,7 +428,7 @@ Public Class GLBaseVC
        Dim _GLRows As GLRows
        Dim _ChartOfAccounts As ChartOfAccounts
        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 _GLRows In View.SelectedObjects
            RaiseEvent DoWork()
            _GLRows = _onew.GetObject(_GLRows)
@@ -450,7 +450,7 @@ Public Class GLBaseVC
        Next
        _onew.CommitChanges()
        RaiseEvent FinalWork
-        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
    End Sub

    Private Function GetFilterforNoDetails() As String
@@ -31,16 +31,16 @@ Public Class GLRowsDivideVC
        Frame.GetController(Of GLRowsDivideVC).aToTable_GLRowsDivide.Active.SetItemValue("", False)
        Frame.GetController(Of GLRowsDivideVC).aToTableD_GLRowsDivide.Active.SetItemValue("", False)
        If View.Id Like "GLRowsDivideH_GLRows_ListView*" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id Like "GLRowsDivideH_GLRowsDivideR_ListView*" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id Like "GLRowsDivideH_DetailView*" Then
            Frame.GetController(Of GLRowsDivideVC).aFindPCI.Active.SetItemValue("", True)
@@ -49,10 +49,10 @@ Public Class GLRowsDivideVC
            AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf GLRowsDivideH_DetailView_AcceptAction_Executing
        End If
        If View.Id = "GLRowsDivideH_GLRows_ListView_ConnectionDivide" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
        End If
        If View.Id = "GLRowsDivideH_GLRowsDivideR_ListView_ConnectionDivide" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
        End If
    End Sub
    Sub GLRowsDivideH_DetailView_AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
@@ -61,16 +61,16 @@ Public Class GLRowsDivideVC
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id Like "GLRowsDivideH_GLRows_ListView*" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
        End If
        If View.Id Like "GLRowsDivideH_GLRowsDivideR_ListView*" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
        End If
        If View.Id Like "GLRowsDivideH_DetailView*" Then
            Frame.GetController(Of GLRowsDivideVC).aFindPCI.Active.SetItemValue("", False)
@@ -63,7 +63,7 @@ Public Class BookEntryVC
            Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", True)
            Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", True)
            Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "GLAccountRowsforBookEntry_ListView" Then
            Frame.GetController(Of BookEntryVC).aBookEntryCheckGotoNextStep.Active.SetItemValue("", True)
@@ -73,7 +73,7 @@ Public Class BookEntryVC
            Frame.GetController(Of BookEntryVC).aVATMerge.Active.SetItemValue("", True)
            Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", True)
            Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
            Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
            GenerateInvoiceWorkflowStep(_uow)
@@ -88,27 +88,27 @@ Public Class BookEntryVC
        End If

        If View.Id = "InvoiceHeader_ListView_GLAccounts" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
            Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", True)
        End If
        If View.Id = "RegistryHeader_ListView_GLAccounts" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
            Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", True)
        End If
        If View.Id = "GLRows_ListView_Account" Or View.Id = "GLRows_ListView_All" Or View.Id = "GLRows_ListView_Bank" Or _
           View.Id = "GLRows_ListView_Cassa" Or View.Id = "GLRows_ListView_Compensation" Then
            Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", True)

-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id Like "GLRows_ListView_Error*" Then
            Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", True)
@@ -124,10 +124,10 @@ Public Class BookEntryVC
        End If

        If View.Id Like "GLAccountRowsforBookEntry*" 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 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)
        End If
        If View.Id = "OrderInHeader_PCIDetail_ListView" Then
            Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsDivide.Active.SetItemValue("", True)
@@ -137,7 +137,7 @@ Public Class BookEntryVC
    End Sub
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
-        Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
        Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", True)
        Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsDivide.Active.SetItemValue("", True)

@@ -152,40 +152,40 @@ Public Class BookEntryVC
            Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", False)
            Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", False)
            Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
        End If
        If View.Id = "GLAccountRowsforBookEntry_ListView" Then
            Frame.GetController(Of BookEntryVC).aBookEntryCheckGotoNextStep.Active.SetItemValue("", False)
            Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", False)
            Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", False)
            Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
            RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged

        End If

        If View.Id = "InvoiceHeader_ListView_GLAccounts" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
            Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryHeader_ListView_GLAccounts" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
            Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", False)
        End If
        If View.Id = "GLRows_ListView_Account" Or View.Id = "GLRows_ListView_Bank" Or _
           View.Id = "GLRows_ListView_Cassa" Or View.Id = "GLRows_ListView_Compensation" Then
            Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", False)

-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
        End If
        If View.Id = "GLRows_ListView_Bank" Or _
           View.Id = "GLRows_ListView_Cassa" Or View.Id = "GLRows_ListView_Compensation" Then
@@ -193,10 +193,10 @@ Public Class BookEntryVC
        End If

        If View.Id Like "GLAccountRowsforBookEntry*" Then
-            Frame.GetController(Of LinkUnlinkController)().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 LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
        End If
        RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged

@@ -306,7 +306,7 @@ Public Class BookEntryVC
        e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck)
    End Sub
    Private Sub aGLRowsCheck_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLRowsCheck.Execute
-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)

        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace 'TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
        Dim _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck)
@@ -458,7 +458,7 @@ Public Class BookEntryVC
        _onew.CommitChanges()
        RaiseEvent FinalWork

-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)

        If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
            Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
@@ -1098,7 +1098,7 @@ Public Class BookEntryVC

        If _InvoiceChoiceNextStep IsNot Nothing Then
            If _InvoiceHeaderCollection.Count > 0 Then
-                Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+                Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
                RaiseEvent InitWork(1, 1, _InvoiceHeaderCollection.Count)
                For Each _InvoiceHeader In _InvoiceHeaderCollection
                    For Each _InvoiceRows In _InvoiceHeader.InvoiceRows
@@ -1107,7 +1107,7 @@ Public Class BookEntryVC
                    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 If
        End If

@@ -38,24 +38,24 @@ Public Class GLCassaVC
        Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False)
        If View.Id = "GLCassa_ListView" Then '-- Lista nézete -----------------------------------------------------------------------------------
            Frame.GetController(Of GLCassaVC).aPrintCassaDocument.Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
            Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", True)
            Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
        End If '---------------------------------------------------------------------------------------------------------------------------------

        If View.Id = "GLCassa_ListView_Editable" Then '-- Lista nézete -----------------------------------------------------------------------------------
            AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf GLCassa_DeleteAction_Executed
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
            Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "DocumentNumber=''"
        End If

        If View.Id Like "GLHeader_GLRows_ListView_Cassa" 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 ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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 ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)

            'Dim nv As ListView = CType(View, ListView)
            'Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
@@ -64,31 +64,31 @@ Public Class GLCassaVC
        End If

        If View.Id = "GLCassa_DetailView" Then
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
            Dim _GLCassa As GLCassa = TryCast(View.CurrentObject, GLCassa)
            If _GLCassa Is Nothing Then
            Else
                If _GLCassa.IsEditable = False Then
-                    Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
-                    Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
                    Frame.GetController(Of GLCassaVC).aFinal_GLCassa.Active.SetItemValue("", False)
                    Frame.GetController(Of GLCassaVC).aFinalAndNew_GLCassa.Active.SetItemValue("", False)
                    Frame.GetController(Of GLCassaVC).aBackToRowEdit_GLCassa.Active.SetItemValue("", False)
                    Frame.GetController(Of GLCassaVC).aToTable_GLCassa.Active.SetItemValue("", False)
                    Frame.GetController(Of GLCassaVC).aToTableD_GLCassa.Active.SetItemValue("", False)
-                    Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
                Else
                    Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False)
                    If _GLCassa.DocumentNumber IsNot Nothing Then
                        If _GLCassa.DocumentNumber <> "" Then
-                            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+                            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
                        End If
                    End If
                End If
                If _GLCassa.IsStorno = True Then
-                    Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
-                    Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
                    Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False)
                End If
            End If
@@ -99,23 +99,23 @@ Public Class GLCassaVC
        If View.Id = "GLCassa_ListView" Then '-- Lista nézete -----------------------------------------------------------------------------------
            Frame.GetController(Of GLCassaVC).aPrintCassaDocument.Active.SetItemValue("", False)
            Frame.GetController(Of GLCassaVC).aRecalculateSelectedGLCassa.Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
            Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False)
            Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
        End If '---------------------------------------------------------------------------------------------------------------------------------

        If View.Id = "GLCassa_ListView_Editable" Then '-- Lista nézete -----------------------------------------------------------------------------------
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)

        End If

        If View.Id Like "GLHeader_GLRows_ListView_Cassa" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)

            'Dim nv As ListView = CType(View, ListView)
            'Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
@@ -124,32 +124,32 @@ Public Class GLCassaVC
        End If

        If View.Id = "GLCassa_DetailView" Then
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
            Dim _GLCassa As GLCassa = TryCast(View.CurrentObject, GLCassa)
            If _GLCassa Is Nothing Then
            Else
                If _GLCassa.IsEditable = False Then
                    Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", False)
-                    Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
-                    Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+                    Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
                    Frame.GetController(Of GLCassaVC).aFinal_GLCassa.Active.SetItemValue("", True)
                    Frame.GetController(Of GLCassaVC).aFinalAndNew_GLCassa.Active.SetItemValue("", True)
                    Frame.GetController(Of GLCassaVC).aBackToRowEdit_GLCassa.Active.SetItemValue("", True)
                    Frame.GetController(Of GLCassaVC).aToTable_GLCassa.Active.SetItemValue("", True)
                    Frame.GetController(Of GLCassaVC).aToTableD_GLCassa.Active.SetItemValue("", True)
-                    Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+                    Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
                Else
                    Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", True)
                    If _GLCassa.DocumentNumber IsNot Nothing Then
                        If _GLCassa.DocumentNumber <> "" Then
-                            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+                            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
                        End If
                    End If
                End If
                If _GLCassa.IsStorno = True Then
                    Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", True)
-                    Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
-                    Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+                    Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
                    Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", True)
                End If
            End If
@@ -29,12 +29,12 @@ Public Class GLCompensationVC
        Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", False)

        If View.Id = "GLCompensation_DetailView" Then
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
            Dim _GLCompensation As GLCompensation = TryCast(View.CurrentObject, GLCompensation)
            If _GLCompensation Is Nothing Then
            Else
                If _GLCompensation.IsEditable = False Then
-                    Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
                    Frame.GetController(Of GLCompensationVC).aFinal_GLCompensation.Active.SetItemValue("", False)
                    Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", False)
                    Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", False)
@@ -43,8 +43,8 @@ Public Class GLCompensationVC
                    Frame.GetController(Of GLCompensationVC).aBackToRowEdit_GLCompensation.Active.SetItemValue("", False)
                End If
                If _GLCompensation.IsStorno = True Then
-                    Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
-                    Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
                    Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", False)
                End If
                If _GLCompensation.IsEditable = True And _GLCompensation.IsStorno = False Then
@@ -55,19 +55,19 @@ Public Class GLCompensationVC

        If View.Id = "GLCompensation_ListView" Then
            Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
        End If
        If View.Id = "GLCompensation_ListView_Editable" Then
            AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf GLCompensation_DeleteAction_Executed
        End If

        If View.Id Like "GLHeader_GLRows_ListView_Compensation" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
            Dim nv As ListView = CType(View, ListView)
            Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
            AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged
@@ -82,8 +82,8 @@ Public Class GLCompensationVC
            Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", True)
            Frame.GetController(Of GLCompensationVC).aToTable_GLCompensation.Active.SetItemValue("", True)
            Frame.GetController(Of GLCompensationVC).aToTableD_GLCompensation.Active.SetItemValue("", True)
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
        End If
    End Sub

@@ -40,8 +40,8 @@ Public Class GeneralLedgerVC
        If View.Id Like "GLAccountsHeader_GLAccountsRows_ListView" Then

            Frame.GetController(Of GeneralLedgerVC).aToTable.Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)

            Dim nv As ListView = CType(View, ListView)
            Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
@@ -53,8 +53,8 @@ Public Class GeneralLedgerVC
        If View.Id Like "GLHeader_GLRows_ListView" Then

            Frame.GetController(Of GeneralLedgerVC).aGLToTable.Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)

            Dim GLnv As ListView = CType(View, ListView)
            Dim GLcs As PropertyCollectionSource = CType(GLnv.CollectionSource, PropertyCollectionSource)
@@ -64,7 +64,7 @@ Public Class GeneralLedgerVC

        'Folyószámla - egyedi akciók megjelenítése DetailView-ban, majd Editable vizsgálata alapján letiltja a szerkesztő controllereket
        If View.Id = "GLAccountsHeader_DetailView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
            Frame.GetController(Of GeneralLedgerVC).aFinalizeAll.Active.SetItemValue("", True)
            Frame.GetController(Of GeneralLedgerVC).aStorno.Active.SetItemValue("", True)
            Frame.GetController(Of GeneralLedgerVC).aFinalizeAllAndNew.Active.SetItemValue("", True)
@@ -72,7 +72,7 @@ Public Class GeneralLedgerVC

        'Főkönyv - egyedi akciók megjelenítése DetailView-ban, majd Editable vizsgálata alapján letiltja a szerkesztő controllereket
        If View.Id = "GLHeader_DetailView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
            Frame.GetController(Of GeneralLedgerVC).aGLFinal.Active.SetItemValue("", True)
            Frame.GetController(Of GeneralLedgerVC).aGLStorno.Active.SetItemValue("", True)
            Frame.GetController(Of GeneralLedgerVC).aGLFinalAndNew.Active.SetItemValue("", True)
@@ -80,8 +80,8 @@ Public Class GeneralLedgerVC
            If _GLHeader Is Nothing Then
            Else
                If _GLHeader.IsEditable = False Then
-                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
-                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
                    Frame.GetController(Of GeneralLedgerVC).aGLFinal.Active.SetItemValue("", False)
                    Frame.GetController(Of GeneralLedgerVC).aGLFinalAndNew.Active.SetItemValue("", False)

@@ -94,7 +94,7 @@ Public Class GeneralLedgerVC
                End If
            End If
            If SecuritySystemHelper.IsUserInRoleCurrentUser("GLMaintener") Then
-                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
                Frame.GetController(Of GeneralLedgerVC).MakeEditable.Active.SetItemValue("", True)
            End If
        End If
@@ -33,18 +33,18 @@ Public Class LiquidAssetsBallanceVC
        Frame.GetController(Of LiquidAssetsBallanceVC).aGenerateCurrencyRateFIFO.Active.SetItemValue("", False)

        If View.Id = "LiquidAssetsBallanceHeader_LiquidAssetsBallanceRows_ListView_Cassa" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "LiquidAssetsBallanceHeader_DetailView_Cassa" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
            Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
            Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
            Dim _LiquidAssetsBallanceHeader As LiquidAssetsBallanceHeader
            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
            _LiquidAssetsBallanceHeader = TryCast(View.SelectedObjects(0), LiquidAssetsBallanceHeader)
@@ -55,24 +55,24 @@ Public Class LiquidAssetsBallanceVC
            End If
        End If
        If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnRows_ListView_Cassa" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "GLRows_ListView_Regenerate" Then
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
        End If
    End Sub
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()

-        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
-        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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)
+        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.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)
        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
    End Sub
    Private Sub aGetBallance_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGetBallanceCassa.Execute
@@ -39,19 +39,19 @@ Public Class LiquidAssetsReturnVC

        If View.Id = "LiquidAssetsReturnHeader_ListView_Cassa" Then
            Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
        End If

        If View.Id = "LiquidAssetsReturnHeader_DetailView_Cassa" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
            Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", True)

            Dim _LiquidAssetsReturnHeader As LiquidAssetsReturnHeader = TryCast(View.SelectedObjects(0), LiquidAssetsReturnHeader)
            If _LiquidAssetsReturnHeader IsNot Nothing Then
                If _LiquidAssetsReturnHeader.GLClosingTime IsNot Nothing Then
-                    Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
                Else
                    Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClose.Active.SetItemValue("", True)
                End If
@@ -61,70 +61,70 @@ Public Class LiquidAssetsReturnVC
        End If

        If View.Id = "LiquidAssetsReturnHeader_ListView_Cassa_Closed" Then
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
            Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", True)
            Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaCloseBack.Active.SetItemValue("", True)
            Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClosePreviewPDF.Active.SetItemValue("", True)
        End If

        If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnRows_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
        End If

        If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnDenomination_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
        End If
    End Sub
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
-        Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
        Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", False)

        If View.Id = "LiquidAssetsReturnHeader_ListView_Cassa" Then
            Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)

        End If

        If View.Id = "LiquidAssetsReturnHeader_DetailView_Cassa" Then
            Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", False)
            Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClose.Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
            RemoveHandler Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Executing, AddressOf LiquidAssetsReturnHeader_ListView_Cassa_PrintLiquidAssetsReturn_Cassa_Executing
            RemoveHandler Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClose.Executing, AddressOf LiquidAssetsReturnHeader_ListView_Cassa_GLCassaClose_Executing
        End If
        If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnRows_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", True)
        End If

        If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnDenomination_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
        End If
    End Sub
    Private Sub aGetReturn_Cassa_LiquidAssetsReturn_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGetReturn_Cassa.Execute
@@ -32,37 +32,37 @@ Public Class GLMixedVC
        Frame.GetController(Of GLMixedVC).aCloneGLMixed.Active.SetItemValue("", False)
        If View.Id = "GLMixed_DetailView" Then
            Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed)
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
            If _GLMixed.IsEditable = False Then
-                Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+                Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
                If SecuritySystem.CurrentUserName = "SysAdmin" Then
                Else
-                    Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
                End If
            End If
            If _GLMixed.IsStorno = True Then
-                Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+                Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
                If SecuritySystem.CurrentUserName = "SysAdmin" Then
                Else
-                    Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
                End If
            End If

            If _GLMixed.GLDocumentType = eGLDocumentType.eGLRateDiff Then
-                Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-                Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+                Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+                Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)

                If SecuritySystem.CurrentUserName = "SysAdmin" Then
                Else
-                    Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
                End If
-                Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+                Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
            End If
        End If

        If View.Id = "GLMixed_ListView" 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)
            Frame.GetController(Of GLMixedVC).aCloneGLMixed.Active.SetItemValue("", True)
        End If
        If View.Id = "GLMixed_ListView_Editable" Then
@@ -70,12 +70,12 @@ Public Class GLMixedVC
        End If

        If View.Id Like "GLHeader_GLRows_ListView_Mixed" 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 LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
            Frame.GetController(Of GLMixedVC).aViewPCIDW_RateDiff.Active.SetItemValue("", True)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)

            Dim nv As ListView = CType(View, ListView)
            Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
@@ -83,7 +83,7 @@ Public Class GLMixedVC

        End If
        If View.Id = "GLRows_ListView_RateDiff" Then
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
            Frame.GetController(Of GLMixedVC).aViewPCIDW_RateDiff.Active.SetItemValue("", True)
            Frame.GetController(Of GLMixedVC).aViewAttachments_RateDiff_GLRows.Active.SetItemValue("", True)
            Frame.GetController(Of GLMixedVC).aViewRegistry_RateDiff_GLRows.Active.SetItemValue("", True)
@@ -91,10 +91,10 @@ Public Class GLMixedVC
            AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf Delete_Executed
        End If
        If View.Id = "GLMixed_DetailView_Dividend" 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 CloneObject.CloneObjectViewController).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 CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
            Frame.GetController(Of GLMixedVC).aStorno_GLMixed.Active.SetItemValue("", False)
            Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
            Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
@@ -105,12 +105,12 @@ Public Class GLMixedVC
    End Sub
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
-        Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+        Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
        If View.Id = "GLRows_ListView_RateDiff" Then
            RemoveHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Delete_Executing
            RemoveHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf Delete_Executed
        End If
-        'Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+        'Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
    End Sub
    Private Sub cs_MasterObjectChanged(ByVal sender As Object, ByVal e As EventArgs)
        Dim _GLMixed As GLMixed = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, GLMixed)
@@ -632,7 +632,7 @@ Public Class GLOpenCloseVC
    Private Sub aRepairBadGLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRepairBadGLRows.Execute
        Try
            GLOBAL_HAS_Audit = False
-            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+            Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
            Dim _GLOpenCloseHeader As GLOpenCloseHeader = TryCast(View.SelectedObjects(0), GLOpenCloseHeader)
            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
            Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
@@ -668,7 +668,7 @@ Public Class GLOpenCloseVC
        Finally
            GLOBAL_HAS_Audit = True
            RaiseEvent FinalWork
-            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+            Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
        End Try

    End Sub
@@ -44,10 +44,10 @@ Public Class RateDiffVC
            Frame.GetController(Of RateDiffVC).aViewRegistry_RateDiff.Active.SetItemValue("", True)


-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).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 CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
        End If

        
@@ -59,10 +59,10 @@ Public Class RateDiffVC
        If View.Id = "RateDiffView_ListView" Then
            RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
            Frame.GetController(Of RateDiffVC).aCreateRateDiffView.Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
        End If

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

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

@@ -29,7 +29,7 @@ Public Class RegistryBankTransferVC
            Frame.GetController(Of RegistryBankTransferVC).aBlockBankTransfer.Active.SetItemValue("", True)
        End If
        If View.Id Like "*RegistryBankTransfer*" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
        End If
    End Sub
    Protected Overrides Sub OnDeactivated()
@@ -39,7 +39,7 @@ Public Class RegistryBankTransferVC
            Frame.GetController(Of RegistryBankTransferVC).aBlockBankTransfer.Active.SetItemValue("", False)
        End If
        If View.Id Like "*RegistryBankTransfer*" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
        End If
    End Sub

@@ -154,7 +154,7 @@ Public Class RegistryFinancialVC
    Private Sub aToTable_RRFC_With_TContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC_With_TContract.Execute
        '// Technikai szerzõdés sor + Táblázatba beadás !!!

-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.

        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
        Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
@@ -23,11 +23,11 @@ Public Class RegistryRowsFinancialVC
    Protected Overrides Sub OnActivated()
        MyBase.OnActivated()
        If View.Id = "RegistryRowsFinancial_DetailView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)

            'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
            '    Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
@@ -47,11 +47,11 @@ Public Class RegistryRowsFinancialVC
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id = "RegistryRowsFinancial_DetailView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
        End If
        If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)

            'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
            '    Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
@@ -100,22 +100,22 @@ Public Class RegistryRowsFinancialVC
        If _RegistryHeader Is Nothing Then Exit Sub
        If _RegistryHeader.CurrentWorkflowSystemSteps Is Nothing Then Exit Sub
        '// Mikor NE látszódjon a NEW action 
-        Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+        Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
        If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Or _
           _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
            If _RegistryHeader.IsEditable = True Then
                If _RegistryHeader.BruttoAmountRemaining <> 0.0 Then
-                    Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+                    Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
                End If
            End If
        End If

        '// Mikor NE látszódjon a törlés gomb
-        Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+        Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
        If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Or _
           _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
            If _RegistryHeader.IsEditable = True Then
-                Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+                Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
            End If
        End If

@@ -27,12 +27,12 @@ Public Class RegistryRowsFinancialControllingVC
    Protected Overrides Sub OnActivated()
        MyBase.OnActivated()
        If View.Id Like "RegistryRowsFinancialControlling_ListView_Reinvoice*" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)

            'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
            '    Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
@@ -54,12 +54,12 @@ Public Class RegistryRowsFinancialControllingVC
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id Like "RegistryRowsFinancialControlling_ListView_Reinvoice*" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
        End If
        If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
            'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
            '    Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
            '    If _RegistryHeader IsNot Nothing Then
@@ -119,22 +119,22 @@ Public Class RegistryRowsFinancialControllingVC
        If _RegistryHeader Is Nothing Then Exit Sub
        If _RegistryHeader.CurrentWorkflowSystemSteps Is Nothing Then Exit Sub

-        Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+        Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
        If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
            If _RegistryHeader.IsEditable = True Then
                If _RegistryHeader.BruttoAmountRemaining = 0 And _RegistryHeader.F_AmountBruttoHUF <> 0 Then
                    If _RegistryHeader.NettoAmountRemaining <> 0 Then
-                        Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+                        Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
                    End If
                End If
            End If
        End If

        '// Mikor NE látszódjon a törlés gomb
-        Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+        Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
        If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
            If _RegistryHeader.IsEditable = True Then
-                Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+                Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
            End If
        End If

@@ -38,12 +38,12 @@ Public Class RegistryTaskVC
            Frame.GetController(Of RegistryTaskVC).aRegistryEmailToResponsible.Active.SetItemValue("", True)
        End If
        If View.Id = "RegistryTasks_DetailView" 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)
            Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
            If _RegistryTasks IsNot Nothing Then
                If _RegistryTasks.Status = General.TaskStatus.Completed Then
-                    Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
                End If
            End If
        End If
@@ -54,19 +54,19 @@ Public Class RegistryTaskVC
        End If
        If View.Id = "DeliveryNoteInRows_ListView_Certificate_HUF" Or
            View.Id = "DeliveryNoteInRows_ListView_Certificate_DEV" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
        End If
    End Sub
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id = "RegistryTasks_DetailView" Then
-            Frame.GetController(Of ModificationsController).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 NewObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
        End If
        If View.Id = "DeliveryNoteInRows_ListView_Certificate_HUF" Or
          View.Id = "DeliveryNoteInRows_ListView_Certificate_DEV" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
        End If
    End Sub
    Private Sub aRegistryTaskStateReset_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRegistryTaskStateReset.Execute
@@ -121,7 +121,7 @@ Public Class RegistryTaskVC
    Private Sub aToTable_RRFC_With_TContract_RegistryTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC_With_TContract_RegistryTask.Execute
        '// Technikai szerzõdés sor + Táblázatba beadás !!!

-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.

        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
        Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
@@ -381,7 +381,7 @@ Public Class RegistryTaskVC
        '    Select Case _RegistryRowsFinancialControllingTemplatePopup.RRFCT_Type
        '        Case eRRFCT_Type.eTechnical

-        '            'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.
+        '            'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A validáció ideiglenes letiltása az akció végrehajtásának idejére.

        '            Dim _TechnicalContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _
        '                                                                _RegistryRowsFinancialControllingTemplatePopup.CustomersFrom))
@@ -547,7 +547,7 @@ Public Class RegistryTaskVC

            If _RegistryTasks.row_RRFC_Controlling Is Nothing Then Throw New Exception("*Nincs beállítva kontrolszám!")

-            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)

            Dim _TechnicalContractTemplate As ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _onew.GetObject(_RegistryTasks.RegistryHeader.CustomersFrom)))
            Dim _TechnicalLimitAmount As Double = _RegistryTasks.row_RRFC_Controlling.TechnicalContractLimit
@@ -631,7 +631,7 @@ Public Class RegistryTaskVC
            Next
            _onew.CommitChanges()
            RaiseEvent FinalWork
-            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)

            '// ObjectSpace frissítése ...
            If Frame.GetController(Of RefreshController)() IsNot Nothing Then
@@ -65,7 +65,7 @@ Public Class RegistryVC

        '------------------------ LISTVIEW -------------------------------------------------------------------------------------------------------------------------------------
        If View.Id = "RegistryHeader_RegistryBankTransfer_ListView" Then
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
            Frame.GetController(Of RegistryVC).aBankDivideRegistry.Active.SetItemValue("", True)
            Frame.GetController(Of RegistryVC).aBankMergeRegistry.Active.SetItemValue("", True)
            AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf RegistryBankTransfer_DeleteAction_Executing
@@ -76,28 +76,28 @@ Public Class RegistryVC
            Frame.GetController(Of RegistryVC).aBankMergeRegistry.Active.SetItemValue("", True)
            Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", False)
            Frame.GetController(Of NewObjectViewController).NewObjectAction.Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryHeader_ListView" Then
            If SecuritySystemHelper.IsUserInRole(TryCast(SecuritySystem.CurrentUser, IUserWithRoles), "Administrators") = False Then
-                Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+                Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
            End If
        End If
        If View.Id = "RegistryHeader_WorkFlowCollection_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryTasks_RegistryRowsFinancial_ListView" Then

-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController)().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 CloneObjectViewController)()?.Active.SetItemValue("", False)
            Dim _ListView As ListView = TryCast(View, ListView)
            Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
            Dim _RegistryTasks As RegistryTasks = TryCast(_PropertyCollectionSource.MasterObject, RegistryTasks)
@@ -105,17 +105,17 @@ Public Class RegistryVC
            GLOBAL_RegistryTask_Current_Oid = _RegistryTasks.Oid

            If _RegistryTasks.CurrentWorkflowSystemSteps.StepFinancialType <> eStepFinancialType.eCheckVAT Or _RegistryTasks.RegistryHeader.BruttoAmountRemaining = 0 Then
-                Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
-                Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+                Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+                Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
            Else
-                Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-                Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+                Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+                Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
            End If

        End If

        If View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)

            Dim _ListView As ListView = TryCast(View, ListView)
            Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
@@ -125,20 +125,20 @@ Public Class RegistryVC

        End If
        If View.Id = "RegistryHeader_RegistryTasks_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController)().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 NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then ' Iktatási rendszerben a teljesítésre bontás fül
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryHeader_RegistryFileData_ListView" Then ' Iktatási rendszerben a FileData fül
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryRowsFinancialControlling_RegistryBankTransfer_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
            Dim nv As ListView = View
            Dim cs As PropertyCollectionSource = TryCast(nv.CollectionSource, PropertyCollectionSource)
            AddHandler cs.MasterObjectChanged, AddressOf MasterObject2_Changed
@@ -148,9 +148,9 @@ Public Class RegistryVC
            View.Id = "RegistryTasks_ListView_Not_Completed_Full" Or _
            View.Id = "RegistryTasks_ListView_Not_Completed" Then

-            Frame.GetController(Of DeleteObjectsViewController)().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 CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)

        End If
        If View.Id = "RegistryTasks_ListView_Not_Completed" Or View.Id = "RegistryTasks_ListView_Not_Completed_Full" Then
@@ -161,15 +161,15 @@ Public Class RegistryVC
            Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryRowsFinancialControllingTemplatePopup_RegistryHeader_ListView" Then
-            Frame.GetController(Of DeleteObjectsViewController)().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 DeleteObjectsViewController)()?.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 RegistryRowsFinancialControllingVC).aViewRegistryNoTask.Active.SetItemValue("", False)
            Frame.GetController(Of RegistryVC).aPCICheck_RegistryHeader.Active.SetItemValue("", False)
            Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", False)
-            Frame.GetController(Of RecordsNavigationController).Active.SetItemValue("", False)
+            Frame.GetController(Of RecordsNavigationController)?.Active.SetItemValue("", False)
        End If
        '------------------------ DETAILVIEW ----------------------------------------------------------------------------------------------------------------------------------
        If View.Id = "RegistryRowsFinancialControlling_ReInvoicePopupWindow_DetailView" Then
@@ -178,15 +178,15 @@ Public Class RegistryVC

        If View.Id = "RegistryHeader_DetailView" Then

-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
            Frame.GetController(Of RegistryVC).aRegistryStorno.Active.SetItemValue("", True)
            Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)

            If _RegistryHeader.IsEditable = False Then
                Frame.GetController(Of RegistryVC)().aRegistryGotoNextStep.Active.SetItemValue("", False)
-                Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
-                Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+                Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+                Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
                Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
                Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
                Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
@@ -200,7 +200,7 @@ Public Class RegistryVC
            End If
        End If
        If View.Id = "RegistryTasks_DetailView" Then
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
            Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", True)
            Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
            If _RegistryTasks.Status = General.TaskStatus.Completed Then
@@ -210,10 +210,10 @@ Public Class RegistryVC
            ' Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryRows_Financial_RegistryRows_FinancialControlling" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
        End If
        If View.Id Like "*RegistryTask*" Then
-            Frame.GetController(Of ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False)
+            Frame.GetController(Of ObjectMethodActionsViewController).Actions("Task.MarkCompleted")?.Active.SetItemValue("", False)
            If View.Id = "RegistryTasks_ListView_Not_Completed" Then
                CType(View, ListView).CollectionSource.Criteria("ByUser") = _
                    CriteriaOperator.Parse("Status<>4 and HRPerson.User.UserName=?", SecuritySystem.CurrentUserName)
@@ -283,23 +283,23 @@ Public Class RegistryVC
    End Sub
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
-        Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
        Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
        If View.Id = "RegistryHeader_DetailView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
            Frame.GetController(Of RegistryVC).aRegistryStorno.Active.SetItemValue("", False)
        End If

        If View.Id = "RegistryHeader_ListView" Or View.Id = "RegistryTasks_ListView_Completed" Or View.Id = "RegistryTasks_ListView_Not_Completed_Full" Or View.Id = "RegistryTasks_ListView_Not_Completed" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
        End If
        If View.Id = "RegistryTasks_DetailView" Or View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then
            GLOBAL_RegistryTask_Current_Oid = Nothing
        End If
        If View.Id = "RegistryTasks_DetailView" Then
            GLOBAL_RegistryTask_Current_Oid = Nothing
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
        End If

        RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
@@ -309,40 +309,40 @@ Public Class RegistryVC
            Frame.GetController(Of RegistryVC).aBankMergeRegistry.Active.SetItemValue("", False)
            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", True)
            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)

        End If

        If View.Id = "RegistryTasks_RegistryRowsFinancial_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
        End If
        If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then ' Iktatási rendszerben a teljesítésre bontás fül
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
        End If
        If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
        End If
        If View.Id = "RegistryHeader_ListView_Subcontractor" Then
            Frame.GetController(Of RegistryVC).aPCICheck_RegistryHeader.Active.SetItemValue("", True)
            Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", True)
        End If
        If View.Id = "RegistryRowsFinancialControllingTemplatePopup_RegistryHeader_ListView" Then
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of LinkUnlinkController)().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 LinkUnlinkController)()?.Active.SetItemValue("", True)

            Frame.GetController(Of RegistryRowsFinancialControllingVC).aViewRegistryNoTask.Active.SetItemValue("", False)
            Frame.GetController(Of RegistryVC).aPCICheck_RegistryHeader.Active.SetItemValue("", True)
            Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", True)
-            Frame.GetController(Of RecordsNavigationController).Active.SetItemValue("", True)
+            Frame.GetController(Of RecordsNavigationController)?.Active.SetItemValue("", True)
        End If
        'If View.Id = "RegistryTasks_ListView_Not_Completed_Full" Or _
        '   View.Id = "RegistryTasks_ListView_Not_Completed" Then
@@ -427,9 +427,9 @@ Public Class RegistryVC
    Private Sub MasterObject2_Changed(ByVal sender As Object, ByVal e As EventArgs)
        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, RegistryRowsFinancialControlling)
        If _RegistryRowsFinancialControlling.RegistryHeader.BruttoAmountRemainingBank = 0 Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
        Else
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
        End If
    End Sub
    Private Sub aRegistryGotoNextStep_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRegistryGotoNextStep.Execute
@@ -953,7 +953,7 @@ Public Class RegistryVC

    End Sub
    Private Sub aCreateTechnicalContractFromRegistry_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateTechnicalContractFromRegistry.Execute
-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A valid�ci� ideiglenes letilt�sa az akci� v�grehajt�s�nak idej�re.
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A valid�ci� ideiglenes letilt�sa az akci� v�grehajt�s�nak idej�re.
        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
        Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(View.SelectedObjects(0), RegistryRowsFinancialControlling)
        Dim _RegistryHeader As RegistryHeader = _RegistryRowsFinancialControlling.RegistryHeader
@@ -1013,7 +1013,7 @@ Public Class RegistryVC
                End If
                _ocur.CommitChanges()
                Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False)
-                Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+                Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)

                If TryCast(View, DetailView) IsNot Nothing Then
                    View.Close()
@@ -1055,16 +1055,16 @@ Public Class RegistryVC

                _ocur.CommitChanges()
                Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False)
-                Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+                Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
                Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False)
-                Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+                Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
                If TryCast(View, DetailView) IsNot Nothing Then
                    View.Close()
                    Exit Sub
                End If
            End If
            Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
        Else
            '-------!!!!!!!TESZT MIATT!!!!!------------------------------------------
            Dim _Message As String = String.Format("Technikai limit van beállítva ! {0}", _TechnicalLimitAmount)
@@ -33,13 +33,13 @@ Public Class RRFCQueryVC
        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
        Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
        If View.Id = "RRFCQueryHeader_RRFCQueryRows_ListView" Then
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController).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 LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
        End If
        If View.Id = "RRFCQueryHeader_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 & "'"
        End If
        If View.Id = "RRFCQueryHeader_DetailView" Then
@@ -50,7 +50,7 @@ Public Class RRFCQueryVC
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id = "RRFCQueryHeader_ListView" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
        End If
    End Sub

@@ -103,7 +103,7 @@ Public Class RegistryTelephoneVC
        End If

        If _ListView IsNot Nothing Then
-            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+            Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)

            _ocur.Delete(_RegistryHeader.RegistryRowsFinancial)
            _ocur.Delete(_RegistryHeader.RegistryRowsFinancialControlling)
@@ -161,7 +161,7 @@ Public Class RegistryTelephoneVC
            Next
        End If

-        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
    End Sub
    Private Sub Create_RRF_Row(_ocur As Xpo.XPObjectSpace, _RegistryHeader As RegistryHeader, _BruttoAmount As Double, _VAT As VAT)
        Dim _RegistryRowsFinancial As RegistryRowsFinancial = _ocur.FindObject(Of RegistryRowsFinancial)(CriteriaOperator.Parse("RegistryHeader=? and VAT=?", _RegistryHeader, _VAT))
@@ -24,33 +24,33 @@ Public Class ControllingVC
    Protected Overrides Sub OnActivated()
        MyBase.OnActivated()
        If View.Id = "HCategory_Children_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "Controlling_LookupListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
        End If
    End Sub
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id = "HCategory_Children_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
        End If
        If View.Id = "Controlling_LookupListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
        End If
    End Sub

    Private Sub aReCreateControlling_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateControlling.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 _Controlling_Collection As New XPCollection(Of Controlling)(_ocur.Session)
@@ -64,7 +64,7 @@ Public Class ControllingVC
        _ocur.CommitChanges()
        RaiseEvent FinalWork

-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)

    End Sub

@@ -27,14 +27,14 @@ Public Class CostHolderVC
    Protected Overrides Sub OnActivated()
        MyBase.OnActivated()
        If View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderCostHolder_ListView" Or View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderHRPerson_ListView" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
        End If
    End Sub

    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderCostHolder_ListView" Or View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderHRPerson_ListView" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
        End If
    End Sub

@@ -42,7 +42,7 @@ Public Class UniqueObjects_VC

    Private Sub aMergeUniqueObjects_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aMergeUniqueObjects.Execute
        Try
-            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+            Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
            Dim _Object As Object
            Dim _UniqueObjects As UniqueObjects
@@ -69,7 +69,7 @@ Public Class UniqueObjects_VC
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
-            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+            Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
        End Try
    End Sub
 End Class
@@ -31,26 +31,26 @@ Public Class ChartOfAccountsVC
    Protected Overrides Sub OnActivated()
        MyBase.OnActivated()
        If View.Id = "ChartOfAccountsYear_ListView" 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 NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
        End If
        If View.Id = "ChartOfAccountsYear_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 NewObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
        End If
        If View.Id = "ChartOfAccountsYear_ChartOfAccounts_ListView" Then
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
            AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf ChartOfAccountsYear_ChartOfAccounts_ListView_DeleteAction_Executing
        End If
    End Sub
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id = "ChartOfAccountsYear_ChartOfAccounts_ListView" Then
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
        End If
    End Sub
    Private Sub aReCreateChartOfAccounts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateChartOfAccounts.Execute
@@ -320,7 +320,7 @@ Public Class ChartOfAccountsVC
        Dim _GLRows_Collection As New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("DebitChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date))
        Dim _GLRows As GLRows
        RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
-        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+        Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
        For Each _GLRows In _GLRows_Collection
            RaiseEvent DoWork()
            If _GLRows.DebitChartOfAccounts IsNot Nothing Then
@@ -331,12 +331,12 @@ Public Class ChartOfAccountsVC
            End If
        Next
        _ocur.CommitChanges()
-        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
        RaiseEvent FinalWork

        _GLRows_Collection = New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("CreditChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date))
        RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
-        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+        Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
        For Each _GLRows In _GLRows_Collection
            RaiseEvent DoWork()
            If _GLRows.DebitChartOfAccounts IsNot Nothing Then
@@ -347,7 +347,7 @@ Public Class ChartOfAccountsVC
            End If
        Next
        _ocur.CommitChanges()
-        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
        RaiseEvent FinalWork

    End Sub
@@ -703,7 +703,7 @@ Public Class ChartOfAccountsVC
            Dim _GLRows_Collection As New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("DebitChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date))
            Dim _GLRows As GLRows
            RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
-            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+            Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
            i = 0
            For Each _GLRows In _GLRows_Collection
                RaiseEvent DoWork()
@@ -717,12 +717,12 @@ Public Class ChartOfAccountsVC
                If i Mod 50 = 0 Then _ocur.CommitChanges()
            Next
            _ocur.CommitChanges()
-            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+            Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
            RaiseEvent FinalWork

            _GLRows_Collection = New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("CreditChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date))
            RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
-            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+            Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
            i = 0
            For Each _GLRows In _GLRows_Collection
                RaiseEvent DoWork()
@@ -736,7 +736,7 @@ Public Class ChartOfAccountsVC
                If i Mod 50 = 0 Then _ocur.CommitChanges()
            Next
            _ocur.CommitChanges()
-            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+            Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
            RaiseEvent FinalWork
        Catch ex As Exception
        Finally