Á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
@@ -19,7 +19,7 @@ Public Class InstallationVC
        MyBase.OnActivated()

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

            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
            Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)))
@@ -40,7 +40,7 @@ Public Class InstallationVC
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id = "Installation_InstallationDocumentations_ListView_Support" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
            Frame.GetController(Of InstallationVC).aInstallation_ChangeGroups.Active.SetItemValue("", True)
        End If
    End Sub
@@ -32,36 +32,36 @@ Public Class ProductFinderVC

        If View.Id = "ProductFinder_DetailView" Then
            Frame.GetController(Of ProductFinderVC).aToTableProductFinder.Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController).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 CloneObjectViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of ModificationsController).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 LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)

        End If
        If View.Id = "ProductFinder_ProductSelect_ListView" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
        End If
        If View.Id = "ProductFinder_ProductSelected_ListView" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
        End If
        If View.Id = "ProductFinder_StorageOutCirculation_ListView" Then
-            Frame.GetController(Of NewObjectViewController).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 CloneObjectViewController).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 LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)

        End If
        If View.Id = "ProductFinder_ProductFinderInfo_ListView" Then
-            Frame.GetController(Of NewObjectViewController).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 CloneObjectViewController).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 LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)

        End If
    End Sub
@@ -32,19 +32,19 @@ Public Class ProductsGant_VC
    Protected Overrides Sub OnActivated()
        MyBase.OnActivated()
        If View.Id = "ProductsGant_ListView" Then
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
        End If
    End Sub
    Protected Overrides Sub OnDeactivated()
        MyBase.OnDeactivated()
        If View.Id = "ProductsGant_ListView" Then
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
        End If
    End Sub
 #End Region
@@ -39,15 +39,15 @@ Public Class ProductsVC
            AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Products_ListView_DeleteAction_Executing
        End If
        If View.Id = "Products_LookupListView" Then
-            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)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
        End If
        If View.Id = "Products_Products_BusinessDirectory_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 = "Products_ListView_EverUsed" Then
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
        End If
        If View.Id = "Products_ListView_Deleted" Then
            If TryCast(View, ListView) IsNot Nothing Then
@@ -71,12 +71,12 @@ Public Class ProductsVC
            RemoveHandler View.SelectionChanged, AddressOf SelectionChanged
        End If
        If View.Id = "Products_LookupListView" Then
-            Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)
        End If
        If View.Id = "Products_Products_BusinessDirectory_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
 #End Region