Átállás 17.2.3-ra

Related Work Items: #123

Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractsVC.vb

@@ -39,7 +39,7 @@ Public Class ContractsVC
         MyBase.OnActivated()
         Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoRollback
         If View.Id Like "Contracts_ListView*" Or View.Id Like "Contract*LookupListView" Then
-            Frame.GetController(Of FileAttachmentListViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of FileAttachmentListViewController)()?.Active.SetItemValue("", False)
         End If
         If View.Id = "Contracts_DetailView" Then
             _Contracts = TryCast(View.SelectedObjects(0), Contracts)
@@ -54,7 +54,7 @@ Public Class ContractsVC
     Protected Overrides Sub OnViewControlsCreated()
         MyBase.OnViewControlsCreated()
         If View.Id = "Contracts_ListView" Then
-            Frame.GetController(Of FileAttachmentListViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of FileAttachmentListViewController)()?.Active.SetItemValue("", True)
         End If
     End Sub
     Sub InitQTT_ProcessColumn()
@@ -91,11 +91,11 @@ Public Class ContractsVC
             _Contracts = TryCast(View.SelectedObjects(0), Contracts)
             If Not _Contracts Is Nothing Then
                 If _Contracts.State = State.Ready Or _Contracts.State = State.Signed 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
         Else
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
         End If
     End Sub
 

Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb

@@ -33,13 +33,13 @@ Public Class CRMEstateVC
             Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = ModificationsHandlingMode.AutoCommit
         End If
         If View.Id = "CRMEstate_Leads_CRMEstate_Leads_Activity_ListView" Then
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
-            Frame.GetController(Of ModificationsController).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 ModificationsController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "OutlookEMail_DetailView_View" Then
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
         End If
         If View.Id = "CRMEstate_Leads_DetailView" Then
             For Each editor As PropertyEditor In (CType(View, DetailView)).GetItems(Of PropertyEditor)()
@@ -68,13 +68,13 @@ Public Class CRMEstateVC
             Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = ModificationsHandlingMode.Confirmation
         End If
         If View.Id = "CRMEstate_Leads_CRMEstate_Leads_Activity_ListView" Then
-            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
-            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
-            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
         End If
         If View.Id = "OutlookEMail_DetailView_View" Then
-            Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
+            Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
         End If
 
     End Sub

Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVCWIN.vb

@@ -98,7 +98,7 @@ Public Class ImmovablesPriceListVCWIN
             View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Or _
             View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Or _
             View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
             Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = ModificationsHandlingMode.AutoCommit
         End If
     End Sub
@@ -108,7 +108,7 @@ Public Class ImmovablesPriceListVCWIN
             View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Or _
             View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Or _
             View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
             Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = ModificationsHandlingMode.Confirmation
         End If
     End Sub

Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesCostRecordExcelVC.vb

@@ -40,7 +40,7 @@ Public Class ImmovablesCostRecordExcelVC
             Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = _ocur.FindObject(Of ImmovablesCostRecordExcel)(CriteriaOperator.Parse("IsEditable=?", True))
 
             'If _ImmovablesCostRecordExcel IsNot Nothing Then
-            '    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            '    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
             'End If
         End If
 
@@ -55,7 +55,7 @@ Public Class ImmovablesCostRecordExcelVC
             Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = _ocur.FindObject(Of ImmovablesCostRecordExcel)(CriteriaOperator.Parse("IsEditable=?", True))
 
             If _ImmovablesCostRecordExcel IsNot Nothing Then
-                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
             End If
         End If
     End Sub
@@ -66,11 +66,11 @@ Public Class ImmovablesCostRecordExcelVC
             RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing
             RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf SaveAction_Executing
 
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
         End If
 
         If View.Id = "ImmovablesCostRecordExcel_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
         End If
     End Sub
     Protected Overrides Sub OnViewControlsCreated()

Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb

@@ -34,7 +34,7 @@ Public Class ImmovablesVC
         RemoveHandler FinalWork, AddressOf _WaitFormClass.FinalWork
     End Sub
     Private Sub aImmovables_ImportLotNumber_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aImmovables_ImportLotNumber.Execute
-        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+        Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
 
         Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
 
@@ -132,6 +132,6 @@ Public Class ImmovablesVC
                 MsgBox(String.Format("{0} db ingatlant nem lehet beazonosítani az egyedi azonosító alapján! {1}", _MissingImmovable, _UOList))
             End If
         End If
-        Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
     End Sub
 End Class

Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceVC.vb

@@ -31,7 +31,7 @@ Public Class InvoiceVC
     End Sub
     Protected Overrides Sub OnActivated()
         MyBase.OnActivated()
-        Frame.GetController(Of Nuvolar.Module.InvoiceVC)().Actions.Item("aStornoInvoice").Active.SetItemValue("", False)
+        Frame.GetController(Of Nuvolar.Module.InvoiceVC)().Actions.Item("aStornoInvoice")?.Active.SetItemValue("", False)
         If View.Id = "InvoiceHeader_ListView" Then
             AddHandler DoWork, AddressOf _WaitFormClass.DoWork
             AddHandler InitWork, AddressOf _WaitFormClass.Initwork
@@ -64,19 +64,19 @@ Public Class InvoiceVC
             If Not _InvoiceHeader Is Nothing Then
                 If View.Id = "InvoiceHeader_ListView" Then
                     If _InvoiceHeader.IsStorno = False Then
-                        Frame.GetController(Of Nuvolar.Module.InvoiceVC)().Actions.Item("aStornoInvoice").Active.SetItemValue("", True)
+                        Frame.GetController(Of Nuvolar.Module.InvoiceVC)().Actions.Item("aStornoInvoice")?.Active.SetItemValue("", True)
                     Else
-                        Frame.GetController(Of Nuvolar.Module.InvoiceVC)().Actions.Item("aStornoInvoice").Active.SetItemValue("", False)
+                        Frame.GetController(Of Nuvolar.Module.InvoiceVC)().Actions.Item("aStornoInvoice")?.Active.SetItemValue("", False)
                     End If
                     If _InvoiceHeader.IsEditable = False Then
-                        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+                        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
                     Else
-                        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+                        Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
                     End If
                 End If
             End If
         Else
-            Frame.GetController(Of Nuvolar.Module.InvoiceVC)().Actions.Item("aStornoInvoice").Active.SetItemValue("", False)
+            Frame.GetController(Of Nuvolar.Module.InvoiceVC)().Actions.Item("aStornoInvoice")?.Active.SetItemValue("", False)
         End If
     End Sub
     Private Sub CreatePDFAndSendToDefaultMailClient()

Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutVC.vb

@@ -37,11 +37,11 @@ Public Class OfferOutVC
         Frame.GetController(Of OfferOutVC).aReplaceValueDocumentTemplate_OfferOut.Active.SetItemValue("", False)
 
         If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
-            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
         End If
         If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_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 = "OfferOutHeader_DetailView" Then
             _OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader)
@@ -53,11 +53,11 @@ Public Class OfferOutVC
     Protected Overrides Sub OnDeactivated()
         MyBase.OnDeactivated()
         If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then
-            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
-            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
         End If
         If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_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
     Protected Overrides Sub OnViewControlsCreated()

Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrderVC.vb

@@ -84,7 +84,7 @@ Public Class Order
             Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.Confirmation
         End If
         If View.Id Like "Order*Header_OrderInRows_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
 End Class