Á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
@@ -37,7 +37,7 @@ Public Class GLAccountsVC
            Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = DevExpress.ExpressApp.SystemModule.ModificationsHandlingMode.AutoRollback
        End If
        If View.Id = "GLHeader_GLRows_ListView_Accounts" Then
-            Frame.GetController(Of ToolbarVisibilityController).Active.SetItemValue("", False)
+            Frame.GetController(Of ToolbarVisibilityController)?.Active.SetItemValue("", False)
            Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(False)
        End If
        AddHandler DoWork, AddressOf _WaitFormClass.DoWork
@@ -49,7 +49,7 @@ Public Class GLAccountsVC
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id = "GLHeader_GLRows_ListView_Accounts" Then
-            Frame.GetController(Of ToolbarVisibilityController).Active.SetItemValue("", True)
+            Frame.GetController(Of ToolbarVisibilityController)?.Active.SetItemValue("", True)
            Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(True)
        End If
        RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
@@ -72,13 +72,13 @@ Public Class GLAccountsVC
            Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts)
            If _GLAccounts Is Nothing Then
            Else
-                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
                If _GLAccounts.IsEditable = False Then
-                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
                End If
            End If
        ElseIf View.SelectedObjects.Count > 1 Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)

        End If
    End Sub
@@ -26,113 +26,113 @@ Public Class BankImportVC
    Protected Overrides Sub OnActivated()
        MyBase.OnActivated()
        If View.Id = "BankImportHeader_BankImportHeaderSum_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
-            Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
-            Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
-            Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "BankImportHeaderSum_BankImportHeaderSumDetail_ListView" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
-            Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
-            Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
-            Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "BankImportHeaderSum_GLRows_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
-            Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
-            Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
-            Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "BankImportHeaderSum_BankImportNameParameters_ListView" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
-            Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
-            Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
-            Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
-            'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
+            'Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "BankImportHeaderSum_BankImportPopup_ListView" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
-            Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
-            Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
-            Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
        End If
    End Sub
    Protected Overrides Sub Ondeactivated()
        MyBase.OnActivated()
        If View.Id = "BankImportHeader_BankImportHeaderSum_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
-            Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
-            Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
-            Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
        End If
        If View.Id = "BankImportHeaderSum_BankImportHeaderSumDetail_ListView" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
-            Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
-            Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
-            Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
        End If
        If View.Id = "BankImportHeaderSum_GLRows_ListView" Then
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
-            Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
-            Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
-            Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
        End If
        If View.Id = "BankImportHeaderSum_BankImportNameParameters_ListView" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
-            Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
-            Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
-            Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
-            'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
+            'Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
        End If
        If View.Id = "BankImportHeaderSum_BankImportPopup_ListView" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
-            Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
-            Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
-            Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
        End If
    End Sub
    Private Sub BankImportVC_ViewControlsCreated(sender As System.Object, e As System.EventArgs)
@@ -35,11 +35,11 @@ Public Class BankVC
        Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", False)
        If View.Id Like "RegistryBankTransfer_ListView*" Then

-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", False)
            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", False)
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)

            Frame.GetController(Of BankVC).aViewAttachments_Bank.Active.SetItemValue("", True)
            Frame.GetController(Of BankVC).aViewRegistry.Active.SetItemValue("", True)
@@ -65,7 +65,7 @@ Public Class BankVC
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id Like "RegistryBankTransfer_ListView*" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
            RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
        End If
        If View.Id = "GLBankDivide_DetailView" Then
@@ -78,7 +78,7 @@ Public Class BankVC
            Frame.GetController(Of BankVC).aBankDivide.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 DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", True)
        End If
    End Sub
 #Region "Bank save" 'Banki kommunikáció
@@ -410,7 +410,7 @@ Public Class BankVC
            Throw New UserFriendlyException("Csak azonos Saját cég esetén választható ez a funkció!")
        End If

-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
        _BankParameterDEV = _ocur.FindObject(Of BankParameterDEV)(CriteriaOperator.Parse("CurrencyName.ShortName='HUF'"), True)
        If _BankParameterDEV Is Nothing Then _BankParameterDEV = _ocur.CreateObject(Of BankParameterDEV)()

@@ -435,7 +435,7 @@ Public Class BankVC
        _BankParameterDEV.Save()
        _ocur.CommitChanges()

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

        Dim _BankParameterDEV_New As BankParameterDEV = _onew.GetObject(_BankParameterDEV)
        e.View = Application.CreateDetailView(_onew, "BankParameterDEV_DetailView", False, _BankParameterDEV_New)
@@ -68,13 +68,13 @@ Public Class GLBankVC
            Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank)
            If _GLBank Is Nothing Then
            Else
-                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
                If _GLBank.IsEditable = False Then
-                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
                End If
            End If
        ElseIf View.SelectedObjects.Count > 1 Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)

        End If
    End Sub
@@ -76,13 +76,13 @@ Public Class GLCassaVC
            Dim _GLCassa As GLCassa = TryCast(View.SelectedObjects(0), GLCassa)
            If _GLCassa Is Nothing Then
            Else
-                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
                If _GLCassa.IsEditable = False Then
-                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
                End If
            End If
        ElseIf View.SelectedObjects.Count > 1 Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)

        End If
    End Sub
@@ -27,14 +27,14 @@ Public Class GLCompensationVC
            Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit
        End If
        If View.Id = "GLHeader_GLRows_ListView_Compensation" Then
-            Frame.GetController(Of ToolbarVisibilityController).Active.SetItemValue("", False)
+            Frame.GetController(Of ToolbarVisibilityController)?.Active.SetItemValue("", False)
            Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(False)
        End If
    End Sub
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id = "GLCompensation_DetailView" Or View.Id = "GLCompensation_GLRows_ListView" Then
-            Frame.GetController(Of ToolbarVisibilityController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ToolbarVisibilityController)()?.Active.SetItemValue("", True)
        End If
        If View.Id = "GLHeader_GLRows_ListView_Compensation" Then
            Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(True)
@@ -87,13 +87,13 @@ Public Class GLCompensationVC
            Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation)
            If _GLCompensation Is Nothing Then
            Else
-                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
                If _GLCompensation.IsEditable = False Then
-                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
                End If
            End If
        ElseIf View.SelectedObjects.Count > 1 Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)

        End If
    End Sub
@@ -102,13 +102,13 @@ Public Class GLMixedVC
            Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed)
            If _GLMixed Is Nothing Then
            Else
-                'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
+                'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
                If _GLMixed.IsEditable = False Then
-                    'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+                    'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
                End If
            End If
        ElseIf View.SelectedObjects.Count > 1 Then
-            'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+            'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)

        End If
    End Sub
@@ -117,10 +117,10 @@ Public Class GLMixedVC
        Select Case TryCast(e.Column, GridColumn).FieldName
            Case "NoteRows", "Controlling!", "CostHolder!", "JobNumberObjects!", "UniqueObjects!", "AmountHUF", "AmountDEV", "DebitChartOfAccounts!", "CreditChartOfAccounts!"
                If nestedFrame IsNot Nothing Then
-                    Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+                    Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
                    Dim parentView As View = nestedFrame.View
                    TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges()
-                    Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+                    Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
                    parentView.ObjectSpace.Refresh()
                End If
        End Select
@@ -83,10 +83,10 @@ Public Class GLCardVC
        Select Case TryCast(e.Column, GridColumn).FieldName
            Case "Note_Rows"
                If nestedFrame IsNot Nothing Then
-                    Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+                    Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
                    Dim parentView As View = nestedFrame.View
                    TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges()
-                    Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+                    Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
                    parentView.ObjectSpace.Refresh()
                End If
        End Select
@@ -239,7 +239,7 @@ Public Class GLReportRowsVC
        e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck)
    End Sub
    Private Sub aGLReportRows_ChangeParam_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLReportRows_ChangeParam.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)
@@ -367,7 +367,7 @@ Public Class GLReportRowsVC
        _ocur.CommitChanges()
        _Waitformclass.FinalWork()

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

        View.Refresh()
    End Sub
@@ -36,8 +36,8 @@ Public Class VATReportVC
        MyBase.OnActivated()

        If View.Id = "VATReportCheckList_ListView" Then
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
        End If

        _WaitFormClass = New WaitFormClass
@@ -49,8 +49,8 @@ Public Class VATReportVC
        MyBase.OnDeactivated()

        If View.Id = "VATReportCheckList_ListView" 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

        RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
@@ -26,11 +26,11 @@ Public Class GLResetVC
        Frame.GetController(Of GLResetVC).aResetStorageTransactions.Active.SetItemValue("", False)

        If View.Id = "GLReset_DetailView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().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.RefreshController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.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.RefreshController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
        End If
    End Sub
    Private Sub aResetAll_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aResetAll.Execute
@@ -31,14 +31,14 @@ Public Class RegistryVC
            Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
            Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit
            If _RegistryHeader.IsEditable = False Then
-                Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
+                Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
            End If
        End If
        If View.Id = "RegistryHeader_WorkFlowCollection_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryHeader_RegistryTasks_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryHeader_RegistryFileData_ListView" Then ' Iktatási rendszerben a FileData fül
            Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController)().AddFromFileAction.Active.SetItemValue("", False)
@@ -46,26 +46,26 @@ Public Class RegistryVC
            Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentController)().SaveToAction.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
        End If
        If View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
        End If
    End Sub
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()

        If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
        End If
        If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
        End If
        If View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
        End If
    End Sub