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