Átállás 17.2.3-ra

Related Work Items: #123

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