diff --git a/Nuvolar.Module.CSharp/Nuvolar.Module.CSharp.csproj b/Nuvolar.Module.CSharp/Nuvolar.Module.CSharp.csproj
index 3fd4852..56a5726 100644
--- a/Nuvolar.Module.CSharp/Nuvolar.Module.CSharp.csproj
+++ b/Nuvolar.Module.CSharp/Nuvolar.Module.CSharp.csproj
@@ -80,113 +80,116 @@
bin\x64\R64\
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
-
+
+
False
-
+
False
-
-
+
+
False
-
+
False
-
+
False
False
-
-
+
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
-
+
False
-
+
+
False
-
+
False
-
+
False
-
-
-
+
False
-
-
-
-
+
+
+
False
-
+
+
+
+
False
-
+
+ False
+
+
..\packages\MySql.Data.6.9.9\lib\net40\MySql.Data.dll
diff --git a/Nuvolar.Module.CSharp/Nuvolar.Module.CSharp.csproj.bak b/Nuvolar.Module.CSharp/Nuvolar.Module.CSharp.csproj.bak
new file mode 100644
index 0000000..3fd4852
--- /dev/null
+++ b/Nuvolar.Module.CSharp/Nuvolar.Module.CSharp.csproj.bak
@@ -0,0 +1,549 @@
+
+
+
+ Debug
+ AnyCPU
+ 9.0.30729
+ 2.0
+ {B9EF03FF-D05B-4FD4-A8E9-F90D819CB1DC}
+ Library
+ Properties
+ Nuvolar.Module
+ Nuvolar.Module.CSharp
+
+
+ 3.5
+
+
+ v4.0
+
+ publish\
+ true
+ Disk
+ false
+ Foreground
+ 7
+ Days
+ false
+ false
+ true
+ 0
+ 1.0.0.%2a
+ false
+ false
+ true
+ SAK
+ SAK
+ SAK
+ SAK
+
+
+ true
+ full
+ false
+ bin\Debug\
+ DEBUG;TRACE
+ prompt
+ 4
+ x86
+
+
+ none
+ true
+ bin\Release\
+ TRACE
+ prompt
+ 4
+ AnyCPU
+
+
+ true
+ bin\x64\Debug\
+ DEBUG;TRACE
+ full
+ x64
+ prompt
+ MinimumRecommendedRules.ruleset
+
+
+ bin\x64\Release\
+ TRACE
+ true
+ x64
+ prompt
+ MinimumRecommendedRules.ruleset
+
+
+ bin\R64\
+
+
+ bin\x64\R64\
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+ False
+
+
+ False
+
+
+
+ False
+
+
+ False
+
+
+ False
+ False
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+ False
+
+
+
+
+
+ False
+
+
+ False
+
+
+
+
+ ..\packages\MySql.Data.6.9.9\lib\net40\MySql.Data.dll
+ True
+
+
+ System
+ False
+
+
+ 3.5
+ False
+
+
+ System.Data
+ False
+
+
+
+ System.Windows.Forms
+ False
+
+
+ System.XML
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Component
+
+
+ PriceFixCustomers_VC.cs
+
+
+
+ Component
+
+
+ AuditTrailVCC.cs
+
+
+ Component
+
+
+ CustomersOrderVC.cs
+
+
+ Component
+
+
+ DeliveryNoteOut_VC.cs
+
+
+ Component
+
+
+ InvoiceHeader_VC.cs
+
+
+ Component
+
+
+ NavInvoiceReportVC.cs
+
+
+ Component
+
+
+ nopC_VC.cs
+
+
+ Component
+
+
+ OrderIn_VC.cs
+
+
+ Component
+
+
+ Products_VC.cs
+
+
+ Component
+
+
+ ReportV2_VC.cs
+
+
+ Component
+
+
+ StorageOut_VC.cs
+
+
+ Component
+
+
+ StoragePDACollectionHeader_VC.cs
+
+
+
+
+
+ Component
+
+
+ Module.cs
+
+
+
+
+ Component
+
+
+ Report_Invoice.cs
+
+
+
+
+ PriceFixCustomers_VC.cs
+
+
+ AuditTrailVCC.cs
+
+
+ CustomersOrderVC.cs
+
+
+ DeliveryNoteOut_VC.cs
+
+
+ InvoiceHeader_VC.cs
+
+
+ NavInvoiceReportVC.cs
+
+
+ nopC_VC.cs
+
+
+ OrderIn_VC.cs
+
+
+ Products_VC.cs
+
+
+ ReportV2_VC.cs
+
+
+ StorageOut_VC.cs
+
+
+ StoragePDACollectionHeader_VC.cs
+
+
+ Module.cs
+ Designer
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+
+
+
+
+
+ Report_Invoice.cs
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ False
+ .NET Framework 3.5 SP1 Client Profile
+ false
+
+
+ False
+ .NET Framework 3.5 SP1
+ true
+
+
+ False
+ Windows Installer 3.1
+ true
+
+
+
+
+ {60bf693f-7dea-4cf6-85bd-ea96829d79dd}
+ Nuvolar.Module
+
+
+
+
+
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Nuvolar.Module.CSharp/Properties/licenses.licx b/Nuvolar.Module.CSharp/Properties/licenses.licx
index 293aa7a..8b13789 100644
--- a/Nuvolar.Module.CSharp/Properties/licenses.licx
+++ b/Nuvolar.Module.CSharp/Properties/licenses.licx
@@ -1,3 +1 @@
-DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
\ No newline at end of file
diff --git a/Nuvolar.Module.CSharp/Properties/licenses.licx.bak b/Nuvolar.Module.CSharp/Properties/licenses.licx.bak
new file mode 100644
index 0000000..293aa7a
--- /dev/null
+++ b/Nuvolar.Module.CSharp/Properties/licenses.licx.bak
@@ -0,0 +1,3 @@
+DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
\ No newline at end of file
diff --git a/Nuvolar.Module.Web.CSharp/Nuvolar.Module.Web.CSharp.csproj b/Nuvolar.Module.Web.CSharp/Nuvolar.Module.Web.CSharp.csproj
index 0c983ff..9455e49 100644
--- a/Nuvolar.Module.Web.CSharp/Nuvolar.Module.Web.CSharp.csproj
+++ b/Nuvolar.Module.Web.CSharp/Nuvolar.Module.Web.CSharp.csproj
@@ -81,101 +81,104 @@
bin\x64\R64\
-
+
False
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
False
False
-
-
+
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
-
-
-
-
-
+
+ False
+
+
+
+
+
+
+
False
-
+
False
-
+
False
-
+
False
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
False
-
+
False
-
+
False
-
+
False
-
-
-
+
+
+
System
False
diff --git a/Nuvolar.Module.Web.CSharp/Nuvolar.Module.Web.CSharp.csproj.bak b/Nuvolar.Module.Web.CSharp/Nuvolar.Module.Web.CSharp.csproj.bak
new file mode 100644
index 0000000..0c983ff
--- /dev/null
+++ b/Nuvolar.Module.Web.CSharp/Nuvolar.Module.Web.CSharp.csproj.bak
@@ -0,0 +1,284 @@
+
+
+
+ Debug
+ AnyCPU
+ 9.0.30729
+ 2.0
+ {5F15837D-D1E5-44DC-92F0-4F2EBE9C3F8D}
+ Library
+ Properties
+ Nuvolar.Module.Web.CSharp
+ Nuvolar.Module.Web.CSharp
+ v4.0
+
+
+
+
+ 3.5
+
+ SAK
+ SAK
+ SAK
+ SAK
+
+
+ true
+ full
+ false
+ bin\Debug\
+ DEBUG;TRACE
+ prompt
+ 4
+ x86
+
+
+ none
+ true
+ bin\Release\
+ TRACE
+ prompt
+ 4
+
+
+ true
+ bin\EasyTest\
+ TRACE;DEBUG;EASYTEST
+ full
+ AnyCPU
+ prompt
+
+
+ true
+ bin\x64\Debug\
+ DEBUG;TRACE
+ full
+ x64
+ prompt
+ MinimumRecommendedRules.ruleset
+
+
+ bin\x64\Release\
+ TRACE
+ true
+ x64
+ prompt
+ MinimumRecommendedRules.ruleset
+
+
+ true
+ bin\x64\EasyTest\
+ TRACE;DEBUG;EASYTEST
+ full
+ x64
+ prompt
+ MinimumRecommendedRules.ruleset
+
+
+ bin\R64\
+
+
+ bin\x64\R64\
+
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ False
+ False
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+ False
+
+
+
+ False
+
+
+
+ False
+
+
+
+ False
+
+
+
+
+
+
+
+
+
+ False
+
+
+
+ False
+
+
+
+ False
+
+
+
+ False
+
+
+
+
+
+
+ System
+ False
+
+
+
+
+ System.Data
+ False
+
+
+ False
+
+
+
+
+
+
+
+ System.XML
+ False
+
+
+
+
+
+ Component
+
+
+ ActionDefaultPaintStyle_VC.cs
+
+
+ Component
+
+
+ APCSheet_VC.cs
+
+
+ Component
+
+
+ ASPxGridList_VC.cs
+
+
+ Component
+
+
+ Invoice_VC.cs
+
+
+
+ Component
+
+
+ Module.cs
+
+
+
+
+
+ Invoice_VC.cs
+
+
+
+ Designer
+ Module.cs
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+
+
+
+ {b87eaccf-fa6c-4043-aa73-800c77d8df11}
+ Nuvolar.Module.Web
+
+
+ {60bf693f-7dea-4cf6-85bd-ea96829d79dd}
+ Nuvolar.Module
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Nuvolar.Module.Web/Nuvolar.Module.Web.vbproj b/Nuvolar.Module.Web/Nuvolar.Module.Web.vbproj
index 3f4fcf9..aebbf33 100644
--- a/Nuvolar.Module.Web/Nuvolar.Module.Web.vbproj
+++ b/Nuvolar.Module.Web/Nuvolar.Module.Web.vbproj
@@ -129,118 +129,121 @@
AllRules.ruleset
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
-
-
+
+
+
False
-
+
False
-
+
False
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
False
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
-
+
False
-
+
+
False
-
+
False
-
-
-
-
-
-
-
-
+
False
-
+
+
+
+
+
+
+
+
False
-
+
False
-
+
False
-
-
-
-
-
+
False
-
+
+
+
+
+
False
-
+
False
-
-
-
-
-
-
-
-
-
-
+
+ False
+
+
+
+
+
+
+
+
+
+
+
False
diff --git a/Nuvolar.Module.Web/Nuvolar.Module.Web.vbproj.bak b/Nuvolar.Module.Web/Nuvolar.Module.Web.vbproj.bak
new file mode 100644
index 0000000..3f4fcf9
--- /dev/null
+++ b/Nuvolar.Module.Web/Nuvolar.Module.Web.vbproj.bak
@@ -0,0 +1,582 @@
+
+
+
+ Debug
+ AnyCPU
+ 9.0.30729
+ 2.0
+ {B87EACCF-FA6C-4043-AA73-800C77D8DF11}
+ Library
+ Nuvolar.Module.Web
+ Nuvolar.Module.Web
+ Windows
+ On
+ Binary
+ Off
+ On
+ SAK
+ SAK
+ SAK
+ SAK
+ v4.0
+
+
+ 4.0
+
+ true
+ http://localhost/Nuvolar.Module.Web/
+ true
+ Web
+ true
+ Foreground
+ 7
+ Days
+ false
+ false
+ true
+ 0
+ 1.0.0.%2a
+ false
+ true
+
+
+
+
+ true
+ full
+ true
+ true
+ bin\Debug\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ AllRules.ruleset
+ x86
+
+
+ None
+ false
+ true
+ true
+ bin\Release\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ AllRules.ruleset
+ AnyCPU
+
+
+ true
+ true
+ true
+ bin\EasyTest\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ AnyCPU
+ EASYTEST
+ AllRules.ruleset
+
+
+ true
+ bin\R64\
+
+
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ None
+ AnyCPU
+ AllRules.ruleset
+
+
+ true
+ true
+ true
+ bin\x64\Debug\
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ x64
+ AllRules.ruleset
+
+
+ true
+ bin\x64\Release\
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ None
+ x64
+ AllRules.ruleset
+
+
+ true
+ true
+ true
+ bin\x64\EasyTest\
+ EASYTEST
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ x64
+ AllRules.ruleset
+
+
+ true
+ bin\x64\R64\
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ None
+ x64
+ AllRules.ruleset
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+ False
+ ..\..\..\..\..\Program Files (x86)\GrapeCity\Spread.WinForms.5.dotNet35\v5.0.3518\Bin\FarPoint.Win.Spread.dll
+
+
+ False
+
+
+ False
+
+
+
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+ InstallationVC.vb
+
+
+ Component
+
+
+ SubcontractorVC.vb
+
+
+ Component
+
+
+ PCIGroupVC.vb
+
+
+ Component
+
+
+ HRPersonEventVC.vb
+
+
+ Component
+
+
+ OperationalLog_VC.vb
+
+
+ Component
+
+
+ BusinessDirectory_VC.vb
+
+
+ Component
+
+
+ AboutInfoCustomizationVC.vb
+
+
+ Component
+
+
+ ASPxGridViewVC.vb
+
+
+ Component
+
+
+ WorkSheet_VC.vb
+
+
+ Component
+
+
+ GLAccountsVC.vb
+
+
+ Component
+
+
+ GLBankVC.vb
+
+
+ Component
+
+
+ GLCassaVC.vb
+
+
+ Component
+
+
+ GLCompensationVC.vb
+
+
+ Component
+
+
+ GLMixedVC.vb
+
+
+ Component
+
+
+ DashboardViewerVC.vb
+
+
+ Component
+
+
+ HTMLEditorVC.vb
+
+
+ Component
+
+
+ ListViewProcessVC.vb
+
+
+ Component
+
+
+ LogonWC.vb
+
+
+ Component
+
+
+ OpenObjectController.vb
+
+
+ Component
+
+
+ ResetSettingsVC.vb
+
+
+ Component
+
+
+
+ DashboardViewerUserControl.vb
+
+
+ UserControl
+
+
+ MobileListDashboardVC.vb
+
+
+ Component
+
+
+
+ True
+ Application.myapp
+
+
+ True
+ True
+ Resources.resx
+
+
+ True
+ Settings.settings
+ True
+
+
+ QuickCreateVC.vb
+
+
+ Component
+
+
+ QuestionVC.vb
+
+
+ Component
+
+
+ MySchedule_VC.vb
+
+
+ Component
+
+
+
+ ViewModeEditVC.vb
+
+
+ Component
+
+
+ Component
+
+
+ WebGroupFooterViewController.vb
+
+
+ Component
+
+
+ WebModule.vb
+
+
+ Component
+
+
+
+
+
+ WorkSheet_VC.vb
+
+
+ InstallationVC.vb
+
+
+ SubcontractorVC.vb
+
+
+ GLAccountsVC.vb
+
+
+ PCIGroupVC.vb
+
+
+ OperationalLog_VC.vb
+
+
+ BusinessDirectory_VC.vb
+
+
+ ResetSettingsVC.vb
+
+
+ DashboardViewerUserControl.vb
+
+
+ MobileListDashboardVC.vb
+
+
+
+ VbMyResourcesResXFileCodeGenerator
+ Resources.Designer.vb
+ My.Resources
+ Designer
+
+
+ QuestionVC.vb
+
+
+ WebModule.vb
+
+
+
+
+ MyApplicationCodeGenerator
+ Application.Designer.vb
+
+
+ SettingsSingleFileGenerator
+ My
+ Settings.Designer.vb
+
+
+
+
+ Designer
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+
+
+
+ False
+ .NET Framework 3.5 SP1 Client Profile
+ false
+
+
+ False
+ .NET Framework 3.5 SP1
+ true
+
+
+ False
+ Windows Installer 3.1
+ true
+
+
+
+
+ {60bf693f-7dea-4cf6-85bd-ea96829d79dd}
+ Nuvolar.Module
+
+
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+
+
+
\ No newline at end of file
diff --git a/Nuvolar.Module.Win.CSharp/Controllers/NewCustomersFromVC.cs b/Nuvolar.Module.Win.CSharp/Controllers/NewCustomersFromVC.cs
index 25296df..bc4776c 100644
--- a/Nuvolar.Module.Win.CSharp/Controllers/NewCustomersFromVC.cs
+++ b/Nuvolar.Module.Win.CSharp/Controllers/NewCustomersFromVC.cs
@@ -56,7 +56,7 @@ namespace Nuvolar.Module.Controllers
}
private void aNewCustomersFrom_Execute(object sender, PopupWindowShowActionExecuteEventArgs e)
{
- Frame.GetController().Active.SetItemValue("", false);
+ Frame.GetController()?.Active.SetItemValue("", false);
NewCustomersFrom _NewCustomersFrom = (NewCustomersFrom)e.PopupWindow.View.SelectedObjects[0];
_onew = (XPObjectSpace)e.PopupWindow.View.ObjectSpace;
@@ -71,7 +71,7 @@ namespace Nuvolar.Module.Controllers
_onew.CommitChanges();
GeneralFunction.GLOBAL_HAS_Audit = true;
}
- Frame.GetController().Active.SetItemValue("", true);
+ Frame.GetController()?.Active.SetItemValue("", true);
}
private void aGenerateDEMOData_Customize(object sender, CustomizePopupWindowParamsEventArgs e)
{
diff --git a/Nuvolar.Module.Win.CSharp/Nuvolar.Module.Win.CSharp.csproj b/Nuvolar.Module.Win.CSharp/Nuvolar.Module.Win.CSharp.csproj
index df55d57..5fd85f1 100644
--- a/Nuvolar.Module.Win.CSharp/Nuvolar.Module.Win.CSharp.csproj
+++ b/Nuvolar.Module.Win.CSharp/Nuvolar.Module.Win.CSharp.csproj
@@ -75,32 +75,41 @@
MinimumRecommendedRules.ruleset
-
+
False
-
+
False
False
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
+
False
-
+
+ False
+
+
+ False
+
+
+ False
+
+
False
diff --git a/Nuvolar.Module.Win.CSharp/Nuvolar.Module.Win.CSharp.csproj.bak b/Nuvolar.Module.Win.CSharp/Nuvolar.Module.Win.CSharp.csproj.bak
new file mode 100644
index 0000000..df55d57
--- /dev/null
+++ b/Nuvolar.Module.Win.CSharp/Nuvolar.Module.Win.CSharp.csproj.bak
@@ -0,0 +1,210 @@
+
+
+
+ Debug
+ AnyCPU
+ 9.0.30729
+ 2.0
+ {FB66BBC7-4035-4288-B0F0-23AFBCBEEC5B}
+ Library
+ Properties
+ Nuvolar.Module.Win.CSharp
+ Nuvolar.Module.Win.CSharp
+ v4.0
+
+
+
+
+ 3.5
+
+ SAK
+ SAK
+ SAK
+ SAK
+
+
+ true
+ full
+ false
+ bin\Debug\
+ DEBUG;TRACE
+ prompt
+ 4
+ x86
+
+
+ none
+ true
+ bin\Release\
+ TRACE
+ prompt
+ 4
+
+
+ true
+ bin\EasyTest\
+ TRACE;DEBUG;EASYTEST
+ full
+ AnyCPU
+ prompt
+
+
+ true
+ bin\x64\Debug\
+ DEBUG;TRACE
+ full
+ x64
+ prompt
+ MinimumRecommendedRules.ruleset
+
+
+ bin\x64\Release\
+ TRACE
+ true
+ x64
+ prompt
+ MinimumRecommendedRules.ruleset
+
+
+ true
+ bin\x64\EasyTest\
+ TRACE;DEBUG;EASYTEST
+ full
+ x64
+ prompt
+ MinimumRecommendedRules.ruleset
+
+
+
+ False
+
+
+ False
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+ System
+ False
+
+
+ System.Data
+ False
+
+
+ False
+
+
+
+ System.XML
+ False
+
+
+
+
+ Component
+
+
+ GIROInfo_VC.cs
+
+
+ Component
+
+
+ NavigationItemVCC.cs
+
+
+ Component
+
+
+ NewCustomersFromVC.cs
+
+
+ Component
+
+
+ Transfer_VC.cs
+
+
+
+ Component
+
+
+ Module.cs
+
+
+
+
+
+ GIROInfo_VC.cs
+
+
+ NewCustomersFromVC.cs
+
+
+
+ Designer
+ Module.cs
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ {b9ef03ff-d05b-4fd4-a8e9-f90d819cb1dc}
+ Nuvolar.Module.CSharp
+
+
+ {98539dcf-bf11-4158-aec0-4b008a404a0e}
+ Nuvolar.Module.Win
+
+
+ {60bf693f-7dea-4cf6-85bd-ea96829d79dd}
+ Nuvolar.Module
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Nuvolar.Module.Win.CSharp/Properties/licenses.licx b/Nuvolar.Module.Win.CSharp/Properties/licenses.licx
index 889c745..8b13789 100644
--- a/Nuvolar.Module.Win.CSharp/Properties/licenses.licx
+++ b/Nuvolar.Module.Win.CSharp/Properties/licenses.licx
@@ -1,4 +1 @@
-DevExpress.ExpressApp.ModuleBase, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
\ No newline at end of file
diff --git a/Nuvolar.Module.Win.CSharp/Properties/licenses.licx.bak b/Nuvolar.Module.Win.CSharp/Properties/licenses.licx.bak
new file mode 100644
index 0000000..889c745
--- /dev/null
+++ b/Nuvolar.Module.Win.CSharp/Properties/licenses.licx.bak
@@ -0,0 +1,4 @@
+DevExpress.ExpressApp.ModuleBase, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
\ No newline at end of file
diff --git a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractsVC.vb b/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractsVC.vb
index ac3349d..d6f273a 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractsVC.vb
+++ b/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
diff --git a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb b/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb
index 1b022b1..46ed527 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb
+++ b/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
diff --git a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVCWIN.vb b/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVCWIN.vb
index d1c6c9e..b7ee4ac 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVCWIN.vb
+++ b/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
diff --git a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesCostRecordExcelVC.vb b/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesCostRecordExcelVC.vb
index ba77d67..f2f544e 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesCostRecordExcelVC.vb
+++ b/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()
diff --git a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb b/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb
index 677f4e7..a397110 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb
+++ b/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 beazonostani az egyedi azonost alapjn! {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
diff --git a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceVC.vb b/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceVC.vb
index 5d76da6..28a4a93 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceVC.vb
+++ b/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()
diff --git a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutVC.vb b/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutVC.vb
index e8cd726..a1e82df 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutVC.vb
+++ b/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()
diff --git a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrderVC.vb b/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrderVC.vb
index 7c4d533..a9d56aa 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrderVC.vb
+++ b/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
\ No newline at end of file
diff --git a/Nuvolar.Module.Win/BusinessObjects/Business/Product/ProductFinderVC.vb b/Nuvolar.Module.Win/BusinessObjects/Business/Product/ProductFinderVC.vb
index 8c3aa7c..bf73204 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Business/Product/ProductFinderVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Business/Product/ProductFinderVC.vb
@@ -42,7 +42,7 @@ Public Class ProductFinderVC
AddHandler currentView.ControlsCreated, AddressOf AutoFilterRowController_ControlsCreated
End If
If View.Id = "ProductFinder_DetailView" Then
- Frame.GetController(Of RefreshController).Active.SetItemValue("", False)
+ Frame.GetController(Of RefreshController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
diff --git a/Nuvolar.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.vb b/Nuvolar.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.vb
index a6bc264..f3bf460 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.vb
@@ -53,7 +53,7 @@ Public Class ProductsGant_VC
If View.Id = "ProductsGant_DetailView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Dim _DetailView As DetailView = TryCast(View, DetailView)
Dim _GanttContolViewItem As ViewItem = _DetailView.FindItem("G2antt")
@@ -63,10 +63,10 @@ Public Class ProductsGant_VC
End If
End If
If View.Id = "ProductsGant_ProductsGantRows_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()
@@ -77,14 +77,14 @@ Public Class ProductsGant_VC
RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
If View.Id = "ProductsGant_DetailView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "ProductsGant_ProductsGantRows_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
diff --git a/Nuvolar.Module.Win/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.vb b/Nuvolar.Module.Win/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.vb
index 449f780..1934264 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.vb
@@ -35,9 +35,9 @@ Public Class InventoryVC
AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork
If View.Id = "InventoryHeader_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)
AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing
AddHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing
@@ -62,9 +62,9 @@ Public Class InventoryVC
RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
If View.Id = "InventoryHeader_DetailView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
RemoveHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing
RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing
diff --git a/Nuvolar.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionsVC.vb b/Nuvolar.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionsVC.vb
index 0e18af2..bba8b3c 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionsVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionsVC.vb
@@ -56,26 +56,26 @@ Public Class StorageTransactionsVC
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit
End If
If View.Id = "StorageInHeader_StorageInRows_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 = "StorageOutHeader_StorageOutRows_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 = "StorageOutRows_ListView_Order" 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
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "StorageInHeader_StorageInRows_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
If View.Id = "StorageOutHeader_StorageOutRows_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
If View.Id = "StorageOutRows_ListView_Order" 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
End Class
diff --git a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb
index 14cf783..8ee2a1d 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb
@@ -37,7 +37,7 @@ Public Class GLAccountsVC
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = DevExpress.ExpressApp.SystemModule.ModificationsHandlingMode.AutoRollback
End If
If View.Id = "GLHeader_GLRows_ListView_Accounts" Then
- Frame.GetController(Of ToolbarVisibilityController).Active.SetItemValue("", False)
+ Frame.GetController(Of ToolbarVisibilityController)?.Active.SetItemValue("", False)
Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(False)
End If
AddHandler DoWork, AddressOf _WaitFormClass.DoWork
@@ -49,7 +49,7 @@ Public Class GLAccountsVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "GLHeader_GLRows_ListView_Accounts" Then
- Frame.GetController(Of ToolbarVisibilityController).Active.SetItemValue("", True)
+ Frame.GetController(Of ToolbarVisibilityController)?.Active.SetItemValue("", True)
Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(True)
End If
RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
@@ -72,13 +72,13 @@ Public Class GLAccountsVC
Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts)
If _GLAccounts Is Nothing Then
Else
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
If _GLAccounts.IsEditable = False 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
ElseIf View.SelectedObjects.Count > 1 Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
End Sub
diff --git a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.vb b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.vb
index aa54a80..abe6d53 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.vb
@@ -26,113 +26,113 @@ Public Class BankImportVC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "BankImportHeader_BankImportHeaderSum_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "BankImportHeaderSum_BankImportHeaderSumDetail_ListView" Then
- Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
- Frame.GetController(Of PrintingController)().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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "BankImportHeaderSum_GLRows_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "BankImportHeaderSum_BankImportNameParameters_ListView" Then
- Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
- Frame.GetController(Of PrintingController)().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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
+ 'Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "BankImportHeaderSum_BankImportPopup_ListView" Then
- Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False)
- Frame.GetController(Of PrintingController)().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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub Ondeactivated()
MyBase.OnActivated()
If View.Id = "BankImportHeader_BankImportHeaderSum_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "BankImportHeaderSum_BankImportHeaderSumDetail_ListView" Then
- Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "BankImportHeaderSum_GLRows_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "BankImportHeaderSum_BankImportNameParameters_ListView" Then
- Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
- 'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
+ 'Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "BankImportHeaderSum_BankImportPopup_ListView" Then
- Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
End Sub
Private Sub BankImportVC_ViewControlsCreated(sender As System.Object, e As System.EventArgs)
diff --git a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.vb b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.vb
index c1a8ecc..6a7d978 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.vb
@@ -35,11 +35,11 @@ Public Class BankVC
Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", False)
If View.Id Like "RegistryBankTransfer_ListView*" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of BankVC).aViewAttachments_Bank.Active.SetItemValue("", True)
Frame.GetController(Of BankVC).aViewRegistry.Active.SetItemValue("", True)
@@ -65,7 +65,7 @@ Public Class BankVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id Like "RegistryBankTransfer_ListView*" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
End If
If View.Id = "GLBankDivide_DetailView" Then
@@ -78,7 +78,7 @@ Public Class BankVC
Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", True)
End If
End Sub
#Region "Bank save" 'Banki kommunikáció
@@ -410,7 +410,7 @@ Public Class BankVC
Throw New UserFriendlyException("Csak azonos Saját cég esetén választható ez a funkció!")
End If
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
_BankParameterDEV = _ocur.FindObject(Of BankParameterDEV)(CriteriaOperator.Parse("CurrencyName.ShortName='HUF'"), True)
If _BankParameterDEV Is Nothing Then _BankParameterDEV = _ocur.CreateObject(Of BankParameterDEV)()
@@ -435,7 +435,7 @@ Public Class BankVC
_BankParameterDEV.Save()
_ocur.CommitChanges()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
Dim _BankParameterDEV_New As BankParameterDEV = _onew.GetObject(_BankParameterDEV)
e.View = Application.CreateDetailView(_onew, "BankParameterDEV_DetailView", False, _BankParameterDEV_New)
diff --git a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb
index b35fa1e..a7412e7 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb
@@ -68,13 +68,13 @@ Public Class GLBankVC
Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank)
If _GLBank Is Nothing Then
Else
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
If _GLBank.IsEditable = False 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
ElseIf View.SelectedObjects.Count > 1 Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
End Sub
diff --git a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb
index 6e1eeb2..14d0ec3 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb
@@ -76,13 +76,13 @@ Public Class GLCassaVC
Dim _GLCassa As GLCassa = TryCast(View.SelectedObjects(0), GLCassa)
If _GLCassa Is Nothing Then
Else
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
If _GLCassa.IsEditable = False 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
ElseIf View.SelectedObjects.Count > 1 Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
End Sub
diff --git a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.vb b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.vb
index 4715134..940f5eb 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.vb
@@ -27,14 +27,14 @@ Public Class GLCompensationVC
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit
End If
If View.Id = "GLHeader_GLRows_ListView_Compensation" Then
- Frame.GetController(Of ToolbarVisibilityController).Active.SetItemValue("", False)
+ Frame.GetController(Of ToolbarVisibilityController)?.Active.SetItemValue("", False)
Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "GLCompensation_DetailView" Or View.Id = "GLCompensation_GLRows_ListView" Then
- Frame.GetController(Of ToolbarVisibilityController)().Active.SetItemValue("", True)
+ Frame.GetController(Of ToolbarVisibilityController)()?.Active.SetItemValue("", True)
End If
If View.Id = "GLHeader_GLRows_ListView_Compensation" Then
Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(True)
@@ -87,13 +87,13 @@ Public Class GLCompensationVC
Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation)
If _GLCompensation Is Nothing Then
Else
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
If _GLCompensation.IsEditable = False 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
ElseIf View.SelectedObjects.Count > 1 Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
End Sub
diff --git a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.vb b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.vb
index 1e5ed37..56b1597 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.vb
@@ -102,13 +102,13 @@ Public Class GLMixedVC
Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed)
If _GLMixed Is Nothing Then
Else
- 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
+ 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
If _GLMixed.IsEditable = False 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
ElseIf View.SelectedObjects.Count > 1 Then
- 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+ 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
End Sub
@@ -117,10 +117,10 @@ Public Class GLMixedVC
Select Case TryCast(e.Column, GridColumn).FieldName
Case "NoteRows", "Controlling!", "CostHolder!", "JobNumberObjects!", "UniqueObjects!", "AmountHUF", "AmountDEV", "DebitChartOfAccounts!", "CreditChartOfAccounts!"
If nestedFrame IsNot Nothing Then
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
Dim parentView As View = nestedFrame.View
TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
parentView.ObjectSpace.Refresh()
End If
End Select
diff --git a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb
index ba321ca..d7eb5f7 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb
@@ -83,10 +83,10 @@ Public Class GLCardVC
Select Case TryCast(e.Column, GridColumn).FieldName
Case "Note_Rows"
If nestedFrame IsNot Nothing Then
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
Dim parentView As View = nestedFrame.View
TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
parentView.ObjectSpace.Refresh()
End If
End Select
diff --git a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.vb b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.vb
index dd87b31..eebb4cc 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.vb
@@ -239,7 +239,7 @@ Public Class GLReportRowsVC
e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck)
End Sub
Private Sub aGLReportRows_ChangeParam_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLReportRows_ChangeParam.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 _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck)
@@ -367,7 +367,7 @@ Public Class GLReportRowsVC
_ocur.CommitChanges()
_Waitformclass.FinalWork()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
View.Refresh()
End Sub
diff --git a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb
index a026c8c..3a17a8c 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb
@@ -36,8 +36,8 @@ Public Class VATReportVC
MyBase.OnActivated()
If View.Id = "VATReportCheckList_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
End If
_WaitFormClass = New WaitFormClass
@@ -49,8 +49,8 @@ Public Class VATReportVC
MyBase.OnDeactivated()
If View.Id = "VATReportCheckList_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If
RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
diff --git a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/GLResetVC.vb b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/GLResetVC.vb
index 9b20d86..bd2dc35 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/GLResetVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/GLResetVC.vb
@@ -26,11 +26,11 @@ Public Class GLResetVC
Frame.GetController(Of GLResetVC).aResetStorageTransactions.Active.SetItemValue("", False)
If View.Id = "GLReset_DetailView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
End If
End Sub
Private Sub aResetAll_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aResetAll.Execute
diff --git a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb
index 50fcbbd..192b140 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb
@@ -31,14 +31,14 @@ Public Class RegistryVC
Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit
If _RegistryHeader.IsEditable = False 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 If
If View.Id = "RegistryHeader_WorkFlowCollection_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 = "RegistryHeader_RegistryTasks_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 = "RegistryHeader_RegistryFileData_ListView" Then ' Iktatási rendszerben a FileData fül
Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController)().AddFromFileAction.Active.SetItemValue("", False)
@@ -46,26 +46,26 @@ Public Class RegistryVC
Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentController)().SaveToAction.Active.SetItemValue("", False)
End If
If View.Id = "RegistryHeader_RegistryRowsFinancial_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 = "RegistryHeader_RegistryRowsFinancialControlling_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 = "RegistryTasks_RegistryRowsFinancialControlling_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
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "RegistryHeader_RegistryRowsFinancial_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
If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_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
If View.Id = "RegistryTasks_RegistryRowsFinancialControlling_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
diff --git a/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb b/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb
index 24a6d3e..953f24d 100644
--- a/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb
@@ -60,7 +60,7 @@ Public Class ContactsVC
End Sub
Private Sub aContacts_SysncToOutlook_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aContacts_SysncToOutlook.Execute
Try
- 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 = View.ObjectSpace
Dim _NeedCommitChanges As Boolean = False
Dim _Contacts_SysncOutlook As Contacts_SysncOutlook = TryCast(e.PopupWindow.View.SelectedObjects(0), Contacts_SysncOutlook)
@@ -207,7 +207,7 @@ Public Class ContactsVC
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
Finally
_Waitformclass.FinalWork
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Try
End Sub
Private Sub aContacts_SysncFromOutlook_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aContacts_SysncFromOutlook.CustomizePopupWindowParams
@@ -230,7 +230,7 @@ Public Class ContactsVC
End Sub
Private Sub aContacts_SysncFromOutlook_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aContacts_SysncFromOutlook.Execute
Try
- 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 = View.ObjectSpace
Dim _NeedCommitChanges As Boolean = False
Dim _Contacts_SysncOutlook As Contacts_SysncOutlook = TryCast(e.PopupWindow.View.SelectedObjects(0), Contacts_SysncOutlook)
@@ -331,7 +331,7 @@ Public Class ContactsVC
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
Finally
_Waitformclass.FinalWork
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Try
End Sub
End Class
diff --git a/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.vb b/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.vb
index b03e311..0687f57 100644
--- a/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.vb
@@ -39,8 +39,8 @@ Public Class Dashboard_VC
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Dim _DetailView As DetailView = TryCast(View, DetailView)
Dim _DashboardViewer_ViewItem As ViewItem = _DetailView.FindItem("DashboardViewer")
@@ -52,8 +52,8 @@ Public Class Dashboard_VC
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Dim _DetailView As DetailView = TryCast(View, DetailView)
Dim _DashboardDesigner_ViewItem As ViewItem = _DetailView.FindItem("DashboardDesigner")
@@ -70,8 +70,8 @@ Public Class Dashboard_VC
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
Private Sub DashboardViewer_ViewItem_ControlCreated(sender As Object, e As EventArgs)
diff --git a/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEmailVC.vb b/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEmailVC.vb
index d5ab5ed..d2f66a3 100644
--- a/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEmailVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEmailVC.vb
@@ -48,22 +48,22 @@ Public Class OutlookEmailVC
Frame.GetController(Of OutlookEmailVC).aAttachFile.Active.SetItemValue("", False)
Frame.GetController(Of OutlookEmailVC).aViewAttachedFile.Active.SetItemValue("", False)
If View.Id = "OutlookEMailIn_ListView" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- 'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of ObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ 'Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ObjectViewController)()?.Active.SetItemValue("", False)
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
End If
If View.Id = "OutlookEMailIn_DetailView" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of ObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of ModificationsController)().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 ObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If
If View.Id = "OutlookEMail_DetailView" Then
Dim _OutlookEMail As OutlookEMail = TryCast(View.SelectedObjects(0), OutlookEMail)
@@ -80,8 +80,8 @@ Public Class OutlookEmailVC
End If
If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Or _
View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of OutlookEmailVC).aAttachFile.Active.SetItemValue("", True)
Frame.GetController(Of OutlookEmailVC).aViewAttachedFile.Active.SetItemValue("", True)
End If
@@ -89,15 +89,15 @@ Public Class OutlookEmailVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "OutlookEMailIn_ListView" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of ObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ObjectViewController)()?.Active.SetItemValue("", True)
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
End If
If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Then
- 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.ListViewProcessCurrentObjectController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If
If View.Id = "OutlookEMail_DetailView" Then
Dim _OutlookEMail As OutlookEMail = TryCast(View.SelectedObjects(0), OutlookEMail)
@@ -114,8 +114,8 @@ Public Class OutlookEmailVC
End If
If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Or _
View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
End If
End Sub
Protected Overrides Sub OnViewControlsCreated()
diff --git a/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.vb b/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.vb
index d35f8c5..860b062 100644
--- a/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.vb
@@ -50,8 +50,8 @@ Public Class BusinessDirectory_VC
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Dim _DetailView As DetailView = TryCast(View, DetailView)
Dim _SpreadXML_ViewItem As ViewItem = _DetailView.FindItem("SpreadXML")
diff --git a/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditorVC.vb b/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditorVC.vb
index 9b8abcf..d5132ec 100644
--- a/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditorVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditorVC.vb
@@ -43,8 +43,8 @@ Public Class CustomRoleEditorVC
''____________Tovbbgondolsig letltva!__________________________<<<
If View.Id = "PermissionMatrix_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)
AddHandler View.SelectionChanged, AddressOf PermissionMatrix_selection_changed
End If
@@ -54,8 +54,8 @@ Public Class CustomRoleEditorVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "PermissionMatrix_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)
RemoveHandler View.SelectionChanged, AddressOf PermissionMatrix_selection_changed
End If
diff --git a/Nuvolar.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImportsVC.vb b/Nuvolar.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImportsVC.vb
index 9045ae3..38f8609 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImportsVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImportsVC.vb
@@ -34,12 +34,12 @@ Public Class SQLImportsVC
View.Id = "SQLImports_LiquidAssets_Compensation_ListView" Or _
View.Id = "SQLImports_LiquidAssets_SpecTran_ListView" Or _
View.Id = "SQLImports_BankInformation_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).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 LinkUnlinkController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
@@ -48,17 +48,17 @@ Public Class SQLImportsVC
View.Id = "SQLImports_LiquidAssets_Compensation_ListView" Or _
View.Id = "SQLImports_LiquidAssets_SpecTran_ListView" Or _
View.Id = "SQLImports_BankInformation_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
- Frame.GetController(Of ModificationsController).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 CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
End If
End Sub
Private Sub Import_Customers_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Customers.Execute
'-- Ügyfelek és a hozzátartozó kapcsolatok importálása
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
@@ -279,7 +279,7 @@ Public Class SQLImportsVC
End While
End If
_WaitFormClass.FinalWork()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub Import_Country_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Country.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
@@ -501,7 +501,7 @@ Public Class SQLImportsVC
_WaitFormClass.Finalwork()
End Sub
Private Sub Import_Storage_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Storage.Execute
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
'-- Raktárkészlet importálása
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer)
@@ -697,7 +697,7 @@ Public Class SQLImportsVC
'End Try
'_WaitFormClass.Finalwork
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub Import_Procucts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Procucts.Execute
'-- Terméktörzs importálása
@@ -1028,7 +1028,7 @@ Public Class SQLImportsVC
Dim _CustomersGLParameters As CustomersGLParameters
Dim _ChartOfAccounts As ChartOfAccounts
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
_Maximum = 0
Try
@@ -1085,7 +1085,7 @@ Public Class SQLImportsVC
MsgBox(ex.Message)
End Try
_WaitFormClass.Finalwork()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub Import_LiquidAssets_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_LiquidAssets.Execute
'-- Pénzeszközök importálása
@@ -1110,7 +1110,7 @@ Public Class SQLImportsVC
Dim _LiquidAssets As LiquidAssets
Dim _CurrencyName As CurrencyName
Dim _BankInformation As BankInformation
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
_Maximum = 0
Try
@@ -1236,7 +1236,7 @@ Public Class SQLImportsVC
MsgBox(ex.Message)
End Try
_WaitFormClass.Finalwork()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub Import_VAT_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_VAT.Execute
'-- ÁFA kódok importálása
diff --git a/Nuvolar.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImportVC.vb b/Nuvolar.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImportVC.vb
index 0bc80b5..4d9c534 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImportVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImportVC.vb
@@ -40,7 +40,7 @@ Partial Public Class SpreadImportVC
AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf SpreadImport_DetailView_SaveAction_Executing
AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.Executing, AddressOf SpreadImport_DetailView_SaveAction_Executing
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
End If
diff --git a/Nuvolar.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImportsVC.vb b/Nuvolar.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImportsVC.vb
index 3634d81..ea457ab 100644
--- a/Nuvolar.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImportsVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImportsVC.vb
@@ -26,11 +26,11 @@ Public Class XLSImportsVC
End Sub
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
- 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
'--- XLSX file-ból történõ importálások-----------------------------------------------------
Private Sub Import_XLS_Customers_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_Customers.Execute
@@ -44,7 +44,7 @@ Public Class XLSImportsVC
Dim _Address As Address
Dim _Customers As Customers
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
_cs = "Provider=Microsoft.ACE.OLEDB.12.0;"
_cs += "Data Source=Excels\XLSImports.xlsx;"
_cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;"""
@@ -328,7 +328,7 @@ Public Class XLSImportsVC
MsgBox(ex.Message)
End Try
_WaitFormClass.Finalwork()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub Import_XLS_Contacts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_Contacts.Execute
'--- Kapcsolatok importálása XLSX file-ból----------------------------------------------
@@ -870,7 +870,7 @@ Public Class XLSImportsVC
_WaitFormClass.Finalwork()
End Sub
Private Sub Import_XLS_GLAccounts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_GLAccounts.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 _uow As UnitOfWork = New UnitOfWork(_Ocur.Session.DataLayer)
Dim _cs As String
@@ -997,7 +997,7 @@ Public Class XLSImportsVC
MsgBox(ex.Message)
End Try
_WaitFormClass.Finalwork()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub Import_XLS_Services_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_Services.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
diff --git a/Nuvolar.Module.Win/BusinessObjects/PH Imports/CornerVC.vb b/Nuvolar.Module.Win/BusinessObjects/PH Imports/CornerVC.vb
index e13ab73..729d498 100644
--- a/Nuvolar.Module.Win/BusinessObjects/PH Imports/CornerVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/PH Imports/CornerVC.vb
@@ -31,49 +31,49 @@ Public Class CornerVC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "Corner_InvoiceNameParameters_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
End If
If View.Id = "Corner_CustomerNameParameters_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
End If
If View.Id = "Corner_GLAccounts_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
- Frame.GetController(Of PrintingController)().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.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "GLHeader_GLRows_ListView_Accounts" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
End If
If View.Id = "Corner_DetailView" Then
AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing
@@ -84,47 +84,47 @@ Public Class CornerVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "Corner_InvoiceNameParameters_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", True)
End If
If View.Id = "Corner_CustomerNameParameters_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", True)
End If
If View.Id = "Corner_GLAccounts_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True)
- Frame.GetController(Of PrintingController)().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.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "GLHeader_GLRows_ListView_Accounts" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
End If
If View.Id = "Corner_CustomerNameParameters_ListView" Then ' Az inline edit beállítása.
Dim _ListView As ListView = TryCast(View, ListView)
diff --git a/Nuvolar.Module.Win/BusinessObjects/PH Imports/VivaldiVC.vb b/Nuvolar.Module.Win/BusinessObjects/PH Imports/VivaldiVC.vb
index 4a79651..052d3e6 100644
--- a/Nuvolar.Module.Win/BusinessObjects/PH Imports/VivaldiVC.vb
+++ b/Nuvolar.Module.Win/BusinessObjects/PH Imports/VivaldiVC.vb
@@ -34,49 +34,49 @@ Public Class VivaldiVC
_WaitFormClass = New WaitFormClass
If View.Id = "Vivaldi_InvoiceNameParameters_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
End If
If View.Id = "Vivaldi_CustomerNameParameters_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
End If
If View.Id = "Vivaldi_GLAccounts_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
- Frame.GetController(Of PrintingController)().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.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "GLHeader_GLRows_ListView_Accounts" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
End If
If View.Id = "Vivaldi_DetailView" Then
AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing
@@ -87,47 +87,47 @@ Public Class VivaldiVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "Vivaldi_InvoiceNameParameters_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", True)
End If
If View.Id = "Vivaldi_CustomerNameParameters_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", True)
End If
If View.Id = "Vivaldi_GLAccounts_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True)
- Frame.GetController(Of PrintingController)().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.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "GLHeader_GLRows_ListView_Accounts" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True)
- Frame.GetController(Of PrintingController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
End If
End Sub
Protected Overrides Sub OnViewControlsCreated()
@@ -172,7 +172,7 @@ Public Class VivaldiVC
End While
End Using
Try
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
GLOBAL_HAS_Audit = False
Using parser As New TextFieldParser(New StringReader(_StrBuffer))
@@ -320,7 +320,7 @@ Public Class VivaldiVC
MsgBox(ex.Message, MsgBoxStyle.Critical)
Finally
GLOBAL_HAS_Audit = True
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Try
End Sub
@@ -356,7 +356,7 @@ Public Class VivaldiVC
End While
End Using
Try
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
GLOBAL_HAS_Audit = False
Using parser As New TextFieldParser(New StringReader(_StrBuffer))
@@ -386,7 +386,7 @@ Public Class VivaldiVC
MsgBox(ex.Message, MsgBoxStyle.Critical)
Finally
GLOBAL_HAS_Audit = True
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Try
End Sub
diff --git a/Nuvolar.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCRM_VC.vb b/Nuvolar.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCRM_VC.vb
index 03f7305..af2d76d 100644
--- a/Nuvolar.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCRM_VC.vb
+++ b/Nuvolar.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCRM_VC.vb
@@ -85,8 +85,8 @@ Public Class DragAndDropCRMOutlookCRM_VC
AddHandler View.SelectionChanged, AddressOf CRM_Opportunities_ListView_CRM_Outlook_SelectionChanged
End If
If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController)?.Active.SetItemValue("", False)
Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView)
_ToDragGridViewCRM_LeadsDocumentation = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView
diff --git a/Nuvolar.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCustomers_VC.vb b/Nuvolar.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCustomers_VC.vb
index ad1b9ea..8777e13 100644
--- a/Nuvolar.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCustomers_VC.vb
+++ b/Nuvolar.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCustomers_VC.vb
@@ -52,7 +52,7 @@ Public Class DragAndDropCRMOutlookCustomers_VC
MyBase.OnViewControlsCreated()
If View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of Nuvolar.Module.Win.OutlookEmailVC).aAttachFile.Active.SetItemValue("", False)
Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView)
_DoDragGridViewOutlookEMailAttachments = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView
@@ -76,10 +76,10 @@ Public Class DragAndDropCRMOutlookCustomers_VC
End If
If View.Id = "Customers_CustomersFileAttachment_ListView" Then
- 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.FileAttachments.Win.FileAttachmentListViewController).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.FileAttachments.Win.FileAttachmentListViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", False)
Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView)
_ToDragGridViewCustomersFileAttachment = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView
diff --git a/Nuvolar.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookProducts_VC.vb b/Nuvolar.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookProducts_VC.vb
index 9bc6029..a5dacf6 100644
--- a/Nuvolar.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookProducts_VC.vb
+++ b/Nuvolar.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookProducts_VC.vb
@@ -72,9 +72,9 @@ Public Class DragAndDropCRMOutlookProducts_VC
AddHandler _ToDragGridControlProducts.DragDrop, AddressOf ToDragGridControlProducts_DragDrop
End If
If View.Id = "Products_ProductsDocumentations_ListView" Then
- 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.FileAttachments.Win.FileAttachmentListViewController).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.FileAttachments.Win.FileAttachmentListViewController)?.Active.SetItemValue("", False)
Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView)
_ToDragGridViewProductsDocumentations = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView
@@ -84,9 +84,9 @@ Public Class DragAndDropCRMOutlookProducts_VC
AddHandler _ToDragGridControlProductsDocumentations.DragDrop, AddressOf ToDragGridControlProductsDocumentations_DragDrop
End If
If View.Id = "Products_CustomersOrderPriority_ListView_CRM_Outlook" Then
- 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.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.LinkUnlinkController)?.Active.SetItemValue("", False)
Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView)
_ToDragGridViewCustomersOrderPriority = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView
@@ -96,10 +96,10 @@ Public Class DragAndDropCRMOutlookProducts_VC
AddHandler _ToDragGridControlCustomersOrderPriority.DragDrop, AddressOf ToDragGridControlCustomersOrderPrioritys_DragDrop
End If
If View.Id = "CustomersFileAttachment_ListView" Then
- 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.LinkUnlinkController).Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController).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.LinkUnlinkController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController)?.Active.SetItemValue("", False)
Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView)
_ToDragGridViewCustomersFileAttachment = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView
diff --git a/Nuvolar.Module.Win/Controllers/InLineEditVC.vb b/Nuvolar.Module.Win/Controllers/InLineEditVC.vb
index dd0e26d..5910078 100644
--- a/Nuvolar.Module.Win/Controllers/InLineEditVC.vb
+++ b/Nuvolar.Module.Win/Controllers/InLineEditVC.vb
@@ -474,17 +474,17 @@ Public Class InLineEditVC
If modelColumn Is Nothing Then Exit Sub
If nestedFrame IsNot Nothing Then
If modelColumn.InLineEditAutoCommit Then
- Frame.GetController(Of PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of PersistenceValidationController)()?.Active.SetItemValue("", False)
Dim parentView As View = nestedFrame.View
TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges()
- Frame.GetController(Of PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of PersistenceValidationController)()?.Active.SetItemValue("", True)
parentView.ObjectSpace.Refresh()
End If
ElseIf Frame IsNot Nothing Then
If modelColumn.InLineEditAutoCommit Then
- Frame.GetController(Of PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of PersistenceValidationController)()?.Active.SetItemValue("", False)
TryCast(View.ObjectSpace, Xpo.XPObjectSpace).CommitChanges()
- Frame.GetController(Of PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of PersistenceValidationController)()?.Active.SetItemValue("", True)
View.ObjectSpace.Refresh()
End If
End If
@@ -528,15 +528,15 @@ Public Class InLineEditVC
End If
If nestedFrame IsNot Nothing Then
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
Dim parentView As View = nestedFrame.View
TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
'parentView.ObjectSpace.Refresh()
ElseIf Frame IsNot Nothing Then
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
TryCast(View.ObjectSpace, Xpo.XPObjectSpace).CommitChanges()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
'View.ObjectSpace.Refresh()
End If
diff --git a/Nuvolar.Module.Win/My Project/licenses.licx b/Nuvolar.Module.Win/My Project/licenses.licx
index 716a0a4..e69de29 100644
--- a/Nuvolar.Module.Win/My Project/licenses.licx
+++ b/Nuvolar.Module.Win/My Project/licenses.licx
@@ -1,2 +0,0 @@
-DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
diff --git a/Nuvolar.Module.Win/My Project/licenses.licx.bak b/Nuvolar.Module.Win/My Project/licenses.licx.bak
new file mode 100644
index 0000000..716a0a4
--- /dev/null
+++ b/Nuvolar.Module.Win/My Project/licenses.licx.bak
@@ -0,0 +1,2 @@
+DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
diff --git a/Nuvolar.Module.Win/Nuvolar.Module.Win.vbproj b/Nuvolar.Module.Win/Nuvolar.Module.Win.vbproj
index d90ba99..76d21f3 100644
--- a/Nuvolar.Module.Win/Nuvolar.Module.Win.vbproj
+++ b/Nuvolar.Module.Win/Nuvolar.Module.Win.vbproj
@@ -150,115 +150,118 @@
bin\x64\R64\
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
False
-
-
-
+
+
+
False
-
+
False
-
+
False
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
False
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
False
-
+
False
-
+
False
-
+
False
-
+
+ False
+
+
False
False
-
-
+
+
False
-
+
False
-
+
False
-
-
-
-
+
+
+
+
False
-
+
False
-
-
-
-
-
-
+
+
+
+
+
+
False
-
+
False
-
+
False
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
False
..\..\..\..\..\..\Program Files (x86)\Exontrol\ExG2antt.NET\Sample\exontrol.exg2antt.dll
diff --git a/Nuvolar.Module.Win/Nuvolar.Module.Win.vbproj.bak b/Nuvolar.Module.Win/Nuvolar.Module.Win.vbproj.bak
new file mode 100644
index 0000000..d90ba99
--- /dev/null
+++ b/Nuvolar.Module.Win/Nuvolar.Module.Win.vbproj.bak
@@ -0,0 +1,1824 @@
+
+
+
+ Debug
+ AnyCPU
+ 9.0.30729
+ 2.0
+ {98539DCF-BF11-4158-AEC0-4B008A404A0E}
+ Library
+ Nuvolar.Module.Win
+ Nuvolar.Module.Win
+ Windows
+ On
+ Binary
+ Off
+ On
+ SAK
+ SAK
+ SAK
+ SAK
+ v4.0
+
+
+ 4.0
+
+ true
+
+
+ http://localhost/SISBusiness.Module.Win/
+ true
+ Web
+ true
+ Foreground
+ 7
+ Days
+ false
+ false
+ true
+ 0
+ 1.0.0.%2a
+ false
+ true
+
+
+ true
+ full
+ true
+ true
+ bin\Debug\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ AllRules.ruleset
+ x86
+ false
+ false
+
+
+ None
+ false
+ true
+ true
+ bin\Release\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ AllRules.ruleset
+ x86
+ false
+ false
+
+
+ true
+ true
+ true
+ bin\EasyTest\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ AnyCPU
+ EASYTEST
+ AllRules.ruleset
+ false
+
+
+ true
+ bin\Release 64bit\
+
+
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ pdbonly
+ AnyCPU
+ bin\Release\SISBusiness.Module.Win.dll.CodeAnalysisLog.xml
+ true
+ GlobalSuppressions.vb
+ AllRules.ruleset
+ ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets
+ true
+ ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules
+ true
+ false
+
+
+ true
+ true
+ true
+ bin\x64\Debug\
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ x64
+ false
+ AllRules.ruleset
+
+
+ true
+ bin\x64\Release\
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ None
+ x64
+ false
+ AllRules.ruleset
+
+
+ true
+ true
+ true
+ bin\x64\EasyTest\
+ EASYTEST
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ x64
+ AllRules.ruleset
+
+
+ true
+ bin\x64\Release 64bit\
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ pdbonly
+ x64
+ AllRules.ruleset
+
+
+ bin\R64\
+
+
+ bin\x64\R64\
+
+
+
+
+
+
+
+
+
+
+ False
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+ False
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ False
+ ..\..\..\..\..\..\Program Files (x86)\Exontrol\ExG2antt.NET\Sample\exontrol.exg2antt.dll
+
+
+ False
+ ..\..\..\..\..\..\Program Files (x86)\Exontrol\ExG2antt.NET\Sample\exontrol.exprint.dll
+
+
+ False
+ ..\..\..\..\..\Program Files (x86)\GrapeCity\Spread.WinForms.5.dotNet35\v5.0.3518\Bin\FarPoint.Excel.dll
+
+
+ False
+ ..\..\..\..\..\Program Files (x86)\GrapeCity\Spread.WinForms.5.dotNet35\v5.0.3518\Bin\FarPoint.PDF.dll
+
+
+ False
+ ..\..\..\..\..\Program Files (x86)\GrapeCity\Spread.WinForms.5.dotNet35\v5.0.3518\Bin\FarPoint.Win.dll
+
+
+ False
+ ..\..\..\..\..\Program Files (x86)\GrapeCity\Spread.WinForms.5.dotNet35\v5.0.3518\Bin\FarPoint.Win.Spread.dll
+
+
+ False
+ ..\..\..\..\..\Program Files (x86)\GrapeCity\Spread.WinForms.5.dotNet35\v5.0.3518\Bin\FarPoint.Win.Spread.Design.dll
+
+
+ ..\..\..\..\..\..\..\Program Files (x86)\Gnostice\PDFOne.NET\Bin\Gnostice.PDFOne.dll
+
+
+ ..\packages\Microsoft.Office.Interop.Outlook.14.0.0\lib\net40\Microsoft.Office.Interop.Outlook.dll
+ True
+
+
+ ..\packages\Npgsql.2.0.12.1\lib\net40\Mono.Security.dll
+ True
+
+
+ ..\packages\MySql.Data.6.9.8\lib\net40\MySql.Data.dll
+ True
+
+
+ ..\packages\Npgsql.2.0.12.1\lib\net40\Npgsql.dll
+ True
+
+
+ ..\packages\Npgsql.2.0.12.1\lib\net40\policy.2.0.Npgsql.dll
+ True
+
+
+ System
+ False
+
+
+
+ System.Data
+ False
+
+
+
+ System.Drawing
+ False
+
+
+
+
+ System.Windows.Forms
+ False
+
+
+ System.XML
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ APCSheetReviewHeader_VC.vb
+
+
+ Component
+
+
+ APCSheetVC.vb
+
+
+ Component
+
+
+ IntrastatHeader_VC.vb
+
+
+ Component
+
+
+ CRMEstateStatisticsVC.vb
+
+
+ Component
+
+
+ ImmovablesVC.vb
+
+
+ Component
+
+
+
+ InvoiceFactoringVC.vb
+
+
+ Component
+
+
+ InvoiceRowsPivotVC.vb
+
+
+ Component
+
+
+ InvoiceRowVC.vb
+
+
+ Component
+
+
+ OrderInRowsVC.vb
+
+
+ Component
+
+
+ OrderInVC.vb
+
+
+ Component
+
+
+ OrderOutStockVC.vb
+
+
+ Component
+
+
+ CRM_LeadsVC.vb
+
+
+ Component
+
+
+ CRM_OpportunitiesVC.vb
+
+
+ Component
+
+
+ PricingActionVC.vb
+
+
+ Component
+
+
+ ProductSelect_VC.vb
+
+
+ Component
+
+
+ ProductsGant_VC.vb
+
+
+ Component
+
+
+ Products_VC.vb
+
+
+ Component
+
+
+ ProjectVC.vb
+
+
+ Component
+
+
+ ServiceFinderVC.vb
+
+
+ Component
+
+
+ InventoryVC.vb
+
+
+ Component
+
+
+ StorageComputedVC.vb
+
+
+ Component
+
+
+ StorageDateVC.vb
+
+
+ Component
+
+
+ StorageOut_VC.vb
+
+
+ Component
+
+
+ StorageTransactionIn_VC.vb
+
+
+ Component
+
+
+ StorageMoveEventsVC.vb
+
+
+ Component
+
+
+ GLBaseVC.vb
+
+
+ Component
+
+
+ FixedAssetsCardVC.vb
+
+
+ Component
+
+
+ FixedAssetsQueryVC.vb
+
+
+ Component
+
+
+ GIROInfo_VC.vb
+
+
+ Component
+
+
+ GLOpenCloseVC.vb
+
+
+ Component
+
+
+
+ GLReportCashflowVC.vb
+
+
+ Component
+
+
+ GLReportRowsWC.vb
+
+
+ Component
+
+
+ PCICheckerVC.vb
+
+
+ Component
+
+
+ PCICheckVC.vb
+
+
+ Component
+
+
+ PCIGroupAgingVC.vb
+
+
+ Component
+
+
+ SpecTranRevaluationVC.vb
+
+
+ Component
+
+
+
+ RegistryTaskVC.vb
+
+
+ Component
+
+
+ AlertWC.vb
+
+
+ Component
+
+
+ ContactsVC.vb
+
+
+ Component
+
+
+ ContractTemplate_VC.vb
+
+
+ Component
+
+
+ Dashboard_VC.vb
+
+
+ Component
+
+
+ OutlookReminder_VC.vb
+
+
+ Component
+
+
+ HRPersonEventVC.vb
+
+
+ Component
+
+
+ HRPerson_VC.vb
+
+
+ Component
+
+
+ BusinessDirectory_VC.vb
+
+
+ Component
+
+
+
+ RTFDocumentsHandlerVC.vb
+
+
+ Component
+
+
+
+ DBCExportVC.vb
+
+
+ Component
+
+
+
+
+ ImportsForm2.vb
+
+
+ Form
+
+
+
+ SpreadImportVC.vb
+
+
+ Component
+
+
+
+
+ XLSExportImportVC.vb
+
+
+ Component
+
+
+ SISChatVC.vb
+
+
+ Component
+
+
+ SISChatWC.vb
+
+
+ Component
+
+
+ SystemTool_VC.vb
+
+
+ Component
+
+
+ AnonymVC.vb
+
+
+ Component
+
+
+ AutoFilterRowControllerVC.vb
+
+
+ Component
+
+
+ DeliveryNoteInVC.vb
+
+
+ Component
+
+
+ DeliveryNoteOutVC.vb
+
+
+ Component
+
+
+ CRMEstateVC.vb
+
+
+ Component
+
+
+ InsertGridToRTF_VC.vb
+
+
+ Component
+
+
+ ImmovablesPriceListVCWIN.vb
+
+
+ Component
+
+
+ ImmovablesCostRecordExcelVC.vb
+
+
+ Component
+
+
+
+ OfferInHeaderVC.vb
+
+
+ Component
+
+
+ OfferInRowsVC.vb
+
+
+ Component
+
+
+ OfferOutHeaderVC.vb
+
+
+ Component
+
+
+ OfferOutRowsVC.vb
+
+
+ Component
+
+
+ OffersOutPrintVC.vb
+
+
+ Component
+
+
+ CertificateOfContractVC.vb
+
+
+ Component
+
+
+ ContractRowsFreeVC.vb
+
+
+ Component
+
+
+ ProductFinderVC.vb
+
+
+ Component
+
+
+ InventoryVC_ListView.vb
+
+
+ Component
+
+
+ StorageIn_VC.vb
+
+
+ Component
+
+
+ Subcontractor_VC.vb
+
+
+ Component
+
+
+ WorksheetVC.vb
+
+
+ Component
+
+
+ ContractRowsVC.vb
+
+
+ Component
+
+
+ Worksheet_VC_ListView.vb
+
+
+ Component
+
+
+ CentralListViewVC.vb
+
+
+ Component
+
+
+ DragAndDropBusinessDirectory_VC.vb
+
+
+ Component
+
+
+ DragAndDropCRMOutlookCRM_VC.vb
+
+
+ Component
+
+
+ DragAndDropCRMOutlookCustomers_VC.vb
+
+
+ Component
+
+
+ DragAndDropCRMOutlookProducts_VC.vb
+
+
+ Component
+
+
+ SplitterVC.vb
+
+
+ Component
+
+
+
+
+
+ FileDataProcess_VC.vb
+
+
+ Component
+
+
+
+ ListViewModelManagerVC.vb
+
+
+ Component
+
+
+ ShowFilterDialogController.vb
+
+
+ Component
+
+
+ CountListView.vb
+
+
+ Component
+
+
+ DisableGridColumnsVC.vb
+
+
+ Component
+
+
+ ViewFilterContainerVC.vb
+
+
+ Component
+
+
+ LockObjectBeforeEditVC.vb
+
+
+ Component
+
+
+ RTFCopy_VC.vb
+
+
+ Component
+
+
+
+ DashboardDesignerUserControl.vb
+
+
+ UserControl
+
+
+
+ DashboardViewerUserControl.vb
+
+
+ UserControl
+
+
+
+ GanttChartUserControl.vb
+
+
+ UserControl
+
+
+
+ G2anttUserControl.vb
+
+
+ UserControl
+
+
+
+
+ ProductsDetailUserControl.vb
+
+
+ UserControl
+
+
+
+
+ IEUserControl.vb
+
+
+ UserControl
+
+
+
+ FileAttachementsVC.vb
+
+
+ Component
+
+
+
+ GLRowsDivideVC.vb
+
+
+ Component
+
+
+ LiquidAssetsBallanceVC.vb
+
+
+ Component
+
+
+ LiquidAssetsReturnVC.vb
+
+
+ Component
+
+
+ BallanceVC.vb
+
+
+ Component
+
+
+ GLReportRowsVC.vb
+
+
+ Component
+
+
+ ABRQueryVC.vb
+
+
+ Component
+
+
+ PartnerAccountConnectionInfoQueryVC.vb
+
+
+ Component
+
+
+ PCIVC.vb
+
+
+ Component
+
+
+ VATReportVC.vb
+
+
+ Component
+
+
+ RegistryRowsFinancialControllingVC.vb
+
+
+ Component
+
+
+ RRFCQueryVC.vb
+
+
+ Component
+
+
+ ChartOfAccountsVC.vb
+
+
+ Component
+
+
+ ControllingVC.vb
+
+
+ Component
+
+
+ CustomersVC.vb
+
+
+ Component
+
+
+
+ SendMailVC.vb
+
+
+ Component
+
+
+ OfferOutVC.vb
+
+
+ Component
+
+
+ OrderInRowsOtherVC.vb
+
+
+ Component
+
+
+ OrderOutVC.vb
+
+
+ Component
+
+
+
+ CustomPrintingController.vb
+
+
+ Component
+
+
+ InvoiceVC.vb
+
+
+ Component
+
+
+ OrderVC.vb
+
+
+ Component
+
+
+ ContractsVC.vb
+
+
+ Component
+
+
+ CreateLogonWindowsControllerVC.vb
+
+
+ Component
+
+
+ Customization.vb
+
+
+ Component
+
+
+ CustomReportWizardController.vb
+
+
+ Component
+
+
+ Component
+
+
+ DateTimeHandle.vb
+
+
+ Component
+
+
+ DisableValidationPopUpWindow.vb
+
+
+ Component
+
+
+
+ ExcelUserControl.vb
+
+
+ UserControl
+
+
+
+ FolderUserControl.vb
+
+
+ UserControl
+
+
+
+
+ RichEditUserControl.vb
+
+
+ UserControl
+
+
+ BankImportVC.vb
+
+
+ Component
+
+
+ BankVC.vb
+
+
+ Component
+
+
+ AssetsPCIVC.vb
+
+
+ Component
+
+
+ GLRowsVC.vb
+
+
+ Component
+
+
+ TrialBalanceVC.vb
+
+
+ Component
+
+
+
+ GLResetVC.vb
+
+
+ Component
+
+
+
+ WinLookupLinkViewControllerVC.vb
+
+
+ Component
+
+
+
+
+ HTMLEditorVC.vb
+
+
+ Component
+
+
+
+ SQLImportsVC.vb
+
+
+ Component
+
+
+ StorageOperation_VC.vb
+
+
+ Component
+
+
+ XLSImportsVC.vb
+
+
+ Component
+
+
+
+
+ ImportsForm.vb
+
+
+ Form
+
+
+ ProjectPlanForm.vb
+
+
+ Form
+
+
+ ProjectPlanVC.vb
+
+
+ Component
+
+
+ RegistryVC.vb
+
+
+ Component
+
+
+ BookEntryVC.vb
+
+
+ Component
+
+
+ GLAccountsVC.vb
+
+
+ Component
+
+
+ GLBankVC.vb
+
+
+ Component
+
+
+ GLCardVC.vb
+
+
+ Component
+
+
+ GLCassaVC.vb
+
+
+ Component
+
+
+ GLCompensationVC.vb
+
+
+ Component
+
+
+ GLMixedVC.vb
+
+
+ Component
+
+
+
+ CustomRoleEditorVC.vb
+
+
+ Component
+
+
+
+
+
+ OutlookEmailVC.vb
+
+
+ Component
+
+
+ GridAutoWidthVC.vb
+
+
+ Component
+
+
+ ViewHintControllerVC.vb
+
+
+ Component
+
+
+ WindowHintControllerWC.vb
+
+
+ Component
+
+
+ InLineEditVC.vb
+
+
+ Component
+
+
+ LogOnDB.vb
+
+
+ Component
+
+
+
+ MasterDetailVC.vb
+
+
+ Component
+
+
+
+ RichTextViewVC.vb
+
+
+ Component
+
+
+
+
+
+ SpreadSimpleUserControl.vb
+
+
+ UserControl
+
+
+ SpreadUserControl.vb
+
+
+ UserControl
+
+
+ WaitForm.vb
+
+
+ Form
+
+
+
+ MobileListDashboardsVC.vb
+
+
+ Component
+
+
+
+ True
+ Application.myapp
+
+
+ True
+ True
+ Resources.resx
+
+
+ True
+ Settings.settings
+ True
+
+
+ NavbarTreelist.vb
+
+
+ Component
+
+
+
+ CornerVC.vb
+
+
+ Component
+
+
+
+
+
+ VivaldiVC.vb
+
+
+ Component
+
+
+
+ RepairRegistryVC.vb
+
+
+ Component
+
+
+ SchedulerVC.vb
+
+
+ Component
+
+
+ ShowAlertControlMainWindowController.vb
+
+
+ Component
+
+
+ ShowNavigationItemController.vb
+
+
+ Component
+
+
+ StorageTransactionsVC.vb
+
+
+ Component
+
+
+ QuestionVC.vb
+
+
+ Component
+
+
+ MySchedule_VC.vb
+
+
+ Component
+
+
+ TreeListVC.vb
+
+
+ Component
+
+
+
+ Component
+
+
+ WinGroupFooterViewController.vb
+
+
+ Component
+
+
+ WinModule.vb
+
+
+ Component
+
+
+ WinNewObjectViewVC.vb
+
+
+ Component
+
+
+ ZIPHUVC.vb
+
+
+ Component
+
+
+
+
+
+ CRMEstateVC.vb
+
+
+ InsertGridToRTF_VC.vb
+
+
+ SendMailVC.vb
+
+
+ ImmovablesPriceListVCWIN.vb
+
+
+ ImmovablesCostRecordExcelVC.vb
+
+
+ ImmovablesVC.vb
+
+
+ InvoiceRowsPivotVC.vb
+
+
+ OfferOutHeaderVC.vb
+
+
+ OfferOutVC.vb
+
+
+ OffersOutPrintVC.vb
+
+
+ OrderVC.vb
+
+
+ CRM_LeadsVC.vb
+
+
+ CRM_OpportunitiesVC.vb
+
+
+ ContractRowsVC.vb
+
+
+ ProductsGant_VC.vb
+
+
+ ProjectVC.vb
+
+
+ InventoryVC.vb
+
+
+ GLBaseVC.vb
+
+
+ GIROInfo_VC.vb
+
+
+ BallanceVC.vb
+
+
+ GLReportCashflowVC.vb
+
+
+ GLReportRowsVC.vb
+
+
+ VATReportVC.vb
+
+
+ ContactsVC.vb
+
+
+ ContractTemplate_VC.vb
+
+
+ Dashboard_VC.vb
+
+
+ HRPersonEventVC.vb
+
+
+ BusinessDirectory_VC.vb
+
+
+ RTFDocumentsHandlerVC.vb
+
+
+ DBCExportVC.vb
+
+
+ ImportsForm2.vb
+
+
+ SpreadImportVC.vb
+
+
+ XLSExportImportVC.vb
+
+
+ AnonymVC.vb
+
+
+ CentralListViewVC.vb
+
+
+ DragAndDropBusinessDirectory_VC.vb
+
+
+ DragAndDropCRMOutlookCRM_VC.vb
+
+
+ DragAndDropCRMOutlookCustomers_VC.vb
+
+
+ DragAndDropCRMOutlookProducts_VC.vb
+
+
+ FileDataProcess_VC.vb
+
+
+ ListViewModelManagerVC.vb
+
+
+ RTFCopy_VC.vb
+
+
+ ZIPHUVC.vb
+
+
+ DashboardDesignerUserControl.vb
+
+
+ DashboardViewerUserControl.vb
+
+
+ GanttChartUserControl.vb
+
+
+ G2anttUserControl.vb
+
+
+ ProductsDetailUserControl.vb
+
+
+ IEUserControl.vb
+
+
+ ExcelUserControl.vb
+
+
+ FolderUserControl.vb
+
+
+ BankImportVC.vb
+
+
+ BankVC.vb
+
+
+ BookEntryVC.vb
+
+
+ TrialBalanceVC.vb
+
+
+ RegistryRowsFinancialControllingVC.vb
+
+
+ RRFCQueryVC.vb
+
+
+ CustomRoleEditorVC.vb
+
+
+ ImportsForm.vb
+
+
+ ProjectPlanForm.vb
+
+
+ ProjectPlanVC.vb
+
+
+ OutlookEmailVC.vb
+
+
+ SQLImportsVC.vb
+
+
+ StorageOperation_VC.vb
+
+
+ XLSImportsVC.vb
+
+
+ RichTextViewVC.vb
+
+
+ SpreadSimpleUserControl.vb
+
+
+ SpreadUserControl.vb
+
+
+ WaitForm.vb
+
+
+ MobileListDashboardsVC.vb
+
+
+
+ VbMyResourcesResXFileCodeGenerator
+ Resources.Designer.vb
+ My.Resources
+ Designer
+
+
+ CornerVC.vb
+
+
+ VivaldiVC.vb
+
+
+ TreeListVC.vb
+
+
+ WinModule.vb
+
+
+
+
+ Always
+
+
+
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+ MyApplicationCodeGenerator
+ Application.Designer.vb
+
+
+ SettingsSingleFileGenerator
+ My
+ Settings.Designer.vb
+
+
+
+
+
+
+ InvoiceVC.vb
+
+
+ ContractsVC.vb
+
+
+ RichEditUserControl.vb
+
+
+ GLResetVC.vb
+
+
+ GLAccountsVC.vb
+
+
+ Designer
+
+
+ StorageTransactionsVC.vb
+
+
+
+
+ False
+ .NET Framework 3.5 SP1 Client Profile
+ false
+
+
+ False
+ .NET Framework 3.5 SP1
+ true
+
+
+ False
+ Windows Installer 3.1
+ true
+
+
+
+
+ {60BF693F-7DEA-4CF6-85BD-EA96829D79DD}
+ Nuvolar.Module
+
+
+
+
+
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Nuvolar.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.vb b/Nuvolar.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.vb
index 47716e3..9b638fa 100644
--- a/Nuvolar.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.vb
@@ -30,27 +30,27 @@ Public Class APCSheetReviewHeader_VC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "APCSheetReviewHeader_APCSheetReviewHeaderPhotos_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "APCSheetReviewHeader_APCSheetReviewRows_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "APCSheetReviewHeader_APCSheetReviewHeaderPhotos_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "APCSheetReviewHeader_APCSheetReviewRows_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
#End Region
diff --git a/Nuvolar.Module/BusinessObjects/Business/Agricultural/APCSheetVC.vb b/Nuvolar.Module/BusinessObjects/Business/Agricultural/APCSheetVC.vb
index 2cd93fd..d2ff950 100644
--- a/Nuvolar.Module/BusinessObjects/Business/Agricultural/APCSheetVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/Agricultural/APCSheetVC.vb
@@ -36,53 +36,53 @@ Public Class APCSheetVC
Frame.GetController(Of APCSheetVC).aAPCSheetHeader_CreateReviewSheet.Active.SetItemValue("", False)
Frame.GetController(Of APCSheetVC).aCloneAPCSheet.Active.SetItemValue("", False)
If View.Id = "APCSheetHeader_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "APCSheetHeader_DetailView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "APCSheetHeader_APCSheetByProducts_ListView" Then
- 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 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)
End If
If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView" Then
- 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 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)
End If
If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView_No" Then
- 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 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)
End If
If View.Id = "APCSheetHeader_APCSheetPresentation_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf APCSheetHeader_APCSheetPresentation_ListView_DeleteAction_Executed
End If
If View.Id = "APCSheetHeader_APCSheetCreditClassificationFinancialRows_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 = "APCSheetHeader_APCSheetCreditClassificationAnimalRows_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 = "APCSheetByProductsOrderInRows_ListView" Then
AddHandler Frame.GetController(Of RefreshController).RefreshAction.Execute, AddressOf APCSheetByProductsOrderInRows_ListView_RefreshAction_Execute
End If
If View.Id = "APCSheetByProductsSalesPolicyH_APCSheetByProductsSalesPolicyR_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 = "APCSheetByProductsSalesPolicyH_DetailView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "APCSheetHeaderSetAPCParameters_PopUp_DetailView" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf APCSheetHeaderSetAPCParameters_PopUp_AcceptAction_Executing
@@ -91,51 +91,51 @@ Public Class APCSheetVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "APCSheetHeader_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "APCSheetHeader_DetailView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "APCSheetHeader_APCSheetByProducts_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).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 CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).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 CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView_No" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).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 CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "APCSheetHeader_APCSheetPresentation_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "APCSheetHeader_APCSheetCreditClassificationFinancialRows_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
If View.Id = "APCSheetHeader_APCSheetCreditClassificationAnimalRows_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
If View.Id = "APCSheetByProductsOrderInRows_ListView" Then
RemoveHandler Frame.GetController(Of RefreshController).RefreshAction.Execute, AddressOf APCSheetByProductsOrderInRows_ListView_RefreshAction_Execute
End If
If View.Id = "APCSheetByProductsSalesPolicyH_APCSheetByProductsSalesPolicyR_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
If View.Id = "APCSheetByProductsSalesPolicyH_DetailView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aCloneAPCSheet_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCloneAPCSheet.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.vb
index 4ad5fef..2f0e644 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.vb
@@ -43,11 +43,11 @@ Public Class CertificateOfContractVC
Frame.GetController(Of CertificateOfContractVC).aPrintCertificateOfContract.Active.SetItemValue("", True)
Frame.GetController(Of CertificateOfContractVC).aMakeEditableCOC.Active.SetItemValue("", True)
Frame.GetController(Of CertificateOfContractVC).aStornoCOC.Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CertificateOfContractVC).aRecalculateCOC.Active.SetItemValue("", True)
End If
If View.Id = "CertificateofContractHeader_DetailView" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
_CertificateofContractHeader = View.SelectedObjects(0)
If _CertificateofContractHeader IsNot Nothing Then
If _CertificateofContractHeader.IsEditable = True Then
@@ -63,8 +63,8 @@ Public Class CertificateOfContractVC
End If
End If
If View.Id = "CertificateofContractHeader_CertificateofContractRows_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)
Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", True)
Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", True)
@@ -72,13 +72,13 @@ Public Class CertificateOfContractVC
_CertificateofContractHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CertificateofContractHeader)
If _CertificateofContractHeader IsNot Nothing Then
If _CertificateofContractHeader.IsEditable = False Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).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 ModificationsController)?.Active.SetItemValue("", False)
Else
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
End If
End If
End If
@@ -89,15 +89,15 @@ Public Class CertificateOfContractVC
If View.Id = "CertificateofContractRows_DetailView" Then
Dim _CertificateofContractRows As CertificateofContractRows = TryCast(View.SelectedObjects(0), CertificateofContractRows)
If _CertificateofContractRows.CertificateofContractHeader.IsEditable = False Then
- Frame.GetController(Of NewItemRowListViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewItemRowListViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
Else
- Frame.GetController(Of NewItemRowListViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewItemRowListViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
End If
Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", True)
Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", True)
@@ -116,8 +116,8 @@ Public Class CertificateOfContractVC
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
End Sub
Private Sub aPrintCertificateOfContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintCertificateOfContract.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.vb
index 0f0b207..7fa9995 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.vb
@@ -39,9 +39,9 @@ Public Class ContractReceivablesVC
End If
If View.Id = "ContractRows_ListView_Invoice_IsProforma" Or View.Id = "ContractRows_ListView_Invoice_Finalized" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
@@ -123,7 +123,7 @@ Public Class ContractReceivablesVC
On Error GoTo CheckError
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
' -- létrehozunk egy kollekciót a kiválasztott elemek tömbjébol
_InvoiceHeaderCreated.Clear()
@@ -284,7 +284,7 @@ Public Class ContractReceivablesVC
Me.PrintSelectedInvoices()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
Exit Sub
CheckError:
If Err.Number = 91 Then Resume Next
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.vb
index e80d110..b88a411 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.vb
@@ -200,12 +200,12 @@ Public Class ContractRowsVC
Dim _InvoiceRows As InvoiceRows = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceRows))
If _InvoiceRows IsNot Nothing Then
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
_InvoiceRows.ContractRows = _ContractRows
_ContractRows.InvoiceRows = _InvoiceRows
_ocur.CommitChanges()
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End If
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.vb
index c6e35a7..5b6652f 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.vb
@@ -47,7 +47,7 @@ Public Class ContractsVC
Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False)
If View.Id Like "Contracts_ListView*" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "ContractRows_ListView_Invoice_Advance" Then
@@ -68,17 +68,17 @@ Public Class ContractsVC
'-------------------- LISTVIEW -------------------------------------------------------------------------------------------------------------------------
If View.Id = "ContractRows_RegistryRowsFinancialControlling_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).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.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "ContractRows_ListView_Invoice_Advance" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
'Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC).aDivideContractRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", False)
@@ -86,48 +86,48 @@ Public Class ContractsVC
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", True) 'Ez is itt volt...
End If
If View.Id = "ContractRows_ListView_Invoice_CustomRate" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aDivideContractRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", True)
End If
If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Or View.Id = "ContractRows_ListView_Invoice_MileStone" Then
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", True)
End If
If View.Id = "ContractRows_ListView_Invoiced" Then
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
End If
If View.Id = "ContractRows_ListView_Invoice_IsProforma" Then
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
End If
If View.Id = "ContractRows_ListView_Invoice_Finalized" Then
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
End If
If View.Id = "Contracts_ListView_Signed" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "Contracts_ContractRows_ListView" Then
Frame.GetController(Of ContractsVC)().aNewContractRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).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 CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aCloneContractsRows.Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Dim nv As ListView = CType(View, ListView)
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
@@ -137,11 +137,11 @@ Public Class ContractsVC
If _Contracts.ContractTemplate IsNot Nothing Then
If _Contracts.ContractTemplate.IsTechnical = True Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
End If
End If
@@ -157,7 +157,7 @@ Public Class ContractsVC
End If
If View.Id = "InvoiceHeader_DescriptionChanger_PopUp_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "Contracts_ListView_Subcontractor" Then
Frame.GetController(Of ContractsVC).aCloneSelectedContracts.Active.SetItemValue("", False)
@@ -172,18 +172,18 @@ Public Class ContractsVC
If View.Id = "ContractRows_DetailView" Then
If TryCast(View.SelectedObjects(0), ContractRows).InvoiceRows IsNot Nothing Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
End If
End If
If View.Id = "Contracts_DetailView" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
Dim _Contracts = TryCast(View.SelectedObjects(0), Contracts)
If _Contracts IsNot 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
If _Contracts.State = State.Preparation Then
@@ -209,9 +209,9 @@ Public Class ContractsVC
If _Contracts.ContractTemplate IsNot Nothing Then
If _Contracts.ContractTemplate.IsTechnical = True Then '! Technikai szerzds esetn !!!
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aMarkAsClosed.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aMarkAsReady.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aMarkAsSigned.Active.SetItemValue("", False)
@@ -228,7 +228,7 @@ Public Class ContractsVC
'-------------------- LookupListView -----------------------------------------------------------------------------------------------------------------------
If View.Id = "ContractRows_LookupListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
End If
'A csoportos szmlzs kijellsvltozs figyelse, hogy csak azonos vllalattal rendelkezo sorokat lehessen kivlasztani
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
@@ -237,22 +237,22 @@ Public Class ContractsVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
If View.Id = "ContractRows_RegistryRowsFinancialControlling_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).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.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "Contracts_DetailView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "ContractRows_ListView_Invoice_Advance" Then
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", True)
@@ -260,15 +260,15 @@ Public Class ContractsVC
Frame.GetController(Of ContractsVC).aDivideContractRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", True)
End If
If View.Id = "ContractRows_ListView_Invoice_CustomRate" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC).aDivideContractRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", True)
End If
@@ -288,7 +288,7 @@ Public Class ContractsVC
Dim _ContractRows As ContractRows
For Each _ContractRows In View.SelectedObjects
If _ContractRows.InvoiceRows IsNot Nothing Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
Next
End Sub
@@ -296,7 +296,7 @@ Public Class ContractsVC
Dim _Contracts As Contracts = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, Contracts)
If _Contracts Is Nothing Then Exit Sub
If _Contracts.State = State.Signed Or _Contracts.State = State.Ready Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
End If
End Sub
Sub DeleteAction_Executing(sender As Object, e As System.ComponentModel.CancelEventArgs)
@@ -535,7 +535,7 @@ Public Class ContractsVC
On Error GoTo CheckError
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
' -- ltrehozunk egy kollekcit a kivlasztott elemek tmbjbol
For Each _ContractRows_Selection In _selection
_ContractRows = _ocur.GetObject(_ContractRows_Selection)
@@ -665,7 +665,7 @@ Public Class ContractsVC
Next
_ocur.CommitChanges()
_noselect = False
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
Exit Sub
CheckError:
If Err.Number = 91 Then Resume Next
@@ -697,7 +697,7 @@ CheckError:
End Sub
Private Sub aCloneSelectedContracts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCloneSelectedContracts.Execute
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validci ideiglenes letiltsa az akci vgrehajtsnak idejre.
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A validci ideiglenes letiltsa az akci vgrehajtsnak idejre.
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ContractsCloneView As ContractsCloneView = e.PopupWindow.View.SelectedObjects(0)
@@ -774,7 +774,7 @@ CheckError:
Throw New Exception("*Nincs megadva szerzds sablon!")
End If
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub aGenerateInvoicefromContractsRowsCustomRate_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateInvoicefromContractsRowsCustomRate.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
@@ -787,7 +787,7 @@ CheckError:
On Error GoTo CheckError
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
' -- ltrehozunk egy kollekcit a kivlasztott elemek tmbjbol
For Each _ContractRows_Selection In _selection
_ContractRows = _ocur.GetObject(_ContractRows_Selection)
@@ -921,7 +921,7 @@ CheckError:
Next
_ocur.CommitChanges()
_noselect = False
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
Exit Sub
CheckError:
If Err.Number = 91 Then Resume Next
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.vb
index 74e8c7b..f6bc814 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.vb
@@ -30,8 +30,8 @@ Public Class ContractProduct_VC
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
If View.Id Like "ContractProductHeader_ListView*" Then
- 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.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", True)
Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().DeleteAction.TargetObjectsCriteria = "State=0 AND (DocumentNumber = '' OR IsNull(DocumentNumber)=True)"
@@ -39,41 +39,41 @@ Public Class ContractProduct_VC
End If
If View.Id Like "ContractProductHeader_DetailView*" Then
- 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.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", True)
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", True)
End If
If View.Id = "ContractProductHeader_ContractProductRows_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.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 ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If
If View.Id = "ContractTemplate_ListView_PopUp" Then
- 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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "ContractProductRowsInOut_ListView" Then
- 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.DeleteObjectsViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsCustomersGroup_Linq" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsGroup_Linq" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "ContractProductRows_ListView_Invoice" Then
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
- 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.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 ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", False)
@@ -81,9 +81,9 @@ Public Class ContractProduct_VC
End If
If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.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.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 ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False) 'Iktats betekintse
Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", True)
@@ -94,46 +94,46 @@ Public Class ContractProduct_VC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "ContractProductHeader_ContractProductRows_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.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 ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If
If View.Id Like "ContractProductHeader_ListView*" Then
- 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.NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", False)
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
End If
If View.Id Like "ContractProductHeader_DetailView*" Then
- 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.NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
End If
If View.Id = "ContractTemplate_ListView_PopUp" Then
- 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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "ContractProductRowsInOut_ListView" Then
- 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.DeleteObjectsViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsCustomersGroup_Linq" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsGroup_Linq" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "ContractProductRows_ListView_Invoice" Then
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
- 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.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 ContractsVC)().aMergeContractRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", True)
@@ -141,9 +141,9 @@ Public Class ContractProduct_VC
End If
If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.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.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 ContractsVC)().aMergeContractRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True) 'Iktats betekintse
Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", False)
@@ -174,7 +174,7 @@ Public Class ContractProduct_VC
End If
End Sub
Private Sub aTotable_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_ConProd_Payabels.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 = View.ObjectSpace
Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader)
Dim _ContractProductRows As ContractProductRows = _ocur.CreateObject(Of ContractProductRows)()
@@ -213,7 +213,7 @@ Public Class ContractProduct_VC
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End If
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub aTotableD_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_ConProd_Payabels.Execute
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
@@ -256,7 +256,7 @@ Public Class ContractProduct_VC
End If
End Sub
Private Sub aTotable_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_ConProd_Receivables.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 = View.ObjectSpace
Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader)
Dim _ContractProductRows_IN As ContractProductRows = _ocur.FindObject(Of ContractProductRows)(CriteriaOperator.Parse("Oid=?", _ContractProductHeader.row_ContractProductRows.Oid))
@@ -338,7 +338,7 @@ Public Class ContractProduct_VC
'--------------------------------- TESZT MIATT -------------------------------<<
End If
- ' Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ ' Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub aBackToRowEdit_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_ConProd_Receivables.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
@@ -487,7 +487,7 @@ Public Class ContractProduct_VC
If _ContractProductHeader IsNot Nothing Then
Dim _CustomersNGCollection As CustomersNGCollection = Nothing
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
If _ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.eReceivables Then
_CustomersNGCollection = _ocur.FindObject(Of CustomersNGCollection)(CriteriaOperator.Parse("Customers=? AND ContractTemplate=?", _
_ContractProductHeader.Customers, _ContractProductHeader.ContractTemplate))
@@ -504,7 +504,7 @@ Public Class ContractProduct_VC
End If
_ocur.CommitChanges()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aSendBackToEditContractProduct_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSendBackToEditContractProduct.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.vb
index 219b091..dff66d1 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.vb
@@ -41,11 +41,11 @@ Public Class DeliveryNoteInVC
'------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "DeliveryNoteInHeader_DeliveryNoteInrows_ListView" Then ' -- A beágyazott ListView feletti toolbar
- 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)
Frame.GetController(Of DeliveryNoteInVC).aUp_DeliveryNoteIn.Active.SetItemValue("", True)
Frame.GetController(Of DeliveryNoteInVC).aDown_DeliveryNoteIn.Active.SetItemValue("", True)
End If
@@ -53,18 +53,18 @@ Public Class DeliveryNoteInVC
Frame.GetController(Of DeliveryNoteInVC).aGenerateStorageIn_From_DeliveryNoteInRows.Active.SetItemValue("", True)
End If
If View.Id = "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.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.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If
If View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.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.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "DeliveryNoteInHeader_DetailView" Then
@@ -101,25 +101,25 @@ Public Class DeliveryNoteInVC
'------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "DeliveryNoteInHeader_DeliveryNoteInRows_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
If View.Id = "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.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.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If
If View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.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.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "DeliveryNoteInHeader_DeatilView" Then
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.vb
index b792dc9..8af1196 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.vb
@@ -47,54 +47,54 @@ Public Class DeliveryNoteOutVC
End If
If View.Id = "DeliveryNoteOutRows_ListView_Invoice" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DeliveryNoteOutVC).aCreate_InvoiceFromStorageORIR.Active.SetItemValue("", True)
AddHandler View.SelectionChanged, AddressOf DeliveryNoteOutRows_ListView_Invoice_ViewSelectionChanged
End If
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then
- 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.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
AddHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
End If
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" Then
- 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.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
AddHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
End If
If View.Id = "StorageOutRowsInRows_LookupListView" Then
- 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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "DeliveryNoteOutHeader_ListView_NonEditable" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.DeleteObjectsViewController)()?.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 DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", True)
Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", True)
Frame.GetController(Of DeliveryNoteOutVC)().aDeliveryNoteOutPrint.Active.SetItemValue("", True)
End If
'------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
If View.Id = "DeliveryNoteOutHeader_DeliveryNoteOutRows_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)
Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", True)
Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", True)
End If
@@ -108,9 +108,9 @@ Public Class DeliveryNoteOutVC
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
If _DeliveryNoteOutHeader IsNot Nothing Then
If _DeliveryNoteOutHeader.IsEditable = False Then
- 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.DeleteObjectsViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndNewAction.Active.SetItemValue("", False)
@@ -131,45 +131,45 @@ Public Class DeliveryNoteOutVC
End If
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then
- 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.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", False)
RemoveHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
End If
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" Then
- 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.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
RemoveHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
End If
If View.Id = "StorageOutRowsInRows_LookupListView" Then
- 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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "DeliveryNoteOutHeader_ListView_NonEditable" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.DeleteObjectsViewController)()?.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 DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", False)
Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", False)
Frame.GetController(Of DeliveryNoteOutVC)().aDeliveryNoteOutPrint.Active.SetItemValue("", False)
End If
'------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
If View.Id = "DeliveryNoteOutHeader_DeliveryNoteOutRows_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)
Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", False)
Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", False)
End If
@@ -183,9 +183,9 @@ Public Class DeliveryNoteOutVC
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
If _DeliveryNoteOutHeader IsNot Nothing Then
If _DeliveryNoteOutHeader.IsEditable = False Then
- 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.DeleteObjectsViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndNewAction.Active.SetItemValue("", True)
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb
index 900f779..58b3291 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb
@@ -47,64 +47,64 @@ Public Class CRMEstateVC
View.Id = "CRMEstate_Leads_Selected_StudentHostel_ListView" Or _
View.Id = "CRMEstate_Opportunity_Immovables_ListView_Navigation" 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 NewObjectViewController).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 NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "CRMEstate_Opportunity_DetailView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
If View.Id Like "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView*" Or _
View.Id Like "CRMEstate_Leads_CRMEstate_Opportunity_ListView*" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf CRMEstate_Leads_CRMEstate_Opportunity_ListView_DeleteAction_Executing
- Frame.GetController(Of ModificationsController).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 ModificationsController)?.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 = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Or _
View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Customers_ListView" Or _
View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Or _
View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Rent_ListView" Then
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
End If
If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_DetailView" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If
If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_CollectionOfReservation_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
AddHandler View.SelectionChanged, AddressOf Selectionchanged_CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView
End If
If View.Id = "CRMEstate_Opportunity_AdvanceMoney_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 ModificationsController).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 ModificationsController)?.Active.SetItemValue("", False)
End If
If View.Id = "CRMEstate_Leads_DetailView" Or _
View.Id = "CRMEstate_Leads_ListView" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf CRMEstate_Leads_DetailView_DeleteAction_Executing
End If
If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, _
AddressOf CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView_DeleteAction_Executing
@@ -116,36 +116,36 @@ Public Class CRMEstateVC
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If
If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_CollectionOfReservation_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "CRMEstate_Opportunity_DetailView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id Like "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView*" Or _
View.Id Like "CRMEstate_Leads_CRMEstate_Opportunity_ListView*" Then
- Frame.GetController(Of ModificationsController).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 ModificationsController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "CRMEstate_Opportunity_AdvanceMoney_DetailView" Then
- Frame.GetController(Of NewObjectViewController).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 NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
End If
If View.Id = "CRMEstate_Leads_DetailView" Or _
View.Id = "CRMEstate_Leads_ListView" Then
@@ -153,8 +153,8 @@ Public Class CRMEstateVC
End If
If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, _
AddressOf CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView_DeleteAction_Executing
@@ -563,7 +563,7 @@ Public Class CRMEstateVC
Throw New Exception("*A(z) " & _CRMEstate_Opportunity_AdvanceMoney.CustomersFrom.Name & " céghez nincs megfelelő sablon az ajánlati sablonban! Kérjük ellenőrizze!")
End If
- 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
'-- A tárgyban forgó ingatlanról levesszük az eladható státuszt
_CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.CanForSale = False
_CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.Save()
@@ -615,7 +615,7 @@ Public Class CRMEstateVC
_ocur.CommitChanges()
- 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
View.Close()
End Sub
Private Sub aDeleteCRMEstate_Opportunity_AdvanceMoney_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeleteCRMEstate_Opportunity_AdvanceMoney.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVC.vb
index e853a94..1e7a7e5 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVC.vb
@@ -28,55 +28,55 @@ Public Class ImmovablesPriceListVC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_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 = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_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 = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_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 = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_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
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_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 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)
End If
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_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 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)
End If
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_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 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)
End If
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_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 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)
End If
End Sub
Private Sub aGenerateIPriceList_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateIPriceList.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.vb
index a94be95..523f141 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.vb
@@ -33,49 +33,49 @@ Public Class ImmovablesCostRecordExcelVC
End If
If View.Id = "ImmovablesCostRecordExcel_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "ImmovablesCostRecordExcel_DetailView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then
- Frame.GetController(Of ModificationsController).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)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.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)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelImmovables_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "ImmovablesCostRecordExcel_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "ImmovablesCostRecordExcel_DetailView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then
- Frame.GetController(Of ModificationsController).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)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of ModificationsController)?.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)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
End If
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.vb
index 38886c8..55b49e8 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.vb
@@ -23,7 +23,7 @@ Public Class EstateVC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "Immovables_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "Immovables_ChangeGroup_PopUp_DetailView" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing
@@ -32,7 +32,7 @@ Public Class EstateVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "Immovables_ListView" Then
- 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 = "Immovables_ChangeGroup_PopUp_DetailView" Then
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb
index d1db190..18a208d 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb
@@ -29,7 +29,7 @@ Public Class ImmovablesVC
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub aIRentGetContracts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIRentGetContracts.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
@@ -37,7 +37,7 @@ Public Class ImmovablesVC
Dim _ContractRows As ContractRows
Dim _ContractRows_Collection As XPCollection(Of ContractRows)
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
RaiseEvent InitWork(1, 1, TryCast(View, ListView).CollectionSource.List.Count)
For Each _Immovables In TryCast(View, ListView).CollectionSource.List
RaiseEvent DoWork()
@@ -52,6 +52,6 @@ Public Class ImmovablesVC
Next
Next
RaiseEvent FinalWork
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
End Class
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.vb
index 29e6048..8b418a7 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.vb
@@ -53,14 +53,14 @@ Public Class InvoiceFactoring_VC
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub aFactoringSet_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringSet.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _InvoiceHeader As InvoiceHeader
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
For Each _InvoiceHeader In View.SelectedObjects
If _InvoiceHeader.IsFactoring = False Then
_InvoiceHeader.IsFactoring = True
@@ -69,7 +69,7 @@ Public Class InvoiceFactoring_VC
End If
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 aFactoringSendToBank_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFactoringSendToBank.CustomizePopupWindowParams
@@ -99,7 +99,7 @@ Public Class InvoiceFactoring_VC
Dim _InvoiceFactoringPopup As InvoiceFactoringPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceFactoringPopup)
Dim _Factoring_Send_Number As String = ""
Dim _InvoiceFactoringBank As InvoiceFactoringBank
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
For Each _InvoiceHeader In View.SelectedObjects
If _InvoiceHeader.IsFactoring = True Then
@@ -124,7 +124,7 @@ Public Class InvoiceFactoring_VC
Next
_ocur.CommitChanges()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
'// Most kell a krelmet kinyomtatni !!!!
@@ -142,7 +142,7 @@ Public Class InvoiceFactoring_VC
Dim _InvoiceHeader As InvoiceHeader
Dim _ReadyForDelete As Boolean = False
Dim _InvoiceFactoringBank_Collection As New XPCollection(Of InvoiceFactoringBank)(_ocur.Session, CriteriaOperator.Parse("1=2"))
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
For Each _InvoiceFactoringBank In View.SelectedObjects
_ReadyForDelete = False
@@ -162,7 +162,7 @@ Public Class InvoiceFactoring_VC
_ocur.Delete(_InvoiceFactoringBank_Collection)
_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 aFactoringCreate_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFactoringCreate.CustomizePopupWindowParams
@@ -205,7 +205,7 @@ Public Class InvoiceFactoring_VC
End If
Dim _InvoiceFactoringRows As InvoiceFactoringRows
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
For Each _InvoiceHeader In View.SelectedObjects
_InvoiceFactoringRows = _ocur.CreateObject(Of InvoiceFactoringRows)()
_InvoiceFactoringRows.InvoiceFactoringHeader = _InvoiceFactoringHeader
@@ -213,7 +213,7 @@ Public Class InvoiceFactoring_VC
_InvoiceHeader.InvoiceFactoringRows = _InvoiceFactoringRows
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 aFactoringDestroy_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringDestroy.Execute
@@ -221,7 +221,7 @@ Public Class InvoiceFactoring_VC
Dim _InvoiceFactoringHeader As InvoiceFactoringHeader
Dim _InvoiceFactoringRows As InvoiceFactoringRows
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
For Each _InvoiceFactoringHeader In View.SelectedObjects
For Each _InvoiceFactoringRows In _InvoiceFactoringHeader.InvoiceFactoringRows
@@ -232,7 +232,7 @@ Public Class InvoiceFactoring_VC
_ocur.Delete(_InvoiceFactoringHeader)
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
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.vb
index 185ddf4..e21a4cc 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.vb
@@ -28,17 +28,17 @@ Public Class InvoiceCreditNote_VC
MyBase.OnActivated()
If View.Id = "InvoiceCreditNoteHeader_DetailView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "InvoiceCreditNoteHeader_InvoiceCreditNoteRows_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
If View.Id = "InvoiceRows_ListView_CreditNote" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf InvoiceRows_ListView_CreditNote_AcceptAction_Executing
@@ -48,16 +48,16 @@ Public Class InvoiceCreditNote_VC
MyBase.OnDeactivated()
If View.Id = "InvoiceCreditNoteHeader_DetailView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "InvoiceCreditNoteHeader_InvoiceCreditNoteRows_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
End If
End Sub
#End Region
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.vb
index b07b680..545e091 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.vb
@@ -53,21 +53,21 @@ Public Class InvoiceRowVC
End If
If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.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.NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aDeleteSelectedInvoiceRows.Active.SetItemValue("", False) ' Kijelölt sor törlése
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
If View.Id = "InvoiceHeader_InvoiceVATRows_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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 ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
If View.Id = "InvoiceRows_ListView_Table" Then
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
@@ -80,21 +80,21 @@ Public Class InvoiceRowVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.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.NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aDeleteSelectedInvoiceRows.Active.SetItemValue("", True) ' Kijelölt sor törlése
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
End If
If View.Id = "InvoiceHeader_InvoiceVATRows_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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 ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
End If
If View.Id = "InvoiceRows_ListView_Table" Then
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
@@ -114,7 +114,7 @@ Public Class InvoiceRowVC
End If
If _InvoiceRows_Corr IsNot Nothing Then
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
End If
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
@@ -159,7 +159,7 @@ Public Class InvoiceRowVC
If _InvoiceRows_Corr IsNot Nothing Then
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End If
Else
'_ocur.Rollback()
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.vb
index 6fcc76d..2b3e1f7 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.vb
@@ -57,36 +57,36 @@ Public Class InvoiceVC
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aMakeEditableProforma.Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False)
End If
If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then ' Számla sorok amik egy fejléchez tartoznak
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Dim _ListView As ListView = CType(View, ListView)
Dim _Cs As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource)
If TryCast(_Cs.MasterObject, InvoiceHeader) IsNot Nothing Then
If TryCast(_Cs.MasterObject, InvoiceHeader).IsEditable = False Then ' Amennyiben szerkeszthető a fejléc csak akkor lehessen sort törölni, és ne lehessen új sort hozzáadni
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
End If
Else
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
End If
End If
If View.Id = "InvoiceHeader_ListView" Then ' Számlák lista nézet
Frame.GetController(Of InvoiceVC)().aStornoInvoice.Active.SetItemValue("", True) '-- Végleges számla stornírozása
- ' 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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aGenerateInvoiceToPdfFiles.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True)
@@ -95,7 +95,7 @@ Public Class InvoiceVC
Frame.GetController(Of InvoiceVC).aViewPCIDInvoice.Active.SetItemValue("", True)
End If
If View.Id = "InvoiceHeader_ListView_Editable" Then ' Szerkeszthető számlák
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True)
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Editable_DeleteAction_Executing
@@ -103,13 +103,13 @@ Public Class InvoiceVC
Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False)
End If
If View.Id = "InvoiceHeader_LookupListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC).aFinalizeInvoice.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC).aFinalizeInvoicewithPopup.Active.SetItemValue("", False)
End If
If View.Id = "InvoiceRows_ListView_Advanced" Then ' Előleg tipusú számla sorok lista nézet
- 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.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC).aPCICheckInvoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC).aViewPCIDInvoice.Active.SetItemValue("", True)
@@ -118,20 +118,20 @@ Public Class InvoiceVC
If View.Id = "InvoiceHeader_ListView_Proforma_Advanced" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_DeleteAction_Executing
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True)
- 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.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False)
'Frame.GetController(Of InvoiceVC)().a.Active.SetItemValue("", False)
End If
If View.Id = "InvoiceHeader_InvoiceRows_ListView_Corrigendum" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().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.ListViewProcessCurrentObjectController)().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 NewObjectViewController)()?.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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "GLAccounts_DetailView_InvoiceHeader" Then
Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", False)
@@ -140,16 +140,16 @@ Public Class InvoiceVC
Frame.GetController(Of GLAccountsVC).aBackToRowEdit_GLAccounts.Active.SetItemValue("", False)
Frame.GetController(Of GLAccountsVC).aFinal_GLAccounts.Active.SetItemValue("", False)
Frame.GetController(Of GLAccountsVC).aFinalAndNew_GLAccounts.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).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.ModificationsController)?.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)
End If
If View.Id = "InvoiceHeader_ListView_Proforma_CustomRate" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_DeleteAction_Executing
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True) '-- Számla nyomtatása
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True)
@@ -169,18 +169,18 @@ Public Class InvoiceVC
If View.SelectedObjects.Count > 0 Then
_InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
If _InvoiceHeader.IsEditable Or _InvoiceHeader.IsProforma Then
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True)
End If
If _InvoiceHeader.IsEditable = False Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", False)
Else
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aCreateProforma.Active.SetItemValue("", True)
End If
If _InvoiceHeader.IsEditable = True Then
@@ -205,15 +205,15 @@ Public Class InvoiceVC
Frame.GetController(Of InvoiceRowVC).aToTableD_Invoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC).aFinalizeInvoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True)
- 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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "InvoiceAdvancePopup_DetailView" Then ' Előleg bekérő készítő view
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If
If View.Id = "EMailSendQueueParameters_ListView_PopUp" Then
- 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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf EMailSendQueueParameters_ListView_PopUp_AcceptAction_Executing
End If
End Sub
@@ -238,8 +238,8 @@ Public Class InvoiceVC
If View.Id = "InvoiceHeader_ListView" Then
Frame.GetController(Of InvoiceVC)().aStornoInvoice.Active.SetItemValue("", False) '-- Végleges számla stornírozása
- 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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False)
End If
@@ -247,26 +247,26 @@ Public Class InvoiceVC
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If
If View.Id = "InvoiceHeader_DetailView" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAndCloseAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAndNewAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting
End If
If View.Id = "InvoiceRows_ListView_Advanced" Then
- 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.NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "InvoiceHeader_ListView_Editable" Then ' Szerkeszthető számlák
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", False)
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Editable_DeleteAction_Executing
End If
If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "InvoiceHeader_DetailView_Corrigendum" Then
Frame.GetController(Of InvoiceRowVC).aToTable_Invoice.Active.SetItemValue("", False)
@@ -274,14 +274,14 @@ Public Class InvoiceVC
Frame.GetController(Of InvoiceRowVC).aToTableD_Invoice.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC).aFinalizeInvoice.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", False)
- 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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "InvoiceHeader_InvoiceRows_ListView_Corrigendum" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().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 NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
End If
If View.Id = "InvoiceHeader_ListView_Proforma" Then '-- Proforma lista nézet
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_DeleteAction_Executing
@@ -289,20 +289,20 @@ Public Class InvoiceVC
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aMakeEditableProforma.Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False)
End If
If View.Id = "InvoiceHeader_ListView_Proforma_CustomRate" Then
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False) '-- Számla nyomtatása
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", False)
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_CustomRate_DeleteAction_Executing
End If
If View.Id = "EMailSendQueueParameters_ListView_PopUp" Then
- 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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf EMailSendQueueParameters_ListView_PopUp_AcceptAction_Executing
End If
End Sub
@@ -459,7 +459,7 @@ Public Class InvoiceVC
If View.SelectedObjects.Count > 0 Then
Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader)
'If _InvoiceHeader.IsEditable = True Then
- 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
@@ -530,7 +530,7 @@ Public Class InvoiceVC
Dim _ContractRows As ContractRows
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
_InvoiceHeader_New = _ocur.CreateObject(Of InvoiceHeader)()
_InvoiceHeader_New.IsStorno = True : _p_InvoiceHeader.IsStorno = True
_InvoiceHeader_New.BankInformation = _p_InvoiceHeader.BankInformation
@@ -641,7 +641,7 @@ Public Class InvoiceVC
'------------------------------------------------------------------------------------------------------------------------------------------
Me.PrintInvoice(_InvoiceHeader_New)
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
If TryCast(View, DetailView) IsNot Nothing Then
View.Close(False)
Else
@@ -857,7 +857,7 @@ CheckError:
On Error GoTo CheckError
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
_InvoiceHeader_New.IsProforma = True
_InvoiceHeader_New.IsEditable = False
@@ -949,7 +949,7 @@ CheckError:
_InvoiceHeader_New.RecalculateInvoice(_InvoiceHeader_New, _ocur)
_ocur.CommitChanges()
Me.PrintInvoice(_InvoiceHeader_New)
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
View.Close()
Exit Sub
CheckError:
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInVC.vb
index 5d5c1c1..1e8400f 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInVC.vb
@@ -50,11 +50,11 @@ Public Class OffersInVC
End If
If View.Id = "OfferInHeader_OfferInRows_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.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of OffersInVC).aUp_OfferIn.Active.SetItemValue("", True)
Frame.GetController(Of OffersInVC).aDown_OfferIn.Active.SetItemValue("", True)
Frame.GetController(Of OffersInVC).aOffersIn_ChangeRows.Active.SetItemValue("", True)
@@ -84,14 +84,14 @@ Public Class OffersInVC
Frame.GetController(Of OffersInVC)().aOfferIn_CreateDeliveryNoteIn.Active.SetItemValue("", False)
End If
If View.Id = "DeliveryNoteInFromOffersInRowsHeader_DeliveryNoteInFromOffersInRowsRows_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.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If
If View.Id = "OfferOutHeader_ListView_OfferOutHeaderInHeader" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
@@ -104,11 +104,11 @@ Public Class OffersInVC
RemoveHandler View.SelectionChanged, AddressOf OfferInHeader_OfferInRows_ListView_SelectionChanged
End If
If View.Id = "OfferInHeader_OfferInRows_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.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", True)
Frame.GetController(Of OffersInVC).aUp_OfferIn.Active.SetItemValue("", False)
Frame.GetController(Of OffersInVC).aDown_OfferIn.Active.SetItemValue("", False)
@@ -133,14 +133,14 @@ Public Class OffersInVC
Frame.GetController(Of OffersInVC)().aOfferIn_CreateDeliveryNoteIn.Active.SetItemValue("", True)
End If
If View.Id = "DeliveryNoteInFromOffersInRowsHeader_DeliveryNoteInFromOffersInRowsRows_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.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If
If View.Id = "OfferOutHeader_ListView_OfferOutHeaderInHeader" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
End Sub
Private Sub OfferInHeader_OfferInRows_ListView_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.vb
index 018a31b..7e2ba0d 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.vb
@@ -49,23 +49,23 @@ Public Class OffersOutVC
Frame.GetController(Of OffersOutVC).aOfferOut_ChangeState.Active.SetItemValue("", False)
'------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "OfferOutHeader_OfferOutCostRows_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.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)
End If
If View.Id = "OfferOutHeader_ListView_Editable" Then
Frame.GetController(Of OffersOutVC).aCloneOfferOut.Active.SetItemValue("", True)
Frame.GetController(Of OffersOutVC).aCloneOfferOut_CRM.Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "OfferOutHeader_ListView_NotEditable" Or _
View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then
Frame.GetController(Of OffersOutVC).aCloneOfferOut.Active.SetItemValue("", True)
Frame.GetController(Of OffersOutVC).aCreateOrderIn_From_OfferOut.Active.SetItemValue("", True)
Frame.GetController(Of OffersOutVC).aCloneOfferOut_CRM.Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of OffersOutVC).aOfferOut_ChangeState.Active.SetItemValue("", True)
AddHandler View.SelectionChanged, AddressOf OfferOutHeader_OfferOutRows_ListView_SelectionChanged
@@ -81,48 +81,48 @@ Public Class OffersOutVC
If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then ' -- A beágyazott ListView feletti toolbar
Frame.GetController(Of OffersOutVC).aUp_OfferOut.Active.SetItemValue("", True)
Frame.GetController(Of OffersOutVC).aDown_OfferOut.Active.SetItemValue("", True)
- 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.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 OffersOutVC).aImportRecipe.Active.SetItemValue("", True) 'Recept import
Frame.GetController(Of OffersOutVC).aInsertServicesToOfferOut.Active.SetItemValue("", True)
End If
If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_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
If View.Id = "ProductFinderVariable_ProductSelectOriginal_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
If View.Id = "ProductFinderVariable_ProductSelectVariables_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
If View.Id = "OfferOutHeader_ListView_Support" Then
Frame.GetController(Of OffersOutVC).aBackToEditOfferOut.Active.SetItemValue("", False)
'Frame.GetController(Of OffersOutVC).a()
End If
If View.Id = "OfferOutHeader_OfferInHeader_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.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)
End If
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "OfferOutHeader_DetailView" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of OffersOutVC).aOffersOutFinalWidthVersion.Active.SetItemValue("", True)
Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader)
@@ -143,7 +143,7 @@ Public Class OffersOutVC
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If
If View.Id = "ProductFinderVariable_DetailView" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "OfferOutHeader_ListView_Support" Then 'WEB Supportnál ajánlatok listázása
@@ -161,10 +161,10 @@ Public Class OffersOutVC
End If
End If
If View.Id = "OfferInHeader_ListView_OfferOutHeaderInHeader" 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.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)
End If
End Sub
Protected Overrides Sub OnDeactivated()
@@ -172,23 +172,23 @@ Public Class OffersOutVC
'------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "OfferOutHeader_OfferOutCostRows_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.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)
End If
If View.Id = "OfferOutHeader_OfferOutRows_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.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)
End If
If View.Id = "OfferOutHeader_ListView_Editable" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "OfferOutHeader_ListView_NotEditable" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of OffersOutVC).aOfferOut_ChangeState.Active.SetItemValue("", False)
RemoveHandler View.SelectionChanged, AddressOf OfferOutHeader_OfferOutRows_ListView_SelectionChanged
@@ -198,34 +198,34 @@ Public Class OffersOutVC
Frame.GetController(Of OffersOutVC).aImportRecipe.Active.SetItemValue("", False) 'Recept import
End If
If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_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
If View.Id = "ProductFinderVariable_ProductSelectOriginal_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
If View.Id = "ProductFinderVariable_ProductSelectVariables_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
If View.Id = "OfferOutHeader_ListView_Support" Then
Frame.GetController(Of OffersOutVC).aBackToEditOfferOut.Active.SetItemValue("", True)
End If
If View.Id = "OfferOutHeader_OfferInHeader_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.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)
End If
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "OfferOutHeader_DeatilView" Then
@@ -235,16 +235,16 @@ Public Class OffersOutVC
Frame.GetController(Of OffersOutVC).aTotableD_OfferOut.Active.SetItemValue("", False)
Frame.GetController(Of OffersOutVC).aBackToRowEdit_OfferOut.Active.SetItemValue("", False)
Frame.GetController(Of OffersOutVC).aOffersOutFinalWidthVersion.Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "OrderInHeaderFromOfferOutRowsHeader_DetailView" Or View.Id = "OffersOutCloneForCRM_DetailView" Then
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If
If View.Id = "OfferInHeader_ListView_OfferOutHeaderInHeader" 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.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)
End If
End Sub
Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.vb
index 13cba1a..fd815a2 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.vb
@@ -22,21 +22,21 @@ Public Class OfferAskIn_VC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "OfferAskInCreateOfferAskOutFromCustomersPopUp_CustomersQualification_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.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.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 = "OfferAskInCreateOfferAskOutFromCustomersPopUp_CustomersQualification_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.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aOfferAskInRowsAddOperations_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferAskInRowsAddOperations.CustomizePopupWindowParams
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrderInHeader_PermissionVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrderInHeader_PermissionVC.vb
index 4cd4502..9dd6f5d 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrderInHeader_PermissionVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrderInHeader_PermissionVC.vb
@@ -28,10 +28,10 @@ Public Class OrderInHeader_PermissionVC
If View.Id = "OrderInHeader_ListView_Permission" Then
Frame.GetController(Of RefreshController).RefreshAction.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)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Dim _CollectionSource As CollectionSource = TryCast(View, ListView).CollectionSource
_CollectionSource.BeginUpdateCriteria()
@@ -43,10 +43,10 @@ Public Class OrderInHeader_PermissionVC
MyBase.OnDeactivated()
If View.Id = "OrderInHeader_ListView_Permission" Then
Frame.GetController(Of RefreshController).RefreshAction.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)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aOrderInHeader_Permission_Refresh_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aOrderInHeader_Permission_Refresh.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVC.vb
index ac1273e..660a897 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVC.vb
+++ b/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
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.vb
index 72135e8..ccdeab7 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.vb
+++ b/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
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb
index bda9f43..bdbc182 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb
+++ b/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)
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDisposeVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDisposeVC.vb
index 6fedc65..99da376 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDisposeVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDisposeVC.vb
@@ -24,30 +24,30 @@ Public Class OrderInToDisposeVC
MyBase.OnActivated()
If View.Id = "OrderInToDispose_DetailView" Then
- 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)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "OrderInToDispose_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 DevExpress.ExpressApp.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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "OrderInToDispose_DetailView" Then
- Frame.GetController(Of DeleteObjectsViewController)().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 NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "OrderInToDispose_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 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)
End If
End Sub
@@ -78,7 +78,7 @@ Public Class OrderInToDisposeVC
Dim _OrderOutRows As OrderOutRows = Nothing
Dim _OrderInTo As OrderInTo
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
If _OrderOutHeader IsNot Nothing Then
For Each _OrderInTo In _OrderInTo_ListEditor.ListView.SelectedObjects
If _OrderInTo.OrderOutRows Is Nothing Then
@@ -105,7 +105,7 @@ Public Class OrderInToDisposeVC
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
Finally
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Try
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.vb
index 600321b..7e60b4d 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.vb
@@ -40,42 +40,42 @@ Public Class OrderOutVC
Frame.GetController(Of OrderOutVC)().aBackToRowEdit_OrderOut.Active.SetItemValue("", False)
'--------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
If View.Id = "OrderOutHeader_OrderOutRows_ListView" Then '--- Kimenõ megrendelések sorai
- 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.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 OrderOutVC)().aUp_OrderOut.Active.SetItemValue("", True) ' -- Kimenõ megrendelés sorainak a row indexét csökkentjük
Frame.GetController(Of OrderOutVC)().aDown_OrderOut.Active.SetItemValue("", True) ' -- Kimenõ megrendelés sorainak a row indexét növeljük
End If
If View.Id = "OrderOutHeader_ListView_Editable" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "OrderOutHeader_ListView" Then
Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOut.Active.SetItemValue("", True)
- 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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "OrderOutRows_ListView_Table" Then
Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOut.Active.SetItemValue("", True)
End If
If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" 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.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)
End If
If View.Id = "OrderOutHeader_OrderInTo_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.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If
'--------- DETAILVIEWS -------------------------------------------------------------------------------------------------------------------------------
If View.Id = "OrderOutHeader_DetailView" Then
Frame.GetController(Of OrderOutVC)().aToTable_OrderOut.Active.SetItemValue("", True) ' -- Sor hozzáadása
Frame.GetController(Of OrderOutVC)().aToTableD_OrderOut.Active.SetItemValue("", True) ' -- Sor törlése
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Dim _OrderOutHeader As OrderOutHeader = TryCast(View.SelectedObjects(0), OrderOutHeader)
@@ -84,7 +84,7 @@ Public Class OrderOutVC
Frame.GetController(Of OrderOutVC)().aStornoOrderOut.Active.SetItemValue("", False)
End If
If _OrderOutHeader.IsEditable = False Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of OrderOutVC)().aFinalizeOrderOut.Active.SetItemValue("", False)
Frame.GetController(Of OrderOutVC)().aToTable_OrderOut.Active.SetItemValue("", False)
Frame.GetController(Of OrderOutVC)().aToTableD_OrderOut.Active.SetItemValue("", False)
@@ -123,23 +123,23 @@ Public Class OrderOutVC
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
If View.Id = "OrderOutHeader_DetailView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "OrderOutHeader_OrderOutRows_ListView" Then '--- Kimenõ megrendelések sorai
- 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.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)
End If
If View.Id = "OrderOutHeader_ListView" Then
Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOut.Active.SetItemValue("", False)
- 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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" Then
' RemoveHandler View.SelectionChanged, AddressOf OrderOutHeader_OrderOutRows_ListView_Corrigendum_SelectionChanged
@@ -152,20 +152,20 @@ Public Class OrderOutVC
Frame.GetController(Of OrderOutVC)().aFinalizeOrderOut.Active.SetItemValue("", False)
End If
If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" 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.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)
End If
If View.Id = "OrderOutHeader_ListView_Editable" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "OrderOutHeader_OrderInTo_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.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If
End Sub
'--------- Kimenõ megrendelések akciói ---------------------------------------------------------------------------------------------------------------------------------------
@@ -648,7 +648,7 @@ Public Class OrderOutVC
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _OrderOutRows As OrderOutRows
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
Dim _OrderOutRows_Collection_Total As New XPCollection(Of OrderOutRows)(_ocur.Session, CriteriaOperator.Parse("1=1"))
@@ -661,7 +661,7 @@ Public Class OrderOutVC
End If
Next
RaiseEvent FinalWork
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
For Each _OrderOutRows In View.SelectedObjects
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleVC.vb
index ada0d6b..58ff45a 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleVC.vb
@@ -29,23 +29,23 @@ Public Class RecipeExecutionSimpleVC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "RecipeTo_ListView" Then
- 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.LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "RecipeFrom_ListView" Then
- 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.LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "RecipeTo_ListView" Then
- 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.LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "RecipeFrom_ListView" Then
- 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.LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeOverProtocolVC.vb b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeOverProtocolVC.vb
index 53adadf..68259ef 100644
--- a/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeOverProtocolVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeOverProtocolVC.vb
@@ -26,51 +26,51 @@ Public Class TakeOverProtocolVC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "TakeoverProtocolHeader_ListView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "TakeoverProtocolHeader_TakeOverProtocolRows_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).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 CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "TakeoverProtocolRows_ListView_Finalized" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).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 CloneObjectViewController)?.Active.SetItemValue("", False)
AddHandler Frame.GetController(Of ListViewProcessCurrentObjectController).ProcessCurrentObjectAction.Executing, AddressOf TakeoverProtocolRows_ListView_Finalized_ProcessCurrentObjectAction_Executing
End If
'--------------------DetailView-----------------------
If View.Id = "TakeoverProtocolHeader_DetailView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "TakeoverProtocolHeader_ListView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "TakeoverProtocolHeader_TakeOverProtocolRows_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).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 CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "TakeoverProtocolRows_ListView_Finalized" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
RemoveHandler Frame.GetController(Of ListViewProcessCurrentObjectController).ProcessCurrentObjectAction.Executing, AddressOf TakeoverProtocolRows_ListView_Finalized_ProcessCurrentObjectAction_Executing
End If
'--------------------DetailView-----------------------
If View.Id = "TakeoverProtocolHeader_DetailView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aToTable_TPR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_TPR.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.vb b/Nuvolar.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.vb
index 3c80b1d..1f8a9d9 100644
--- a/Nuvolar.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.vb
@@ -34,10 +34,10 @@ Public Class CRM_LeadsVC
Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", False)
If View.Id = "CRM_Leads_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "CRM_Leads_DetailView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Opportunities_DetailView" Then
@@ -52,81 +52,81 @@ Public Class CRM_LeadsVC
'-----------------------------------------------------------------------------------------<<<
End If
If View.Id = "CRM_Leads_Activity_Task_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted")?.Active.SetItemValue("", False)
Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", True)
Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Leads_CRM_Leads_Activity_ListView" Then
Frame.GetController(Of CRM_LeadsVC)().aEdit_CRM_Leads_Activity.Active.SetItemValue("", True)
- '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.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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "CRM_Leads_CRM_Opportunity_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.SystemModule.NewObjectViewController)().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)
End If
If View.Id = "CRM_Leads_Activity_CRM_Leads_Activity_Task_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.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").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.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted")?.Active.SetItemValue("", False)
Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Leads_CRMNote_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
End If
If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then
- 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.LinkUnlinkController)()?.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
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "CRM_Leads_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Leads_DetailView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Leads_CRM_Leads_Activity_ListView" Then
- 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.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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Leads_CRM_Opportunity_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.SystemModule.NewObjectViewController)().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)
End If
If View.Id = "CRM_Leads_Activity_CRM_Leads_Activity_Task_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.SystemModule.NewObjectViewController)().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 CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", False)
End If
If View.Id = "CRM_Leads_Activity_Task_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted")?.Active.SetItemValue("", True)
Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", False)
Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", False)
End If
If View.Id = "CRM_Leads_CRMNote_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then
- 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.LinkUnlinkController)()?.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
End Sub
#End Region
diff --git a/Nuvolar.Module/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.vb b/Nuvolar.Module/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.vb
index 37da989..626d4b3 100644
--- a/Nuvolar.Module/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.vb
@@ -25,86 +25,86 @@ Public Class CRM_OpportunitiesVC
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", False)
If View.Id = "CRM_Opportunities_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Opportunities_DetailView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Opportunities_Contracts_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 = "CRM_Opportunities_CRM_Opportunities_Contacts_Roles_ListView" Then
- 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.LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "CRM_Opportunities_DeliveryNoteOutHeader_ListView" Then
- 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.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "CRM_Opportunities_InvoiceHeader_ListView" Then
- 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.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController)().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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Opportunities_PCIDetail_ListView" Then
- 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.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController)().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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "CRM_Opportunities_OfferOutHeader_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.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)
End If
If View.Id = "CRM_Opportunities_OfferInHeader_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.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 OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Opportunities_OrderInHeader_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.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)
End If
If View.Id = "CRM_Opportunities_CRM_Leads_Activity_ListView" Then
Frame.GetController(Of CRM_LeadsVC)().aEdit_CRM_Leads_Activity.Active.SetItemValue("", True)
- 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.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)
End If
If View.Id = "CRM_Opportunities_CRM_Leads_Activity_Task_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.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").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.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted")?.Active.SetItemValue("", False)
End If
If View.Id = "CRM_Opportunities_RegistryTask_ListView_NotSet" Then
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_Set_Registry.Active.SetItemValue("", True)
- 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)
+ 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)
Dim _ListView As ListView = TryCast(View, ListView)
Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource)
@@ -114,10 +114,10 @@ Public Class CRM_OpportunitiesVC
If View.Id = "CRM_Opportunities_RegistryTask_ListView_Set" Then
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", True)
Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", True)
- 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)
+ 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)
'// Csak az aktulis CRM gyhz tartoz ttelek kellenek
Dim _ListView As ListView = TryCast(View, ListView)
@@ -128,118 +128,118 @@ Public Class CRM_OpportunitiesVC
_ListView.CollectionSource.EndUpdateCriteria()
End If
If View.Id = "CRM_Opportunities_CRM_Opportunities_BusinessDirectory_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.DeleteObjectsViewController)()?.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 = "CRM_Opportunities_CRM_Opportunities_Customers_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.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)
End If
If View.Id = "CRM_Opportunities_CRM_Opportunities_CustomersContacts_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.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)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
If View.Id = "CRM_Opportunities_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", False)
End If
If View.Id = "CRM_Opportunities_DetailView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Opportunities_DeliveryNoteOutHeader_ListView" Then
- 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.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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Opportunities_CRM_Opportunities_Contacts_Roles_ListView" Then
- 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.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.NewObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Opportunities_InvoiceHeader_ListView" Then
- 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.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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", False)
End If
If View.Id = "CRM_Opportunities_PCIDetail_ListView" Then
- 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.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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Opportunities_OfferInHeader_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.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 OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", False)
End If
If View.Id = "CRM_Opportunities_OfferOutHeader_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.SystemModule.NewObjectViewController)().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)
End If
If View.Id = "CRM_Opportunities_OrderInHeader_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.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.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If
If View.Id = "CRM_Opportunities_CRM_Leads_Activity_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.SystemModule.NewObjectViewController)().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)
End If
If View.Id = "CRM_Opportunities_RegistryTask_ListView_NotSet" Then
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_Set_Registry.Active.SetItemValue("", True)
- 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)
+ 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)
End If
If View.Id = "CRM_Opportunities_RegistryTask_ListView_Set" Then
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", False)
Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.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)
+ 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)
End If
If View.Id = "CRM_Opportunities_CRM_Opportunities_BusinessDirectory_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.DeleteObjectsViewController)()?.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 = "CRM_Opportunities_CRM_Opportunities_CustomersOrder_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.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)
End If
If View.Id = "CRM_Opportunities_CRM_Opportunities_CustomersOrderContacts_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.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)
End If
End Sub
Private Sub aCRM_O_CreateOfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_CreateOfferOut.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Business/Products/InstallationVC.vb b/Nuvolar.Module/BusinessObjects/Business/Products/InstallationVC.vb
index 5a6eaaf..0f594c1 100644
--- a/Nuvolar.Module/BusinessObjects/Business/Products/InstallationVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/Products/InstallationVC.vb
@@ -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
diff --git a/Nuvolar.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.vb b/Nuvolar.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.vb
index 1872cb5..f273b70 100644
--- a/Nuvolar.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.vb
@@ -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
diff --git a/Nuvolar.Module/BusinessObjects/Business/Products/ProductsGant_VC.vb b/Nuvolar.Module/BusinessObjects/Business/Products/ProductsGant_VC.vb
index 5d06df9..68ffc1b 100644
--- a/Nuvolar.Module/BusinessObjects/Business/Products/ProductsGant_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/Products/ProductsGant_VC.vb
@@ -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
diff --git a/Nuvolar.Module/BusinessObjects/Business/Products/ProductsVC.vb b/Nuvolar.Module/BusinessObjects/Business/Products/ProductsVC.vb
index 4a991e6..9479635 100644
--- a/Nuvolar.Module/BusinessObjects/Business/Products/ProductsVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/Products/ProductsVC.vb
@@ -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
diff --git a/Nuvolar.Module/BusinessObjects/Business/Services/Popup/ServiceFinderVC.vb b/Nuvolar.Module/BusinessObjects/Business/Services/Popup/ServiceFinderVC.vb
index 23d4d51..68c71e0 100644
--- a/Nuvolar.Module/BusinessObjects/Business/Services/Popup/ServiceFinderVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/Services/Popup/ServiceFinderVC.vb
@@ -25,31 +25,31 @@ Public Class ServiceFinderVC
MyBase.OnActivated()
If View.Id = "ServiceFinder_DetailView" 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 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 = "ServiceFinder_ServiceSelect_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 = "ServiceFinder_ServiceSelected_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 = "ServiceFinder_ServiceFinderInfo_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
diff --git a/Nuvolar.Module/BusinessObjects/Business/Services/Services_VC.vb b/Nuvolar.Module/BusinessObjects/Business/Services/Services_VC.vb
index c292710..3343b83 100644
--- a/Nuvolar.Module/BusinessObjects/Business/Services/Services_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/Services/Services_VC.vb
@@ -23,15 +23,15 @@ Public Class Services_VC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "Services_Services_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
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "Services_Services_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
diff --git a/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInVC.vb b/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInVC.vb
index 9bf903e..b583e25 100644
--- a/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInVC.vb
@@ -43,22 +43,22 @@ Public Class StorageTransactionsInVC
'Frame.GetController(Of StorageTransactionsInVC)().aStorageInHeader_InsertInventoryTransfer.Active.SetItemValue("", False)
If View.Id = "StorageOutRows_ListView_Overstored" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id Like "Storage*Header_*View" Then '--Anyagmozgást ne lehessen törölni---
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If
If View.Id Like "Products*" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If
'------------------------------------------ LISTVIEWS --------------------------------------------------------------------------------------------------------
If View.Id = "StorageInHeader_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsInVC)().aBackToEdit_StorageInHeader.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", True)
@@ -70,39 +70,39 @@ Public Class StorageTransactionsInVC
If View.Id = "StorageInHeader_ListView_Editable" Then
Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "StorageInHeader_StorageInRows_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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsInVC)().aUp_StorageIn.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsInVC)().aDown_StorageIn.Active.SetItemValue("", True)
End If
If View.Id = "StorageInRows_ListView_Order" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If
If View.Id = "StorageInRows_ListView" Then
- 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.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "StorageInRowsFromPDACollectionPopup_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If
If View.Id = "StorageInRowsFromPDACollectionPopup_StoragePDACollectionRows_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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If
'------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------
'-- Ne lehessen stornózni, ha stornózott ---------
@@ -121,10 +121,10 @@ Public Class StorageTransactionsInVC
If _StorageInHeader.IsEditable = False Then
Frame.GetController(Of StorageTransactionsInVC)().aFinalize_StorageIn.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsInVC)().aFinalizeAndNew_StorageIn.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.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.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False)
Else
Frame.GetController(Of StorageTransactionsInVC)().aFinalizeAndNew_StorageIn.Active.SetItemValue("", True)
@@ -133,8 +133,8 @@ Public Class StorageTransactionsInVC
Frame.GetController(Of StorageTransactionsInVC)().aToTableD_SIH.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsInVC)().aStorageInFromPdaCollection.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.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.NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
End If
End If
@@ -147,43 +147,43 @@ Public Class StorageTransactionsInVC
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
'------------------------------------------ LISTVIEWS --------------------------------------------------------------------------------------------------------
If View.Id = "StorageInHeader_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
RemoveHandler View.SelectionChanged, AddressOf StorageInHeader_ListView_View_SelectionChanged
End If
If View.Id = "StorageInHeader_StorageInRows_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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If
If View.Id = "StorageInHeader_ListView_Editable" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "StorageInRows_ListView" Then
- 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.NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "StorageInRowsFromPDACollectionPopup_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If
If View.Id = "StorageInRowsFromPDACollectionPopup_StoragePDACollectionRows_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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If
'------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------
If View.Id = "StorageInRows_Split_PopUp_DetailView" Then
diff --git a/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.vb b/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.vb
index ea36d81..f97b3d6 100644
--- a/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.vb
@@ -37,108 +37,108 @@ Public Class InventoryVC
Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", False)
If View.Id = "InventoryHeader_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- ' Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Teszt miatt ideiglenesen enedlyezett
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ ' Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False) Teszt miatt ideiglenesen enedlyezett
Frame.GetController(Of InventoryVC).aCreateInventoryHeader.Active.SetItemValue("", True)
Frame.GetController(Of InventoryVC).aCloseInventoryHeader.Active.SetItemValue("", True)
End If
If View.Id = "InventoryHeader_InventorySC_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 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 AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
Frame.GetController(Of InventoryVC).aCreatePDACollection.Active.SetItemValue("", True)
End If
If View.Id = "InventoryHeader_InventorySIR_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 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 AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
End If
If View.Id = "InventoryHeader_InventoryPDA_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 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 AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
End If
If View.Id = "InventoryHeader_InventoryDifferent_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 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 AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", True)
End If
If View.Id = "Storage_LookupListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "InventoryParameters_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
'--------------DeatilViewZ-------------
If View.Id = "InventoryParameters_DetailView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "InventoryHeader_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).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 InventoryVC).aCreateInventoryHeader.Active.SetItemValue("", False)
Frame.GetController(Of InventoryVC).aCloseInventoryHeader.Active.SetItemValue("", False)
End If
If View.Id = "Storage_LookupListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "InventoryHeader_InventorySC_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
Frame.GetController(Of InventoryVC).aCreatePDACollection.Active.SetItemValue("", False)
End If
If View.Id = "InventoryHeader_InventorySIR_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
End If
If View.Id = "InventoryHeader_InventoryPDA_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
End If
If View.Id = "InventoryHeader_InventoryDifferent_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", False)
End If
If View.Id = "InventoryParameters_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
'--------------DeatilViewZ-------------
If View.Id = "InventoryHeader_DetailView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "InventoryParameters_DetailView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aCreateInventoryHeader_Cancel(sender As Object, e As System.EventArgs) Handles aCreateInventoryHeader.Cancel
diff --git a/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutVC.vb b/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutVC.vb
index 010c563..606ca98 100644
--- a/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutVC.vb
@@ -47,45 +47,45 @@ Public Class StorageTransactionsOutVC
End If
If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsOutVC)().aUp_StorageOut.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsOutVC)().aDown_StorageOut.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsOutVC).aCreatePDACollectionFromStorageOut.Active.SetItemValue("", True)
End If
If View.Id = "StorageOutHeader_ListView_Editable" Then
Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "StorageOutHeader_ListView" Then
Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "StorageOutRows_ListView_Order" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsOutVC).aBackToStorageOutFromOrderIn.Active.SetItemValue("", True)
End If
If View.Id = "StorageOutRows_ListView_DeliveryNote" Then
Frame.GetController(Of StorageTransactionsOutVC)().aCreateDeliveryNote.Active.SetItemValue("", True)
End If
If View.Id = "StorageOutRowsFromPDACollectionPopup_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
'------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------
If View.Id = "StorageOutHeader_DetailView" Then
- 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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader)
If _StorageOutHeader.IsEditable = False And _StorageOutHeader.IsStorno = False Then
@@ -97,7 +97,7 @@ Public Class StorageTransactionsOutVC
Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader)
Dim _IsFromOrderIn As Boolean = False
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", True)
If _StorageOutHeader IsNot Nothing Then
For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows ' Végigmegy a kit biz sorain és ha talál olyan sort ahol van hozzá megrendelési sor akkor nem engedi stornózni
@@ -116,7 +116,7 @@ Public Class StorageTransactionsOutVC
If _StorageOutHeader.IsEditable = False Then
Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", False)
Else
Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", True)
@@ -132,14 +132,14 @@ Public Class StorageTransactionsOutVC
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
'------------------------------------------ LISTVIEWS --------------------------------------------------------------------------------------------------------
If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "StorageOutHeader_ListView" Then
Frame.GetController(Of StorageTransactionsOutVC)().aBackToEdit_StorageOut.Active.SetItemValue("", False)
@@ -147,44 +147,44 @@ Public Class StorageTransactionsOutVC
End If
If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)()?.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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsOutVC)().aUp_StorageOut.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsOutVC)().aDown_StorageOut.Active.SetItemValue("", False)
End If
If View.Id = "StorageOutHeader_ListView_Editable" Then
Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "StorageOutHeader_ListView" Then
Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "StorageOutRows_ListView_Order" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsOutVC).aBackToStorageOutFromOrderIn.Active.SetItemValue("", False)
End If
If View.Id = "StorageOutRows_ListView_DeliveryNote" Then
Frame.GetController(Of StorageTransactionsOutVC)().aCreateDeliveryNote.Active.SetItemValue("", False)
End If
If View.Id = "StorageOutRowsFromPDACollectionPopup_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
'------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------
If View.Id = "StorageOutHeader_DetailView" Then
- 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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader)
If _StorageOutHeader.IsEditable = False And _StorageOutHeader.IsStorno = False Then
@@ -196,7 +196,7 @@ Public Class StorageTransactionsOutVC
Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader)
Dim _IsFromOrderIn As Boolean = False
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", False)
If _StorageOutHeader IsNot Nothing Then
For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows ' Végigmegy a kit biz sorain és ha talál olyan sort ahol van hozzá megrendelési sor akkor nem engedi stornózni
@@ -215,7 +215,7 @@ Public Class StorageTransactionsOutVC
If _StorageOutHeader.IsEditable = False Then
Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", False)
Else
Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False)
diff --git a/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/PDA/StoragePDACollectionHeaderVC.vb b/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/PDA/StoragePDACollectionHeaderVC.vb
index 09b9fbb..3fe1aba 100644
--- a/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/PDA/StoragePDACollectionHeaderVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/PDA/StoragePDACollectionHeaderVC.vb
@@ -35,20 +35,20 @@ Public Class StoragePDACollectionHeaderVC
If View.Id = "StoragePDACollectionHeader_ListView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "StoragePDACollectionHeader_StoragePDACollectionRows_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController)().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 CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC)().aGetAuditTrail.Active.SetItemValue("", False)
End If
'--------------------------DetailViewZ----------------------------------------
If View.Id = "StoragePDACollectionHeader_DetailView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "StorageInFromPDACollectionPopup_DetailView" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
@@ -57,20 +57,20 @@ Public Class StoragePDACollectionHeaderVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "StoragePDACollectionHeader_ListView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "StoragePDACollectionHeader_StoragePDACollectionRows_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController)().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 CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC)().aGetAuditTrail.Active.SetItemValue("", True)
End If
'--------------------------DetailViewZ----------------------------------------
If View.Id = "StoragePDACollectionHeader_DetailView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "StorageInFromPDACollectionPopup_DetailView" Then
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
@@ -323,7 +323,7 @@ Public Class StoragePDACollectionHeaderVC
' _StreamReader.Close()
' _StreamFile.Close()
' File.Delete(_DeliveryNoteInType.PDAPath)
- ' Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ ' Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
' Using parser As New TextFieldParser(New StringReader(_StrBuffer))
' parser.TextFieldType = FieldType.Delimited
' parser.SetDelimiters(",")
@@ -350,7 +350,7 @@ Public Class StoragePDACollectionHeaderVC
' End While
' End Using
' _onew.CommitChanges()
- ' Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ ' Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
' End If
'Catch ex As Exception
' MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
@@ -506,7 +506,7 @@ Public Class StoragePDACollectionHeaderVC
' _StreamReader.Close()
' _StreamFile.Close()
' File.Delete(_DeliveryNoteInType.PDAPath)
- ' Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ ' Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
' Using parser As New TextFieldParser(New StringReader(_StrBuffer))
' parser.TextFieldType = FieldType.Delimited
' parser.SetDelimiters(",")
diff --git a/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_VC.vb b/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_VC.vb
index 31d615c..a37b50a 100644
--- a/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_VC.vb
@@ -23,24 +23,24 @@ Public Class StorageComputedLocations_VC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "MoveProductsOtherLocation_PopUp_StorageComputedLocations_ListView" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of ModificationsController)().Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).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 ModificationsController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of ModificationsController)().Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).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 ModificationsController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
End Sub
Private Sub aMoveProductsOtherLocation_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aMoveProductsOtherLocation.CustomizePopupWindowParams
diff --git a/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.vb b/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.vb
index 09eb21d..98739dd 100644
--- a/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.vb
@@ -29,10 +29,10 @@ Public Class StorageComputedVC
MyBase.OnActivated()
'------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
If View.Id Like "StorageComputed_LookupListView" Then '-- StorageComputed csak programból állítható elő !!!
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", False)
+ 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
@@ -41,21 +41,21 @@ Public Class StorageComputedVC
MyBase.OnDeactivated()
'----------------- LISTVIEWS ----------------------------------------------------------------------------------------------------------------------------
If View.Id Like "StorageComputed_LookupListView" Then '-- StorageComputed csak programból állítható elő !!!
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", True)
- 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", True)
+ 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If
'----------------- DETAILVIEWS --------------------------------------------------------------------------------------------------------------------------
'----------------- OTHERVIEWS ---------------------------------------------------------------------------------------------------------------------------
If View.Id Like "Storage*Header_*" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)()?.Active.SetItemValue("", True)
End If
If View.Id Like "Products*" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Business/Subcontractor/Subcontractor_VC.vb b/Nuvolar.Module/BusinessObjects/Business/Subcontractor/Subcontractor_VC.vb
index e3ab5db..af578e6 100644
--- a/Nuvolar.Module/BusinessObjects/Business/Subcontractor/Subcontractor_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/Subcontractor/Subcontractor_VC.vb
@@ -29,30 +29,30 @@ Public Class Subcontractor_VC
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
If View.Id = "Subcontractor_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "Subcontractor_SubcontractorCustomers_ListView" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
Frame.GetController(Of Subcontractor_VC).aSelectCustomersSubcontractor.Active.SetItemValue("", True)
End If
If View.Id = "Subcontractor_SubcontractorWorksheetType_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
End If
If View.Id = "PCIGroup_ListView_Subcontractor" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).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 CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid = ?", SecuritySystem.CurrentUserId))
@@ -68,40 +68,40 @@ Public Class Subcontractor_VC
End If
'------------------DeatailViews----------------------
If View.Id = "Subcontractor_DetailView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "Subcontractor_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "Subcontractor_SubcontractorCustomers_ListView" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
End If
If View.Id = "Subcontractor_SubcontractorWorksheetType_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
End If
If View.Id = "PCIGroup_ListView_Subcontractor" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
'------------------DeatailViews----------------------
If View.Id = "Subcontractor_DetailView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aSelectCustomersSubcontractor_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomersSubcontractor.CustomizePopupWindowParams
diff --git a/Nuvolar.Module/BusinessObjects/Business/Technologies/Technologies_VC.vb b/Nuvolar.Module/BusinessObjects/Business/Technologies/Technologies_VC.vb
index 9ae0077..ae55c3c 100644
--- a/Nuvolar.Module/BusinessObjects/Business/Technologies/Technologies_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/Technologies/Technologies_VC.vb
@@ -23,65 +23,65 @@ Public Class Technologies_VC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "Technologies_Products_ListView" Then
- 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 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)
End If
If View.Id = "Technologies_Services_ListView" Then
- 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 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)
End If
If View.Id = "Technologies_Customers_ListView" Then
- 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 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)
End If
If View.Id = "Technologies_Contacts_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "Technologies_Technologies_BusinessDirectory_ListView" Then
- 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 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)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "Technologies_Products_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController)().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 CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "Technologies_Services_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController)().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 CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "Technologies_Customers_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController)().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 CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "Technologies_Contacts_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "Technologies_Technologies_BusinessDirectory_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController)().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 CloneObjectViewController)()?.Active.SetItemValue("", True)
+ 'Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ 'Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
End Sub
#End Region
diff --git a/Nuvolar.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.vb b/Nuvolar.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.vb
index 6237be2..0d49b90 100644
--- a/Nuvolar.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.vb
@@ -46,7 +46,7 @@ Public Class WorkSheet_VC
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
If View.Id = "WorkSheet_Header_ListView_Subcontractor_Manage" Then
- 'Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ 'Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of WorkSheet_VC).aReOpenWorksheetHeader.Active.SetItemValue("", True)
Frame.GetController(Of WorkSheet_VC).aReOpenWorksheetHeader.TargetObjectsCriteria = "WorkSheetState = 'eClosed'"
@@ -61,11 +61,11 @@ Public Class WorkSheet_VC
If View.Id = "WorkSheet_Header_ListView_Subcontractor" Or _
View.Id = "WorkSheet_Header_ListView_Subcontractor_Closed" Or _
View.Id = "WorkSheet_Header_ListView_Subcontractor_Ready" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)))
@@ -117,101 +117,101 @@ Public Class WorkSheet_VC
_CS.EndUpdateCriteria()
End If
If View.Id = "WorkSheet_Header_ListView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of WorkSheet_VC).aPrintWorkSheet.Active.SetItemValue("", True)
End If
If View.Id = "WorkSheet_Header_WorkSheet_Rows_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
AddHandler View.SelectionChanged, AddressOf WorkSheet_Header_WorkSheet_Rows_ListView_SelectionChanged
End If
If View.Id = "WorkSheet_Header_StorageOutRows_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
If View.Id = "WorkSheet_Header_Worksheet_CostRows_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
AddHandler View.SelectionChanged, AddressOf WorkSheet_Header_Worksheet_CostRows_ListView_SelectionChanged
End If
If View.Id = "WorkSheet_Header_WorkSheet_ReopenReason_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "WorkSheet_Header_Worksheet_Documets_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
If View.Id = "CreateInvoiceFromWorksheetCost_PopUp_Worksheet_CostRows_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
If View.Id = "WorkSheet_Header_WorkSheet_Header_HRPerson_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of WorkSheet_VC).aAddHRPerson_WorkSheet_Header.Active.SetItemValue("", True)
End If
If View.Id = "WorkSheet_Header_AddHRPerson_PopUp_ListView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "OpenWorkSheet_SubcontractorPopUp_WorkSheet_Header_Collection_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
If View.Id = "CRM_Opportunities_WorkSheet_Header_ListView" Then
Frame.GetController(Of WorkSheet_VC).aPrintWorkSheet.Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
'----------------DeatilViewZ----------------------------------
If View.Id = "OpenWorkSheet_SubcontractorPopUp_DetailView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "CloseWorkSheet_SubcontractorpopUp_DetailView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "WorkSheet_Header_DetailView_Subcontractor" Then
- 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 NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "WorkSheet_Header_DetailView" Then
- 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 NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of WorkSheet_VC).aToTableWSR.Active.SetItemValue("", True)
Frame.GetController(Of WorkSheet_VC).aToTableWSR_D.Active.SetItemValue("", True)
Frame.GetController(Of WorkSheet_VC).aCreateWorksheetCostRows.Active.SetItemValue("", True)
@@ -224,7 +224,7 @@ Public Class WorkSheet_VC
MyBase.OnDeactivated()
If View.Id = "WorkSheet_Header_ListView_Subcontractor_Manage" Then
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
Frame.GetController(Of WorkSheet_VC).aReOpenWorksheetHeader.Active.SetItemValue("", False)
Frame.GetController(Of WorkSheet_VC).aOpenSubcontractorInvoice.Active.SetItemValue("", False)
@@ -232,98 +232,98 @@ Public Class WorkSheet_VC
End If
If View.Id = "WorkSheet_Header_ListView_Subcontractor" Or _
View.Id = "WorkSheet_Header_ListView_Subcontractor_Closed" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
Frame.GetController(Of WorkSheet_VC).aCloseWorkSheet_Subcontractor.Active.SetItemValue("", False)
Frame.GetController(Of WorkSheet_VC).aOpenWorkSheet_Subcontractor.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
End If
If View.Id = "WorkSheet_Header_ListView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "WorkSheet_Header_WorkSheet_Rows_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
RemoveHandler View.SelectionChanged, AddressOf WorkSheet_Header_WorkSheet_Rows_ListView_SelectionChanged
End If
If View.Id = "WorkSheet_Header_StorageOutRows_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
End If
If View.Id = "WorkSheet_Header_Worksheet_CostRows_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
RemoveHandler View.SelectionChanged, AddressOf WorkSheet_Header_Worksheet_CostRows_ListView_SelectionChanged
End If
If View.Id = "WorkSheet_Header_WorkSheet_ReopenReason_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController).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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "WorkSheet_Header_Worksheet_Documets_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
End If
If View.Id = "CreateInvoiceFromWorksheetCost_PopUp_Worksheet_CostRows_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
End If
If View.Id = "WorkSheet_Header_WorkSheet_Header_HRPerson_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
Frame.GetController(Of WorkSheet_VC).aAddHRPerson_WorkSheet_Header.Active.SetItemValue("", False)
End If
If View.Id = "WorkSheet_Header_AddHRPerson_PopUp_ListView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "OpenWorkSheet_SubcontractorPopUp_WorkSheet_Header_Collection_ListView" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
End If
'---------------------DetailViewZ----------------
If View.Id = "OpenWorkSheet_SubcontractorPopUp_DetailView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "CloseWorkSheet_SubcontractorpopUp_DetailView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "WorkSheet_Header_DetailView_Subcontractor" Then
- 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 NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "WorkSheet_Header_DetailView" Then
- 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 NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of WorkSheet_VC).aToTableWSR.Active.SetItemValue("", False)
Frame.GetController(Of WorkSheet_VC).aToTableWSR_D.Active.SetItemValue("", False)
Frame.GetController(Of WorkSheet_VC).aCreateWorksheetCostRows.Active.SetItemValue("", False)
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb
index b832a6e..9b6284f 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb
@@ -41,10 +41,10 @@ Public Class GLAccountsVC
Frame.GetController(Of GLAccountsVC).aFinal_GLAccounts.Active.SetItemValue("", False)
Frame.GetController(Of GLAccountsVC).aFinalAndNew_GLAccounts.Active.SetItemValue("", False)
Frame.GetController(Of GLAccountsVC).aViewPCIDW_GLAccounts.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).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.ModificationsController)?.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)
End Sub
Protected Overrides Sub OnActivated()
@@ -66,7 +66,7 @@ Public Class GLAccountsVC
If _GLAccounts Is Nothing Then
Else
If _GLAccounts.IsEditable = True And _GLAccounts.IsStorno = False Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", True)
Frame.GetController(Of GLAccountsVC).aToTable_GLAccounts.Active.SetItemValue("", True)
Frame.GetController(Of GLAccountsVC).aToTableD_GLAccounts.Active.SetItemValue("", True)
Frame.GetController(Of GLAccountsVC).aBackToRowEdit_GLAccounts.Active.SetItemValue("", True)
@@ -82,7 +82,7 @@ Public Class GLAccountsVC
End If
End If
If View.Id = "GLAccounts_ListView_Editable" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) 'Akkor sem klónozható a gyári cloneactionnal, ha még szerkeszthető?
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False) 'Akkor sem klónozható a gyári cloneactionnal, ha még szerkeszthető?
Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", False)
End If
If View.Id = "Vivaldi_GLAccounts_ListView" Or View.Id = "Corner_GLAccounts_ListView" Then
@@ -90,16 +90,16 @@ Public Class GLAccountsVC
End If
If View.Id = "GLAccounts_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of GLAccountsVC).aViewPCIDW_GLAccounts.Active.SetItemValue("", True)
Frame.GetController(Of GLAccountsVC).aPCICheckGLAccounts.Active.SetItemValue("", True)
Frame.GetController(Of GLAccountsVC).aCloneGLAccounts.Active.SetItemValue("", True)
End If
'------------------- LISTVIEW -----------------------------------------------------------------------------------------------------
If View.Id Like "GLHeader_GLRows_ListView_Accounts" Then
- 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.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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "GLAccounts_ListView_Deleted" Then
Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", False)
@@ -128,12 +128,12 @@ Public Class GLAccountsVC
Frame.GetController(Of GLAccountsVC).aFinal_GLAccounts.Active.SetItemValue("", True)
Frame.GetController(Of GLAccountsVC).aFinalAndNew_GLAccounts.Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).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)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.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)
Frame.GetController(Of GLAccountsVC).aCloneGLAccounts.Active.SetItemValue("", False)
If View.Id = "GLAccounts_DetailView" Then
@@ -843,7 +843,7 @@ Public Class GLAccountsVC
Dim _Controlling As Controlling
If _ListView IsNot Nothing Then
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
For Each _RegistryTelephone In _ListView.CollectionSource.List
@@ -1016,7 +1016,7 @@ Public Class GLAccountsVC
End If
_ocur.CommitChanges()
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
View.Refresh()
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.vb
index 0a04682..50905aa 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.vb
@@ -42,12 +42,12 @@ Public Class AssetsPCIVC
Frame.GetController(Of AssetsPCIVC).aViewLateCharges.Active.SetItemValue("", False)
If View.Id Like "AssetsPCIHeader_AssetsPCIRows_ListView*" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).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 ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of AssetsPCIVC).aViewLateCharges.Active.SetItemValue("", True)
End If
If View.Id = "PCIGroup_ListView_DelayedPay" Then
@@ -55,11 +55,11 @@ Public Class AssetsPCIVC
Frame.GetController(Of AssetsPCIVC).aViewLateCharges.Active.SetItemValue("", True)
End If
If View.Id = "AssetsHandling_ListView_Active" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
- If TryCast(SecuritySystem.CurrentUser, User).UserName <> "SysAdmin" 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.ModificationsController)?.Active.SetItemValue("", False)
+ If TryCast(SecuritySystem.CurrentUser, User).UserName <> "SysAdmin" 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 AssetsPCIVC).aPrintAssetsHandling.Active.SetItemValue("", True)
Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Active.SetItemValue("", True)
@@ -72,11 +72,11 @@ Public Class AssetsPCIVC
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
End If
If View.Id = "AssetsHandling_ListView_All" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
- If TryCast(SecuritySystem.CurrentUser, User).UserName <> "SysAdmin" 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.ModificationsController)?.Active.SetItemValue("", False)
+ If TryCast(SecuritySystem.CurrentUser, User).UserName <> "SysAdmin" 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 AssetsPCIVC).aPrintAssetsHandling.Active.SetItemValue("", True)
Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Active.SetItemValue("", True)
@@ -92,38 +92,38 @@ Public Class AssetsPCIVC
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Active.SetItemValue("", False)
Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Active.SetItemValue("", False)
Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling3.Active.SetItemValue("", False)
Frame.GetController(Of AssetsPCIVC).aCreateLateCharges.Active.SetItemValue("", False)
If View.Id Like "AssetsPCIHeader_AssetsPCIRows_ListView*" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).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 ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
End If
If View.Id = "AssetsHandling_ListView_Active" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).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.ModificationsController)?.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)
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
End If
If View.Id = "AssetsHandling_ListView_All" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).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.ModificationsController)?.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)
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
End If
@@ -932,7 +932,7 @@ Public Class AssetsPCIVC
Dim _InvoiceHeader As InvoiceHeader
Dim _PCIGroup As PCIGroup
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
RaiseEvent InitWork(1, 1, TryCast(View, ListView).CollectionSource.List.Count)
For Each _PCIGroup In TryCast(View, ListView).CollectionSource.List
RaiseEvent DoWork()
@@ -952,7 +952,7 @@ Public Class AssetsPCIVC
Next
_uow.CommitChanges()
RaiseEvent FinalWork()
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
Else
Dim _AssetsHandling As AssetsHandling
Dim _AssetsHandling_Collection As New XPCollection(Of AssetsHandling)(_ocur.Session, CriteriaOperator.Parse("NoAssetsHandling = False and IsActive=True"))
@@ -1216,7 +1216,7 @@ Public Class AssetsPCIVC
Dim _AssetsHandlingGroupChange As AssetsHandlingGroupChange = TryCast(e.PopupWindow.View.SelectedObjects(0), AssetsHandlingGroupChange)
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
For Each _AssetsHandling In View.SelectedObjects
RaiseEvent DoWork()
If _AssetsHandlingGroupChange.IsQueueIndex Then
@@ -1239,7 +1239,7 @@ Public Class AssetsPCIVC
Next
RaiseEvent FinalWork()
_ocur.CommitChanges()
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Sub
Private Sub aViewLateCharges_AssetsHandling_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aViewLateCharges_AssetsHandling.CustomizePopupWindowParams
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb
index 1dab431..c117d04 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb
@@ -35,25 +35,25 @@ Public Class GLBankVC
Frame.GetController(Of GLBankVC).aRecalculateBallance.Active.SetItemValue("", False)
If View.Id Like "GLHeader_GLRows_ListView_Bank" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).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 CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Dim nv As ListView = CType(View, ListView)
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged
End If
If View.Id = "GLBank_DetailView" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Dim _GLBank As GLBank = TryCast(View.CurrentObject, GLBank)
If _GLBank Is Nothing Then
Else
If _GLBank.IsEditable = False Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
Frame.GetController(Of GLBankVC).aFinal_GLBank.Active.SetItemValue("", False)
Frame.GetController(Of GLBankVC).aFinalAndNew_GLBank.Active.SetItemValue("", False)
@@ -73,30 +73,30 @@ Public Class GLBankVC
End If
End If
If _GLBank.IsStorno = True Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
End If
End If
If View.Id = "GLBank_ListView" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of GLBankVC).aMakeEditable_GLBank.Active.SetItemValue("", True)
Frame.GetController(Of GLBankVC).aRecalculateBallance.Active.SetItemValue("", True)
End If
If View.Id = "GLBank_ListView_Editable" Then
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf GLBank_DeleteAction_Executed
- Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "PCIGroup_ListView_HUF" Then
- 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 DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "GLBankPrepareName_GLBankPrepareNameGroup_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
End If
@@ -109,23 +109,23 @@ Public Class GLBankVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "GLBank_ListView" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id Like "GLHeader_GLRows_ListView_Bank" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).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 CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.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 = "PCIGroup_ListView_HUF" Then
- 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)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.vb
index 708567c..b69a040 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.vb
@@ -52,9 +52,9 @@ Public Class GLBaseVC
End If
If View.Id Like "GLRows_ListView_*" Then
Frame.GetController(Of GLBaseVC).aGLBaseOpenDocument.Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).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 NewObjectViewController)?.Active.SetItemValue("", False)
+ 'Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "GLRows_ListView_Error_NoDetails" Then
Dim _ListView As ListView = TryCast(View, ListView)
@@ -70,9 +70,9 @@ Public Class GLBaseVC
MyBase.OnDeactivated()
If View.Id Like "GLRows_ListView_*" Then
Frame.GetController(Of GLBaseVC).aGLBaseOpenDocument.Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aGLBaseDivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLBaseDivideRows.CustomizePopupWindowParams
@@ -251,7 +251,7 @@ Public Class GLBaseVC
'Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
- 'Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ 'Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
'Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow, CriteriaOperator.Parse("isnull(InvoiceHeader)=False and isnull(DateExecution)=True"))
'Dim _InvoiceRows As InvoiceRows
@@ -288,7 +288,7 @@ Public Class GLBaseVC
- 'Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ 'Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Sub
Private Sub aDeleteGLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeleteGLRows.Execute
@@ -428,7 +428,7 @@ Public Class GLBaseVC
Dim _GLRows As GLRows
Dim _ChartOfAccounts As ChartOfAccounts
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
For Each _GLRows In View.SelectedObjects
RaiseEvent DoWork()
_GLRows = _onew.GetObject(_GLRows)
@@ -450,7 +450,7 @@ Public Class GLBaseVC
Next
_onew.CommitChanges()
RaiseEvent FinalWork
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Sub
Private Function GetFilterforNoDetails() As String
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideVC.vb
index f15cd2a..c2e89d5 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideVC.vb
@@ -31,16 +31,16 @@ Public Class GLRowsDivideVC
Frame.GetController(Of GLRowsDivideVC).aToTable_GLRowsDivide.Active.SetItemValue("", False)
Frame.GetController(Of GLRowsDivideVC).aToTableD_GLRowsDivide.Active.SetItemValue("", False)
If View.Id Like "GLRowsDivideH_GLRows_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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id Like "GLRowsDivideH_GLRowsDivideR_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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id Like "GLRowsDivideH_DetailView*" Then
Frame.GetController(Of GLRowsDivideVC).aFindPCI.Active.SetItemValue("", True)
@@ -49,10 +49,10 @@ Public Class GLRowsDivideVC
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf GLRowsDivideH_DetailView_AcceptAction_Executing
End If
If View.Id = "GLRowsDivideH_GLRows_ListView_ConnectionDivide" Then
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
If View.Id = "GLRowsDivideH_GLRowsDivideR_ListView_ConnectionDivide" Then
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
End Sub
Sub GLRowsDivideH_DetailView_AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
@@ -61,16 +61,16 @@ Public Class GLRowsDivideVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id Like "GLRowsDivideH_GLRows_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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id Like "GLRowsDivideH_GLRowsDivideR_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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id Like "GLRowsDivideH_DetailView*" Then
Frame.GetController(Of GLRowsDivideVC).aFindPCI.Active.SetItemValue("", False)
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.vb
index a4bc960..4a14e7f 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.vb
@@ -63,7 +63,7 @@ Public Class BookEntryVC
Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", True)
Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", True)
Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If
If View.Id = "GLAccountRowsforBookEntry_ListView" Then
Frame.GetController(Of BookEntryVC).aBookEntryCheckGotoNextStep.Active.SetItemValue("", True)
@@ -73,7 +73,7 @@ Public Class BookEntryVC
Frame.GetController(Of BookEntryVC).aVATMerge.Active.SetItemValue("", True)
Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", True)
Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
GenerateInvoiceWorkflowStep(_uow)
@@ -88,27 +88,27 @@ Public Class BookEntryVC
End If
If View.Id = "InvoiceHeader_ListView_GLAccounts" 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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", True)
End If
If View.Id = "RegistryHeader_ListView_GLAccounts" 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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", True)
End If
If View.Id = "GLRows_ListView_Account" Or View.Id = "GLRows_ListView_All" Or View.Id = "GLRows_ListView_Bank" Or _
View.Id = "GLRows_ListView_Cassa" Or View.Id = "GLRows_ListView_Compensation" Then
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", True)
- 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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id Like "GLRows_ListView_Error*" Then
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", True)
@@ -124,10 +124,10 @@ Public Class BookEntryVC
End If
If View.Id Like "GLAccountRowsforBookEntry*" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController)().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 CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "OrderInHeader_PCIDetail_ListView" Then
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsDivide.Active.SetItemValue("", True)
@@ -137,7 +137,7 @@ Public Class BookEntryVC
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", True)
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsDivide.Active.SetItemValue("", True)
@@ -152,40 +152,40 @@ Public Class BookEntryVC
Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", False)
Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", False)
Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If
If View.Id = "GLAccountRowsforBookEntry_ListView" Then
Frame.GetController(Of BookEntryVC).aBookEntryCheckGotoNextStep.Active.SetItemValue("", False)
Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", False)
Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", False)
Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
End If
If View.Id = "InvoiceHeader_ListView_GLAccounts" 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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", False)
End If
If View.Id = "RegistryHeader_ListView_GLAccounts" 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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", False)
End If
If View.Id = "GLRows_ListView_Account" Or View.Id = "GLRows_ListView_Bank" Or _
View.Id = "GLRows_ListView_Cassa" Or View.Id = "GLRows_ListView_Compensation" Then
Frame.GetController(Of Nuvolar.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", False)
- 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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "GLRows_ListView_Bank" Or _
View.Id = "GLRows_ListView_Cassa" Or View.Id = "GLRows_ListView_Compensation" Then
@@ -193,10 +193,10 @@ Public Class BookEntryVC
End If
If View.Id Like "GLAccountRowsforBookEntry*" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController)().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 CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
@@ -306,7 +306,7 @@ Public Class BookEntryVC
e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck)
End Sub
Private Sub aGLRowsCheck_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLRowsCheck.Execute
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace 'TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck)
@@ -458,7 +458,7 @@ Public Class BookEntryVC
_onew.CommitChanges()
RaiseEvent FinalWork
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
@@ -1098,7 +1098,7 @@ Public Class BookEntryVC
If _InvoiceChoiceNextStep IsNot Nothing Then
If _InvoiceHeaderCollection.Count > 0 Then
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
RaiseEvent InitWork(1, 1, _InvoiceHeaderCollection.Count)
For Each _InvoiceHeader In _InvoiceHeaderCollection
For Each _InvoiceRows In _InvoiceHeader.InvoiceRows
@@ -1107,7 +1107,7 @@ Public Class BookEntryVC
Next
Next
RaiseEvent FinalWork
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End If
End If
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb
index f2669dc..5d56df2 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb
@@ -38,24 +38,24 @@ Public Class GLCassaVC
Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False)
If View.Id = "GLCassa_ListView" Then '-- Lista nézete -----------------------------------------------------------------------------------
Frame.GetController(Of GLCassaVC).aPrintCassaDocument.Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", True)
Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
End If '---------------------------------------------------------------------------------------------------------------------------------
If View.Id = "GLCassa_ListView_Editable" Then '-- Lista nézete -----------------------------------------------------------------------------------
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf GLCassa_DeleteAction_Executed
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "DocumentNumber=''"
End If
If View.Id Like "GLHeader_GLRows_ListView_Cassa" Then
- Frame.GetController(Of LinkUnlinkController)().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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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 ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
'Dim nv As ListView = CType(View, ListView)
'Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
@@ -64,31 +64,31 @@ Public Class GLCassaVC
End If
If View.Id = "GLCassa_DetailView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Dim _GLCassa As GLCassa = TryCast(View.CurrentObject, GLCassa)
If _GLCassa Is Nothing Then
Else
If _GLCassa.IsEditable = False Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of GLCassaVC).aFinal_GLCassa.Active.SetItemValue("", False)
Frame.GetController(Of GLCassaVC).aFinalAndNew_GLCassa.Active.SetItemValue("", False)
Frame.GetController(Of GLCassaVC).aBackToRowEdit_GLCassa.Active.SetItemValue("", False)
Frame.GetController(Of GLCassaVC).aToTable_GLCassa.Active.SetItemValue("", False)
Frame.GetController(Of GLCassaVC).aToTableD_GLCassa.Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Else
Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False)
If _GLCassa.DocumentNumber IsNot Nothing Then
If _GLCassa.DocumentNumber <> "" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
End If
End If
If _GLCassa.IsStorno = True Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False)
End If
End If
@@ -99,23 +99,23 @@ Public Class GLCassaVC
If View.Id = "GLCassa_ListView" Then '-- Lista nézete -----------------------------------------------------------------------------------
Frame.GetController(Of GLCassaVC).aPrintCassaDocument.Active.SetItemValue("", False)
Frame.GetController(Of GLCassaVC).aRecalculateSelectedGLCassa.Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False)
Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If '---------------------------------------------------------------------------------------------------------------------------------
If View.Id = "GLCassa_ListView_Editable" Then '-- Lista nézete -----------------------------------------------------------------------------------
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id Like "GLHeader_GLRows_ListView_Cassa" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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 ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
'Dim nv As ListView = CType(View, ListView)
'Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
@@ -124,32 +124,32 @@ Public Class GLCassaVC
End If
If View.Id = "GLCassa_DetailView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
Dim _GLCassa As GLCassa = TryCast(View.CurrentObject, GLCassa)
If _GLCassa Is Nothing Then
Else
If _GLCassa.IsEditable = False Then
Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", False)
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of GLCassaVC).aFinal_GLCassa.Active.SetItemValue("", True)
Frame.GetController(Of GLCassaVC).aFinalAndNew_GLCassa.Active.SetItemValue("", True)
Frame.GetController(Of GLCassaVC).aBackToRowEdit_GLCassa.Active.SetItemValue("", True)
Frame.GetController(Of GLCassaVC).aToTable_GLCassa.Active.SetItemValue("", True)
Frame.GetController(Of GLCassaVC).aToTableD_GLCassa.Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Else
Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", True)
If _GLCassa.DocumentNumber IsNot Nothing Then
If _GLCassa.DocumentNumber <> "" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
End If
End If
If _GLCassa.IsStorno = True Then
Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", True)
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", True)
End If
End If
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.vb
index 2077ed9..1d151d8 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.vb
@@ -29,12 +29,12 @@ Public Class GLCompensationVC
Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", False)
If View.Id = "GLCompensation_DetailView" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Dim _GLCompensation As GLCompensation = TryCast(View.CurrentObject, GLCompensation)
If _GLCompensation Is Nothing Then
Else
If _GLCompensation.IsEditable = False Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
Frame.GetController(Of GLCompensationVC).aFinal_GLCompensation.Active.SetItemValue("", False)
Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", False)
Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", False)
@@ -43,8 +43,8 @@ Public Class GLCompensationVC
Frame.GetController(Of GLCompensationVC).aBackToRowEdit_GLCompensation.Active.SetItemValue("", False)
End If
If _GLCompensation.IsStorno = True Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", False)
End If
If _GLCompensation.IsEditable = True And _GLCompensation.IsStorno = False Then
@@ -55,19 +55,19 @@ Public Class GLCompensationVC
If View.Id = "GLCompensation_ListView" Then
Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).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 NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "GLCompensation_ListView_Editable" Then
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf GLCompensation_DeleteAction_Executed
End If
If View.Id Like "GLHeader_GLRows_ListView_Compensation" 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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
Dim nv As ListView = CType(View, ListView)
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged
@@ -82,8 +82,8 @@ Public Class GLCompensationVC
Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", True)
Frame.GetController(Of GLCompensationVC).aToTable_GLCompensation.Active.SetItemValue("", True)
Frame.GetController(Of GLCompensationVC).aToTableD_GLCompensation.Active.SetItemValue("", True)
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GeneralLedgerVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GeneralLedgerVC.vb
index f2f1f49..bd2b134 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GeneralLedgerVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GeneralLedgerVC.vb
@@ -40,8 +40,8 @@ Public Class GeneralLedgerVC
If View.Id Like "GLAccountsHeader_GLAccountsRows_ListView" Then
Frame.GetController(Of GeneralLedgerVC).aToTable.Active.SetItemValue("", True)
- 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.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
Dim nv As ListView = CType(View, ListView)
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
@@ -53,8 +53,8 @@ Public Class GeneralLedgerVC
If View.Id Like "GLHeader_GLRows_ListView" Then
Frame.GetController(Of GeneralLedgerVC).aGLToTable.Active.SetItemValue("", True)
- 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.SystemModule.LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
Dim GLnv As ListView = CType(View, ListView)
Dim GLcs As PropertyCollectionSource = CType(GLnv.CollectionSource, PropertyCollectionSource)
@@ -64,7 +64,7 @@ Public Class GeneralLedgerVC
'Folyószámla - egyedi akciók megjelenítése DetailView-ban, majd Editable vizsgálata alapján letiltja a szerkesztő controllereket
If View.Id = "GLAccountsHeader_DetailView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
Frame.GetController(Of GeneralLedgerVC).aFinalizeAll.Active.SetItemValue("", True)
Frame.GetController(Of GeneralLedgerVC).aStorno.Active.SetItemValue("", True)
Frame.GetController(Of GeneralLedgerVC).aFinalizeAllAndNew.Active.SetItemValue("", True)
@@ -72,7 +72,7 @@ Public Class GeneralLedgerVC
'Főkönyv - egyedi akciók megjelenítése DetailView-ban, majd Editable vizsgálata alapján letiltja a szerkesztő controllereket
If View.Id = "GLHeader_DetailView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
Frame.GetController(Of GeneralLedgerVC).aGLFinal.Active.SetItemValue("", True)
Frame.GetController(Of GeneralLedgerVC).aGLStorno.Active.SetItemValue("", True)
Frame.GetController(Of GeneralLedgerVC).aGLFinalAndNew.Active.SetItemValue("", True)
@@ -80,8 +80,8 @@ Public Class GeneralLedgerVC
If _GLHeader Is Nothing Then
Else
If _GLHeader.IsEditable = False Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of GeneralLedgerVC).aGLFinal.Active.SetItemValue("", False)
Frame.GetController(Of GeneralLedgerVC).aGLFinalAndNew.Active.SetItemValue("", False)
@@ -94,7 +94,7 @@ Public Class GeneralLedgerVC
End If
End If
If SecuritySystemHelper.IsUserInRoleCurrentUser("GLMaintener") Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of GeneralLedgerVC).MakeEditable.Active.SetItemValue("", True)
End If
End If
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.vb
index 011eaa1..9dd7618 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.vb
@@ -33,18 +33,18 @@ Public Class LiquidAssetsBallanceVC
Frame.GetController(Of LiquidAssetsBallanceVC).aGenerateCurrencyRateFIFO.Active.SetItemValue("", False)
If View.Id = "LiquidAssetsBallanceHeader_LiquidAssetsBallanceRows_ListView_Cassa" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If
If View.Id = "LiquidAssetsBallanceHeader_DetailView_Cassa" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Dim _LiquidAssetsBallanceHeader As LiquidAssetsBallanceHeader
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
_LiquidAssetsBallanceHeader = TryCast(View.SelectedObjects(0), LiquidAssetsBallanceHeader)
@@ -55,24 +55,24 @@ Public Class LiquidAssetsBallanceVC
End If
End If
If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnRows_ListView_Cassa" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If
If View.Id = "GLRows_ListView_Regenerate" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
End Sub
Private Sub aGetBallance_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGetBallanceCassa.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.vb
index be8599a..48d8cf1 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.vb
@@ -39,19 +39,19 @@ Public Class LiquidAssetsReturnVC
If View.Id = "LiquidAssetsReturnHeader_ListView_Cassa" Then
Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "LiquidAssetsReturnHeader_DetailView_Cassa" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", True)
Dim _LiquidAssetsReturnHeader As LiquidAssetsReturnHeader = TryCast(View.SelectedObjects(0), LiquidAssetsReturnHeader)
If _LiquidAssetsReturnHeader IsNot Nothing Then
If _LiquidAssetsReturnHeader.GLClosingTime IsNot Nothing Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
Else
Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClose.Active.SetItemValue("", True)
End If
@@ -61,70 +61,70 @@ Public Class LiquidAssetsReturnVC
End If
If View.Id = "LiquidAssetsReturnHeader_ListView_Cassa_Closed" Then
- 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.DeleteObjectsViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", True)
Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaCloseBack.Active.SetItemValue("", True)
Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClosePreviewPDF.Active.SetItemValue("", True)
End If
If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnRows_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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
End If
If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnDenomination_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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", False)
If View.Id = "LiquidAssetsReturnHeader_ListView_Cassa" Then
Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "LiquidAssetsReturnHeader_DetailView_Cassa" Then
Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", False)
Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClose.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
RemoveHandler Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Executing, AddressOf LiquidAssetsReturnHeader_ListView_Cassa_PrintLiquidAssetsReturn_Cassa_Executing
RemoveHandler Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClose.Executing, AddressOf LiquidAssetsReturnHeader_ListView_Cassa_GLCassaClose_Executing
End If
If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnRows_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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", True)
End If
If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnDenomination_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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aGetReturn_Cassa_LiquidAssetsReturn_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGetReturn_Cassa.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.vb
index 056b0a8..e22c0d2 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.vb
@@ -32,37 +32,37 @@ Public Class GLMixedVC
Frame.GetController(Of GLMixedVC).aCloneGLMixed.Active.SetItemValue("", False)
If View.Id = "GLMixed_DetailView" Then
Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
If _GLMixed.IsEditable = False Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
If SecuritySystem.CurrentUserName = "SysAdmin" Then
Else
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
End If
If _GLMixed.IsStorno = True Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
If SecuritySystem.CurrentUserName = "SysAdmin" Then
Else
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
End If
If _GLMixed.GLDocumentType = eGLDocumentType.eGLRateDiff Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
If SecuritySystem.CurrentUserName = "SysAdmin" Then
Else
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
End If
If View.Id = "GLMixed_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of GLMixedVC).aCloneGLMixed.Active.SetItemValue("", True)
End If
If View.Id = "GLMixed_ListView_Editable" Then
@@ -70,12 +70,12 @@ Public Class GLMixedVC
End If
If View.Id Like "GLHeader_GLRows_ListView_Mixed" Then
- 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 DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of GLMixedVC).aViewPCIDW_RateDiff.Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Dim nv As ListView = CType(View, ListView)
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
@@ -83,7 +83,7 @@ Public Class GLMixedVC
End If
If View.Id = "GLRows_ListView_RateDiff" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of GLMixedVC).aViewPCIDW_RateDiff.Active.SetItemValue("", True)
Frame.GetController(Of GLMixedVC).aViewAttachments_RateDiff_GLRows.Active.SetItemValue("", True)
Frame.GetController(Of GLMixedVC).aViewRegistry_RateDiff_GLRows.Active.SetItemValue("", True)
@@ -91,10 +91,10 @@ Public Class GLMixedVC
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf Delete_Executed
End If
If View.Id = "GLMixed_DetailView_Dividend" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).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 CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of GLMixedVC).aStorno_GLMixed.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
@@ -105,12 +105,12 @@ Public Class GLMixedVC
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
If View.Id = "GLRows_ListView_RateDiff" Then
RemoveHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Delete_Executing
RemoveHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf Delete_Executed
End If
- 'Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ 'Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End Sub
Private Sub cs_MasterObjectChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim _GLMixed As GLMixed = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, GLMixed)
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.vb
index a289aa3..e4fc506 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.vb
@@ -632,7 +632,7 @@ Public Class GLOpenCloseVC
Private Sub aRepairBadGLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRepairBadGLRows.Execute
Try
GLOBAL_HAS_Audit = False
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
Dim _GLOpenCloseHeader As GLOpenCloseHeader = TryCast(View.SelectedObjects(0), GLOpenCloseHeader)
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _uow As New UnitOfWork(_onew.Session.DataLayer)
@@ -668,7 +668,7 @@ Public Class GLOpenCloseVC
Finally
GLOBAL_HAS_Audit = True
RaiseEvent FinalWork
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Try
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffVC.vb
index 277d6b0..34c7165 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffVC.vb
@@ -44,10 +44,10 @@ Public Class RateDiffVC
Frame.GetController(Of RateDiffVC).aViewRegistry_RateDiff.Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
@@ -59,10 +59,10 @@ Public Class RateDiffVC
If View.Id = "RateDiffView_ListView" Then
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
Frame.GetController(Of RateDiffVC).aCreateRateDiffView.Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
End If
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.vb
index e17b1f4..78dba7c 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.vb
@@ -31,7 +31,7 @@ Public Class BallanceVC
Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
If View.Id = "BallanceHeader_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "' or 'SysAdmin'='" & SecuritySystem.CurrentUserName & "'"
End If
If View.Id = "BallanceHeader_DetailView" Then
@@ -40,10 +40,10 @@ Public Class BallanceVC
End If
If View.Id = "TrialBalanceHeader_DetailView_BallanceHeader_Current" Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Dim _BallanceHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), BallanceHeader)
If _BallanceHeader IsNot Nothing Then
@@ -51,10 +51,10 @@ Public Class BallanceVC
End If
End If
If View.Id = "TrialBalanceHeader_DetailView_BallanceHeader_Previous" Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Dim _BallanceHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), BallanceHeader)
If _BallanceHeader IsNot Nothing Then
@@ -66,7 +66,7 @@ Public Class BallanceVC
MyBase.OnDeactivated()
If View.Id = "BallanceHeader_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb
index ab44e0a..79e2976 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb
@@ -49,12 +49,12 @@ Public Class GLCardVC
MyBase.OnActivated()
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
If View.Id Like "GLCardsHeader_GLCardsRows_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of ModificationsController)().Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).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 CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
If View.Id = "GLCardsHeader_DetailView" Then
@@ -65,8 +65,8 @@ Public Class GLCardVC
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
- 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 GLCardVC).aGLCardsQuery.Active.SetItemValue("", False)
End If
End If
@@ -95,8 +95,8 @@ Public Class GLCardVC
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
- 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 GLCardVC).aGLCardsQuery.Active.SetItemValue("", True)
End If
End If
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.vb
index 394afa4..2537e6e 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.vb
@@ -34,11 +34,11 @@ Public Class GLRowsVC
Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", False)
MyBase.OnActivated()
If View.Id Like "GLReport_GLReportRows_ListView*" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of ExportController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ExportController)?.Active.SetItemValue("", True)
Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", True)
@@ -46,7 +46,7 @@ Public Class GLRowsVC
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport) IsNot Nothing Then
If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport).InPublic Then
- Frame.GetController(Of ViewVariantsModule.ChangeVariantController).Active.SetItemValue("", False)
+ Frame.GetController(Of ViewVariantsModule.ChangeVariantController)?.Active.SetItemValue("", False)
End If
End If
End If
@@ -58,7 +58,7 @@ Public Class GLRowsVC
If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then
If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport) IsNot Nothing Then
If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport).InPublic Then
- Frame.GetController(Of ViewVariantsModule.ChangeVariantController).Active.SetItemValue("", False)
+ Frame.GetController(Of ViewVariantsModule.ChangeVariantController)?.Active.SetItemValue("", False)
End If
End If
End If
@@ -74,8 +74,8 @@ Public Class GLRowsVC
'Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
- 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 GLRowsVC).aGenerateGLReport.Active.SetItemValue("", False)
End If
End If
@@ -87,8 +87,8 @@ Public Class GLRowsVC
End If
If View.Id = "GLReport_ListView_Public" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "GLReport_ListView_Private" Then
If SecuritySystem.CurrentUserName = "SysAdmin" Then
@@ -99,14 +99,14 @@ Public Class GLRowsVC
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+ 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
If View.Id Like "GLReport_DetailView*" Then
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
- 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 GLRowsVC).aGenerateGLReport.Active.SetItemValue("", True)
End If
@@ -1197,7 +1197,7 @@ Public Class GLRowsVC
e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck)
End Sub
Private Sub aGLDTRChangeParam_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLDTRChangeParam.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 _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck)
Dim _GLRows As GLRows
@@ -1329,7 +1329,7 @@ Public Class GLRowsVC
Dim parentView As View = nestedFrame.View
parentView.ObjectSpace.Refresh()
End If
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub
Private Sub aSelectCustomersFrom_DTR_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomersFrom_DTR.CustomizePopupWindowParams
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.vb
index cf17951..ade96f7 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.vb
@@ -43,10 +43,10 @@ Public Class ABRQueryVC
Frame.GetController(Of ABRQueryVC).aPrintABRReport.Active.SetItemValue("", True)
End If
If View.Id = "ABRQueryHeader_ABRQueryCustomersFrom_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ABRQueryVC).aSelectCustomersFromABR.Active.SetItemValue("", True)
End If
If View.Id = "ABRQueryHeader_ABRQueryRowsDetail_ListView_HUF" Then
@@ -62,9 +62,9 @@ Public Class ABRQueryVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "ABRQueryHeader_ABRQueryCustomersFrom_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController).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 LinkUnlinkController)?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aGenerateABRQuery_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateABRQuery.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.vb
index ad025fa..9341245 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.vb
@@ -33,27 +33,27 @@ Public Class PartnerAccountConnectionInfoQueryVC
Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomers.Active.SetItemValue("", False)
Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomersFrom.Active.SetItemValue("", False)
If View.Id = "PartnerAccountConnectionInfoQueryHeader_PartnerAccountConnectionInfoQuerySelectedCustomers_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomers.Active.SetItemValue("", True)
End If
If View.Id = "PartnerAccountConnectionInfoQueryHeader_PartnerAccountConnectionInfoQuerySelectedCustomersFrom_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomersFrom.Active.SetItemValue("", True)
End If
If View.Id = "Customers_ListView_Select" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "CustomersFrom_ListView_Select" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
End Sub
Private Sub aGenerateReport_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateReport.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.vb
index 1746ecf..e3a60e5 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.vb
@@ -61,11 +61,11 @@ Public Class PCIVC
Frame.GetController(Of PCIVC).aRepairPCIGroup.Active.SetItemValue("", False)
End If
If View.Id = "PCIGroup_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
@@ -79,11 +79,11 @@ Public Class PCIVC
End If
If View.Id = "PCIDetail_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of PCIVC).aCreateConnectionDirectDifferentCurrency.Active.SetItemValue("", True)
@@ -114,7 +114,7 @@ Public Class PCIVC
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
End Sub
Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
@@ -1340,7 +1340,7 @@ Public Class PCIVC
RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
For Each _PCIGroup In View.SelectedObjects
RaiseEvent DoWork()
@@ -1358,7 +1358,7 @@ Public Class PCIVC
RaiseEvent FinalWork
_ocur.CommitChanges()
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Sub
Private Sub aViewPCIDGroup_GLDetails_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDGroup_GLDetails.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUpVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUpVC.vb
index c965bd8..126c3f8 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUpVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUpVC.vb
@@ -23,23 +23,23 @@ Public Class PartnerConnectionInfoCleanUpVC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "PartnerConnectionInfoCleanUp_PopupWindow_PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem_ListView" Then
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "PartnerConnectionInfoCleanUp_PopupWindow_PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem_ListView" Then
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
End Sub
End Class
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.vb
index 8963cbf..b103c69 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.vb
@@ -51,7 +51,7 @@ Public Class TrialBalanceVC
If View.Id = "TrialBalanceHeader_TrialBalanceOpenClose_ListView" Or _
View.Id = "TrialBalanceHeader_TrialBalance_ListView" Then
Frame.GetController(Of TrialBalanceVC).aTrialBalanceViewCard.Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
If View.Id = "TrialBalanceHeader_DetailView" Then
@@ -62,8 +62,8 @@ Public Class TrialBalanceVC
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
- 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 TrialBalanceVC).aTrialBalanceQuery.Active.SetItemValue("", False)
Frame.GetController(Of TrialBalanceVC).aTrialBalanceOpenCloseQuery.Active.SetItemValue("", False)
End If
@@ -75,10 +75,10 @@ Public Class TrialBalanceVC
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteriaMode = TargetObjectsCriteriaMode.TrueForAll
End If
If View.Id = "TrialBalanceHeader_DetailView_BeforeClose" Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
If _GLOpenCloseHeader IsNot Nothing Then
@@ -86,37 +86,37 @@ Public Class TrialBalanceVC
End If
End If
If View.Id = "TrialBalanceHeader_DetailView_AfterClose_SheetProfit" Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_SheetProfit)
End If
If View.Id = "TrialBalanceHeader_DetailView_AfterClose_Ballance" Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_Ballance)
End If
If View.Id = "TrialBalanceHeader_DetailView_AfterOpen" Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterOpen)
End If
If View.Id = "TrialBalanceHeader_DetailView_AfterDividend" Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader)
View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterDividend)
@@ -136,8 +136,8 @@ Public Class TrialBalanceVC
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
- 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 TrialBalanceVC).aTrialBalanceQuery.Active.SetItemValue("", True)
End If
End If
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb
index 44ff513..e0bce88 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb
@@ -39,11 +39,11 @@ Public Class VATReportVC
If View.Id Like "VATReport_VATReportDetail_ListView" Or _
View.Id = "VATReport_VATReportGroup_ListView" Or _
View.Id = "VATReport_VATReportNoPayDetail_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).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 CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
If View.Id = "VATReport_DetailView" Then
@@ -60,8 +60,8 @@ Public Class VATReportVC
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
- 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 VATReportVC).aGenerateVATReport.Active.SetItemValue("", False)
End If
End If
@@ -73,18 +73,18 @@ Public Class VATReportVC
End If
If View.Id = "VATReport_ListView_Closed" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of VATReportVC).aVATClosePreviewPDF.Active.SetItemValue("", True)
End If
If View.Id = "VATReport_VATReportGroupCustomers2M_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of VATReportVC).aVATClosePreviewPDF.Active.SetItemValue("", False)
End If
@@ -101,17 +101,17 @@ Public Class VATReportVC
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
- 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 VATReportVC).aGenerateVATReport.Active.SetItemValue("", True)
End If
End If
End If
If View.Id = "VATReport_VATReportGroupCustomers2M_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.vb
index 3a72277..687df0f 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.vb
@@ -29,7 +29,7 @@ Public Class RegistryBankTransferVC
Frame.GetController(Of RegistryBankTransferVC).aBlockBankTransfer.Active.SetItemValue("", True)
End If
If View.Id Like "*RegistryBankTransfer*" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
@@ -39,7 +39,7 @@ Public Class RegistryBankTransferVC
Frame.GetController(Of RegistryBankTransferVC).aBlockBankTransfer.Active.SetItemValue("", False)
End If
If View.Id Like "*RegistryBankTransfer*" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.vb
index 620158b..095bfca 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.vb
@@ -154,7 +154,7 @@ Public Class RegistryFinancialVC
Private Sub aToTable_RRFC_With_TContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC_With_TContract.Execute
'// Technikai szerzds sor + Tblzatba beads !!!
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validci ideiglenes letiltsa az akci vgrehajtsnak idejre.
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A validci ideiglenes letiltsa az akci vgrehajtsnak idejre.
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancialVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancialVC.vb
index 704a10c..d1ee5c2 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancialVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancialVC.vb
@@ -23,11 +23,11 @@ Public Class RegistryRowsFinancialVC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "RegistryRowsFinancial_DetailView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
' Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
@@ -47,11 +47,11 @@ Public Class RegistryRowsFinancialVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "RegistryRowsFinancial_DetailView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
' Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
@@ -100,22 +100,22 @@ Public Class RegistryRowsFinancialVC
If _RegistryHeader Is Nothing Then Exit Sub
If _RegistryHeader.CurrentWorkflowSystemSteps Is Nothing Then Exit Sub
'// Mikor NE ltszdjon a NEW action
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Or _
_RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
If _RegistryHeader.IsEditable = True Then
If _RegistryHeader.BruttoAmountRemaining <> 0.0 Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If
End If
End If
'// Mikor NE ltszdjon a trls gomb
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Or _
_RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
If _RegistryHeader.IsEditable = True Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
End If
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.vb
index 2ad816b..a55d95f 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.vb
@@ -27,12 +27,12 @@ Public Class RegistryRowsFinancialControllingVC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id Like "RegistryRowsFinancialControlling_ListView_Reinvoice*" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
' Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
@@ -54,12 +54,12 @@ Public Class RegistryRowsFinancialControllingVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id Like "RegistryRowsFinancialControlling_ListView_Reinvoice*" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
' Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject
' If _RegistryHeader IsNot Nothing Then
@@ -119,22 +119,22 @@ Public Class RegistryRowsFinancialControllingVC
If _RegistryHeader Is Nothing Then Exit Sub
If _RegistryHeader.CurrentWorkflowSystemSteps Is Nothing Then Exit Sub
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
If _RegistryHeader.IsEditable = True Then
If _RegistryHeader.BruttoAmountRemaining = 0 And _RegistryHeader.F_AmountBruttoHUF <> 0 Then
If _RegistryHeader.NettoAmountRemaining <> 0 Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If
End If
End If
End If
'// Mikor NE ltszdjon a trls gomb
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then
If _RegistryHeader.IsEditable = True Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
End If
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.vb
index fd947c8..bbe0bfc 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.vb
@@ -38,12 +38,12 @@ Public Class RegistryTaskVC
Frame.GetController(Of RegistryTaskVC).aRegistryEmailToResponsible.Active.SetItemValue("", True)
End If
If View.Id = "RegistryTasks_DetailView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
If _RegistryTasks IsNot Nothing Then
If _RegistryTasks.Status = General.TaskStatus.Completed Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
End If
End If
End If
@@ -54,19 +54,19 @@ Public Class RegistryTaskVC
End If
If View.Id = "DeliveryNoteInRows_ListView_Certificate_HUF" Or
View.Id = "DeliveryNoteInRows_ListView_Certificate_DEV" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "RegistryTasks_DetailView" Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "DeliveryNoteInRows_ListView_Certificate_HUF" Or
View.Id = "DeliveryNoteInRows_ListView_Certificate_DEV" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aRegistryTaskStateReset_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRegistryTaskStateReset.Execute
@@ -121,7 +121,7 @@ Public Class RegistryTaskVC
Private Sub aToTable_RRFC_With_TContract_RegistryTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC_With_TContract_RegistryTask.Execute
'// Technikai szerzds sor + Tblzatba beads !!!
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validci ideiglenes letiltsa az akci vgrehajtsnak idejre.
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A validci ideiglenes letiltsa az akci vgrehajtsnak idejre.
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
@@ -381,7 +381,7 @@ Public Class RegistryTaskVC
' Select Case _RegistryRowsFinancialControllingTemplatePopup.RRFCT_Type
' Case eRRFCT_Type.eTechnical
- ' 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validci ideiglenes letiltsa az akci vgrehajtsnak idejre.
+ ' 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A validci ideiglenes letiltsa az akci vgrehajtsnak idejre.
' Dim _TechnicalContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _
' _RegistryRowsFinancialControllingTemplatePopup.CustomersFrom))
@@ -547,7 +547,7 @@ Public Class RegistryTaskVC
If _RegistryTasks.row_RRFC_Controlling Is Nothing Then Throw New Exception("*Nincs belltva kontrolszm!")
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
Dim _TechnicalContractTemplate As ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _onew.GetObject(_RegistryTasks.RegistryHeader.CustomersFrom)))
Dim _TechnicalLimitAmount As Double = _RegistryTasks.row_RRFC_Controlling.TechnicalContractLimit
@@ -631,7 +631,7 @@ Public Class RegistryTaskVC
Next
_onew.CommitChanges()
RaiseEvent FinalWork
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
'// ObjectSpace frisstse ...
If Frame.GetController(Of RefreshController)() IsNot Nothing Then
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb
index 1f3aca8..9b1ffb6 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb
@@ -65,7 +65,7 @@ Public Class RegistryVC
'------------------------ LISTVIEW -------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "RegistryHeader_RegistryBankTransfer_ListView" Then
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of RegistryVC).aBankDivideRegistry.Active.SetItemValue("", True)
Frame.GetController(Of RegistryVC).aBankMergeRegistry.Active.SetItemValue("", True)
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf RegistryBankTransfer_DeleteAction_Executing
@@ -76,28 +76,28 @@ Public Class RegistryVC
Frame.GetController(Of RegistryVC).aBankMergeRegistry.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).NewObjectAction.Active.SetItemValue("", False)
- 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 = "RegistryHeader_ListView" Then
If SecuritySystemHelper.IsUserInRole(TryCast(SecuritySystem.CurrentUser, IUserWithRoles), "Administrators") = False Then
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If
End If
If View.Id = "RegistryHeader_WorkFlowCollection_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "RegistryHeader_RegistryRowsFinancial_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 = "RegistryTasks_RegistryRowsFinancial_ListView" Then
- Frame.GetController(Of DeleteObjectsViewController)().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 LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
Dim _ListView As ListView = TryCast(View, ListView)
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
Dim _RegistryTasks As RegistryTasks = TryCast(_PropertyCollectionSource.MasterObject, RegistryTasks)
@@ -105,17 +105,17 @@ Public Class RegistryVC
GLOBAL_RegistryTask_Current_Oid = _RegistryTasks.Oid
If _RegistryTasks.CurrentWorkflowSystemSteps.StepFinancialType <> eStepFinancialType.eCheckVAT Or _RegistryTasks.RegistryHeader.BruttoAmountRemaining = 0 Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Else
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
End If
If View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Dim _ListView As ListView = TryCast(View, ListView)
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
@@ -125,20 +125,20 @@ Public Class RegistryVC
End If
If View.Id = "RegistryHeader_RegistryTasks_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().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 LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then ' Iktatási rendszerben a teljesítésre bontás fül
- 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 = "RegistryHeader_RegistryFileData_ListView" Then ' Iktatási rendszerben a FileData fül
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
End If
If View.Id = "RegistryRowsFinancialControlling_RegistryBankTransfer_ListView" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Dim nv As ListView = View
Dim cs As PropertyCollectionSource = TryCast(nv.CollectionSource, PropertyCollectionSource)
AddHandler cs.MasterObjectChanged, AddressOf MasterObject2_Changed
@@ -148,9 +148,9 @@ Public Class RegistryVC
View.Id = "RegistryTasks_ListView_Not_Completed_Full" Or _
View.Id = "RegistryTasks_ListView_Not_Completed" Then
- Frame.GetController(Of DeleteObjectsViewController)().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 CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "RegistryTasks_ListView_Not_Completed" Or View.Id = "RegistryTasks_ListView_Not_Completed_Full" Then
@@ -161,15 +161,15 @@ Public Class RegistryVC
Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", False)
End If
If View.Id = "RegistryRowsFinancialControllingTemplatePopup_RegistryHeader_ListView" Then
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of RegistryRowsFinancialControllingVC).aViewRegistryNoTask.Active.SetItemValue("", False)
Frame.GetController(Of RegistryVC).aPCICheck_RegistryHeader.Active.SetItemValue("", False)
Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", False)
- Frame.GetController(Of RecordsNavigationController).Active.SetItemValue("", False)
+ Frame.GetController(Of RecordsNavigationController)?.Active.SetItemValue("", False)
End If
'------------------------ DETAILVIEW ----------------------------------------------------------------------------------------------------------------------------------
If View.Id = "RegistryRowsFinancialControlling_ReInvoicePopupWindow_DetailView" Then
@@ -178,15 +178,15 @@ Public Class RegistryVC
If View.Id = "RegistryHeader_DetailView" Then
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of RegistryVC).aRegistryStorno.Active.SetItemValue("", True)
Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
If _RegistryHeader.IsEditable = False Then
Frame.GetController(Of RegistryVC)().aRegistryGotoNextStep.Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
@@ -200,7 +200,7 @@ Public Class RegistryVC
End If
End If
If View.Id = "RegistryTasks_DetailView" Then
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", True)
Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks)
If _RegistryTasks.Status = General.TaskStatus.Completed Then
@@ -210,10 +210,10 @@ Public Class RegistryVC
' Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", False)
End If
If View.Id = "RegistryRows_Financial_RegistryRows_FinancialControlling" Then
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
End If
If View.Id Like "*RegistryTask*" Then
- Frame.GetController(Of ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False)
+ Frame.GetController(Of ObjectMethodActionsViewController).Actions("Task.MarkCompleted")?.Active.SetItemValue("", False)
If View.Id = "RegistryTasks_ListView_Not_Completed" Then
CType(View, ListView).CollectionSource.Criteria("ByUser") = _
CriteriaOperator.Parse("Status<>4 and HRPerson.User.UserName=?", SecuritySystem.CurrentUserName)
@@ -283,23 +283,23 @@ Public Class RegistryVC
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
If View.Id = "RegistryHeader_DetailView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of RegistryVC).aRegistryStorno.Active.SetItemValue("", False)
End If
If View.Id = "RegistryHeader_ListView" Or View.Id = "RegistryTasks_ListView_Completed" Or View.Id = "RegistryTasks_ListView_Not_Completed_Full" Or View.Id = "RegistryTasks_ListView_Not_Completed" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "RegistryTasks_DetailView" Or View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then
GLOBAL_RegistryTask_Current_Oid = Nothing
End If
If View.Id = "RegistryTasks_DetailView" Then
GLOBAL_RegistryTask_Current_Oid = Nothing
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
@@ -309,40 +309,40 @@ Public Class RegistryVC
Frame.GetController(Of RegistryVC).aBankMergeRegistry.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "RegistryTasks_RegistryRowsFinancial_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then ' Iktatási rendszerben a teljesítésre bontás fül
- 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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "RegistryHeader_RegistryRowsFinancial_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.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "RegistryHeader_ListView_Subcontractor" Then
Frame.GetController(Of RegistryVC).aPCICheck_RegistryHeader.Active.SetItemValue("", True)
Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", True)
End If
If View.Id = "RegistryRowsFinancialControllingTemplatePopup_RegistryHeader_ListView" Then
- Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of RegistryRowsFinancialControllingVC).aViewRegistryNoTask.Active.SetItemValue("", False)
Frame.GetController(Of RegistryVC).aPCICheck_RegistryHeader.Active.SetItemValue("", True)
Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", True)
- Frame.GetController(Of RecordsNavigationController).Active.SetItemValue("", True)
+ Frame.GetController(Of RecordsNavigationController)?.Active.SetItemValue("", True)
End If
'If View.Id = "RegistryTasks_ListView_Not_Completed_Full" Or _
' View.Id = "RegistryTasks_ListView_Not_Completed" Then
@@ -427,9 +427,9 @@ Public Class RegistryVC
Private Sub MasterObject2_Changed(ByVal sender As Object, ByVal e As EventArgs)
Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, RegistryRowsFinancialControlling)
If _RegistryRowsFinancialControlling.RegistryHeader.BruttoAmountRemainingBank = 0 Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
Else
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aRegistryGotoNextStep_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRegistryGotoNextStep.Execute
@@ -953,7 +953,7 @@ Public Class RegistryVC
End Sub
Private Sub aCreateTechnicalContractFromRegistry_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateTechnicalContractFromRegistry.Execute
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A valid�ci� ideiglenes letilt�sa az akci� v�grehajt�s�nak idej�re.
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False) ' A valid�ci� ideiglenes letilt�sa az akci� v�grehajt�s�nak idej�re.
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(View.SelectedObjects(0), RegistryRowsFinancialControlling)
Dim _RegistryHeader As RegistryHeader = _RegistryRowsFinancialControlling.RegistryHeader
@@ -1013,7 +1013,7 @@ Public Class RegistryVC
End If
_ocur.CommitChanges()
Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
If TryCast(View, DetailView) IsNot Nothing Then
View.Close()
@@ -1055,16 +1055,16 @@ Public Class RegistryVC
_ocur.CommitChanges()
Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
If TryCast(View, DetailView) IsNot Nothing Then
View.Close()
Exit Sub
End If
End If
Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False)
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
Else
'-------!!!!!!!TESZT MIATT!!!!!------------------------------------------
Dim _Message As String = String.Format("Technikai limit van beállítva ! {0}", _TechnicalLimitAmount)
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.vb
index a5eea8d..c5d8c2a 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.vb
@@ -33,13 +33,13 @@ Public Class RRFCQueryVC
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
If View.Id = "RRFCQueryHeader_RRFCQueryRows_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "RRFCQueryHeader_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "'"
End If
If View.Id = "RRFCQueryHeader_DetailView" Then
@@ -50,7 +50,7 @@ Public Class RRFCQueryVC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "RRFCQueryHeader_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.vb
index b3c999c..18a348d 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.vb
@@ -103,7 +103,7 @@ Public Class RegistryTelephoneVC
End If
If _ListView IsNot Nothing Then
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
_ocur.Delete(_RegistryHeader.RegistryRowsFinancial)
_ocur.Delete(_RegistryHeader.RegistryRowsFinancialControlling)
@@ -161,7 +161,7 @@ Public Class RegistryTelephoneVC
Next
End If
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Sub
Private Sub Create_RRF_Row(_ocur As Xpo.XPObjectSpace, _RegistryHeader As RegistryHeader, _BruttoAmount As Double, _VAT As VAT)
Dim _RegistryRowsFinancial As RegistryRowsFinancial = _ocur.FindObject(Of RegistryRowsFinancial)(CriteriaOperator.Parse("RegistryHeader=? and VAT=?", _RegistryHeader, _VAT))
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.vb
index 5ee11cc..cf4935f 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.vb
@@ -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
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.vb
index 99bfc83..1ffdad8 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.vb
@@ -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
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.vb
index 379db2e..02ab8b7 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.vb
@@ -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
diff --git a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.vb b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.vb
index 4c64f86..82942bd 100644
--- a/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.vb
@@ -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
diff --git a/Nuvolar.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb b/Nuvolar.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb
index 5e05615..d341d5f 100644
--- a/Nuvolar.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb
+++ b/Nuvolar.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb
@@ -24,19 +24,19 @@ Public Class ContactsVC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "Contact_EmailSendQueue_PopUp_HTMLMailTemplate_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).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.DeleteObjectsViewController)?.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
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "Contact_EmailSendQueue_PopUp_HTMLMailTemplate_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).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.DeleteObjectsViewController)?.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
End Sub
@@ -59,7 +59,7 @@ Public Class ContactsVC
Dim _CRM_Leads_Activity As CRM_Leads_Activity = _onew.CreateObject(Of CRM_Leads_Activity)()
Dim currentUser As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser))
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", False)
If _CRM_Leads Is Nothing Then
_CRM_Leads = _ocur.CreateObject(Of CRM_Leads)()
@@ -78,7 +78,7 @@ Public Class ContactsVC
_CRM_Leads_Activity.HRPerson = _onew.GetObject(_CRM_Leads.HRPerson)
End If
- Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_Activity_DetailView", True, _CRM_Leads_Activity)
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.vb b/Nuvolar.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.vb
index 080fbaf..3256d76 100644
--- a/Nuvolar.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.vb
+++ b/Nuvolar.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.vb
@@ -42,52 +42,52 @@ Public Class CustomersVC
_CustomersNG = TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.FindObject(Of CustomersNG)(1, CriteriaOperator.Parse("Oid=Oid"))
If _CustomersNG Is Nothing Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
Else
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
End If
End If
If View.Id = "Customers_CRM_Opportunities_ListView" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- 'Frame.GetController(Of LinkDialogController)().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 LinkDialogController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "CustomersNGCollection_DetailView" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController)().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 LinkUnlinkController)()?.Active.SetItemValue("", False)
End If
If View.Id = "Customers_CustomersBankAccounts_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkDialogController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkDialogController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
End If
If View.Id = "CustomersFrom_CustomersBankAccounts_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkDialogController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkDialogController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
End If
If View.Id = "Customers_DetailView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Customers_DetailView_DeleteAction_Executing
AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf Customers_DetailView_Save_Executing
AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.Executing, AddressOf Customers_DetailView_Save_Executing
AddHandler Frame.GetController(Of ModificationsController).SaveAndNewAction.Executing, AddressOf Customers_DetailView_Save_Executing
End If
If View.Id = "Customers_LookupListView" Then
- 'Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+ 'Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
If View.Id = "CustomersFileAttachment_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "Customers_CustomersFileAttachment_ListView" Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "Customers_Customers_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 = "Customers_ListView_Deleted" Then
@@ -97,8 +97,8 @@ Public Class CustomersVC
Frame.GetController(Of CustomersVC).aCustomers_CreateBusinessDirectory.Active.SetItemValue("", False)
Frame.GetController(Of CustomersVC).aMergeCustomers.Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
If TryCast(View, ListView) IsNot Nothing Then
If TryCast(View, ListView).CollectionSource IsNot Nothing Then
If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then
@@ -123,48 +123,48 @@ Public Class CustomersVC
_CustomersNG = TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.FindObject(Of CustomersNG)(1, CriteriaOperator.Parse("Oid=Oid"))
If _CustomersNG Is Nothing Then
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
Else
- Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
End If
End If
If View.Id = "Customers_CRM_Opportunities_ListView" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- 'Frame.GetController(Of LinkDialogController)().Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ 'Frame.GetController(Of LinkDialogController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "CustomersNGCollection_Deatilview" Then
- Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController)().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 LinkUnlinkController)()?.Active.SetItemValue("", True)
End If
If View.Id = "Customers_CustomersBankAccounts_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of LinkDialogController).Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkDialogController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
End If
If View.Id = "CustomersFrom_CustomersBankAccounts_ListView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of LinkDialogController).Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkDialogController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
End If
If View.Id = "Customers_DetailView" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "Customers_LookupListView" Then
- 'Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+ 'Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
If View.Id = "CustomersFileAttachment_ListView" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "Customers_CustomersFileAttachment_ListView" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "Customers_Customers_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
If View.Id = "Customers_ListView_Deleted" Then
Frame.GetController(Of CustomersVC).aCreateOpportunityFromCustomers.Active.SetItemValue("", True)
@@ -172,8 +172,8 @@ Public Class CustomersVC
Frame.GetController(Of CustomersVC).aPCICheck_Customers.Active.SetItemValue("", True)
Frame.GetController(Of CustomersVC).aCustomers_CreateBusinessDirectory.Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CustomersVC).aMergeCustomers.Active.SetItemValue("", True)
End If
End Sub
@@ -228,7 +228,7 @@ Public Class CustomersVC
End Sub
Private Sub aRecreateCustomersOrderDocuments_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRecreateCustomersOrderDocuments.Execute
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
Try
If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
@@ -286,7 +286,7 @@ Public Class CustomersVC
End If
Next
RaiseEvent FinalWork
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
Catch ex As Exception
MsgBox(ex.Message)
End Try
@@ -341,7 +341,7 @@ Public Class CustomersVC
Private Sub aMergeCustomers_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aMergeCustomers.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 _CustomersMergePopup As CustomersMergePopup = e.PopupWindow.View.SelectedObjects(0)
Dim _Object As Object
@@ -366,7 +366,7 @@ Public Class CustomersVC
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
diff --git a/Nuvolar.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting_VC.vb b/Nuvolar.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting_VC.vb
index 5f1c1c9..d923bc8 100644
--- a/Nuvolar.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting_VC.vb
@@ -24,11 +24,11 @@ Public Class CustomersMeeting_VC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "CustomersMeeting_CustomersMeetingDocuments_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 = "CustomersMeeting_ListView_Support" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _User As DevExpress.Persistent.BaseImpl.User = TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User)
@@ -45,7 +45,7 @@ Public Class CustomersMeeting_VC
End If
End If
If View.Id = "CustomersMeeting_ListView_Subcontractor" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _User As DevExpress.Persistent.BaseImpl.User = TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User)
@@ -71,7 +71,7 @@ Public Class CustomersMeeting_VC
End If
End If
If View.Id = "CustomersMeeting_DetailView_Subcontractor" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "CustomersMeeting_DetailView" Then
Dim _CustomersMeeting As CustomersMeeting = TryCast(View.SelectedObjects(0), CustomersMeeting)
@@ -98,17 +98,17 @@ Public Class CustomersMeeting_VC
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "CustomersMeeting_CustomersMeetingDocuments_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
If View.Id = "CustomersMeeting_ListView_Support" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "CustomersMeeting_ListView_Subcontractor" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "CustomersMeeting_DetailView_Subcontractor" Then
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/GeneralObjects/GeneralStocks/GeneralStocks_VC.vb b/Nuvolar.Module/BusinessObjects/GeneralObjects/GeneralStocks/GeneralStocks_VC.vb
index 33530c6..f1e019a 100644
--- a/Nuvolar.Module/BusinessObjects/GeneralObjects/GeneralStocks/GeneralStocks_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/GeneralObjects/GeneralStocks/GeneralStocks_VC.vb
@@ -23,16 +23,16 @@ Public Class GeneralStocks_VC
MyBase.OnActivated()
If View.Id = "CustomsTariffs_LookupListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "CustomsTariffs_LookupListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
End Class
diff --git a/Nuvolar.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.vb b/Nuvolar.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.vb
index 5e35bad..0407b4b 100644
--- a/Nuvolar.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.vb
@@ -156,7 +156,7 @@ Public Class HRPerson_VC
Private Sub aMergeUsers_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aMergeUsers.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 _User As User
@@ -187,13 +187,13 @@ Public Class HRPerson_VC
MsgBox(ex.Message)
Finally
- Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+ Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Try
End Sub
Private Sub aMergeHRPerson_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aMergeHRPerson.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 _HRPerson As HRPerson
@@ -224,7 +224,7 @@ Public Class HRPerson_VC
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
diff --git a/Nuvolar.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.vb b/Nuvolar.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.vb
index 37e7788..b7bd1c7 100644
--- a/Nuvolar.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.vb
@@ -98,9 +98,9 @@ Public Class OperationalLog_VC
_OperationalLog_CollectionSource.EndUpdateCriteria()
End If
If View.Id = "OperationalLog_OperationalLogDocuments_ListView" Then
- Frame.GetController(Of CloneObjectViewController)().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 ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
@@ -110,9 +110,9 @@ Public Class OperationalLog_VC
End If
If View.Id = "OperationalLog_OperationalLogDocuments_ListView" Then
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
End If
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.vb b/Nuvolar.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.vb
index 87c6af9..6800a1a 100644
--- a/Nuvolar.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.vb
@@ -24,13 +24,13 @@ Public Class BusinessDirectory_VC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "Role_ListView_BusinessDirectory" Then
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "Role_ListView_BusinessDirectory" Then
- Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aBusinessDirectory_OppenDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OppenDocument.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Project/ProjectVC.vb b/Nuvolar.Module/BusinessObjects/Project/ProjectVC.vb
index 0ef17ea..f3c4afd 100644
--- a/Nuvolar.Module/BusinessObjects/Project/ProjectVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Project/ProjectVC.vb
@@ -27,67 +27,67 @@ Public Class ProjectVC
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
If View.Id = "ProjectHeader_ProjectHRPerson_ListView" Then
- 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 LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "ProjectHeader_ProjectSubcontractor_ListView" Then
- 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 LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "ProjectHeader_ProjectCustomers_ListView" Then
- 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 LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "ProjectRows_ProjectRowsCustomers_ListView" Then
- 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 LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "ProjectRows_ProjectRowsHRPerson_ListView" Then
- 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 LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "ProjectRows_ProjectRowsSubcontractor_ListView" Then
- 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 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 = "ProjectHeader_ProjectHRPerson_ListView" Then
- 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 LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "ProjectHeader_ProjectSubcontractor_ListView" Then
- 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 LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "ProjectHeader_ProjectCustomers_ListView" Then
- 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 LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "ProjectRows_ProjectRowsCustomers_ListView" Then
- 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 LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "ProjectRows_ProjectRowsHRPerson_ListView" Then
- 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 LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "ProjectRows_ProjectRowsSubcontractor_ListView" Then
- 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 LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
Overridable Sub aProjectEditRow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aProjectEditRow.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Support/Answer/AnswerVC.vb b/Nuvolar.Module/BusinessObjects/Support/Answer/AnswerVC.vb
index 57529ff..3513b56 100644
--- a/Nuvolar.Module/BusinessObjects/Support/Answer/AnswerVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Support/Answer/AnswerVC.vb
@@ -32,12 +32,12 @@ Public Class AnswerVC
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _Answer As Answer
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
- If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
_Answer = TryCast(View.SelectedObjects(0), Answer)
If _ocur.Session.IsNewObject(_Answer) Then
@@ -46,19 +46,19 @@ Public Class AnswerVC
Frame.GetController(Of AnswerVC).aSaveAnswer.Active.SetItemValue("", False)
End If
If View.Id = "Answer_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "Answer_DetailView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aSaveAnswer_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSaveAnswer.Execute
diff --git a/Nuvolar.Module/BusinessObjects/Support/Question/QuestionVC.vb b/Nuvolar.Module/BusinessObjects/Support/Question/QuestionVC.vb
index 4549b11..ddd102b 100644
--- a/Nuvolar.Module/BusinessObjects/Support/Question/QuestionVC.vb
+++ b/Nuvolar.Module/BusinessObjects/Support/Question/QuestionVC.vb
@@ -46,15 +46,15 @@ Public Class QuestionVC
Dim _Question As Question
If View.Id = "Question_WorkSheet_Header_ListView" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id Like "Question_ListView" Then
- Frame.GetController(Of DeleteObjectsViewController).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 CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", True)
Frame.GetController(Of QuestionVC).aCreateAnswer.Active.SetItemValue("", True)
Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True)
@@ -69,12 +69,12 @@ Public Class QuestionVC
End If
If View.Id = "Question_ListView_User" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of Nuvolar.Module.AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
TryCast(View, ListView).CollectionSource.Criteria("ByUser") = CriteriaOperator.Parse("User = ? OR AliasUser=?", _ocur.GetObject(SecuritySystem.CurrentUser), _ocur.GetObject(SecuritySystem.CurrentUser))
Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
_AppearanceController = Frame.GetController(Of AppearanceController)()
If _AppearanceController IsNot Nothing Then
AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance
@@ -83,12 +83,12 @@ Public Class QuestionVC
End If
If View.Id = "Question_ListView_Customers" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True)
- Frame.GetController(Of RefreshController).Active.SetItemValue("", False)
+ Frame.GetController(Of RefreshController)?.Active.SetItemValue("", False)
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)))
If _Contacts IsNot Nothing Then
If _Contacts.Customers IsNot Nothing Then
@@ -108,19 +108,19 @@ Public Class QuestionVC
End If
If View.Id = "Question_WorkItem_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If
If View.Id = "QuestionClosePopup_DetailView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "Question_ListView_Subcontractor" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", True)
Dim _Criteria As String = ""
@@ -154,44 +154,44 @@ Public Class QuestionVC
'-------------- DetailViewZ---------------------------
If View.Id = "Question_DetailView" Or View.Id = "Question_DetailView_Info" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "Question_DetailView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True)
- If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "Question_DetailView_User" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True)
- If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
If View.Id = "Question_DetailView_Info" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", False)
- If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
_Question = TryCast(View.SelectedObjects(0), Question)
If _Question IsNot Nothing Then
@@ -223,10 +223,10 @@ Public Class QuestionVC
End If
If View.Id = "Reply_DetailView" Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
- If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
+ If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Sub aCloseQuestion_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCloseQuestion.Execute
@@ -354,9 +354,9 @@ Public Class QuestionVC
Dim _Question As Question
If View.Id Like "Question_ListView" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False)
Frame.GetController(Of QuestionVC).aCreateAnswer.Active.SetItemValue("", False)
Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False)
@@ -369,12 +369,12 @@ Public Class QuestionVC
End If
If View.Id = "Question_ListView_User" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of Nuvolar.Module.AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
TryCast(View, ListView).CollectionSource.Criteria("ByUser") = CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser))
Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
_AppearanceController = Frame.GetController(Of AppearanceController)()
If _AppearanceController IsNot Nothing Then
AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance
@@ -383,13 +383,13 @@ Public Class QuestionVC
End If
If View.Id = "Question_ListView_Customers" Then
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False)
- Frame.GetController(Of RefreshController).Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of RefreshController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
Dim _User As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)))
If _User IsNot Nothing Then
If _User.Customers IsNot Nothing Then
@@ -409,19 +409,19 @@ Public Class QuestionVC
End If
If View.Id = "Question_WorkItem_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).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 ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
End If
If View.Id = "QuestionClosePopup_DetailView" Then
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "Question_ListView_Subcontractor" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False)
Frame.GetController(Of QuestionVC).aCreateAnswer.Active.SetItemValue("", False)
Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False)
@@ -429,43 +429,43 @@ Public Class QuestionVC
'-------------- DetailViewZ---------------------------
If View.Id = "Question_DetailView" Or View.Id = "Question_DetailView_Info" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "Question_DetailView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "Question_DetailView_User" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If
If View.Id = "Question_DetailView_Info" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
_Question = TryCast(View.SelectedObjects(0), Question)
If _Question IsNot Nothing Then
@@ -485,13 +485,13 @@ Public Class QuestionVC
End If
If View.Id = "Reply_DetailView" Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If
- Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End Sub
Protected Overridable Sub CustomizeDisabledEditorsAppearance(ByVal e As ApplyAppearanceEventArgs)
diff --git a/Nuvolar.Module/BusinessObjects/Support/Question/Reply_VC.vb b/Nuvolar.Module/BusinessObjects/Support/Question/Reply_VC.vb
index 1bcd985..59f527c 100644
--- a/Nuvolar.Module/BusinessObjects/Support/Question/Reply_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/Support/Question/Reply_VC.vb
@@ -28,18 +28,18 @@ Public Class Reply_VC
If View.Id = "Reply_DetailView" Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of Reply_VC).aSaveReply.Active.SetItemValue("", True)
- If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+ If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "Reply_DetailView" Then
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of Reply_VC)().aSaveReply.Active.SetItemValue("", False)
End If
End Sub
diff --git a/Nuvolar.Module/BusinessObjects/Support/SupportDocuments.vb b/Nuvolar.Module/BusinessObjects/Support/SupportDocuments.vb
index 2320c19..9866432 100644
--- a/Nuvolar.Module/BusinessObjects/Support/SupportDocuments.vb
+++ b/Nuvolar.Module/BusinessObjects/Support/SupportDocuments.vb
@@ -28,12 +28,12 @@ Public Class SupportDocuments
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
If View.Id = "SubcontractorDocuments_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
- Frame.GetController(Of ListViewProcessCurrentObjectController).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 CloneObjectViewController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Dim _User As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)))
@@ -51,12 +51,12 @@ Public Class SupportDocuments
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "SubcontractorDocuments_ListView" Then
- Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
- Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
- Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+ Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
+ Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If
End Sub
End Class
diff --git a/Nuvolar.Module/BusinessObjects/Support/Support_VC.vb b/Nuvolar.Module/BusinessObjects/Support/Support_VC.vb
index 3e82782..52c159d 100644
--- a/Nuvolar.Module/BusinessObjects/Support/Support_VC.vb
+++ b/Nuvolar.Module/BusinessObjects/Support/Support_VC.vb
@@ -63,21 +63,21 @@ Public Class Support_VC
End If
End If
If View.Id = "OfferOutHeader_ListView_Support" Then
- 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)
+ 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)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "OfferOutHeader_ListView_Support" Then
- 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)
+ 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)
End If
End Sub
Private Sub aCreateSupportUserRoles_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateSupportUserRoles.CustomizePopupWindowParams
diff --git a/Nuvolar.Module/Controllers/ListViewProcess.vb b/Nuvolar.Module/Controllers/ListViewProcess.vb
index e3de030..74837b1 100644
--- a/Nuvolar.Module/Controllers/ListViewProcess.vb
+++ b/Nuvolar.Module/Controllers/ListViewProcess.vb
@@ -24,14 +24,14 @@ Public Class ListViewProcess
MyBase.OnActivated()
If CType(View.Model, IModelListViewAllowSort).IsListViewProcess Then
Else
- 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 CType(View.Model, IModelListViewAllowSort).IsListViewProcess Then
Else
- Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
+ Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
End If
End Sub
End Class
diff --git a/Nuvolar.Module/Controllers/ListviewFilter/ViewFilterContainerVC.vb b/Nuvolar.Module/Controllers/ListviewFilter/ViewFilterContainerVC.vb
index 5d9e981..60f5e28 100644
--- a/Nuvolar.Module/Controllers/ListviewFilter/ViewFilterContainerVC.vb
+++ b/Nuvolar.Module/Controllers/ListviewFilter/ViewFilterContainerVC.vb
@@ -31,10 +31,10 @@ Public Class ViewFilterContainerVC
Frame.GetController(Of DialogController).CancelAction.Active.SetItemValue("", False)
End If
If Frame.GetController(Of RefreshController)() IsNot Nothing Then
- Frame.GetController(Of RefreshController).Active.SetItemValue("", False)
+ Frame.GetController(Of RefreshController)?.Active.SetItemValue("", False)
End If
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
- 'Frame.GetController(Of RecordsNavigationController).Active.SetItemValue("", False)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
+ 'Frame.GetController(Of RecordsNavigationController)?.Active.SetItemValue("", False)
End If
@@ -60,10 +60,10 @@ Public Class ViewFilterContainerVC
Frame.GetController(Of DialogController).CancelAction.Active.SetItemValue("", True)
End If
If Frame.GetController(Of RefreshController)() IsNot Nothing Then
- Frame.GetController(Of RefreshController).Active.SetItemValue("", True)
+ Frame.GetController(Of RefreshController)?.Active.SetItemValue("", True)
End If
- Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
- 'Frame.GetController(Of RecordsNavigationController).Active.SetItemValue("", True)
+ Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
+ 'Frame.GetController(Of RecordsNavigationController)?.Active.SetItemValue("", True)
End If
End Sub
Private Sub aResetRequireCriteriaBeforeView_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aResetRequireCriteriaBeforeView.Execute
diff --git a/Nuvolar.Module/Functional Tests/Config.xml b/Nuvolar.Module/Functional Tests/Config.xml
index b497c1d..e1a95f7 100644
--- a/Nuvolar.Module/Functional Tests/Config.xml
+++ b/Nuvolar.Module/Functional Tests/Config.xml
@@ -24,8 +24,8 @@
-
-
+
+
diff --git a/Nuvolar.Module/Functional Tests/Config.xml.bak b/Nuvolar.Module/Functional Tests/Config.xml.bak
new file mode 100644
index 0000000..b497c1d
--- /dev/null
+++ b/Nuvolar.Module/Functional Tests/Config.xml.bak
@@ -0,0 +1,33 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Nuvolar.Module/My Project/licenses.licx b/Nuvolar.Module/My Project/licenses.licx
index 293aa7a..8b13789 100644
--- a/Nuvolar.Module/My Project/licenses.licx
+++ b/Nuvolar.Module/My Project/licenses.licx
@@ -1,3 +1 @@
-DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
\ No newline at end of file
diff --git a/Nuvolar.Module/My Project/licenses.licx.bak b/Nuvolar.Module/My Project/licenses.licx.bak
new file mode 100644
index 0000000..293aa7a
--- /dev/null
+++ b/Nuvolar.Module/My Project/licenses.licx.bak
@@ -0,0 +1,3 @@
+DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
\ No newline at end of file
diff --git a/Nuvolar.Module/Nuvolar.Module.vbproj b/Nuvolar.Module/Nuvolar.Module.vbproj
index c2e5b76..4d322ec 100644
--- a/Nuvolar.Module/Nuvolar.Module.vbproj
+++ b/Nuvolar.Module/Nuvolar.Module.vbproj
@@ -165,73 +165,85 @@
AllRules.ruleset
-
-
+
+
False
-
-
-
-
+
+
+
+
False
False
-
+
False
False
-
+
False
False
-
-
-
-
-
-
-
+
False
False
-
+
False
False
-
+
False
False
-
- False
-
-
-
+
+
+
+
+
+
+
False
False
-
+
False
False
-
-
+
False
False
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ False
+
+
+
+ False
+ False
+
+
+ False
+ False
+
+
+
+ False
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
..\packages\Microsoft.Office.Interop.Excel.14.0.0.1\lib\net20\Microsoft.Office.Interop.Excel.dll
True
diff --git a/Nuvolar.Module/Nuvolar.Module.vbproj.bak b/Nuvolar.Module/Nuvolar.Module.vbproj.bak
new file mode 100644
index 0000000..c2e5b76
--- /dev/null
+++ b/Nuvolar.Module/Nuvolar.Module.vbproj.bak
@@ -0,0 +1,5539 @@
+
+
+
+ Debug
+ AnyCPU
+ 9.0.30729
+ 2.0
+ {60BF693F-7DEA-4CF6-85BD-EA96829D79DD}
+ Library
+ Nuvolar.Module
+ Nuvolar.Module
+ Windows
+ On
+ Binary
+ Off
+ On
+ SAK
+ SAK
+ SAK
+ SAK
+ v4.0
+
+
+ 4.0
+
+ true
+ http://localhost/SISBusiness.Module/
+ true
+ Web
+ true
+ Foreground
+ 7
+ Days
+ false
+ false
+ true
+ 0
+ 1.0.0.%2a
+ false
+ true
+
+
+
+
+ true
+ Full
+ true
+ true
+ bin\Debug\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ AllRules.ruleset
+ x86
+ false
+ false
+
+
+ None
+ false
+ true
+ true
+ bin\Release\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ AllRules.ruleset
+ x86
+ false
+ false
+
+
+ true
+ true
+ true
+ bin\EasyTest\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ AnyCPU
+ EASYTEST
+ AllRules.ruleset
+ false
+
+
+ true
+ bin\Release 64bit\
+
+
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ None
+ AnyCPU
+ bin\Release\SISBusiness.Module.dll.CodeAnalysisLog.xml
+ true
+ GlobalSuppressions.vb
+ AllRules.ruleset
+ ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets
+ true
+ ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules
+ true
+ false
+
+
+ false
+ true
+ true
+ bin\R64\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ None
+ AnyCPU
+ AllRules.ruleset
+
+
+ true
+ true
+ true
+ bin\x64\Debug\
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ Full
+ x64
+ false
+ AllRules.ruleset
+
+
+ true
+ bin\x64\Release\
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ None
+ x64
+ false
+ AllRules.ruleset
+
+
+ true
+ true
+ true
+ bin\x64\EasyTest\
+ EASYTEST
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ x64
+ AllRules.ruleset
+
+
+ true
+ bin\x64\Release 64bit\
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ None
+ x64
+ AllRules.ruleset
+
+
+ true
+ true
+ bin\x64\R64\
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ None
+ x64
+ AllRules.ruleset
+
+
+
+
+ False
+
+
+
+
+
+ False
+ False
+
+
+ False
+ False
+
+
+ False
+ False
+
+
+
+
+
+
+
+
+ False
+ False
+
+
+ False
+ False
+
+
+ False
+ False
+
+
+ False
+
+
+
+ False
+ False
+
+
+ False
+ False
+
+
+
+ False
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ ..\packages\Microsoft.Office.Interop.Excel.14.0.0.1\lib\net20\Microsoft.Office.Interop.Excel.dll
+ True
+
+
+ ..\packages\Microsoft.Office.Interop.Outlook.14.0.0\lib\net40\Microsoft.Office.Interop.Outlook.dll
+ True
+
+
+ True
+
+
+ ..\packages\MySql.Data.6.9.8\lib\net40\MySql.Data.dll
+ True
+
+
+ ..\packages\Newtonsoft.Json.8.0.3\lib\net40\Newtonsoft.Json.dll
+ True
+
+
+ ..\..\..\..\..\Install\RabbitMQClient\bin\RabbitMQ.Client.dll
+
+
+ False
+ ..\..\..\..\..\..\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0\System.dll
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ APCSheetReviewHeader_VC.vb
+
+
+ Component
+
+
+
+
+ APCSheetReview_VC.vb
+
+
+ Component
+
+
+ APCSheetVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+ ContractTemplate_VC.vb
+
+
+ Component
+
+
+
+
+
+
+
+ IntrastatHeader_VC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+ CRMEstateStatisticsVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+ ImmovablesCostRecordVC.vb
+
+
+ Component
+
+
+
+ ImmovablesVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+ InvoiceFactoring_VC.vb
+
+
+ Component
+
+
+
+
+ InvoiceCreditNote_VC.vb
+
+
+ Component
+
+
+
+
+
+
+ InvoiceRowsPivotVC.vb
+
+
+ Component
+
+
+
+
+
+ InvoiceHoldPopupVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+ OffersOutVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+ OfferAskIn_VC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+ Operation_VC.vb
+
+
+ Component
+
+
+
+
+
+
+
+ OrderInHeader_PermissionVC.vb
+
+
+ Component
+
+
+
+
+ OrderInRowsVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+ OrderOutStockVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+ OnlineCassa_VC.vb
+
+
+ Component
+
+
+
+
+
+
+ PricingActionVC.vb
+
+
+ Component
+
+
+
+
+ ProductsBarcodesVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+ ProductsDocumentations_VC.vb
+
+
+ Component
+
+
+
+
+
+
+ ProductsGant_VC.vb
+
+
+ Component
+
+
+
+
+
+
+
+ InstallationVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+ ProductsGroups_VC.vb
+
+
+ Component
+
+
+
+
+
+ ServiceFinderVC.vb
+
+
+ Component
+
+
+
+
+
+ Services_VC.vb
+
+
+ Component
+
+
+
+
+
+
+
+ SorageByDateVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ StorageComputedLocations_VC.vb
+
+
+ Component
+
+
+
+
+ StorageDateVC.vb
+
+
+ Component
+
+
+
+ StorageLocation_VC.vb
+
+
+ Component
+
+
+ StorageMoveEventsVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+ Technologies_VC.vb
+
+
+ Component
+
+
+
+
+
+ HTMLMailTemplateVC.vb
+
+
+ Component
+
+
+
+
+ WebParameters_VC.vb
+
+
+ Component
+
+
+
+
+
+
+
+ AssetsHandlingCPBVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+ FixedassetsCardVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+ FixedAssetsQueryVC.vb
+
+
+ Component
+
+
+
+
+
+
+ FixedAssetsVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ GLOpenCloseVC.vb
+
+
+ Component
+
+
+
+
+
+ GLReportCashflowVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+ PCICheckerVC.vb
+
+
+ Component
+
+
+
+
+
+ PCICheckVC.vb
+
+
+ Component
+
+
+
+ PCIGroupAgingVC.vb
+
+
+ Component
+
+
+
+ SpecTranRevaluationVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+ ProjectPlanVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ RegistryTelephoneVC.vb
+
+
+ Component
+
+
+ CostHolderVC.vb
+
+
+ Component
+
+
+
+
+
+ UniqueObjects_VC.vb
+
+
+ Component
+
+
+
+ ChartOfAccountsBallance_VC.vb
+
+
+ Component
+
+
+
+
+ CurrencyRateVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CustomersMeeting_VC.vb
+
+
+ Component
+
+
+
+
+
+
+ CustomersFileAttachment_VC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+ Dashboard_VC.vb
+
+
+ Component
+
+
+
+
+
+
+ EMailSendQueueVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+ HRPersonTasks_VC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+ OperationalLog_VC.vb
+
+
+ Component
+
+
+
+
+
+ BusinessDirectory_VC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ HRPerson_VC.vb
+
+
+ Component
+
+
+
+
+
+
+ RTFDocumentsHandlerVC.vb
+
+
+ Component
+
+
+
+
+
+ TextCollection_VC.vb
+
+
+ Component
+
+
+ User_VC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ ProjectVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+ SISChatVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+ Support_VC.vb
+
+
+ Component
+
+
+
+
+ SystemTool_VC.vb
+
+
+ Component
+
+
+ ActionToolTipforSysAdmin.vb
+
+
+ Component
+
+
+
+ AppearanceVC.vb
+
+
+ Component
+
+
+
+
+
+
+ AuditToDatabaseVC.vb
+
+
+ Component
+
+
+ AuditTrailVC.vb
+
+
+ Component
+
+
+ CertificateOfContractVC.vb
+
+
+ Component
+
+
+ ContractPayablesVC.vb
+
+
+ Component
+
+
+ ContractReceivablesVC.vb
+
+
+ Component
+
+
+ ContractRowsVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ ContractProduct_VC.vb
+
+
+ Component
+
+
+
+
+
+ DeliveryNoteInVC.vb
+
+
+ Component
+
+
+
+
+
+
+ DeliveryNoteOutVC.vb
+
+
+ Component
+
+
+
+
+
+
+ CRMEstate_OpportunityVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ ImmovablesPriceListVC.vb
+
+
+ Component
+
+
+
+
+
+ ImmovablesCostRecordExcelVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+ InvoiceRowVC.vb
+
+
+ Component
+
+
+
+
+
+
+ OffersInVC.vb
+
+
+ Component
+
+
+
+
+ OffersOutPrintVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ OrderInToDisposeVC.vb
+
+
+ Component
+
+
+
+
+ OrderInAcknowledgementVC.vb
+
+
+ Component
+
+
+
+
+
+ OrderInRowsOtherVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+ OrderInVC.vb
+
+
+ Component
+
+
+
+
+
+ OrderOutVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+ RecipeExecutionSimpleVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+ RecipeVC.vb
+
+
+ Component
+
+
+
+ CRM_LeadsVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ EstateVC.vb
+
+
+ Component
+
+
+ InvoiceVC.vb
+
+
+ Component
+
+
+ OrderInPrint.vb
+
+
+ Component
+
+
+
+ TakeOverProtocolVC.vb
+
+
+ Component
+
+
+ CRM_OpportunitiesVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CRMEstateVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+ ProductFinderVC.vb
+
+
+ Component
+
+
+
+
+ ProductsVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+ StoragePDACollectionHeaderVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+ InventoryVC.vb
+
+
+ Component
+
+
+
+
+ StorageTransactionsInVC.vb
+
+
+ Component
+
+
+
+
+ StorageTransactionsOutVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+ Subcontractor_VC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ WorkSheet_VC.vb
+
+
+ Component
+
+
+
+
+ DateYearCriteriaVC.vb
+
+
+ Component
+
+
+ DBV_Dashboard_VC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Component
+
+
+
+
+
+
+
+ HRPerson_LookupListView.vb
+
+
+ Component
+
+
+
+
+ ViewFilterContainerVC.vb
+
+
+ Component
+
+
+
+ CustomersFromVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+ GLBankVC.vb
+
+
+ Component
+
+
+
+ GLBaseVC.vb
+
+
+ Component
+
+
+
+
+
+
+ GLRowsDivideVC.vb
+
+
+ Component
+
+
+
+
+ GLClosingVC.vb
+
+
+ Component
+
+
+
+
+ LiquidAssetsReturnVC.vb
+
+
+ Component
+
+
+
+ DivideVAT_VC.vb
+
+
+ Component
+
+
+ RateDiffVC.vb
+
+
+ Component
+
+
+
+
+
+ BallanceVC.vb
+
+
+ Component
+
+
+
+
+
+
+ ABRQueryVC.vb
+
+
+ Component
+
+
+
+
+
+ PACIQVC.vb
+
+
+ Component
+
+
+
+ PCIDetailVC.vb
+
+
+ Component
+
+
+
+ PCIVC.vb
+
+
+ Component
+
+
+
+
+ PartnerConnectionInfoCleanUpVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ StorageTransactionsInPrint.vb
+
+
+ Component
+
+
+ StorageTransactionsOutPrint.vb
+
+
+ Component
+
+
+ StorageComputedVC.vb
+
+
+ Component
+
+
+ ContractsVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+ AssetsPCIVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ RegistryBankTransferVC.vb
+
+
+ Component
+
+
+
+
+ RegistryFinancialVC.vb
+
+
+ Component
+
+
+
+ RegistryRowsFinancialControllingVC.vb
+
+
+ Component
+
+
+ RegistryRowsFinancialVC.vb
+
+
+ Component
+
+
+
+
+
+ RegistryTaskVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+ RRFCQueryVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+ ChartOfAccountsVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+ BookEntryVC.vb
+
+
+ Component
+
+
+
+ GeneralLedgerVC.vb
+
+
+ Component
+
+
+ GLAccountsVC.vb
+
+
+ Component
+
+
+ GLCardVC.vb
+
+
+ Component
+
+
+ GLCassaVC.vb
+
+
+ Component
+
+
+ GLCompensationVC.vb
+
+
+ Component
+
+
+ GLMixedVC.vb
+
+
+ Component
+
+
+
+ GLRowsVC.vb
+
+
+ Component
+
+
+ LiquidAssetsBallanceVC.vb
+
+
+ Component
+
+
+ TrialBalanceVC.vb
+
+
+ Component
+
+
+ VATReportVC.vb
+
+
+ Component
+
+
+
+ RegistryVC.vb
+
+
+ Component
+
+
+
+ ControllingVC.vb
+
+
+ Component
+
+
+
+
+ ContactsVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CustomersVC.vb
+
+
+ Component
+
+
+
+
+ GeneralStocks_VC.vb
+
+
+ Component
+
+
+
+
+
+
+ ContractsLookupVC.vb
+
+
+ Component
+
+
+ CustomersBankAccountsLookupVC.vb
+
+
+ Component
+
+
+ LookupLinkController.vb
+
+
+ Component
+
+
+
+ SetDefaultCountryHungaryVC.vb
+
+
+ Component
+
+
+
+
+
+
+
+ ListViewProcess.vb
+
+
+ Component
+
+
+ LockObjectBeforeEditVC.vb
+
+
+ Component
+
+
+ LongOperationController.vb
+
+
+ Component
+
+
+
+ MasterDetailViewControllerBase.vb
+
+
+ Component
+
+
+ NestedListViewControllerBase.vb
+
+
+ Component
+
+
+ ModelActionsVisible_WC.vb
+
+
+ Component
+
+
+ NavigationItemPermission.vb
+
+
+ Component
+
+
+
+ RoundingController.vb
+
+
+ Component
+
+
+
+
+
+
+ RolesModelSecurity.vb
+
+
+ Component
+
+
+ TabEnterVC.vb
+
+
+ Component
+
+
+
+
+ MobileListDashboardsVC.vb
+
+
+ Component
+
+
+ Module.vb
+
+
+ Component
+
+
+
+ True
+ Application.myapp
+
+
+ True
+ True
+ Resources.resx
+
+
+ True
+ Settings.settings
+ True
+
+
+
+ RepairRegistryVC.vb
+
+
+ Component
+
+
+
+
+ AnswerVC.vb
+
+
+ Component
+
+
+
+
+
+
+ QuestionVC.vb
+
+
+ Component
+
+
+
+ Reply_VC.vb
+
+
+ Component
+
+
+ SupportDocuments.vb
+
+
+ Component
+
+
+
+
+
+ MySchedule_VC.vb
+
+
+ Component
+
+
+ True
+ True
+ Reference.svcmap
+
+
+
+
+ UserViewVariantsController.vb
+
+
+ Component
+
+
+
+
+
+
+ APCSheetReviewHeader_VC.vb
+
+
+ APCSheetReview_VC.vb
+
+
+ APCSheetVC.vb
+
+
+ ContractTemplate_VC.vb
+
+
+ IntrastatHeader_VC.vb
+
+
+ CRMEstateStatisticsVC.vb
+
+
+ ImmovablesCostRecordVC.vb
+
+
+ EstateVC.vb
+
+
+ ImmovablesVC.vb
+
+
+ InvoiceFactoring_VC.vb
+
+
+ InvoiceCreditNote_VC.vb
+
+
+ InvoiceRowsPivotVC.vb
+
+
+ InvoiceHoldPopupVC.vb
+
+
+ OffersOutVC.vb
+
+
+ OfferAskIn_VC.vb
+
+
+ Operation_VC.vb
+
+
+ OrderInHeader_PermissionVC.vb
+
+
+ OrderInRowsVC.vb
+
+
+ OrderOutStockVC.vb
+
+
+ PricingActionVC.vb
+
+
+ ProductsBarcodesVC.vb
+
+
+ InstallationVC.vb
+
+
+ ProductsDocumentations_VC.vb
+
+
+ ProductsGant_VC.vb
+
+
+ ProductsGroups_VC.vb
+
+
+ Services_VC.vb
+
+
+ StorageComputedLocations_VC.vb
+
+
+ StorageDateVC.vb
+
+
+ StorageLocation_VC.vb
+
+
+ StorageMoveEventsVC.vb
+
+
+ Technologies_VC.vb
+
+
+ HTMLMailTemplateVC.vb
+
+
+ WebParameters_VC.vb
+
+
+ AssetsHandlingCPBVC.vb
+
+
+ FixedassetsCardVC.vb
+
+
+ FixedAssetsQueryVC.vb
+
+
+ FixedAssetsVC.vb
+
+
+ GLOpenCloseVC.vb
+ Designer
+
+
+ GLReportCashflowVC.vb
+
+
+ PCICheckerVC.vb
+
+
+ PCICheckVC.vb
+
+
+ PCIGroupAgingVC.vb
+
+
+ SpecTranRevaluationVC.vb
+
+
+ ProjectPlanVC.vb
+
+
+ RegistryTelephoneVC.vb
+
+
+ CostHolderVC.vb
+
+
+ UniqueObjects_VC.vb
+
+
+ ChartOfAccountsBallance_VC.vb
+
+
+ CurrencyRateVC.vb
+
+
+ CustomersMeeting_VC.vb
+
+
+ CustomersFileAttachment_VC.vb
+
+
+ EMailSendQueueVC.vb
+
+
+ HRPersonTasks_VC.vb
+
+
+ HRPerson_VC.vb
+
+
+ OperationalLog_VC.vb
+
+
+ BusinessDirectory_VC.vb
+
+
+ RTFDocumentsHandlerVC.vb
+
+
+ TextCollection_VC.vb
+
+
+ ProjectVC.vb
+
+
+ SISChatVC.vb
+
+
+ Support_VC.vb
+
+
+ SystemTool_VC.vb
+
+
+ AuditTrailVC.vb
+
+
+ CertificateOfContractVC.vb
+ Designer
+
+
+ ContractReceivablesVC.vb
+
+
+ ContractRowsVC.vb
+
+
+ ContractProduct_VC.vb
+
+
+ DeliveryNoteInVC.vb
+
+
+ DeliveryNoteOutVC.vb
+
+
+ CRMEstateVC.vb
+
+
+ CRMEstate_OpportunityVC.vb
+
+
+ ImmovablesPriceListVC.vb
+
+
+ ImmovablesCostRecordExcelVC.vb
+
+
+ InvoiceRowVC.vb
+
+
+ OffersInVC.vb
+
+
+ OffersOutPrintVC.vb
+
+
+ OrderInToDisposeVC.vb
+
+
+ OrderInAcknowledgementVC.vb
+
+
+ OrderInPrint.vb
+
+
+ OrderInRowsOtherVC.vb
+
+
+ OrderInVC.vb
+
+
+ OrderOutVC.vb
+
+
+ ContractsVC.vb
+
+
+ RecipeExecutionSimpleVC.vb
+
+
+ RecipeVC.vb
+
+
+ CRM_LeadsVC.vb
+
+
+ CRM_OpportunitiesVC.vb
+
+
+ ProductFinderVC.vb
+
+
+ ProductsVC.vb
+
+
+ StoragePDACollectionHeaderVC.vb
+
+
+ InventoryVC.vb
+
+
+ StorageTransactionsInPrint.vb
+
+
+ StorageTransactionsInVC.vb
+
+
+ StorageTransactionsOutPrint.vb
+
+
+ StorageTransactionsOutVC.vb
+
+
+ Subcontractor_VC.vb
+
+
+ WorkSheet_VC.vb
+
+
+ AssetsPCIVC.vb
+
+
+ GLBankVC.vb
+
+
+ GLBaseVC.vb
+
+
+ GLRowsDivideVC.vb
+ Designer
+
+
+ BookEntryVC.vb
+
+
+ LiquidAssetsReturnVC.vb
+
+
+ RateDiffVC.vb
+
+
+ BallanceVC.vb
+
+
+ GLRowsVC.vb
+
+
+ LiquidAssetsBallanceVC.vb
+
+
+ ABRQueryVC.vb
+
+
+ PACIQVC.vb
+
+
+ PCIDetailVC.vb
+
+
+ PCIVC.vb
+
+
+ VATReportVC.vb
+
+
+ RegistryBankTransferVC.vb
+
+
+ RegistryFinancialVC.vb
+
+
+ RegistryRowsFinancialControllingVC.vb
+
+
+ RegistryTaskVC.vb
+
+
+ RegistryVC.vb
+
+
+ RRFCQueryVC.vb
+
+
+ ControllingVC.vb
+
+
+ ChartOfAccountsVC.vb
+
+
+ ContactsVC.vb
+
+
+ CustomersVC.vb
+
+
+ SetDefaultCountryHungaryVC.vb
+
+
+ DateYearCriteriaVC.vb
+
+
+ ViewFilterContainerVC.vb
+
+
+ RolesModelSecurity.vb
+
+
+
+
+ MobileListDashboardsVC.vb
+
+
+
+ VbMyResourcesResXFileCodeGenerator
+ Resources.Designer.vb
+ My.Resources
+ Designer
+
+
+ RepairRegistryVC.vb
+
+
+ AnswerVC.vb
+
+
+ QuestionVC.vb
+
+
+ Reply_VC.vb
+
+
+ UserViewVariantsController.vb
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ MyApplicationCodeGenerator
+ Application.Designer.vb
+
+
+ SettingsSingleFileGenerator
+ My
+ Settings.Designer.vb
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TakeOverProtocolVC.vb
+
+
+ StorageComputedVC.vb
+
+
+ GeneralLedgerVC.vb
+
+
+ GLAccountsVC.vb
+
+
+ GLCardVC.vb
+
+
+ GLCassaVC.vb
+
+
+ GLCompensationVC.vb
+
+
+ GLMixedVC.vb
+
+
+ TrialBalanceVC.vb
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+ Designer
+
+
+
+
+ Model.DesignedDiffs.xafml
+ Designer
+
+
+
+ WCF Proxy Generator
+ Reference.vb
+
+
+
+
+
+
+ Designer
+
+
+ Designer
+
+
+
+ Reference.svcmap
+
+
+ Reference.svcmap
+
+
+ Reference.svcmap
+
+
+ Reference.svcmap
+
+
+ Reference.svcmap
+
+
+ Reference.svcmap
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Always
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Always
+
+
+ Always
+
+
+ Always
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Always
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ InvoiceVC.vb
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Module.vb
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Nuvolar.Scanner.Module.CSharp/Nuvolar.Scanner.Module.CSharp.csproj b/Nuvolar.Scanner.Module.CSharp/Nuvolar.Scanner.Module.CSharp.csproj
index 6dc65da..c4965e0 100644
--- a/Nuvolar.Scanner.Module.CSharp/Nuvolar.Scanner.Module.CSharp.csproj
+++ b/Nuvolar.Scanner.Module.CSharp/Nuvolar.Scanner.Module.CSharp.csproj
@@ -52,19 +52,19 @@
MinimumRecommendedRules.ruleset
-
+
False
-
+
False
-
+
False
-
+
False
diff --git a/Nuvolar.Scanner.Module.CSharp/Nuvolar.Scanner.Module.CSharp.csproj.bak b/Nuvolar.Scanner.Module.CSharp/Nuvolar.Scanner.Module.CSharp.csproj.bak
new file mode 100644
index 0000000..6dc65da
--- /dev/null
+++ b/Nuvolar.Scanner.Module.CSharp/Nuvolar.Scanner.Module.CSharp.csproj.bak
@@ -0,0 +1,112 @@
+
+
+
+
+ Debug
+ AnyCPU
+ {1FC602BC-73FF-4EC9-99A9-4D43FC7DC90C}
+ Library
+ Properties
+ Nuvolar.Scanner.Module.CSharp
+ Nuvolar.Scanner.Module.CSharp
+ v4.5
+ 512
+ SAK
+ SAK
+ SAK
+ SAK
+
+
+
+ true
+ full
+ false
+ bin\Debug\
+ DEBUG;TRACE
+ prompt
+ 4
+
+
+ none
+ true
+ bin\Release\
+ TRACE
+ prompt
+ 4
+
+
+ true
+ bin\x64\Debug\
+ DEBUG;TRACE
+ full
+ x64
+ prompt
+ MinimumRecommendedRules.ruleset
+
+
+ bin\x64\Release\
+ TRACE
+ true
+ x64
+ prompt
+ MinimumRecommendedRules.ruleset
+
+
+
+ False
+
+
+
+ False
+
+
+
+ False
+
+
+
+ False
+
+
+
+ ..\packages\Newtonsoft.Json.8.0.3\lib\net45\Newtonsoft.Json.dll
+ True
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ {60bf693f-7dea-4cf6-85bd-ea96829d79dd}
+ Nuvolar.Module
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Nuvolar.WIN.Company/Nuvolar.Win.Company.vbproj b/Nuvolar.WIN.Company/Nuvolar.Win.Company.vbproj
index 8d78832..0b752f8 100644
--- a/Nuvolar.WIN.Company/Nuvolar.Win.Company.vbproj
+++ b/Nuvolar.WIN.Company/Nuvolar.Win.Company.vbproj
@@ -149,168 +149,172 @@
AllRules.ruleset
-
+
False
True
-
-
-
+
+
+
False
-
-
-
+
+
+
False
True
-
+
False
True
-
+
False
True
-
- True
-
-
-
-
- True
-
-
- True
-
-
+
False
True
-
+
True
-
+
+
+
True
-
-
+
True
-
- True
-
-
-
-
- True
-
-
- True
-
-
- True
-
-
- True
-
-
- True
-
-
+
False
True
-
+
+ True
+
+
+ True
+
+
+
+ True
+
+
+ True
+
+
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
False
True
-
+
False
True
-
+
False
True
-
+
False
True
-
+
False
True
-
+
False
True
-
- True
-
-
+
False
True
-
+
+ True
+
+
False
True
-
+
False
True
-
-
-
-
+
False
True
-
+
+
+
+
False
True
-
-
-
-
-
- True
-
-
+
False
True
-
+
+
+
+
+
+ True
+
+
False
True
-
+
False
True
-
+
False
True
-
+
False
True
-
-
-
-
-
-
-
-
-
-
-
-
+
+ False
+ True
+
+
+
+
+
+
+
+
+
+
+
+
+
..\packages\Npgsql.2.2.7\lib\net40\Mono.Security.dll
True
diff --git a/Nuvolar.WIN.Company/Nuvolar.Win.Company.vbproj.bak b/Nuvolar.WIN.Company/Nuvolar.Win.Company.vbproj.bak
new file mode 100644
index 0000000..8d78832
--- /dev/null
+++ b/Nuvolar.WIN.Company/Nuvolar.Win.Company.vbproj.bak
@@ -0,0 +1,545 @@
+
+
+
+ Debug
+ AnyCPU
+ 9.0.30729
+ 2.0
+ {7BDC6966-B18D-4CC9-979B-E80917C4E45F}
+ WinExe
+ Sub Main
+ Nuvolar.Win
+ Nuvolar.Win
+ WindowsFormsWithCustomSubMain
+ Nuvolar.ico
+ On
+ Binary
+ Off
+ On
+ SAK
+ SAK
+ SAK
+ SAK
+ v4.0
+
+
+ 4.0
+
+ true
+
+
+ http://localhost/SISBusiness.Win/
+ true
+ Web
+ true
+ Foreground
+ 7
+ Days
+ false
+ false
+ true
+ 0
+ 1.0.0.%2a
+ false
+ true
+
+
+ true
+ full
+ true
+ true
+ bin\Debug\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ AllRules.ruleset
+ x86
+ false
+ false
+
+
+ None
+ false
+ true
+ true
+ bin\Release\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ AllRules.ruleset
+ x86
+ false
+ false
+
+
+ true
+ true
+ true
+ bin\EasyTest\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ AnyCPU
+ EASYTEST
+ AllRules.ruleset
+ false
+
+
+ My Project\app.manifest
+
+
+ true
+ bin\Release 64bit\
+
+
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ pdbonly
+ AnyCPU
+ bin\Release\SISBusiness.Win.exe.CodeAnalysisLog.xml
+ true
+ GlobalSuppressions.vb
+ AllRules.ruleset
+ ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets
+ true
+ ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules
+ true
+ false
+
+
+ true
+ true
+ true
+ bin\x64\Debug\
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ x64
+ false
+ AllRules.ruleset
+
+
+ true
+ bin\x64\Release\
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ None
+ x64
+ false
+ AllRules.ruleset
+
+
+ true
+ true
+ true
+ bin\x64\EasyTest\
+ EASYTEST
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ x64
+ AllRules.ruleset
+
+
+ true
+ bin\x64\Release 64bit\
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ pdbonly
+ x64
+ AllRules.ruleset
+
+
+
+ False
+ True
+
+
+
+
+ False
+
+
+
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+ True
+
+
+
+
+ True
+
+
+ True
+
+
+ False
+ True
+
+
+ True
+
+
+ True
+
+
+
+ True
+
+
+ True
+
+
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+ True
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+
+
+
+
+ True
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+ False
+ True
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ ..\packages\Npgsql.2.2.7\lib\net40\Mono.Security.dll
+ True
+
+
+ ..\packages\Newtonsoft.Json.8.0.3\lib\net40\Newtonsoft.Json.dll
+ True
+
+
+ ..\packages\Npgsql.2.2.7\lib\net40\Npgsql.dll
+ True
+
+
+ ..\..\..\..\..\..\..\Program Files (x86)\postgreSQL\Npgsql2.0.11-bin-ms.net4.0\policy.2.0.Npgsql.dll
+ True
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+ False
+
+
+
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ True
+ True
+ Reference.svcmap
+
+
+ Component
+
+
+
+ True
+ Application.myapp
+
+
+
+ True
+ True
+ Resources.resx
+
+
+ True
+ Settings.settings
+ True
+
+
+ WinApplication.vb
+
+
+ Component
+
+
+
+ SISSplashScreen.vb
+
+
+ Form
+
+
+
+
+
+
+ VbMyResourcesResXFileCodeGenerator
+ Resources.Designer.vb
+ My.Resources
+ Designer
+
+
+ WinApplication.vb
+ Designer
+
+
+ SISSplashScreen.vb
+
+
+
+
+ Model.xafml
+ Designer
+
+
+
+
+
+
+
+
+
+
+
+ Designer
+
+
+
+ Designer
+
+
+
+
+ Reference.svcmap
+
+
+ Reference.svcmap
+
+
+ Reference.svcmap
+
+
+ Reference.svcmap
+
+
+ Reference.svcmap
+
+
+ Reference.svcmap
+
+
+ WCF Proxy Generator
+ Reference.vb
+
+
+
+
+ Always
+ Designer
+
+
+ Model.xafml
+ Always
+ Designer
+
+
+ Model.xafml
+ Always
+ Designer
+
+
+
+ SettingsSingleFileGenerator
+ My
+ Settings.Designer.vb
+
+
+
+
+
+
+ MyApplicationCodeGenerator
+ Application.Designer.vb
+
+
+
+
+ False
+ .NET Framework 3.5 SP1 Client Profile
+ false
+
+
+ False
+ .NET Framework 3.5 SP1
+ true
+
+
+ False
+ Windows Installer 3.1
+ true
+
+
+
+
+ {b9ef03ff-d05b-4fd4-a8e9-f90d819cb1dc}
+ Nuvolar.Module.CSharp
+
+
+ {98539dcf-bf11-4158-aec0-4b008a404a0e}
+ Nuvolar.Module.Win
+
+
+ {60bf693f-7dea-4cf6-85bd-ea96829d79dd}
+ Nuvolar.Module
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Nuvolar.Web.Company/Controls/DashboardViewer.aspx b/Nuvolar.Web.Company/Controls/DashboardViewer.aspx
index df9534f..c300103 100644
--- a/Nuvolar.Web.Company/Controls/DashboardViewer.aspx
+++ b/Nuvolar.Web.Company/Controls/DashboardViewer.aspx
@@ -1,6 +1,6 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="DashboardViewer.aspx.vb" Inherits=".DashboardViewer" %>
-<%@ Register assembly="DevExpress.Dashboard.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" namespace="DevExpress.DashboardWeb" tagprefix="dx" %>
+<%@ Register assembly="DevExpress.Dashboard.v17.2.Web, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" namespace="DevExpress.DashboardWeb" tagprefix="dx" %>
diff --git a/Nuvolar.Web.Company/Controls/DashboardViewer.aspx.bak b/Nuvolar.Web.Company/Controls/DashboardViewer.aspx.bak
new file mode 100644
index 0000000..df9534f
--- /dev/null
+++ b/Nuvolar.Web.Company/Controls/DashboardViewer.aspx.bak
@@ -0,0 +1,20 @@
+<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="DashboardViewer.aspx.vb" Inherits=".DashboardViewer" %>
+
+<%@ Register assembly="DevExpress.Dashboard.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" namespace="DevExpress.DashboardWeb" tagprefix="dx" %>
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Nuvolar.Web.Company/Default.aspx b/Nuvolar.Web.Company/Default.aspx
index 6794837..839bf6b 100644
--- a/Nuvolar.Web.Company/Default.aspx
+++ b/Nuvolar.Web.Company/Default.aspx
@@ -1,8 +1,8 @@
<%@ Page Language="VB" AutoEventWireup="true" Inherits="Default" EnableViewState="false"
ValidateRequest="false" CodeBehind="Default.aspx.vb" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Templates"
TagPrefix="cc3" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Controls"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Controls"
TagPrefix="cc4" %>
diff --git a/Nuvolar.Web.Company/Default.aspx.bak b/Nuvolar.Web.Company/Default.aspx.bak
new file mode 100644
index 0000000..6794837
--- /dev/null
+++ b/Nuvolar.Web.Company/Default.aspx.bak
@@ -0,0 +1,22 @@
+<%@ Page Language="VB" AutoEventWireup="true" Inherits="Default" EnableViewState="false"
+ ValidateRequest="false" CodeBehind="Default.aspx.vb" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates"
+ TagPrefix="cc3" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Controls"
+ TagPrefix="cc4" %>
+
+
+
+ Main Page
+
+
+
+
+
+
diff --git a/Nuvolar.Web.Company/Login.aspx b/Nuvolar.Web.Company/Login.aspx
index 034a4c0..de69b89 100644
--- a/Nuvolar.Web.Company/Login.aspx
+++ b/Nuvolar.Web.Company/Login.aspx
@@ -1,11 +1,11 @@
<%@ Page Language="C#" AutoEventWireup="true" Inherits="LoginPage" CodeBehind="Login.aspx.cs" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates.ActionContainers"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Templates.ActionContainers"
TagPrefix="cc2" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates.Controls"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Templates.Controls"
TagPrefix="tc" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Controls"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Controls"
TagPrefix="cc4" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Templates"
TagPrefix="cc3" %>
diff --git a/Nuvolar.Web.Company/Login.aspx.bak b/Nuvolar.Web.Company/Login.aspx.bak
new file mode 100644
index 0000000..034a4c0
--- /dev/null
+++ b/Nuvolar.Web.Company/Login.aspx.bak
@@ -0,0 +1,35 @@
+<%@ Page Language="C#" AutoEventWireup="true" Inherits="LoginPage" CodeBehind="Login.aspx.cs" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates.ActionContainers"
+ TagPrefix="cc2" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates.Controls"
+ TagPrefix="tc" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Controls"
+ TagPrefix="cc4" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates"
+ TagPrefix="cc3" %>
+
+
+
+ Logon
+
+
+
+
+
diff --git a/Nuvolar.Web.Company/Nuvolar.Web.Company.vbproj b/Nuvolar.Web.Company/Nuvolar.Web.Company.vbproj
index 2f39d9c..bde6556 100644
--- a/Nuvolar.Web.Company/Nuvolar.Web.Company.vbproj
+++ b/Nuvolar.Web.Company/Nuvolar.Web.Company.vbproj
@@ -78,115 +78,118 @@
On
-
-
-
-
-
-
+
+
+
+
+
+
False
-
+
False
-
+
False
-
-
-
-
-
-
-
-
+
False
-
-
+
+
+
+
+
+
+
+
False
-
-
-
-
-
-
-
-
-
+
+
False
-
-
-
+
+
+
+
+
+
+
+
+
False
-
+
+
+
False
-
+
False
-
-
+
False
-
+
+
False
-
+
False
-
-
-
-
-
-
-
+
False
-
-
+
+
+
+
+
+
+
False
-
+
+
False
-
+
False
-
+
False
-
-
-
-
+
False
-
+
+
+
+
False
-
+
False
-
+
False
-
-
-
-
-
-
-
-
-
-
-
-
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
..\..\..\..\..\MySQL\MySql.Data.dll
diff --git a/Nuvolar.Web.Company/Nuvolar.Web.Company.vbproj.bak b/Nuvolar.Web.Company/Nuvolar.Web.Company.vbproj.bak
new file mode 100644
index 0000000..2f39d9c
--- /dev/null
+++ b/Nuvolar.Web.Company/Nuvolar.Web.Company.vbproj.bak
@@ -0,0 +1,485 @@
+
+
+
+
+ Debug
+ AnyCPU
+ 8.0.50727
+ 2.0
+ {25ED4445-57D7-4F21-98DE-E96942EFAF2D}
+ {349c5851-65df-11da-9384-00065b846f21};{F184B08F-C81C-45F6-A57F-5ABD9991F28F}
+ Library
+
+
+ Nuvolar.Web
+ v4.0
+
+
+ 4.0
+ SAK
+ SAK
+ SAK
+ SAK
+
+
+
+ false
+
+
+
+
+
+
+
+ true
+ full
+ true
+ true
+ bin\
+ Nuvolar.WebApp.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ AllRules.ruleset
+ x86
+ true
+
+
+ pdbonly
+ false
+ true
+ true
+ bin\
+ Nuvolar.WebApp.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ AllRules.ruleset
+ AnyCPU
+
+
+ true
+ true
+ true
+ bin\
+ Nuvolar.WebApp.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ AnyCPU
+ EASYTEST
+ AllRules.ruleset
+
+
+ On
+
+
+ Binary
+
+
+ Off
+
+
+ On
+
+
+
+
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+ False
+
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+ False
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+ False
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ ..\..\..\..\..\MySQL\MySql.Data.dll
+
+
+ False
+ ..\..\..\..\..\..\..\Program Files (x86)\postgreSQL\Npgsql2.0.11-bin-ms.net4.0\Npgsql.dll
+ True
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Component
+
+
+ DashboardViewer.aspx
+
+
+ DashboardViewer.aspx
+ ASPXCodeBehind
+
+
+ Default.aspx
+
+
+ Default.aspx
+ ASPXCodeBehind
+
+
+ Error.aspx
+
+
+ Error.aspx
+ ASPXCodeBehind
+
+
+ GetAttachments.ashx
+
+
+ Global.asax
+
+
+ Login.aspx
+
+
+ Login.aspx
+ ASPXCodeBehind
+
+
+
+ True
+ Application.myapp
+
+
+ True
+ True
+ Resources.resx
+
+
+ True
+ Settings.settings
+ True
+
+
+ Component
+
+
+
+
+ WebApplication.vb
+
+
+
+ VbMyResourcesResXFileCodeGenerator
+ Resources.Designer.vb
+ My.Resources
+ Designer
+
+
+
+
+
+
+
+
+ Always
+ Designer
+
+
+ Model.xafml
+ Always
+ Designer
+
+
+
+ MyApplicationCodeGenerator
+ Application.Designer.vb
+
+
+
+
+
+ SettingsSingleFileGenerator
+ My
+ Settings.Designer.vb
+
+
+
+ Model.xafml
+ Designer
+
+
+ Model.xafml
+ Designer
+
+
+
+
+
+ {B87EACCF-FA6C-4043-AA73-800C77D8DF11}
+ Nuvolar.Module.Web
+
+
+ {60BF693F-7DEA-4CF6-85BD-EA96829D79DD}
+ Nuvolar.Module
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ 10.0
+ $(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)
+
+
+ true
+ bin\
+ Nuvolar.WebApp.xml
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ pdbonly
+ AnyCPU
+ AllRules.ruleset
+
+
+ true
+ true
+ true
+ bin\
+ Nuvolar.WebApp.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ x64
+ AllRules.ruleset
+
+
+ true
+ bin\
+ Nuvolar.WebApp.xml
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ pdbonly
+ x64
+ AllRules.ruleset
+
+
+ true
+ true
+ true
+ bin\
+ EASYTEST
+ Nuvolar.WebApp.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ x64
+ AllRules.ruleset
+
+
+ true
+ bin\
+ Nuvolar.WebApp.xml
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ pdbonly
+ x64
+ AllRules.ruleset
+
+
+
+
+
+
+
+
+
+ False
+ True
+ 62387
+ /
+
+
+ False
+ False
+
+
+ False
+
+
+
+
+
\ No newline at end of file
diff --git a/Nuvolar.Web.Company/Web.Config b/Nuvolar.Web.Company/Web.Config
index 4396c73..9c28b67 100644
--- a/Nuvolar.Web.Company/Web.Config
+++ b/Nuvolar.Web.Company/Web.Config
@@ -9,10 +9,10 @@
-
-
-
-
+
+
+
+
@@ -44,28 +44,36 @@
-
-
+
+
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -130,13 +138,13 @@
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Nuvolar.Web.Lite/Controls/DashboardViewer.aspx b/Nuvolar.Web.Lite/Controls/DashboardViewer.aspx
index f5b1284..d7f5be7 100644
--- a/Nuvolar.Web.Lite/Controls/DashboardViewer.aspx
+++ b/Nuvolar.Web.Lite/Controls/DashboardViewer.aspx
@@ -1,6 +1,6 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="DashboardViewer.aspx.vb" Inherits=".DashboardViewer" %>
-<%@ Register assembly="DevExpress.Dashboard.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" namespace="DevExpress.DashboardWeb" tagprefix="dx" %>
+<%@ Register assembly="DevExpress.Dashboard.v17.2.Web, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" namespace="DevExpress.DashboardWeb" tagprefix="dx" %>
diff --git a/Nuvolar.Web.Lite/Controls/DashboardViewer.aspx.bak b/Nuvolar.Web.Lite/Controls/DashboardViewer.aspx.bak
new file mode 100644
index 0000000..f5b1284
--- /dev/null
+++ b/Nuvolar.Web.Lite/Controls/DashboardViewer.aspx.bak
@@ -0,0 +1,20 @@
+<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="DashboardViewer.aspx.vb" Inherits=".DashboardViewer" %>
+
+<%@ Register assembly="DevExpress.Dashboard.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" namespace="DevExpress.DashboardWeb" tagprefix="dx" %>
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Nuvolar.Web.Lite/Default.aspx b/Nuvolar.Web.Lite/Default.aspx
index 6794837..839bf6b 100644
--- a/Nuvolar.Web.Lite/Default.aspx
+++ b/Nuvolar.Web.Lite/Default.aspx
@@ -1,8 +1,8 @@
<%@ Page Language="VB" AutoEventWireup="true" Inherits="Default" EnableViewState="false"
ValidateRequest="false" CodeBehind="Default.aspx.vb" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Templates"
TagPrefix="cc3" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Controls"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Controls"
TagPrefix="cc4" %>
diff --git a/Nuvolar.Web.Lite/Default.aspx.bak b/Nuvolar.Web.Lite/Default.aspx.bak
new file mode 100644
index 0000000..6794837
--- /dev/null
+++ b/Nuvolar.Web.Lite/Default.aspx.bak
@@ -0,0 +1,22 @@
+<%@ Page Language="VB" AutoEventWireup="true" Inherits="Default" EnableViewState="false"
+ ValidateRequest="false" CodeBehind="Default.aspx.vb" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates"
+ TagPrefix="cc3" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Controls"
+ TagPrefix="cc4" %>
+
+
+
+ Main Page
+
+
+
+
+
+
diff --git a/Nuvolar.Web.Lite/Login.aspx b/Nuvolar.Web.Lite/Login.aspx
index 034a4c0..de69b89 100644
--- a/Nuvolar.Web.Lite/Login.aspx
+++ b/Nuvolar.Web.Lite/Login.aspx
@@ -1,11 +1,11 @@
<%@ Page Language="C#" AutoEventWireup="true" Inherits="LoginPage" CodeBehind="Login.aspx.cs" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates.ActionContainers"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Templates.ActionContainers"
TagPrefix="cc2" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates.Controls"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Templates.Controls"
TagPrefix="tc" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Controls"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Controls"
TagPrefix="cc4" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Templates"
TagPrefix="cc3" %>
diff --git a/Nuvolar.Web.Lite/Login.aspx.bak b/Nuvolar.Web.Lite/Login.aspx.bak
new file mode 100644
index 0000000..034a4c0
--- /dev/null
+++ b/Nuvolar.Web.Lite/Login.aspx.bak
@@ -0,0 +1,35 @@
+<%@ Page Language="C#" AutoEventWireup="true" Inherits="LoginPage" CodeBehind="Login.aspx.cs" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates.ActionContainers"
+ TagPrefix="cc2" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates.Controls"
+ TagPrefix="tc" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Controls"
+ TagPrefix="cc4" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates"
+ TagPrefix="cc3" %>
+
+
+
+ Logon
+
+
+
+
+
diff --git a/Nuvolar.Web.Lite/Nuvolar.Web.Lite.vbproj b/Nuvolar.Web.Lite/Nuvolar.Web.Lite.vbproj
index 3938d5e..2b6dc5d 100644
--- a/Nuvolar.Web.Lite/Nuvolar.Web.Lite.vbproj
+++ b/Nuvolar.Web.Lite/Nuvolar.Web.Lite.vbproj
@@ -80,144 +80,147 @@
On
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
False
-
+
False
-
+
False
-
-
-
-
-
-
-
-
+
False
-
-
+
+
+
+
+
+
+
+
False
-
-
-
-
-
-
-
-
-
+
+
False
-
-
-
+
+
+
+
+
+
+
+
+
False
-
+
+
+
False
-
+
False
-
-
+
False
-
+
+
False
-
+
False
-
-
-
-
-
-
-
-
+
False
-
-
+
+
+
+
+
+
+
+
False
-
+
+
False
-
+
False
-
+
False
-
-
-
-
-
-
+
False
-
+
+
+
+
+
+
False
-
+
False
-
+
False
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
..\..\Program Files (x86)\Exontrol\ExG2antt.NET\Sample\exontrol.exg2antt.dll
diff --git a/Nuvolar.Web.Lite/Nuvolar.Web.Lite.vbproj.bak b/Nuvolar.Web.Lite/Nuvolar.Web.Lite.vbproj.bak
new file mode 100644
index 0000000..3938d5e
--- /dev/null
+++ b/Nuvolar.Web.Lite/Nuvolar.Web.Lite.vbproj.bak
@@ -0,0 +1,537 @@
+
+
+
+
+ Debug
+ AnyCPU
+ 8.0.50727
+ 2.0
+ {244E28B0-FC17-4EFF-A6D1-4BE1A2D48687}
+ {349c5851-65df-11da-9384-00065b846f21};{F184B08F-C81C-45F6-A57F-5ABD9991F28F}
+ Library
+
+
+ Nuvolar.Web.Lite
+ v4.0
+
+
+ 4.0
+ SAK
+ SAK
+ SAK
+ SAK
+
+
+
+ true
+
+
+
+
+
+
+
+ true
+ full
+ true
+ true
+ bin\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ AllRules.ruleset
+ x86
+
+
+ None
+ false
+ true
+ true
+ bin\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ AllRules.ruleset
+ AnyCPU
+
+
+ true
+ true
+ true
+ bin\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ AnyCPU
+ EASYTEST
+ AllRules.ruleset
+
+
+ On
+
+
+ Binary
+
+
+ Off
+
+
+ On
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+ False
+
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+ False
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+ False
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ ..\..\Program Files (x86)\Exontrol\ExG2antt.NET\Sample\exontrol.exg2antt.dll
+
+
+ ..\..\Program Files (x86)\Exontrol\ExG2antt.NET\Sample\exontrol.exprint.dll
+
+
+
+
+ ..\..\Program Files (x86)\Gnostice\PDFOne.NET\Bin\Gnostice.PDFOne.dll
+
+
+ True
+
+
+ ..\packages\Npgsql.2.2.7\lib\net40\Mono.Security.dll
+ True
+
+
+ ..\packages\MySql.Data.6.9.8\lib\net40\MySql.Data.dll
+ True
+
+
+ ..\packages\Npgsql.2.2.7\lib\net40\Npgsql.dll
+ True
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+ False
+
+
+ False
+
+
+
+ False
+
+
+
+
+
+
+ False
+
+
+ False
+
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Component
+
+
+ DashboardViewer.aspx
+
+
+ DashboardViewer.aspx
+ ASPXCodeBehind
+
+
+ Default.aspx
+
+
+ Default.aspx
+ ASPXCodeBehind
+
+
+ Error.aspx
+
+
+ Error.aspx
+ ASPXCodeBehind
+
+
+ GetAttachments.ashx
+
+
+ Global.asax
+
+
+ Login.aspx
+
+
+ Login.aspx
+ ASPXCodeBehind
+
+
+
+ True
+ Application.myapp
+
+
+ True
+ True
+ Resources.resx
+
+
+ True
+ Settings.settings
+ True
+
+
+ Component
+
+
+
+
+ WebApplication.vb
+
+
+
+ VbMyResourcesResXFileCodeGenerator
+ Resources.Designer.vb
+ My.Resources
+ Designer
+
+
+
+
+
+
+
+
+ Always
+ Designer
+
+
+ Model.xafml
+ Always
+ Designer
+
+
+
+ Model.xafml
+ Designer
+ Always
+
+
+ MyApplicationCodeGenerator
+ Application.Designer.vb
+
+
+
+ SettingsSingleFileGenerator
+ My
+ Settings.Designer.vb
+
+
+
+ Model.xafml
+ Designer
+
+
+
+
+
+
+ {b9ef03ff-d05b-4fd4-a8e9-f90d819cb1dc}
+ Nuvolar.Module.CSharp
+
+
+ {5f15837d-d1e5-44dc-92f0-4f2ebe9c3f8d}
+ Nuvolar.Module.Web.CSharp
+
+
+ {B87EACCF-FA6C-4043-AA73-800C77D8DF11}
+ Nuvolar.Module.Web
+
+
+ {60BF693F-7DEA-4CF6-85BD-EA96829D79DD}
+ Nuvolar.Module
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ 10.0
+ $(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)
+
+
+ true
+ bin\
+
+
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ None
+ AnyCPU
+ AllRules.ruleset
+
+
+ true
+ true
+ true
+ bin\
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ x64
+ AllRules.ruleset
+
+
+ true
+ bin\
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ None
+ x64
+ AllRules.ruleset
+
+
+ true
+ true
+ true
+ bin\
+ EASYTEST
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ x64
+ AllRules.ruleset
+
+
+ true
+ bin\
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ pdbonly
+ x64
+ AllRules.ruleset
+
+
+
+
+
+
+
+
+
+ True
+ True
+ 52018
+ /
+ http://localhost:5888/
+ False
+ False
+
+
+ False
+
+
+
+
+
\ No newline at end of file
diff --git a/Nuvolar.Web.Lite/Web.Config b/Nuvolar.Web.Lite/Web.Config
index 05513e7..5db773d 100644
--- a/Nuvolar.Web.Lite/Web.Config
+++ b/Nuvolar.Web.Lite/Web.Config
@@ -10,10 +10,10 @@
-
-
-
-
+
+
+
+
@@ -45,28 +45,36 @@
-
-
+
+
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -131,28 +139,28 @@
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
+
+
-
+
-
+
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Nuvolar.Web/Controls/DashboardViewer.aspx b/Nuvolar.Web/Controls/DashboardViewer.aspx
index f5b1284..d7f5be7 100644
--- a/Nuvolar.Web/Controls/DashboardViewer.aspx
+++ b/Nuvolar.Web/Controls/DashboardViewer.aspx
@@ -1,6 +1,6 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="DashboardViewer.aspx.vb" Inherits=".DashboardViewer" %>
-<%@ Register assembly="DevExpress.Dashboard.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" namespace="DevExpress.DashboardWeb" tagprefix="dx" %>
+<%@ Register assembly="DevExpress.Dashboard.v17.2.Web, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" namespace="DevExpress.DashboardWeb" tagprefix="dx" %>
diff --git a/Nuvolar.Web/Controls/DashboardViewer.aspx.bak b/Nuvolar.Web/Controls/DashboardViewer.aspx.bak
new file mode 100644
index 0000000..f5b1284
--- /dev/null
+++ b/Nuvolar.Web/Controls/DashboardViewer.aspx.bak
@@ -0,0 +1,20 @@
+<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="DashboardViewer.aspx.vb" Inherits=".DashboardViewer" %>
+
+<%@ Register assembly="DevExpress.Dashboard.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" namespace="DevExpress.DashboardWeb" tagprefix="dx" %>
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Nuvolar.Web/Default.aspx b/Nuvolar.Web/Default.aspx
index 6794837..839bf6b 100644
--- a/Nuvolar.Web/Default.aspx
+++ b/Nuvolar.Web/Default.aspx
@@ -1,8 +1,8 @@
<%@ Page Language="VB" AutoEventWireup="true" Inherits="Default" EnableViewState="false"
ValidateRequest="false" CodeBehind="Default.aspx.vb" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Templates"
TagPrefix="cc3" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Controls"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Controls"
TagPrefix="cc4" %>
diff --git a/Nuvolar.Web/Default.aspx.bak b/Nuvolar.Web/Default.aspx.bak
new file mode 100644
index 0000000..6794837
--- /dev/null
+++ b/Nuvolar.Web/Default.aspx.bak
@@ -0,0 +1,22 @@
+<%@ Page Language="VB" AutoEventWireup="true" Inherits="Default" EnableViewState="false"
+ ValidateRequest="false" CodeBehind="Default.aspx.vb" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates"
+ TagPrefix="cc3" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Controls"
+ TagPrefix="cc4" %>
+
+
+
+ Main Page
+
+
+
+
+
+
diff --git a/Nuvolar.Web/Login.aspx b/Nuvolar.Web/Login.aspx
index 034a4c0..de69b89 100644
--- a/Nuvolar.Web/Login.aspx
+++ b/Nuvolar.Web/Login.aspx
@@ -1,11 +1,11 @@
<%@ Page Language="C#" AutoEventWireup="true" Inherits="LoginPage" CodeBehind="Login.aspx.cs" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates.ActionContainers"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Templates.ActionContainers"
TagPrefix="cc2" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates.Controls"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Templates.Controls"
TagPrefix="tc" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Controls"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Controls"
TagPrefix="cc4" %>
-<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates"
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v17.2" Namespace="DevExpress.ExpressApp.Web.Templates"
TagPrefix="cc3" %>
diff --git a/Nuvolar.Web/Login.aspx.bak b/Nuvolar.Web/Login.aspx.bak
new file mode 100644
index 0000000..034a4c0
--- /dev/null
+++ b/Nuvolar.Web/Login.aspx.bak
@@ -0,0 +1,35 @@
+<%@ Page Language="C#" AutoEventWireup="true" Inherits="LoginPage" CodeBehind="Login.aspx.cs" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates.ActionContainers"
+ TagPrefix="cc2" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates.Controls"
+ TagPrefix="tc" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Controls"
+ TagPrefix="cc4" %>
+<%@ Register Assembly="DevExpress.ExpressApp.Web.v16.2" Namespace="DevExpress.ExpressApp.Web.Templates"
+ TagPrefix="cc3" %>
+
+
+
+ Logon
+
+
+
+
+
diff --git a/Nuvolar.Web/Nuvolar.Web.vbproj b/Nuvolar.Web/Nuvolar.Web.vbproj
index b5fcbd0..da0e082 100644
--- a/Nuvolar.Web/Nuvolar.Web.vbproj
+++ b/Nuvolar.Web/Nuvolar.Web.vbproj
@@ -80,109 +80,112 @@
On
-
-
-
-
-
+
+
+
+
+
False
-
+
False
-
+
False
-
-
-
-
-
-
-
-
+
False
-
-
+
+
+
+
+
+
+
+
False
-
-
-
-
-
-
-
-
-
+
+
False
-
-
-
+
+
+
+
+
+
+
+
+
False
-
+
+
+
False
-
+
False
-
-
+
False
-
+
+
False
-
+
False
-
-
-
-
-
-
-
+
False
-
-
+
+
+
+
+
+
+
False
-
+
+
False
-
+
False
-
+
False
-
-
-
-
+
False
-
+
+
+
+
False
-
+
False
-
+
False
-
-
-
-
-
-
-
+
+ False
+
+
+
+
+
+
+
+
False
..\..\..\..\..\MySQL\MySql.Data.dll
diff --git a/Nuvolar.Web/Nuvolar.Web.vbproj.bak b/Nuvolar.Web/Nuvolar.Web.vbproj.bak
new file mode 100644
index 0000000..b5fcbd0
--- /dev/null
+++ b/Nuvolar.Web/Nuvolar.Web.vbproj.bak
@@ -0,0 +1,472 @@
+
+
+
+
+ Debug
+ AnyCPU
+ 8.0.50727
+ 2.0
+ {A2FC6AD0-E63A-4110-B2AC-B1C7F5C203ED}
+ {349c5851-65df-11da-9384-00065b846f21};{F184B08F-C81C-45F6-A57F-5ABD9991F28F}
+ Library
+
+
+ Nuvolar.Web
+ v4.0
+
+
+ 4.0
+ SAK
+ SAK
+ SAK
+ SAK
+
+
+
+ false
+
+
+
+
+
+
+
+ true
+ full
+ true
+ true
+ bin\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ AllRules.ruleset
+ x86
+
+
+ pdbonly
+ false
+ true
+ true
+ bin\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ AllRules.ruleset
+ AnyCPU
+
+
+ true
+ true
+ true
+ bin\
+
+
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ AnyCPU
+ EASYTEST
+ AllRules.ruleset
+
+
+ On
+
+
+ Binary
+
+
+ Off
+
+
+ On
+
+
+
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+ False
+
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+ False
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+ False
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+ False
+ ..\..\..\..\..\MySQL\MySql.Data.dll
+
+
+ False
+ ..\..\..\..\..\..\..\Program Files (x86)\postgreSQL\Npgsql2.0.11-bin-ms.net4.0\Npgsql.dll
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+ False
+
+
+ False
+
+
+ False
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Component
+
+
+ DashboardViewer.aspx
+
+
+ DashboardViewer.aspx
+ ASPXCodeBehind
+
+
+ Default.aspx
+
+
+ Default.aspx
+ ASPXCodeBehind
+
+
+ Error.aspx
+
+
+ Error.aspx
+ ASPXCodeBehind
+
+
+ GetAttachments.ashx
+
+
+ Global.asax
+
+
+ Login.aspx
+
+
+ Login.aspx
+ ASPXCodeBehind
+
+
+
+ True
+ Application.myapp
+
+
+ True
+ True
+ Resources.resx
+
+
+ True
+ Settings.settings
+ True
+
+
+ Component
+
+
+
+
+ WebApplication.vb
+
+
+
+ VbMyResourcesResXFileCodeGenerator
+ Resources.Designer.vb
+ My.Resources
+ Designer
+
+
+
+
+
+
+
+
+ Always
+ Designer
+
+
+ Model.xafml
+ Always
+ Designer
+
+
+
+ MyApplicationCodeGenerator
+ Application.Designer.vb
+
+
+
+ SettingsSingleFileGenerator
+ My
+ Settings.Designer.vb
+
+
+
+ Model.xafml
+ Designer
+
+
+ Model.xafml
+ Designer
+
+
+
+
+
+ {B87EACCF-FA6C-4043-AA73-800C77D8DF11}
+ Nuvolar.Module.Web
+
+
+ {60BF693F-7DEA-4CF6-85BD-EA96829D79DD}
+ Nuvolar.Module
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ 10.0
+ $(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)
+
+
+ true
+ bin\
+
+
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ pdbonly
+ AnyCPU
+ AllRules.ruleset
+
+
+ true
+ true
+ true
+ bin\
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ x64
+ AllRules.ruleset
+
+
+ true
+ bin\
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ pdbonly
+ x64
+ AllRules.ruleset
+
+
+ true
+ true
+ true
+ bin\
+ EASYTEST
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ full
+ x64
+ AllRules.ruleset
+
+
+ true
+ bin\
+ true
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
+ pdbonly
+ x64
+ AllRules.ruleset
+
+
+
+
+
+
+
+
+
+ False
+ True
+ 52018
+ /
+
+
+ False
+ False
+
+
+ False
+
+
+
+
+
\ No newline at end of file
diff --git a/Nuvolar.Web/Web.Config b/Nuvolar.Web/Web.Config
index 4396c73..9c28b67 100644
--- a/Nuvolar.Web/Web.Config
+++ b/Nuvolar.Web/Web.Config
@@ -9,10 +9,10 @@
-
-
-
-
+
+
+
+
@@ -44,28 +44,36 @@
-
-
+
+
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -130,13 +138,13 @@
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Nuvolar.Win.Lite/My Project/licenses.licx b/Nuvolar.Win.Lite/My Project/licenses.licx
index 45113cf..e69de29 100644
--- a/Nuvolar.Win.Lite/My Project/licenses.licx
+++ b/Nuvolar.Win.Lite/My Project/licenses.licx
@@ -1 +0,0 @@
-DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
diff --git a/Nuvolar.Win.Lite/My Project/licenses.licx.bak b/Nuvolar.Win.Lite/My Project/licenses.licx.bak
new file mode 100644
index 0000000..45113cf
--- /dev/null
+++ b/Nuvolar.Win.Lite/My Project/licenses.licx.bak
@@ -0,0 +1 @@
+DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
diff --git a/Nuvolar.Win.Lite/Nuvolar.Win.Lite.vbproj b/Nuvolar.Win.Lite/Nuvolar.Win.Lite.vbproj
index 87c250f..60cc7f3 100644
--- a/Nuvolar.Win.Lite/Nuvolar.Win.Lite.vbproj
+++ b/Nuvolar.Win.Lite/Nuvolar.Win.Lite.vbproj
@@ -148,168 +148,172 @@
AllRules.ruleset
-
+
False
True
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
False
True
-
+
False
True
-
+
False
True
-
- True
-
-
-
-
- True
-
-
- True
-
-
+
False
True
-
+
True
-
+
+
+
True
-
-
+
True
-
- True
-
-
-
-
- True
-
-
- True
-
-
- True
-
-
- True
-
-
- True
-
-
- True
-
-
+
False
True
-
+
+ True
+
+
+ True
+
+
+
+ True
+
+
+ True
+
+
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
+ True
+
+
False
True
-
+
False
True
-
+
False
True
-
+
False
True
-
+
False
True
-
+
False
True
-
- True
-
-
+
False
True
-
+
+ True
+
+
False
True
-
+