Átállás 17.2.3-ra

Related Work Items: #123

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVC.vb

@@ -24,31 +24,31 @@ Public Class OrderInAcknowledgementVC
         MyBase.OnActivated()
 
         If View.Id = "OrderInHeader_OrderInAcknowledgementHeader_ListView" Then
-            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.NewObjectViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
         End If
         If View.Id = "OrderInAcknowledgementHeader_OrderInAcknowledgementRows_ListView" Then
-            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.DeleteObjectsViewController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
         End If
     End Sub
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
         If View.Id = "OrderInHeader_OrderInAcknowledgementHeader_ListView" Then
-            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.NewObjectViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
         End If
         If View.Id = "OrderInAcknowledgementHeader_OrderInAcknowledgementRows_ListView" Then
-            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.DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
         End If
     End Sub
     Private Sub aCreateAcknowledgementFromOrderIn_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateAcknowledgementFromOrderIn.CustomizePopupWindowParams
@@ -149,7 +149,7 @@ Public Class OrderInAcknowledgementVC
     Private Sub aCreateContractsFromAcknowledgement_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateContractsFromAcknowledgement.Execute
 
         'A szerződés sor jelölő adatai itt nem fontosak így a függvény élettartamára kikapcsoljuk a validálást
-        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 _ContractsFromAcknowledgement_PopUp As ContractsFromAcknowledgement_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsFromAcknowledgement_PopUp)
@@ -186,7 +186,7 @@ Public Class OrderInAcknowledgementVC
             _ContractRows.RowGroup2 = _OrderInAcknowledgementRows.RowGroup2
         Next
         _ocur.CommitChanges()
-        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
 
     End Sub
     Private Sub aAcknowledgementRows_Up_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAcknowledgementRows_Up.Execute

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.vb

@@ -21,11 +21,11 @@ Public Class OrderInRowsOtherVC
         MyBase.OnActivated()
 
         If View.Id = "OrderInHeader_OrderInRowsOther_ListView" 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.ListViewProcessCurrentObjectController)().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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
         End If
 
     End Sub
@@ -33,11 +33,11 @@ Public Class OrderInRowsOtherVC
         MyBase.OnDeactivated()
 
         If View.Id = "OrderInHeader_OrderInRowsOther_ListView" Then
-            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.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)
         End If
     End Sub
     Private Sub aToTable_OrderInOther_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_OrderInOther.Execute

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb

@@ -57,9 +57,9 @@ Public Class OrderInVC
 
         '--------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
         If View.Id = "OrderInHeader_OrderInRows_ListView" Then '--- Bejövõ megrendelések sorai
-            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 LinkUnlinkController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
             Frame.GetController(Of OrderInVC)().aUp_OrderIn.Active.SetItemValue("", True)
             Frame.GetController(Of OrderInVC)().aDown_OrderIn.Active.SetItemValue("", True)
 
@@ -81,8 +81,8 @@ Public Class OrderInVC
 
         End If
         If View.Id = "OrderInHeader_ListView" Then
-            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 OrderInVC)().aStornoOrderIn.Active.SetItemValue("", True)
             Frame.GetController(Of OrderInVC)().aBackToEdit_OrderInHeader.Active.SetItemValue("", True)
         End If
@@ -91,21 +91,21 @@ Public Class OrderInVC
         End If
 
         If View.Id = "OrderInRows_StorageComputed_Collection_ListView" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
         End If
 
         If View.Id = "OrderInHeader_OrderInHeaderVAT_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 ListViewProcessCurrentObjectController).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)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "OrderInHeader_OrderInTo_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 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 CloneObjectViewController)()?.Active.SetItemValue("", False)
         End If
         If View.Id = "OrderInHeader_OrderInRows_ListView" Then
             Frame.GetController(Of OrderInVC).aOrderIn_ChangeRows.Active.SetItemValue("", True)
@@ -120,10 +120,10 @@ Public Class OrderInVC
             AddHandler View.SelectionChanged, AddressOf OrderInHeader_OrderInRowsOther_ListView_SelectionChanged
         End If
         If View.Id = "OrderInRows_StorageOutRowsInRows_Collection_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 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 CloneObjectViewController)()?.Active.SetItemValue("", False)
         End If
         '--------- DETAILVIEWS -------------------------------------------------------------------------------------------------------------------------------
         If View.Id = "OrderInHeader_DetailView" Then '---Véglegesíteni és Sztornózni csak a megfelelõ elemeket lehessen
@@ -133,7 +133,7 @@ Public Class OrderInVC
             Frame.GetController(Of OrderInVC)().aGenerateStorageOutFromOrderIn.Active.SetItemValue("", True)
             Frame.GetController(Of OrderInVC).aGenerateStorageOutFromOrderInFIFO.Active.SetItemValue("", True)
             Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
             Frame.GetController(Of OrderInVC).aProductFinder.Active.SetItemValue("", True)
             If View.SelectedObjects.Count <> 0 Then
                 Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader)
@@ -143,7 +143,7 @@ Public Class OrderInVC
                     Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False)
                 End If
                 If _OrderInHeader.IsEditable = False Then
-                    Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+                    Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
                     Frame.GetController(Of OrderInVC)().aFinalizeOrderIn.Active.SetItemValue("", False)
                     Frame.GetController(Of ModificationsController)().SaveAction.Active.SetItemValue("", False)
                     Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", False)
@@ -181,34 +181,34 @@ Public Class OrderInVC
         MyBase.OnDeactivated()
 
         If View.Id = "OrderInHeader_OrderInRows_ListView" Then '--- Bejövõ megrendelések sorai
-            Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
-            Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
-            Frame.GetController(Of 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 CloneObjectViewController)()?.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 = "OrderInRows_StorageComputed_Collection_ListView" Then
-            Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
         End If
         If View.Id = "ORI_Invoice_Popup_DetailView" Then
             RemoveHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
         End If
         If View.Id = "OrderInHeader_OrderInHeaderVAT_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 DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
         End If
         If View.Id = "OrderInHeader_OrderInTo_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 DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
         End If
         If View.Id = "OrderInHeader_ListView" Then
-            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 OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False)
             Frame.GetController(Of OrderInVC)().aBackToEdit_OrderInHeader.Active.SetItemValue("", False)
         End If
@@ -221,7 +221,7 @@ Public Class OrderInVC
             Frame.GetController(Of OrderInVC)().aToTable_OrderIn.Active.SetItemValue("", False)
             Frame.GetController(Of OrderInVC)().aToTableD_OrderIn.Active.SetItemValue("", False)
             Frame.GetController(Of OrderInVC).aGenerateStorageOutFromOrderInFIFO.Active.SetItemValue("", False)
-            Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
             If View.SelectedObjects.Count <> 0 Then
                 Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader)
 
@@ -230,9 +230,9 @@ Public Class OrderInVC
                     Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False)
                 End If
                 If _OrderInHeader.IsEditable = False Then
-                    Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+                    Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
                     If _OrderInHeader.IsEditable = False Then
-                        Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+                        Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
                         Frame.GetController(Of OrderInVC)().aFinalizeOrderIn.Active.SetItemValue("", True)
                         Frame.GetController(Of ModificationsController)().SaveAction.Active.SetItemValue("", True)
                         Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", True)