Átállás 17.2.3-ra

Related Work Items: #123
This commit is contained in:
2017-12-02 16:09:26 +01:00
parent 2b2f1b201c
commit 9cca882b34
201 changed files with 16991 additions and 3617 deletions
@@ -80,113 +80,116 @@
<OutputPath>bin\x64\R64\</OutputPath> <OutputPath>bin\x64\R64\</OutputPath>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="DevExpress.Charts.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Charts.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.DataAccess.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.DataAccess.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.DataAccess.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.DataAccess.v17.2.UI, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.AuditTrail.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.AuditTrail.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Chart.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.Chart.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.CloneObject.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.CloneObject.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.ConditionalAppearance.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.ConditionalAppearance.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Demos.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.Demos.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.HtmlPropertyEditor.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.HtmlPropertyEditor.Win.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Kpi.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.Kpi.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Objects.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.Objects.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Reports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.Reports.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Reports.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.Reports.Win.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.ReportsV2.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.ReportsV2.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Security.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.Security.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Validation.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.Validation.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Validation.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.Validation.Win.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.ViewVariantsModule.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.ViewVariantsModule.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.Win.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Xpo.v16.2"> <Reference Include="DevExpress.ExpressApp.Xpo.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>False</Private> <Private>False</Private>
</Reference> </Reference>
<Reference Include="DevExpress.Office.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Office.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.PivotGrid.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.PivotGrid.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Pdf.v16.2.Core"> <Reference Include="DevExpress.Pdf.v17.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Printing.v16.2.Core"> <Reference Include="DevExpress.RichEdit.v17.2.Export">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Data.v16.2"> <Reference Include="DevExpress.Printing.v17.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.v16.2"> <Reference Include="DevExpress.Data.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Persistent.Base.v16.2"> <Reference Include="DevExpress.ExpressApp.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Persistent.BaseImpl.v16.2"> <Reference Include="DevExpress.Persistent.Base.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.RichEdit.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Persistent.BaseImpl.v17.2">
<Reference Include="DevExpress.Sparkline.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Utils.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.RichEdit.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Sparkline.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Utils.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Utils.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Xpo.v16.2"> <Reference Include="DevExpress.Utils.v17.2.UI, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraCharts.v16.2.Wizard, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Xpo.v17.2">
<Reference Include="DevExpress.XtraCharts.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraEditors.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraGauges.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraCharts.v17.2.Wizard, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPrinting.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraCharts.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraEditors.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<Reference Include="DevExpress.CodeParser.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraReports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraGauges.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPrinting.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGrid.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.CodeParser.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraReports.v16.2.Extensions, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraReports.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraReports.v17.2.Extensions, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="Microsoft.VisualBasic" /> <Reference Include="Microsoft.VisualBasic" />
<Reference Include="MySql.Data, Version=6.9.9.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d, processorArchitecture=MSIL"> <Reference Include="MySql.Data, Version=6.9.9.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d, processorArchitecture=MSIL">
<HintPath>..\packages\MySql.Data.6.9.9\lib\net40\MySql.Data.dll</HintPath> <HintPath>..\packages\MySql.Data.6.9.9\lib\net40\MySql.Data.dll</HintPath>
@@ -0,0 +1,549 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>9.0.30729</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{B9EF03FF-D05B-4FD4-A8E9-F90D819CB1DC}</ProjectGuid>
<OutputType>Library</OutputType>
<AppDesignerFolder>Properties</AppDesignerFolder>
<RootNamespace>Nuvolar.Module</RootNamespace>
<AssemblyName>Nuvolar.Module.CSharp</AssemblyName>
<FileUpgradeFlags>
</FileUpgradeFlags>
<OldToolsVersion>3.5</OldToolsVersion>
<UpgradeBackupLocation>
</UpgradeBackupLocation>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<TargetFrameworkProfile />
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
<SccProjectName>SAK</SccProjectName>
<SccLocalPath>SAK</SccLocalPath>
<SccAuxPath>SAK</SccAuxPath>
<SccProvider>SAK</SccProvider>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<Optimize>false</Optimize>
<OutputPath>bin\Debug\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants>
<ErrorReport>prompt</ErrorReport>
<WarningLevel>4</WarningLevel>
<PlatformTarget>x86</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>none</DebugType>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DefineConstants>TRACE</DefineConstants>
<ErrorReport>prompt</ErrorReport>
<WarningLevel>4</WarningLevel>
<PlatformTarget>AnyCPU</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
<DebugSymbols>true</DebugSymbols>
<OutputPath>bin\x64\Debug\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants>
<DebugType>full</DebugType>
<PlatformTarget>x64</PlatformTarget>
<ErrorReport>prompt</ErrorReport>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
<OutputPath>bin\x64\Release\</OutputPath>
<DefineConstants>TRACE</DefineConstants>
<Optimize>true</Optimize>
<PlatformTarget>x64</PlatformTarget>
<ErrorReport>prompt</ErrorReport>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'R64|AnyCPU'">
<OutputPath>bin\R64\</OutputPath>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'R64|x64'">
<OutputPath>bin\x64\R64\</OutputPath>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Charts.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.DataAccess.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.DataAccess.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.AuditTrail.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Chart.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.CloneObject.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.ConditionalAppearance.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Demos.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.HtmlPropertyEditor.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Kpi.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Objects.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Reports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Reports.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.ReportsV2.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Security.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Validation.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Validation.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.ViewVariantsModule.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Xpo.v16.2">
<SpecificVersion>False</SpecificVersion>
<Private>False</Private>
</Reference>
<Reference Include="DevExpress.Office.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.PivotGrid.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Pdf.v16.2.Core">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Printing.v16.2.Core">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Data.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Persistent.Base.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Persistent.BaseImpl.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.RichEdit.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Sparkline.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Utils.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Utils.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Xpo.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraCharts.v16.2.Wizard, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraEditors.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraGauges.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPrinting.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.CodeParser.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraReports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraReports.v16.2.Extensions, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="Microsoft.VisualBasic" />
<Reference Include="MySql.Data, Version=6.9.9.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d, processorArchitecture=MSIL">
<HintPath>..\packages\MySql.Data.6.9.9\lib\net40\MySql.Data.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="System">
<Name>System</Name>
<Private>False</Private>
</Reference>
<Reference Include="System.Core">
<RequiredTargetFramework>3.5</RequiredTargetFramework>
<Private>False</Private>
</Reference>
<Reference Include="System.Data">
<Name>System.Data</Name>
<Private>False</Private>
</Reference>
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms">
<Name>System.Windows.Forms</Name>
<Private>False</Private>
</Reference>
<Reference Include="System.Xml">
<Name>System.XML</Name>
<Private>False</Private>
</Reference>
</ItemGroup>
<ItemGroup>
<Compile Include="BusinessObjects\CostPlanner.cs" />
<Compile Include="BusinessObjects\CostPlannerRows.cs" />
<Compile Include="BusinessObjects\NAVInvoiceReport.cs" />
<Compile Include="BusinessObjects\NewCustomersFrom.cs" />
<Compile Include="BusinessObjects\nopCommerce\nopCParameters.cs" />
<Compile Include="BusinessObjects\PriceFixCustomers.cs" />
<Compile Include="BusinessObjects\PCIGroupAdvance.cs" />
<Compile Include="BusinessObjects\Popup\OrderInMovePopup.cs" />
<Compile Include="BusinessObjects\Popup\StorageSelectPopup.cs" />
<Compile Include="BusinessObjects\PriceFixCustomers_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="BusinessObjects\PriceFixCustomers_VC.Designer.cs">
<DependentUpon>PriceFixCustomers_VC.cs</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\StoragePDACollectionRowsH.cs" />
<Compile Include="Controllers\AuditTrailVCC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\AuditTrailVCC.Designer.cs">
<DependentUpon>AuditTrailVCC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\CustomersOrderVC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\CustomersOrderVC.Designer.cs">
<DependentUpon>CustomersOrderVC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\DeliveryNoteOut_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\DeliveryNoteOut_VC.Designer.cs">
<DependentUpon>DeliveryNoteOut_VC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\InvoiceHeader_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\InvoiceHeader_VC.Designer.cs">
<DependentUpon>InvoiceHeader_VC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\NavInvoiceReportVC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\NavInvoiceReportVC.Designer.cs">
<DependentUpon>NavInvoiceReportVC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\nopCommerce\nopC_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\nopCommerce\nopC_VC.Designer.cs">
<DependentUpon>nopC_VC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\OrderIn_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\OrderIn_VC.Designer.cs">
<DependentUpon>OrderIn_VC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\Products_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\Products_VC.Designer.cs">
<DependentUpon>Products_VC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\ReportV2_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\ReportV2_VC.Designer.cs">
<DependentUpon>ReportV2_VC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\StorageOut_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\StorageOut_VC.Designer.cs">
<DependentUpon>StorageOut_VC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\StoragePDACollectionHeader_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\StoragePDACollectionHeader_VC.Designer.cs">
<DependentUpon>StoragePDACollectionHeader_VC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\WorkEventArgs.cs" />
<Compile Include="Editors\FolderBrowseEditor.cs" />
<Compile Include="Helpers\BusinessDocumentHelper.cs" />
<Compile Include="Module.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Module.Designer.cs">
<DependentUpon>Module.cs</DependentUpon>
</Compile>
<Compile Include="Properties\AssemblyInfo.cs" />
<Compile Include="DatabaseUpdate\Updater.cs" />
<Compile Include="ReportV2\Report_Invoice.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="ReportV2\Report_Invoice.Designer.cs">
<DependentUpon>Report_Invoice.cs</DependentUpon>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="BusinessObjects\PriceFixCustomers_VC.resx">
<DependentUpon>PriceFixCustomers_VC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Controllers\AuditTrailVCC.resx">
<DependentUpon>AuditTrailVCC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Controllers\CustomersOrderVC.resx">
<DependentUpon>CustomersOrderVC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Controllers\DeliveryNoteOut_VC.resx">
<DependentUpon>DeliveryNoteOut_VC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Controllers\InvoiceHeader_VC.resx">
<DependentUpon>InvoiceHeader_VC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Controllers\NavInvoiceReportVC.resx">
<DependentUpon>NavInvoiceReportVC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Controllers\nopCommerce\nopC_VC.resx">
<DependentUpon>nopC_VC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Controllers\OrderIn_VC.resx">
<DependentUpon>OrderIn_VC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Controllers\Products_VC.resx">
<DependentUpon>Products_VC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Controllers\ReportV2_VC.resx">
<DependentUpon>ReportV2_VC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Controllers\StorageOut_VC.resx">
<DependentUpon>StorageOut_VC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Controllers\StoragePDACollectionHeader_VC.resx">
<DependentUpon>StoragePDACollectionHeader_VC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Module.resx">
<DependentUpon>Module.cs</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Properties\licenses.licx" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Model.DesignedDiffs.xafml" />
</ItemGroup>
<ItemGroup>
<None Include="app.config" />
<None Include="Business.cd" />
<None Include="BusinessObjects\ReadMe.txt" />
<EmbeddedResource Include="CSV\ChartOfAccounts.csv" />
<None Include="Controllers\ReadMe.txt" />
<EmbeddedResource Include="CSV\Country.csv" />
<EmbeddedResource Include="CSV\Customers.csv" />
<EmbeddedResource Include="CSV\CustomersOrder.csv" />
<EmbeddedResource Include="CSV\Products1.csv" />
<EmbeddedResource Include="CSV\ProductsBestSelling.csv" />
<EmbeddedResource Include="CSV\Products2.csv" />
<EmbeddedResource Include="CSV\Locations.csv" />
<EmbeddedResource Include="CSV\Products3.csv" />
<None Include="DatabaseUpdate\ReadMe.txt" />
<EmbeddedResource Include="Model.DesignedDiffs.Localization.hu.xafml">
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Model.DesignedDiffs.Localization.en.xafml">
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="CSV\GIROINFO.csv" />
<EmbeddedResource Include="CSV\Products.csv" />
<EmbeddedResource Include="CSV\Names.csv" />
<None Include="packages.config" />
<None Include="ReadMe.txt" />
<EmbeddedResource Include="ReportV2\Report_Invoice.resx">
<DependentUpon>Report_Invoice.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Repx\rptInvoice.repx" />
<EmbeddedResource Include="Repx\rptInvoiceSubreport.repx" />
<EmbeddedResource Include="Repx\rptCassa.repx" />
<EmbeddedResource Include="Repx\rptCassareport.repx" />
<EmbeddedResource Include="Repx\rptCompensation.repx" />
<EmbeddedResource Include="Repx\rptOfferOut.repx" />
<EmbeddedResource Include="Repx\rptOfferOutNoprice.repx" />
<EmbeddedResource Include="Repx\rptOfferOutSubreport.repx" />
<EmbeddedResource Include="Repx\rptDeliveryNoteOut.repx" />
<EmbeddedResource Include="Repx\rptStorageIn.repx" />
<EmbeddedResource Include="Repx\rptStorageOut.repx" />
<EmbeddedResource Include="Repx\rptInventory.repx" />
<EmbeddedResource Include="CSV\ZIPHU.csv" />
<EmbeddedResource Include="Repx\rptEtikett.repx" />
<EmbeddedResource Include="Repx\rptFinancialAbort.repx" />
<EmbeddedResource Include="Repx\rptFinancialAlert.repx" />
<EmbeddedResource Include="Repx\rptFinancialSubreport.repx" />
<EmbeddedResource Include="Repx\rptFinancialWarning.repx" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
<Visible>False</Visible>
<ProductName>Windows Installer 3.1</ProductName>
<Install>true</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\Nuvolar.Module\Nuvolar.Module.vbproj">
<Project>{60bf693f-7dea-4cf6-85bd-ea96829d79dd}</Project>
<Name>Nuvolar.Module</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="CSV\CustomsTariffs.csv" />
</ItemGroup>
<ItemGroup>
<None Include="UnusableNodes.xml">
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
<SubType>Designer</SubType>
</None>
<None Include="UnusableNodes2.xml">
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
<SubType>Designer</SubType>
</None>
<EmbeddedResource Include="Demo\Images\Products\049742_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\049742_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\050286_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\054075_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\054500_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\054500_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\054500_3.jpg" />
<EmbeddedResource Include="Demo\Images\Products\055800_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\055800_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\055800_3.jpg" />
<EmbeddedResource Include="Demo\Images\Products\058080_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\059257_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\059274_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\060447_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\062208_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\062208_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\062230_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\062230_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\065008_1.png" />
<EmbeddedResource Include="Demo\Images\Products\066477_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\066477_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\066477_3.jpg" />
<EmbeddedResource Include="Demo\Images\Products\066780_1.png" />
<EmbeddedResource Include="Demo\Images\Products\067496_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\067497_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\067503_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\067503_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\067503_3.jpg" />
<EmbeddedResource Include="Demo\Images\Products\073771_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\073771_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\073771_3.jpg" />
<EmbeddedResource Include="Demo\Images\Products\073782_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\073782_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\073782_3.jpg" />
<EmbeddedResource Include="Demo\Images\Products\073783_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\073783_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\073783_3.jpg" />
<EmbeddedResource Include="Demo\Images\Products\075022_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\075061_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\076063_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\076073_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\076184_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\076402_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\077191_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\077191_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\077191_3.jpg" />
<EmbeddedResource Include="Demo\Images\Products\077192_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\077192_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\077192_3.jpg" />
<EmbeddedResource Include="Demo\Images\Products\077193_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\077193_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\077193_3.jpg" />
<EmbeddedResource Include="Demo\Images\Products\077313_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\077313_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\077554_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\077554_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\077554_3.jpg" />
<EmbeddedResource Include="Demo\Images\Products\078322_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\078322_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\078512_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\078512_2.jpg" />
<EmbeddedResource Include="Demo\Images\Products\078512_3.jpg" />
<EmbeddedResource Include="Demo\Images\Products\078518_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\079111_1.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Akkumulátorok.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Akkumulátoros_gépek.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Elektromos_kéziszerszámok.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Felsőmarók.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Fúrás!ütvefúrás!vésés.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Fúró-csavarbehajtók.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Fúrókalapácsok.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Fűnyírók_gyepszellőztetők.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Fűnyírók!gyepszellőztetők.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Fűrészelés!gyalulás!marás.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Kertészet.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Kertészeti_benzinmotoros_gépek.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Kertészeti_elektromos_gépek.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Keverőgépek.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Körfűrészek.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Lapostiplimarók.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Láncfűrészek!magassági_ágvágók.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Magasnyomású_mosó!Szivattyú.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Szegélynyírók!fűkaszák.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Szúró!vagy_dekopírfűrészek.jpg" />
<EmbeddedResource Include="Demo\Images\ProductsGroups\Ütvefúrógépek.jpg" />
<EmbeddedResource Include="Demo\Images\Products\060001_1.jpg" />
<EmbeddedResource Include="Demo\Images\Products\073760_1.jpg" />
<Content Include="ChangeToNuvolar_MySQL.sql" />
<Content Include="ResetInvoices.sql" />
<EmbeddedResource Include="XML\nopCommerce_hu.xml" />
</ItemGroup>
<ItemGroup />
<Import Project="$(MSBuildBinPath)\Microsoft.CSharp.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>
@@ -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
@@ -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
@@ -81,101 +81,104 @@
<OutputPath>bin\x64\R64\</OutputPath> <OutputPath>bin\x64\R64\</OutputPath>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="DevExpress.DataAccess.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.DataAccess.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.AuditTrail.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.AuditTrail.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Chart.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.Chart.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Chart.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.Chart.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.CloneObject.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.CloneObject.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.ConditionalAppearance.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.ConditionalAppearance.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.FileAttachment.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.FileAttachment.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.HtmlPropertyEditor.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.HtmlPropertyEditor.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Kpi.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.Kpi.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Objects.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.Objects.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotChart.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.PivotChart.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotChart.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.PivotChart.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.PivotGrid.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotGrid.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.PivotGrid.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Reports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.Reports.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Reports.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.Reports.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Security.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.Security.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.TreeListEditors.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.TreeListEditors.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.TreeListEditors.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.TreeListEditors.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Validation.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.Validation.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Validation.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.Validation.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.ViewVariantsModule.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.ViewVariantsModule.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Xpo.v16.2"> <Reference Include="DevExpress.ExpressApp.Xpo.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>False</Private> <Private>False</Private>
</Reference> </Reference>
<Reference Include="DevExpress.PivotGrid.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.PivotGrid.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Pdf.v16.2.Core"> <Reference Include="DevExpress.Pdf.v17.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Printing.v16.2.Core"> <Reference Include="DevExpress.RichEdit.v17.2.Export">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Data.v16.2"> <Reference Include="DevExpress.Printing.v17.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.v16.2"> <Reference Include="DevExpress.Data.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Persistent.Base.v16.2"> <Reference Include="DevExpress.ExpressApp.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Persistent.BaseImpl.v16.2"> <Reference Include="DevExpress.Persistent.Base.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Utils.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Persistent.BaseImpl.v17.2">
<Reference Include="DevExpress.Web.ASPxHtmlEditor.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <SpecificVersion>False</SpecificVersion>
<Reference Include="DevExpress.Web.ASPxPivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> </Reference>
<Reference Include="DevExpress.Web.ASPxSpellChecker.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Utils.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Web.ASPxTreeList.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Web.ASPxHtmlEditor.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Office.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Web.ASPxPivotGrid.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Web.ASPxSpellChecker.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Web.ASPxTreeList.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Office.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.RichEdit.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.RichEdit.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Xpo.v16.2"> <Reference Include="DevExpress.Xpo.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Charts.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Charts.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v16.2.Wizard, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraCharts.v17.2.Wizard, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraCharts.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPrinting.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraPrinting.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraCharts.v17.2.UI, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraCharts.v17.2.Web, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraEditors.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraEditors.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Sparkline.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Sparkline.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.CodeParser.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.CodeParser.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Utils.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Utils.v17.2.UI, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraReports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraReports.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraReports.v16.2.Extensions, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraReports.v17.2.Extensions, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Web.Resources.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Web.Resources.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraReports.v17.2.Web, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="System"> <Reference Include="System">
<Name>System</Name> <Name>System</Name>
<Private>False</Private> <Private>False</Private>
@@ -0,0 +1,284 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>9.0.30729</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{5F15837D-D1E5-44DC-92F0-4F2EBE9C3F8D}</ProjectGuid>
<OutputType>Library</OutputType>
<AppDesignerFolder>Properties</AppDesignerFolder>
<RootNamespace>Nuvolar.Module.Web.CSharp</RootNamespace>
<AssemblyName>Nuvolar.Module.Web.CSharp</AssemblyName>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<FileUpgradeFlags>
</FileUpgradeFlags>
<UpgradeBackupLocation>
</UpgradeBackupLocation>
<OldToolsVersion>3.5</OldToolsVersion>
<TargetFrameworkProfile />
<SccProjectName>SAK</SccProjectName>
<SccLocalPath>SAK</SccLocalPath>
<SccAuxPath>SAK</SccAuxPath>
<SccProvider>SAK</SccProvider>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<Optimize>false</Optimize>
<OutputPath>bin\Debug\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants>
<ErrorReport>prompt</ErrorReport>
<WarningLevel>4</WarningLevel>
<PlatformTarget>x86</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>none</DebugType>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DefineConstants>TRACE</DefineConstants>
<ErrorReport>prompt</ErrorReport>
<WarningLevel>4</WarningLevel>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'EasyTest|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<OutputPath>bin\EasyTest\</OutputPath>
<DefineConstants>TRACE;DEBUG;EASYTEST</DefineConstants>
<DebugType>full</DebugType>
<PlatformTarget>AnyCPU</PlatformTarget>
<ErrorReport>prompt</ErrorReport>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
<DebugSymbols>true</DebugSymbols>
<OutputPath>bin\x64\Debug\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants>
<DebugType>full</DebugType>
<PlatformTarget>x64</PlatformTarget>
<ErrorReport>prompt</ErrorReport>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
<OutputPath>bin\x64\Release\</OutputPath>
<DefineConstants>TRACE</DefineConstants>
<Optimize>true</Optimize>
<PlatformTarget>x64</PlatformTarget>
<ErrorReport>prompt</ErrorReport>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'EasyTest|x64'">
<DebugSymbols>true</DebugSymbols>
<OutputPath>bin\x64\EasyTest\</OutputPath>
<DefineConstants>TRACE;DEBUG;EASYTEST</DefineConstants>
<DebugType>full</DebugType>
<PlatformTarget>x64</PlatformTarget>
<ErrorReport>prompt</ErrorReport>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'R64|AnyCPU'">
<OutputPath>bin\R64\</OutputPath>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'R64|x64'">
<OutputPath>bin\x64\R64\</OutputPath>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.DataAccess.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.AuditTrail.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Chart.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Chart.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.CloneObject.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.ConditionalAppearance.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.FileAttachment.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.HtmlPropertyEditor.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Kpi.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Objects.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotChart.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotChart.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotGrid.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Reports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Reports.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Security.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.TreeListEditors.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.TreeListEditors.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Validation.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Validation.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.ViewVariantsModule.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Xpo.v16.2">
<SpecificVersion>False</SpecificVersion>
<Private>False</Private>
</Reference>
<Reference Include="DevExpress.PivotGrid.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Pdf.v16.2.Core">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Printing.v16.2.Core">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Data.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Persistent.Base.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Persistent.BaseImpl.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Utils.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Web.ASPxHtmlEditor.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Web.ASPxPivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Web.ASPxSpellChecker.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Web.ASPxTreeList.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Office.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.RichEdit.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Xpo.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Charts.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v16.2.Wizard, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPrinting.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraEditors.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Sparkline.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.CodeParser.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Utils.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraReports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraReports.v16.2.Extensions, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Web.Resources.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="System">
<Name>System</Name>
<Private>False</Private>
</Reference>
<Reference Include="System.ComponentModel.Composition" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data">
<Name>System.Data</Name>
<Private>False</Private>
</Reference>
<Reference Include="System.Drawing">
<Private>False</Private>
</Reference>
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" />
<Reference Include="System.Web" />
<Reference Include="System.Web.Extensions" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml">
<Name>System.XML</Name>
<Private>False</Private>
</Reference>
</ItemGroup>
<ItemGroup>
<Compile Include="BusinessObjects\Interface\IModelMemberExtender.cs" />
<Compile Include="Controllers\ActionDefaultPaintStyle_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\ActionDefaultPaintStyle_VC.Designer.cs">
<DependentUpon>ActionDefaultPaintStyle_VC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\APCSheet_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\APCSheet_VC.Designer.cs">
<DependentUpon>APCSheet_VC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\ASPxGridList_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\ASPxGridList_VC.Designer.cs">
<DependentUpon>ASPxGridList_VC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\Invoice_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\Invoice_VC.Designer.cs">
<DependentUpon>Invoice_VC.cs</DependentUpon>
</Compile>
<Compile Include="DatabaseUpdate\Updater.cs" />
<Compile Include="Module.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Module.Designer.cs">
<DependentUpon>Module.cs</DependentUpon>
</Compile>
<Compile Include="Properties\AssemblyInfo.cs" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Controllers\Invoice_VC.resx">
<DependentUpon>Invoice_VC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Model.DesignedDiffs.xafml" />
<EmbeddedResource Include="Module.resx">
<SubType>Designer</SubType>
<DependentUpon>Module.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Properties\licenses.licx" />
</ItemGroup>
<ItemGroup>
<None Include="DatabaseUpdate\ReadMe.txt" />
</ItemGroup>
<ItemGroup>
<None Include="BusinessObjects\ReadMe.txt" />
</ItemGroup>
<ItemGroup>
<None Include="Controllers\ReadMe.txt" />
</ItemGroup>
<ItemGroup>
<None Include="Images\ReadMe.txt" />
<EmbeddedResource Include="Model.DesignedDiffs.Localization.hu.xafml">
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<None Include="ReadMe.txt" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\Nuvolar.Module.Web\Nuvolar.Module.Web.vbproj">
<Project>{b87eaccf-fa6c-4043-aa73-800c77d8df11}</Project>
<Name>Nuvolar.Module.Web</Name>
</ProjectReference>
<ProjectReference Include="..\Nuvolar.Module\Nuvolar.Module.vbproj">
<Project>{60bf693f-7dea-4cf6-85bd-ea96829d79dd}</Project>
<Name>Nuvolar.Module</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup />
<Import Project="$(MSBuildBinPath)\Microsoft.CSharp.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>
+67 -64
View File
@@ -129,118 +129,121 @@
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet> <CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="DevExpress.DataAccess.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.DataAccess.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.DataAccess.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.DataAccess.v17.2.UI, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.TreeMap.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.TreeMap.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraTreeMap.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraTreeMap.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Dashboard.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Dashboard.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.TreeListEditors.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.ExpressApp.TreeListEditors.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.TreeListEditors.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.TreeListEditors.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Pdf.v16.2.Core"> <Reference Include="DevExpress.Pdf.v17.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Printing.v16.2.Core"> <Reference Include="DevExpress.RichEdit.v17.2.Export">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Data.v16.2"> <Reference Include="DevExpress.Printing.v17.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.AuditTrail.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Data.v17.2">
<Reference Include="DevExpress.ExpressApp.Chart.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.Chart.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.CloneObject.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.ConditionalAppearance.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.FileAttachment.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.HtmlPropertyEditor.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Kpi.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotChart.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.PivotChart.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.PivotGrid.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Reports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Reports.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Scheduler.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.Scheduler.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Xpo.v16.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.v16.2"> <Reference Include="DevExpress.ExpressApp.AuditTrail.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Chart.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.Chart.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.CloneObject.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.ConditionalAppearance.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.FileAttachment.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.HtmlPropertyEditor.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Kpi.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotChart.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.PivotChart.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotGrid.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.PivotGrid.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Reports.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Reports.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Scheduler.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.Scheduler.Web.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Xpo.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Images.v16.2"> <Reference Include="DevExpress.ExpressApp.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Objects.v16.2"> <Reference Include="DevExpress.ExpressApp.Images.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Security.v16.2"> <Reference Include="DevExpress.ExpressApp.Objects.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Validation.v16.2"> <Reference Include="DevExpress.ExpressApp.Security.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.ViewVariantsModule.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.Validation.v17.2">
<Reference Include="DevExpress.ExpressApp.Web.v16.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Persistent.Base.v16.2"> <Reference Include="DevExpress.ExpressApp.ViewVariantsModule.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Web.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Persistent.BaseImpl.v16.2"> <Reference Include="DevExpress.Persistent.Base.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.PivotGrid.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Persistent.BaseImpl.v17.2">
<Reference Include="DevExpress.Utils.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Web.ASPxHtmlEditor.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Web.ASPxPivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Web.ASPxScheduler.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Web.ASPxSpellChecker.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Web.ASPxTreeList.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Office.v16.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.RichEdit.v16.2.Core"> <Reference Include="DevExpress.PivotGrid.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Utils.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Web.ASPxHtmlEditor.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Web.ASPxPivotGrid.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Web.ASPxScheduler.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Web.ASPxSpellChecker.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Web.ASPxTreeList.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Office.v17.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Web.v16.2"> <Reference Include="DevExpress.RichEdit.v17.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Xpo.v16.2"> <Reference Include="DevExpress.Web.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Charts.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Xpo.v17.2">
<Reference Include="DevExpress.XtraCharts.v16.2.Wizard, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Dashboard.v16.2.Win, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Web.Resources.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Charts.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v17.2.Wizard, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v17.2.Web, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Dashboard.v17.2.Win, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Dashboard.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Web.Resources.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraEditors.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Dashboard.v17.2.Web, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<Reference Include="DevExpress.XtraPivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <SpecificVersion>False</SpecificVersion>
<Reference Include="DevExpress.XtraPrinting.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> </Reference>
<Reference Include="DevExpress.Utils.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraEditors.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Sparkline.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraPivotGrid.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.CodeParser.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraPrinting.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Utils.v17.2.UI, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v16.2.Extensions, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Sparkline.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.CodeParser.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraScheduler.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraReports.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v17.2.Extensions, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v17.2.Web, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraScheduler.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="FarPoint.Win, Version=5.0.3518.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" /> <Reference Include="FarPoint.Win, Version=5.0.3518.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Win.Spread, Version=5.0.3522.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL"> <Reference Include="FarPoint.Win.Spread, Version=5.0.3522.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
@@ -0,0 +1,582 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>9.0.30729</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{B87EACCF-FA6C-4043-AA73-800C77D8DF11}</ProjectGuid>
<OutputType>Library</OutputType>
<RootNamespace>Nuvolar.Module.Web</RootNamespace>
<AssemblyName>Nuvolar.Module.Web</AssemblyName>
<MyType>Windows</MyType>
<OptionExplicit>On</OptionExplicit>
<OptionCompare>Binary</OptionCompare>
<OptionStrict>Off</OptionStrict>
<OptionInfer>On</OptionInfer>
<SccProjectName>SAK</SccProjectName>
<SccLocalPath>SAK</SccLocalPath>
<SccAuxPath>SAK</SccAuxPath>
<SccProvider>SAK</SccProvider>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<FileUpgradeFlags>
</FileUpgradeFlags>
<OldToolsVersion>4.0</OldToolsVersion>
<UpgradeBackupLocation />
<IsWebBootstrapper>true</IsWebBootstrapper>
<PublishUrl>http://localhost/Nuvolar.Module.Web/</PublishUrl>
<Install>true</Install>
<InstallFrom>Web</InstallFrom>
<UpdateEnabled>true</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
<TargetFrameworkProfile>
</TargetFrameworkProfile>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
<PlatformTarget>x86</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>None</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
<PlatformTarget>AnyCPU</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'EasyTest|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\EasyTest\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
<DebugType>full</DebugType>
<PlatformTarget>AnyCPU</PlatformTarget>
<DefineConstants>EASYTEST</DefineConstants>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'R64|AnyCPU'">
<DefineTrace>true</DefineTrace>
<OutputPath>bin\R64\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<Optimize>true</Optimize>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
<DebugType>None</DebugType>
<PlatformTarget>AnyCPU</PlatformTarget>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
<DebugSymbols>true</DebugSymbols>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\x64\Debug\</OutputPath>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
<DebugType>full</DebugType>
<PlatformTarget>x64</PlatformTarget>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
<DefineTrace>true</DefineTrace>
<OutputPath>bin\x64\Release\</OutputPath>
<Optimize>true</Optimize>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
<DebugType>None</DebugType>
<PlatformTarget>x64</PlatformTarget>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'EasyTest|x64'">
<DebugSymbols>true</DebugSymbols>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\x64\EasyTest\</OutputPath>
<DefineConstants>EASYTEST</DefineConstants>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
<DebugType>full</DebugType>
<PlatformTarget>x64</PlatformTarget>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'R64|x64'">
<DefineTrace>true</DefineTrace>
<OutputPath>bin\x64\R64\</OutputPath>
<Optimize>true</Optimize>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
<DebugType>None</DebugType>
<PlatformTarget>x64</PlatformTarget>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.DataAccess.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.DataAccess.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.TreeMap.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraTreeMap.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Dashboard.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.TreeListEditors.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.TreeListEditors.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Pdf.v16.2.Core">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Printing.v16.2.Core">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Data.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.AuditTrail.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Chart.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.Chart.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.CloneObject.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.ConditionalAppearance.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.FileAttachment.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.HtmlPropertyEditor.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Kpi.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotChart.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.PivotChart.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.PivotGrid.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Reports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Reports.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Scheduler.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.Scheduler.Web.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Xpo.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Images.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Objects.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Security.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Validation.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.ViewVariantsModule.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Web.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Persistent.Base.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Persistent.BaseImpl.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.PivotGrid.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Utils.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Web.ASPxHtmlEditor.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Web.ASPxPivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Web.ASPxScheduler.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Web.ASPxSpellChecker.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Web.ASPxTreeList.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Office.v16.2.Core">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.RichEdit.v16.2.Core">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Web.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Xpo.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Charts.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v16.2.Wizard, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Dashboard.v16.2.Win, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Web.Resources.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Dashboard.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraEditors.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPrinting.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Utils.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Sparkline.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.CodeParser.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v16.2.Extensions, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v16.2.Web, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraScheduler.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="FarPoint.Win, Version=5.0.3518.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457" />
<Reference Include="FarPoint.Win.Spread, Version=5.0.3522.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\..\..\Program Files (x86)\GrapeCity\Spread.WinForms.5.dotNet35\v5.0.3518\Bin\FarPoint.Win.Spread.dll</HintPath>
</Reference>
<Reference Include="System">
<Private>False</Private>
</Reference>
<Reference Include="System.Data">
<Private>False</Private>
</Reference>
<Reference Include="System.Drawing" />
<Reference Include="System.Web" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml">
<Private>False</Private>
</Reference>
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
</ItemGroup>
<ItemGroup>
<Compile Include="BusinessObjects\Business\Products\InstallationVC.Designer.vb">
<DependentUpon>InstallationVC.vb</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\Business\Products\InstallationVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="BusinessObjects\Business\Subcontractor\SubcontractorVC.Designer.vb">
<DependentUpon>SubcontractorVC.vb</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\Business\Subcontractor\SubcontractorVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\PCIGroupVC.Designer.vb">
<DependentUpon>PCIGroupVC.vb</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\PCIGroupVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="BusinessObjects\GeneralObjects\HRPersonEventVC.Designer.vb">
<DependentUpon>HRPersonEventVC.vb</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\GeneralObjects\HRPersonEventVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="BusinessObjects\GeneralObjects\OperationalLog\OperationalLog_VC.Designer.vb">
<DependentUpon>OperationalLog_VC.vb</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\GeneralObjects\OperationalLog\OperationalLog_VC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="BusinessObjects\GeneralObjects\RTFDocumentHandler\BusinessDirectory_VC.Designer.vb">
<DependentUpon>BusinessDirectory_VC.vb</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\GeneralObjects\RTFDocumentHandler\BusinessDirectory_VC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\AboutInfoCustomizationVC.Designer.vb">
<DependentUpon>AboutInfoCustomizationVC.vb</DependentUpon>
</Compile>
<Compile Include="Controllers\AboutInfoCustomizationVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\ASPxGridViewVC.Designer.vb">
<DependentUpon>ASPxGridViewVC.vb</DependentUpon>
</Compile>
<Compile Include="Controllers\ASPxGridViewVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="BusinessObjects\Business\BusinessTransactions\Worksheet\WorkSheet_VC.Designer.vb">
<DependentUpon>WorkSheet_VC.vb</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\Business\BusinessTransactions\Worksheet\WorkSheet_VC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLAccountsVC.Designer.vb">
<DependentUpon>GLAccountsVC.vb</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLAccountsVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLBankVC.Designer.vb">
<DependentUpon>GLBankVC.vb</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLBankVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLCassaVC.Designer.vb">
<DependentUpon>GLCassaVC.vb</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLCassaVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLCompensationVC.Designer.vb">
<DependentUpon>GLCompensationVC.vb</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLCompensationVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLMixedVC.Designer.vb">
<DependentUpon>GLMixedVC.vb</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLMixedVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\DashboardViewerVC.Designer.vb">
<DependentUpon>DashboardViewerVC.vb</DependentUpon>
</Compile>
<Compile Include="Controllers\DashboardViewerVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\HTMLEditorVC.Designer.vb">
<DependentUpon>HTMLEditorVC.vb</DependentUpon>
</Compile>
<Compile Include="Controllers\HTMLEditorVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\ListViewProcessVC.Designer.vb">
<DependentUpon>ListViewProcessVC.vb</DependentUpon>
</Compile>
<Compile Include="Controllers\ListViewProcessVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\LogonWC.Designer.vb">
<DependentUpon>LogonWC.vb</DependentUpon>
</Compile>
<Compile Include="Controllers\LogonWC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\OpenObjectController.Designer.vb">
<DependentUpon>OpenObjectController.vb</DependentUpon>
</Compile>
<Compile Include="Controllers\OpenObjectController.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\ResetSettingsVC.Designer.vb">
<DependentUpon>ResetSettingsVC.vb</DependentUpon>
</Compile>
<Compile Include="Controllers\ResetSettingsVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Editor\DashboardViewerPropertyEditor.vb" />
<Compile Include="Editor\DashboardViewerUserControl.Designer.vb">
<DependentUpon>DashboardViewerUserControl.vb</DependentUpon>
</Compile>
<Compile Include="Editor\DashboardViewerUserControl.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Mobile\MobileListDashboardVC.Designer.vb">
<DependentUpon>MobileListDashboardVC.vb</DependentUpon>
</Compile>
<Compile Include="Mobile\MobileListDashboardVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Controllers\QuickCreateVC.Designer.vb">
<DependentUpon>QuickCreateVC.vb</DependentUpon>
</Compile>
<Compile Include="Controllers\QuickCreateVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="BusinessObjects\Business\Support\QuestionVC.Designer.vb">
<DependentUpon>QuestionVC.vb</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\Business\Support\QuestionVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="BusinessObjects\Business\ToDoObjects\MySchedule_VC.Designer.vb">
<DependentUpon>MySchedule_VC.vb</DependentUpon>
</Compile>
<Compile Include="BusinessObjects\Business\ToDoObjects\MySchedule_VC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Updater.vb" />
<Compile Include="Controllers\ViewModeEditVC.Designer.vb">
<DependentUpon>ViewModeEditVC.vb</DependentUpon>
</Compile>
<Compile Include="Controllers\ViewModeEditVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\WebAllowSortViewController.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\WebGroupFooterViewController.Designer.vb">
<DependentUpon>WebGroupFooterViewController.vb</DependentUpon>
</Compile>
<Compile Include="Controllers\WebGroupFooterViewController.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="WebModule.Designer.vb">
<DependentUpon>WebModule.vb</DependentUpon>
</Compile>
<Compile Include="WebModule.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="XAFHelpers\XAFPrintHelperWeb.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="BusinessObjects\Business\BusinessTransactions\Worksheet\WorkSheet_VC.resx">
<DependentUpon>WorkSheet_VC.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="BusinessObjects\Business\Products\InstallationVC.resx">
<DependentUpon>InstallationVC.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="BusinessObjects\Business\Subcontractor\SubcontractorVC.resx">
<DependentUpon>SubcontractorVC.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\GLAccountsVC.resx">
<DependentUpon>GLAccountsVC.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="BusinessObjects\Financial\FinancialObjects\FinancialTransactions\PCIGroupVC.resx">
<DependentUpon>PCIGroupVC.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="BusinessObjects\GeneralObjects\OperationalLog\OperationalLog_VC.resx">
<DependentUpon>OperationalLog_VC.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="BusinessObjects\GeneralObjects\RTFDocumentHandler\BusinessDirectory_VC.resx">
<DependentUpon>BusinessDirectory_VC.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Controllers\ResetSettingsVC.resx">
<DependentUpon>ResetSettingsVC.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Editor\DashboardViewerUserControl.resx">
<DependentUpon>DashboardViewerUserControl.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Mobile\MobileListDashboardVC.resx">
<DependentUpon>MobileListDashboardVC.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="BusinessObjects\Business\Support\QuestionVC.resx">
<DependentUpon>QuestionVC.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="WebModule.resx">
<DependentUpon>WebModule.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Model.DesignedDiffs.xafml">
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Model.DesignedDiffs.Localization.hu.xafml">
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<None Include="BusinessObjects\Business\Support\vssver.scc" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
<Visible>False</Visible>
<ProductName>Windows Installer 3.1</ProductName>
<Install>true</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\Nuvolar.Module\Nuvolar.Module.vbproj">
<Project>{60bf693f-7dea-4cf6-85bd-ea96829d79dd}</Project>
<Name>Nuvolar.Module</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup>
<None Include="UnusableNodes.xml">
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
<SubType>Designer</SubType>
</None>
</ItemGroup>
<ItemGroup>
<None Include="UnusableNodes1.xml">
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
<SubType>Designer</SubType>
</None>
</ItemGroup>
<ItemGroup>
<None Include="UnusableNodes_hu.xml">
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
<SubType>Designer</SubType>
</None>
</ItemGroup>
<ItemGroup>
<None Include="UnusableNodes2.xml">
<DependentUpon>Model.DesignedDiffs.xafml</DependentUpon>
<SubType>Designer</SubType>
</None>
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>
@@ -56,7 +56,7 @@ namespace Nuvolar.Module.Controllers
} }
private void aNewCustomersFrom_Execute(object sender, PopupWindowShowActionExecuteEventArgs e) private void aNewCustomersFrom_Execute(object sender, PopupWindowShowActionExecuteEventArgs e)
{ {
Frame.GetController<DevExpress.ExpressApp.Validation.PersistenceValidationController>().Active.SetItemValue("", false); Frame.GetController<DevExpress.ExpressApp.Validation.PersistenceValidationController>()?.Active.SetItemValue("", false);
NewCustomersFrom _NewCustomersFrom = (NewCustomersFrom)e.PopupWindow.View.SelectedObjects[0]; NewCustomersFrom _NewCustomersFrom = (NewCustomersFrom)e.PopupWindow.View.SelectedObjects[0];
_onew = (XPObjectSpace)e.PopupWindow.View.ObjectSpace; _onew = (XPObjectSpace)e.PopupWindow.View.ObjectSpace;
@@ -71,7 +71,7 @@ namespace Nuvolar.Module.Controllers
_onew.CommitChanges(); _onew.CommitChanges();
GeneralFunction.GLOBAL_HAS_Audit = true; GeneralFunction.GLOBAL_HAS_Audit = true;
} }
Frame.GetController<DevExpress.ExpressApp.Validation.PersistenceValidationController>().Active.SetItemValue("", true); Frame.GetController<DevExpress.ExpressApp.Validation.PersistenceValidationController>()?.Active.SetItemValue("", true);
} }
private void aGenerateDEMOData_Customize(object sender, CustomizePopupWindowParamsEventArgs e) private void aGenerateDEMOData_Customize(object sender, CustomizePopupWindowParamsEventArgs e)
{ {
@@ -75,32 +75,41 @@
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet> <CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="DevExpress.ExpressApp.Validation.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.Validation.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Xpo.v16.2"> <Reference Include="DevExpress.ExpressApp.Xpo.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>False</Private> <Private>False</Private>
</Reference> </Reference>
<Reference Include="DevExpress.Pdf.v16.2.Core"> <Reference Include="DevExpress.Pdf.v17.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Printing.v16.2.Core"> <Reference Include="DevExpress.Office.v17.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Data.v16.2"> <Reference Include="DevExpress.RichEdit.v17.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.v16.2"> <Reference Include="DevExpress.RichEdit.v17.2.Export">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Persistent.Base.v16.2"> <Reference Include="DevExpress.Printing.v17.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Persistent.BaseImpl.v16.2"> <Reference Include="DevExpress.Data.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Xpo.v16.2"> <Reference Include="DevExpress.ExpressApp.v17.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Persistent.Base.v17.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Persistent.BaseImpl.v17.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Xpo.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="Microsoft.VisualBasic" /> <Reference Include="Microsoft.VisualBasic" />
@@ -0,0 +1,210 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>9.0.30729</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{FB66BBC7-4035-4288-B0F0-23AFBCBEEC5B}</ProjectGuid>
<OutputType>Library</OutputType>
<AppDesignerFolder>Properties</AppDesignerFolder>
<RootNamespace>Nuvolar.Module.Win.CSharp</RootNamespace>
<AssemblyName>Nuvolar.Module.Win.CSharp</AssemblyName>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<FileUpgradeFlags>
</FileUpgradeFlags>
<UpgradeBackupLocation>
</UpgradeBackupLocation>
<OldToolsVersion>3.5</OldToolsVersion>
<TargetFrameworkProfile />
<SccProjectName>SAK</SccProjectName>
<SccLocalPath>SAK</SccLocalPath>
<SccAuxPath>SAK</SccAuxPath>
<SccProvider>SAK</SccProvider>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<Optimize>false</Optimize>
<OutputPath>bin\Debug\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants>
<ErrorReport>prompt</ErrorReport>
<WarningLevel>4</WarningLevel>
<PlatformTarget>x86</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>none</DebugType>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DefineConstants>TRACE</DefineConstants>
<ErrorReport>prompt</ErrorReport>
<WarningLevel>4</WarningLevel>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'EasyTest|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<OutputPath>bin\EasyTest\</OutputPath>
<DefineConstants>TRACE;DEBUG;EASYTEST</DefineConstants>
<DebugType>full</DebugType>
<PlatformTarget>AnyCPU</PlatformTarget>
<ErrorReport>prompt</ErrorReport>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
<DebugSymbols>true</DebugSymbols>
<OutputPath>bin\x64\Debug\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants>
<DebugType>full</DebugType>
<PlatformTarget>x64</PlatformTarget>
<ErrorReport>prompt</ErrorReport>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
<OutputPath>bin\x64\Release\</OutputPath>
<DefineConstants>TRACE</DefineConstants>
<Optimize>true</Optimize>
<PlatformTarget>x64</PlatformTarget>
<ErrorReport>prompt</ErrorReport>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'EasyTest|x64'">
<DebugSymbols>true</DebugSymbols>
<OutputPath>bin\x64\EasyTest\</OutputPath>
<DefineConstants>TRACE;DEBUG;EASYTEST</DefineConstants>
<DebugType>full</DebugType>
<PlatformTarget>x64</PlatformTarget>
<ErrorReport>prompt</ErrorReport>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.ExpressApp.Validation.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Xpo.v16.2">
<SpecificVersion>False</SpecificVersion>
<Private>False</Private>
</Reference>
<Reference Include="DevExpress.Pdf.v16.2.Core">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Printing.v16.2.Core">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Data.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Persistent.Base.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Persistent.BaseImpl.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Xpo.v16.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="Microsoft.VisualBasic" />
<Reference Include="System">
<Name>System</Name>
<Private>False</Private>
</Reference>
<Reference Include="System.Data">
<Name>System.Data</Name>
<Private>False</Private>
</Reference>
<Reference Include="System.Drawing">
<Private>False</Private>
</Reference>
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml">
<Name>System.XML</Name>
<Private>False</Private>
</Reference>
</ItemGroup>
<ItemGroup>
<Compile Include="Controllers\GIROInfo_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\GIROInfo_VC.Designer.cs">
<DependentUpon>GIROInfo_VC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\NavigationItemVCC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\NavigationItemVCC.Designer.cs">
<DependentUpon>NavigationItemVCC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\NewCustomersFromVC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\NewCustomersFromVC.Designer.cs">
<DependentUpon>NewCustomersFromVC.cs</DependentUpon>
</Compile>
<Compile Include="Controllers\Transfer_VC.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\Transfer_VC.Designer.cs">
<DependentUpon>Transfer_VC.cs</DependentUpon>
</Compile>
<Compile Include="DatabaseUpdate\Updater.cs" />
<Compile Include="Module.cs">
<SubType>Component</SubType>
</Compile>
<Compile Include="Module.Designer.cs">
<DependentUpon>Module.cs</DependentUpon>
</Compile>
<Compile Include="Properties\AssemblyInfo.cs" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Controllers\GIROInfo_VC.resx">
<DependentUpon>GIROInfo_VC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Controllers\NewCustomersFromVC.resx">
<DependentUpon>NewCustomersFromVC.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Model.DesignedDiffs.xafml" />
<EmbeddedResource Include="Module.resx">
<SubType>Designer</SubType>
<DependentUpon>Module.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Properties\licenses.licx" />
</ItemGroup>
<ItemGroup>
<None Include="DatabaseUpdate\ReadMe.txt" />
</ItemGroup>
<ItemGroup>
<None Include="BusinessObjects\ReadMe.txt" />
</ItemGroup>
<ItemGroup>
<None Include="Controllers\ReadMe.txt" />
</ItemGroup>
<ItemGroup>
<None Include="Images\ReadMe.txt" />
<None Include="ReadMe.txt" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\Nuvolar.Module.CSharp\Nuvolar.Module.CSharp.csproj">
<Project>{b9ef03ff-d05b-4fd4-a8e9-f90d819cb1dc}</Project>
<Name>Nuvolar.Module.CSharp</Name>
</ProjectReference>
<ProjectReference Include="..\Nuvolar.Module.Win\Nuvolar.Module.Win.vbproj">
<Project>{98539dcf-bf11-4158-aec0-4b008a404a0e}</Project>
<Name>Nuvolar.Module.Win</Name>
</ProjectReference>
<ProjectReference Include="..\Nuvolar.Module\Nuvolar.Module.vbproj">
<Project>{60bf693f-7dea-4cf6-85bd-ea96829d79dd}</Project>
<Name>Nuvolar.Module</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup>
<Folder Include="BusinessObjects\Interface\" />
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.CSharp.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>
@@ -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
@@ -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
@@ -39,7 +39,7 @@ Public Class ContractsVC
MyBase.OnActivated() MyBase.OnActivated()
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoRollback Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoRollback
If View.Id Like "Contracts_ListView*" Or View.Id Like "Contract*LookupListView" Then 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 End If
If View.Id = "Contracts_DetailView" Then If View.Id = "Contracts_DetailView" Then
_Contracts = TryCast(View.SelectedObjects(0), Contracts) _Contracts = TryCast(View.SelectedObjects(0), Contracts)
@@ -54,7 +54,7 @@ Public Class ContractsVC
Protected Overrides Sub OnViewControlsCreated() Protected Overrides Sub OnViewControlsCreated()
MyBase.OnViewControlsCreated() MyBase.OnViewControlsCreated()
If View.Id = "Contracts_ListView" Then If View.Id = "Contracts_ListView" Then
Frame.GetController(Of FileAttachmentListViewController)().Active.SetItemValue("", True) Frame.GetController(Of FileAttachmentListViewController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Sub InitQTT_ProcessColumn() Sub InitQTT_ProcessColumn()
@@ -91,11 +91,11 @@ Public Class ContractsVC
_Contracts = TryCast(View.SelectedObjects(0), Contracts) _Contracts = TryCast(View.SelectedObjects(0), Contracts)
If Not _Contracts Is Nothing Then If Not _Contracts Is Nothing Then
If _Contracts.State = State.Ready Or _Contracts.State = State.Signed 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
End If End If
Else Else
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
@@ -33,13 +33,13 @@ Public Class CRMEstateVC
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = ModificationsHandlingMode.AutoCommit Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = ModificationsHandlingMode.AutoCommit
End If End If
If View.Id = "CRMEstate_Leads_CRMEstate_Leads_Activity_ListView" Then If View.Id = "CRMEstate_Leads_CRMEstate_Leads_Activity_ListView" Then
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "OutlookEMail_DetailView_View" Then If View.Id = "OutlookEMail_DetailView_View" Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "CRMEstate_Leads_DetailView" Then If View.Id = "CRMEstate_Leads_DetailView" Then
For Each editor As PropertyEditor In (CType(View, DetailView)).GetItems(Of PropertyEditor)() 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 Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = ModificationsHandlingMode.Confirmation
End If End If
If View.Id = "CRMEstate_Leads_CRMEstate_Leads_Activity_ListView" Then If View.Id = "CRMEstate_Leads_CRMEstate_Leads_Activity_ListView" Then
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "OutlookEMail_DetailView_View" Then If View.Id = "OutlookEMail_DetailView_View" Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
@@ -98,7 +98,7 @@ Public Class ImmovablesPriceListVCWIN
View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Or _ View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Or _
View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Or _ View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Or _
View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then 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 Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = ModificationsHandlingMode.AutoCommit
End If End If
End Sub End Sub
@@ -108,7 +108,7 @@ Public Class ImmovablesPriceListVCWIN
View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Or _ View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Or _
View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Or _ View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Or _
View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then 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 Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = ModificationsHandlingMode.Confirmation
End If End If
End Sub End Sub
@@ -40,7 +40,7 @@ Public Class ImmovablesCostRecordExcelVC
Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = _ocur.FindObject(Of ImmovablesCostRecordExcel)(CriteriaOperator.Parse("IsEditable=?", True)) Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = _ocur.FindObject(Of ImmovablesCostRecordExcel)(CriteriaOperator.Parse("IsEditable=?", True))
'If _ImmovablesCostRecordExcel IsNot Nothing Then '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 If End If
@@ -55,7 +55,7 @@ Public Class ImmovablesCostRecordExcelVC
Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = _ocur.FindObject(Of ImmovablesCostRecordExcel)(CriteriaOperator.Parse("IsEditable=?", True)) Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = _ocur.FindObject(Of ImmovablesCostRecordExcel)(CriteriaOperator.Parse("IsEditable=?", True))
If _ImmovablesCostRecordExcel IsNot Nothing Then 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 If End If
End Sub End Sub
@@ -66,11 +66,11 @@ Public Class ImmovablesCostRecordExcelVC
RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing
RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.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 End If
If View.Id = "ImmovablesCostRecordExcel_ListView" Then 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 If
End Sub End Sub
Protected Overrides Sub OnViewControlsCreated() Protected Overrides Sub OnViewControlsCreated()
@@ -34,7 +34,7 @@ Public Class ImmovablesVC
RemoveHandler FinalWork, AddressOf _WaitFormClass.FinalWork RemoveHandler FinalWork, AddressOf _WaitFormClass.FinalWork
End Sub End Sub
Private Sub aImmovables_ImportLotNumber_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aImmovables_ImportLotNumber.Execute 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) Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
@@ -132,6 +132,6 @@ Public Class ImmovablesVC
MsgBox(String.Format("{0} db ingatlant nem lehet beazonosítani az egyedi azonosító alapján! {1}", _MissingImmovable, _UOList)) MsgBox(String.Format("{0} db ingatlant nem lehet beazonosítani az egyedi azonosító alapján! {1}", _MissingImmovable, _UOList))
End If End If
End If End If
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Sub End Sub
End Class End Class
@@ -31,7 +31,7 @@ Public Class InvoiceVC
End Sub End Sub
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.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 If View.Id = "InvoiceHeader_ListView" Then
AddHandler DoWork, AddressOf _WaitFormClass.DoWork AddHandler DoWork, AddressOf _WaitFormClass.DoWork
AddHandler InitWork, AddressOf _WaitFormClass.Initwork AddHandler InitWork, AddressOf _WaitFormClass.Initwork
@@ -64,19 +64,19 @@ Public Class InvoiceVC
If Not _InvoiceHeader Is Nothing Then If Not _InvoiceHeader Is Nothing Then
If View.Id = "InvoiceHeader_ListView" Then If View.Id = "InvoiceHeader_ListView" Then
If _InvoiceHeader.IsStorno = False 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 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 If
If _InvoiceHeader.IsEditable = False Then 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 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 End If
End If End If
Else 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 If
End Sub End Sub
Private Sub CreatePDFAndSendToDefaultMailClient() Private Sub CreatePDFAndSendToDefaultMailClient()
@@ -37,11 +37,11 @@ Public Class OfferOutVC
Frame.GetController(Of OfferOutVC).aReplaceValueDocumentTemplate_OfferOut.Active.SetItemValue("", False) Frame.GetController(Of OfferOutVC).aReplaceValueDocumentTemplate_OfferOut.Active.SetItemValue("", False)
If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then If View.Id = "OfferOutHeader_OfferOutRows_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.OpenObjectController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
End If End If
If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_ListView" Then 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 End If
If View.Id = "OfferOutHeader_DetailView" Then If View.Id = "OfferOutHeader_DetailView" Then
_OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) _OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader)
@@ -53,11 +53,11 @@ Public Class OfferOutVC
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then If View.Id = "OfferOutHeader_OfferOutRows_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.OpenObjectController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
End If End If
If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_ListView" Then 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 If
End Sub End Sub
Protected Overrides Sub OnViewControlsCreated() Protected Overrides Sub OnViewControlsCreated()
@@ -84,7 +84,7 @@ Public Class Order
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.Confirmation Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.Confirmation
End If End If
If View.Id Like "Order*Header_OrderInRows_ListView" Then 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 If
End Sub End Sub
End Class End Class
@@ -42,7 +42,7 @@ Public Class ProductFinderVC
AddHandler currentView.ControlsCreated, AddressOf AutoFilterRowController_ControlsCreated AddHandler currentView.ControlsCreated, AddressOf AutoFilterRowController_ControlsCreated
End If End If
If View.Id = "ProductFinder_DetailView" Then If View.Id = "ProductFinder_DetailView" Then
Frame.GetController(Of RefreshController).Active.SetItemValue("", False) Frame.GetController(Of RefreshController)?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
@@ -53,7 +53,7 @@ Public Class ProductsGant_VC
If View.Id = "ProductsGant_DetailView" Then 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 _DetailView As DetailView = TryCast(View, DetailView)
Dim _GanttContolViewItem As ViewItem = _DetailView.FindItem("G2antt") Dim _GanttContolViewItem As ViewItem = _DetailView.FindItem("G2antt")
@@ -63,10 +63,10 @@ Public Class ProductsGant_VC
End If End If
End If End If
If View.Id = "ProductsGant_ProductsGantRows_ListView" Then If View.Id = "ProductsGant_ProductsGantRows_ListView" Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
@@ -77,14 +77,14 @@ Public Class ProductsGant_VC
RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
If View.Id = "ProductsGant_DetailView" Then If View.Id = "ProductsGant_DetailView" Then
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "ProductsGant_ProductsGantRows_ListView" Then If View.Id = "ProductsGant_ProductsGantRows_ListView" Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
#End Region #End Region
@@ -35,9 +35,9 @@ Public Class InventoryVC
AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork
If View.Id = "InventoryHeader_DetailView" Then If View.Id = "InventoryHeader_DetailView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).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)().SaveAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing
AddHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.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 RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
If View.Id = "InventoryHeader_DetailView" Then If View.Id = "InventoryHeader_DetailView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).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)().SaveAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing
RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing
@@ -56,26 +56,26 @@ Public Class StorageTransactionsVC
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit
End If End If
If View.Id = "StorageInHeader_StorageInRows_ListView" Then 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 End If
If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then 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 End If
If View.Id = "StorageOutRows_ListView_Order" Then 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 If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "StorageInHeader_StorageInRows_ListView" Then 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 End If
If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then 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 End If
If View.Id = "StorageOutRows_ListView_Order" Then 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 If
End Sub End Sub
End Class End Class
@@ -37,7 +37,7 @@ Public Class GLAccountsVC
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = DevExpress.ExpressApp.SystemModule.ModificationsHandlingMode.AutoRollback Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = DevExpress.ExpressApp.SystemModule.ModificationsHandlingMode.AutoRollback
End If End If
If View.Id = "GLHeader_GLRows_ListView_Accounts" Then 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) Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(False)
End If End If
AddHandler DoWork, AddressOf _WaitFormClass.DoWork AddHandler DoWork, AddressOf _WaitFormClass.DoWork
@@ -49,7 +49,7 @@ Public Class GLAccountsVC
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "GLHeader_GLRows_ListView_Accounts" Then 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) Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(True)
End If End If
RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
@@ -72,13 +72,13 @@ Public Class GLAccountsVC
Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts) Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts)
If _GLAccounts Is Nothing Then If _GLAccounts Is Nothing Then
Else 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 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
End If End If
ElseIf View.SelectedObjects.Count > 1 Then 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 If
End Sub End Sub
@@ -26,113 +26,113 @@ Public Class BankImportVC
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "BankImportHeader_BankImportHeaderSum_ListView" Then If View.Id = "BankImportHeader_BankImportHeaderSum_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.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 NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False) Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ExportController)().Active.SetItemValue("", False) Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False) Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "BankImportHeaderSum_BankImportHeaderSumDetail_ListView" Then If View.Id = "BankImportHeaderSum_BankImportHeaderSumDetail_ListView" Then
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.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 NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False) Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ExportController)().Active.SetItemValue("", False) Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False) Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "BankImportHeaderSum_GLRows_ListView" Then If View.Id = "BankImportHeaderSum_GLRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.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 NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False) Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ExportController)().Active.SetItemValue("", False) Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False) Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "BankImportHeaderSum_BankImportNameParameters_ListView" Then If View.Id = "BankImportHeaderSum_BankImportNameParameters_ListView" Then
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.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 NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False) Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ExportController)().Active.SetItemValue("", False) Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False) Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) 'Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "BankImportHeaderSum_BankImportPopup_ListView" Then If View.Id = "BankImportHeaderSum_BankImportPopup_ListView" Then
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.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 NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False) Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ExportController)().Active.SetItemValue("", False) Frame.GetController(Of ExportController)()?.Active.SetItemValue("", False)
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False) Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", False)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub Ondeactivated() Protected Overrides Sub Ondeactivated()
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "BankImportHeader_BankImportHeaderSum_ListView" Then If View.Id = "BankImportHeader_BankImportHeaderSum_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.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 NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True) Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ExportController)().Active.SetItemValue("", True) Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True) Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "BankImportHeaderSum_BankImportHeaderSumDetail_ListView" Then If View.Id = "BankImportHeaderSum_BankImportHeaderSumDetail_ListView" Then
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.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 NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True) Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ExportController)().Active.SetItemValue("", True) Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True) Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "BankImportHeaderSum_GLRows_ListView" Then If View.Id = "BankImportHeaderSum_GLRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.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 NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True) Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ExportController)().Active.SetItemValue("", True) Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True) Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "BankImportHeaderSum_BankImportNameParameters_ListView" Then If View.Id = "BankImportHeaderSum_BankImportNameParameters_ListView" Then
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.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 NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True) Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ExportController)().Active.SetItemValue("", True) Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True) Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) 'Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "BankImportHeaderSum_BankImportPopup_ListView" Then If View.Id = "BankImportHeaderSum_BankImportPopup_ListView" Then
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.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 NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True) Frame.GetController(Of OpenObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ExportController)().Active.SetItemValue("", True) Frame.GetController(Of ExportController)()?.Active.SetItemValue("", True)
Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True) Frame.GetController(Of RecordsNavigationController)()?.Active.SetItemValue("", True)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Private Sub BankImportVC_ViewControlsCreated(sender As System.Object, e As System.EventArgs) Private Sub BankImportVC_ViewControlsCreated(sender As System.Object, e As System.EventArgs)
@@ -35,11 +35,11 @@ Public Class BankVC
Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", False) Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", False)
If View.Id Like "RegistryBankTransfer_ListView*" Then 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.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.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 DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of BankVC).aViewAttachments_Bank.Active.SetItemValue("", True) Frame.GetController(Of BankVC).aViewAttachments_Bank.Active.SetItemValue("", True)
Frame.GetController(Of BankVC).aViewRegistry.Active.SetItemValue("", True) Frame.GetController(Of BankVC).aViewRegistry.Active.SetItemValue("", True)
@@ -65,7 +65,7 @@ Public Class BankVC
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id Like "RegistryBankTransfer_ListView*" Then 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 RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
End If End If
If View.Id = "GLBankDivide_DetailView" Then If View.Id = "GLBankDivide_DetailView" Then
@@ -78,7 +78,7 @@ Public Class BankVC
Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", False) 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.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.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 If
End Sub End Sub
#Region "Bank save" 'Banki kommunikáció #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ó!") Throw New UserFriendlyException("Csak azonos Saját cég esetén választható ez a funkció!")
End If 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) _BankParameterDEV = _ocur.FindObject(Of BankParameterDEV)(CriteriaOperator.Parse("CurrencyName.ShortName='HUF'"), True)
If _BankParameterDEV Is Nothing Then _BankParameterDEV = _ocur.CreateObject(Of BankParameterDEV)() If _BankParameterDEV Is Nothing Then _BankParameterDEV = _ocur.CreateObject(Of BankParameterDEV)()
@@ -435,7 +435,7 @@ Public Class BankVC
_BankParameterDEV.Save() _BankParameterDEV.Save()
_ocur.CommitChanges() _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) Dim _BankParameterDEV_New As BankParameterDEV = _onew.GetObject(_BankParameterDEV)
e.View = Application.CreateDetailView(_onew, "BankParameterDEV_DetailView", False, _BankParameterDEV_New) e.View = Application.CreateDetailView(_onew, "BankParameterDEV_DetailView", False, _BankParameterDEV_New)
@@ -68,13 +68,13 @@ Public Class GLBankVC
Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank) Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank)
If _GLBank Is Nothing Then If _GLBank Is Nothing Then
Else 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 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
End If End If
ElseIf View.SelectedObjects.Count > 1 Then 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 If
End Sub End Sub
@@ -76,13 +76,13 @@ Public Class GLCassaVC
Dim _GLCassa As GLCassa = TryCast(View.SelectedObjects(0), GLCassa) Dim _GLCassa As GLCassa = TryCast(View.SelectedObjects(0), GLCassa)
If _GLCassa Is Nothing Then If _GLCassa Is Nothing Then
Else 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 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
End If End If
ElseIf View.SelectedObjects.Count > 1 Then 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 If
End Sub End Sub
@@ -27,14 +27,14 @@ Public Class GLCompensationVC
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit
End If End If
If View.Id = "GLHeader_GLRows_ListView_Compensation" Then 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) Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "GLCompensation_DetailView" Or View.Id = "GLCompensation_GLRows_ListView" Then 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 End If
If View.Id = "GLHeader_GLRows_ListView_Compensation" Then If View.Id = "GLHeader_GLRows_ListView_Compensation" Then
Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(True) Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(True)
@@ -87,13 +87,13 @@ Public Class GLCompensationVC
Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation) Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation)
If _GLCompensation Is Nothing Then If _GLCompensation Is Nothing Then
Else 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 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
End If End If
ElseIf View.SelectedObjects.Count > 1 Then 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 If
End Sub End Sub
@@ -102,13 +102,13 @@ Public Class GLMixedVC
Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed) Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed)
If _GLMixed Is Nothing Then If _GLMixed Is Nothing Then
Else 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 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
End If End If
ElseIf View.SelectedObjects.Count > 1 Then 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 If
End Sub End Sub
@@ -117,10 +117,10 @@ Public Class GLMixedVC
Select Case TryCast(e.Column, GridColumn).FieldName Select Case TryCast(e.Column, GridColumn).FieldName
Case "NoteRows", "Controlling!", "CostHolder!", "JobNumberObjects!", "UniqueObjects!", "AmountHUF", "AmountDEV", "DebitChartOfAccounts!", "CreditChartOfAccounts!" Case "NoteRows", "Controlling!", "CostHolder!", "JobNumberObjects!", "UniqueObjects!", "AmountHUF", "AmountDEV", "DebitChartOfAccounts!", "CreditChartOfAccounts!"
If nestedFrame IsNot Nothing Then 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 Dim parentView As View = nestedFrame.View
TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges() 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() parentView.ObjectSpace.Refresh()
End If End If
End Select End Select
@@ -83,10 +83,10 @@ Public Class GLCardVC
Select Case TryCast(e.Column, GridColumn).FieldName Select Case TryCast(e.Column, GridColumn).FieldName
Case "Note_Rows" Case "Note_Rows"
If nestedFrame IsNot Nothing Then 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 Dim parentView As View = nestedFrame.View
TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges() 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() parentView.ObjectSpace.Refresh()
End If End If
End Select End Select
@@ -239,7 +239,7 @@ Public Class GLReportRowsVC
e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck) e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck)
End Sub End Sub
Private Sub aGLReportRows_ChangeParam_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLReportRows_ChangeParam.Execute 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 _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck) Dim _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck)
@@ -367,7 +367,7 @@ Public Class GLReportRowsVC
_ocur.CommitChanges() _ocur.CommitChanges()
_Waitformclass.FinalWork() _Waitformclass.FinalWork()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
View.Refresh() View.Refresh()
End Sub End Sub
@@ -36,8 +36,8 @@ Public Class VATReportVC
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "VATReportCheckList_ListView" Then If View.Id = "VATReportCheckList_ListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
End If End If
_WaitFormClass = New WaitFormClass _WaitFormClass = New WaitFormClass
@@ -49,8 +49,8 @@ Public Class VATReportVC
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "VATReportCheckList_ListView" Then If View.Id = "VATReportCheckList_ListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If End If
RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
@@ -26,11 +26,11 @@ Public Class GLResetVC
Frame.GetController(Of GLResetVC).aResetStorageTransactions.Active.SetItemValue("", False) Frame.GetController(Of GLResetVC).aResetStorageTransactions.Active.SetItemValue("", False)
If View.Id = "GLReset_DetailView" Then If View.Id = "GLReset_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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController)().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.RecordsNavigationController)()?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Private Sub aResetAll_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aResetAll.Execute Private Sub aResetAll_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aResetAll.Execute
@@ -31,14 +31,14 @@ Public Class RegistryVC
Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader)
Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit
If _RegistryHeader.IsEditable = False Then 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
End If End If
If View.Id = "RegistryHeader_WorkFlowCollection_ListView" Then 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 End If
If View.Id = "RegistryHeader_RegistryTasks_ListView" Then 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 End If
If View.Id = "RegistryHeader_RegistryFileData_ListView" Then ' Iktatási rendszerben a FileData fül 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) 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) Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentController)().SaveToAction.Active.SetItemValue("", False)
End If End If
If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then 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 End If
If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then 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 End If
If View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then 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 If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then 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 End If
If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then 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 End If
If View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then 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 If
End Sub End Sub
@@ -60,7 +60,7 @@ Public Class ContactsVC
End Sub End Sub
Private Sub aContacts_SysncToOutlook_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aContacts_SysncToOutlook.Execute Private Sub aContacts_SysncToOutlook_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aContacts_SysncToOutlook.Execute
Try 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 _ocur As Xpo.XPObjectSpace = View.ObjectSpace
Dim _NeedCommitChanges As Boolean = False Dim _NeedCommitChanges As Boolean = False
Dim _Contacts_SysncOutlook As Contacts_SysncOutlook = TryCast(e.PopupWindow.View.SelectedObjects(0), Contacts_SysncOutlook) 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"))) MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
Finally Finally
_Waitformclass.FinalWork _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 Try
End Sub End Sub
Private Sub aContacts_SysncFromOutlook_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aContacts_SysncFromOutlook.CustomizePopupWindowParams 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 End Sub
Private Sub aContacts_SysncFromOutlook_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aContacts_SysncFromOutlook.Execute Private Sub aContacts_SysncFromOutlook_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aContacts_SysncFromOutlook.Execute
Try 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 _ocur As Xpo.XPObjectSpace = View.ObjectSpace
Dim _NeedCommitChanges As Boolean = False Dim _NeedCommitChanges As Boolean = False
Dim _Contacts_SysncOutlook As Contacts_SysncOutlook = TryCast(e.PopupWindow.View.SelectedObjects(0), Contacts_SysncOutlook) 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"))) MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
Finally Finally
_Waitformclass.FinalWork _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 Try
End Sub End Sub
End Class End Class
@@ -39,8 +39,8 @@ Public Class Dashboard_VC
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Dim _DetailView As DetailView = TryCast(View, DetailView) Dim _DetailView As DetailView = TryCast(View, DetailView)
Dim _DashboardViewer_ViewItem As ViewItem = _DetailView.FindItem("DashboardViewer") 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).SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Dim _DetailView As DetailView = TryCast(View, DetailView) Dim _DetailView As DetailView = TryCast(View, DetailView)
Dim _DashboardDesigner_ViewItem As ViewItem = _DetailView.FindItem("DashboardDesigner") 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).SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True) Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAndNewAction.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)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Private Sub DashboardViewer_ViewItem_ControlCreated(sender As Object, e As EventArgs) Private Sub DashboardViewer_ViewItem_ControlCreated(sender As Object, e As EventArgs)
@@ -48,22 +48,22 @@ Public Class OutlookEmailVC
Frame.GetController(Of OutlookEmailVC).aAttachFile.Active.SetItemValue("", False) Frame.GetController(Of OutlookEmailVC).aAttachFile.Active.SetItemValue("", False)
Frame.GetController(Of OutlookEmailVC).aViewAttachedFile.Active.SetItemValue("", False) Frame.GetController(Of OutlookEmailVC).aViewAttachedFile.Active.SetItemValue("", False)
If View.Id = "OutlookEMailIn_ListView" Then If View.Id = "OutlookEMailIn_ListView" Then
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) 'Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of ObjectViewController)()?.Active.SetItemValue("", False)
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
End If End If
If View.Id = "OutlookEMailIn_DetailView" Then If View.Id = "OutlookEMailIn_DetailView" Then
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of ObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController)().Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Then If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "OutlookEMail_DetailView" Then If View.Id = "OutlookEMail_DetailView" Then
Dim _OutlookEMail As OutlookEMail = TryCast(View.SelectedObjects(0), OutlookEMail) Dim _OutlookEMail As OutlookEMail = TryCast(View.SelectedObjects(0), OutlookEMail)
@@ -80,8 +80,8 @@ Public Class OutlookEmailVC
End If End If
If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Or _ If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Or _
View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().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).aAttachFile.Active.SetItemValue("", True)
Frame.GetController(Of OutlookEmailVC).aViewAttachedFile.Active.SetItemValue("", True) Frame.GetController(Of OutlookEmailVC).aViewAttachedFile.Active.SetItemValue("", True)
End If End If
@@ -89,15 +89,15 @@ Public Class OutlookEmailVC
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "OutlookEMailIn_ListView" Then If View.Id = "OutlookEMailIn_ListView" Then
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of ObjectViewController)()?.Active.SetItemValue("", True)
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
End If End If
If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Then If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "OutlookEMail_DetailView" Then If View.Id = "OutlookEMail_DetailView" Then
Dim _OutlookEMail As OutlookEMail = TryCast(View.SelectedObjects(0), OutlookEMail) Dim _OutlookEMail As OutlookEMail = TryCast(View.SelectedObjects(0), OutlookEMail)
@@ -114,8 +114,8 @@ Public Class OutlookEmailVC
End If End If
If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Or _ If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Or _
View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
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 If
End Sub End Sub
Protected Overrides Sub OnViewControlsCreated() Protected Overrides Sub OnViewControlsCreated()
@@ -50,8 +50,8 @@ Public Class BusinessDirectory_VC
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.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 NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Dim _DetailView As DetailView = TryCast(View, DetailView) Dim _DetailView As DetailView = TryCast(View, DetailView)
Dim _SpreadXML_ViewItem As ViewItem = _DetailView.FindItem("SpreadXML") Dim _SpreadXML_ViewItem As ViewItem = _DetailView.FindItem("SpreadXML")
@@ -43,8 +43,8 @@ Public Class CustomRoleEditorVC
''____________Továbbgondolásig letíltva!__________________________<<< ''____________Továbbgondolásig letíltva!__________________________<<<
If View.Id = "PermissionMatrix_ListView" Then If View.Id = "PermissionMatrix_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.OpenObjectController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
AddHandler View.SelectionChanged, AddressOf PermissionMatrix_selection_changed AddHandler View.SelectionChanged, AddressOf PermissionMatrix_selection_changed
End If End If
@@ -54,8 +54,8 @@ Public Class CustomRoleEditorVC
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "PermissionMatrix_ListView" Then If View.Id = "PermissionMatrix_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.OpenObjectController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
RemoveHandler View.SelectionChanged, AddressOf PermissionMatrix_selection_changed RemoveHandler View.SelectionChanged, AddressOf PermissionMatrix_selection_changed
End If End If
@@ -34,12 +34,12 @@ Public Class SQLImportsVC
View.Id = "SQLImports_LiquidAssets_Compensation_ListView" Or _ View.Id = "SQLImports_LiquidAssets_Compensation_ListView" Or _
View.Id = "SQLImports_LiquidAssets_SpecTran_ListView" Or _ View.Id = "SQLImports_LiquidAssets_SpecTran_ListView" Or _
View.Id = "SQLImports_BankInformation_ListView" Then View.Id = "SQLImports_BankInformation_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
@@ -48,17 +48,17 @@ Public Class SQLImportsVC
View.Id = "SQLImports_LiquidAssets_Compensation_ListView" Or _ View.Id = "SQLImports_LiquidAssets_Compensation_ListView" Or _
View.Id = "SQLImports_LiquidAssets_SpecTran_ListView" Or _ View.Id = "SQLImports_LiquidAssets_SpecTran_ListView" Or _
View.Id = "SQLImports_BankInformation_ListView" Then View.Id = "SQLImports_BankInformation_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Private Sub Import_Customers_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Customers.Execute 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 '-- Ü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 While
End If End If
_WaitFormClass.FinalWork() _WaitFormClass.FinalWork()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub End Sub
Private Sub Import_Country_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Country.Execute 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) Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
@@ -501,7 +501,7 @@ Public Class SQLImportsVC
_WaitFormClass.Finalwork() _WaitFormClass.Finalwork()
End Sub End Sub
Private Sub Import_Storage_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Storage.Execute 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 '-- Raktárkészlet importálása
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer)
@@ -697,7 +697,7 @@ Public Class SQLImportsVC
'End Try 'End Try
'_WaitFormClass.Finalwork '_WaitFormClass.Finalwork
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub End Sub
Private Sub Import_Procucts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Procucts.Execute 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 '-- Terméktörzs importálása
@@ -1028,7 +1028,7 @@ Public Class SQLImportsVC
Dim _CustomersGLParameters As CustomersGLParameters Dim _CustomersGLParameters As CustomersGLParameters
Dim _ChartOfAccounts As ChartOfAccounts 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 _Maximum = 0
Try Try
@@ -1085,7 +1085,7 @@ Public Class SQLImportsVC
MsgBox(ex.Message) MsgBox(ex.Message)
End Try End Try
_WaitFormClass.Finalwork() _WaitFormClass.Finalwork()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub End Sub
Private Sub Import_LiquidAssets_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_LiquidAssets.Execute 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 '-- Pénzeszközök importálása
@@ -1110,7 +1110,7 @@ Public Class SQLImportsVC
Dim _LiquidAssets As LiquidAssets Dim _LiquidAssets As LiquidAssets
Dim _CurrencyName As CurrencyName Dim _CurrencyName As CurrencyName
Dim _BankInformation As BankInformation 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 _Maximum = 0
Try Try
@@ -1236,7 +1236,7 @@ Public Class SQLImportsVC
MsgBox(ex.Message) MsgBox(ex.Message)
End Try End Try
_WaitFormClass.Finalwork() _WaitFormClass.Finalwork()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub End Sub
Private Sub Import_VAT_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_VAT.Execute 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 '-- ÁFA kódok importálása
@@ -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).SaveAction.Executing, AddressOf SpreadImport_DetailView_SaveAction_Executing
AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.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) Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
End If End If
@@ -26,11 +26,11 @@ Public Class XLSImportsVC
End Sub End Sub
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.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 End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.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 End Sub
'--- XLSX file-ból történõ importálások----------------------------------------------------- '--- 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 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 _Address As Address
Dim _Customers As Customers 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 = "Provider=Microsoft.ACE.OLEDB.12.0;"
_cs += "Data Source=Excels\XLSImports.xlsx;" _cs += "Data Source=Excels\XLSImports.xlsx;"
_cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;"""
@@ -328,7 +328,7 @@ Public Class XLSImportsVC
MsgBox(ex.Message) MsgBox(ex.Message)
End Try End Try
_WaitFormClass.Finalwork() _WaitFormClass.Finalwork()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub 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 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---------------------------------------------- '--- Kapcsolatok importálása XLSX file-ból----------------------------------------------
@@ -870,7 +870,7 @@ Public Class XLSImportsVC
_WaitFormClass.Finalwork() _WaitFormClass.Finalwork()
End Sub 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 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 _Ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As UnitOfWork = New UnitOfWork(_Ocur.Session.DataLayer) Dim _uow As UnitOfWork = New UnitOfWork(_Ocur.Session.DataLayer)
Dim _cs As String Dim _cs As String
@@ -997,7 +997,7 @@ Public Class XLSImportsVC
MsgBox(ex.Message) MsgBox(ex.Message)
End Try End Try
_WaitFormClass.Finalwork() _WaitFormClass.Finalwork()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub End Sub
Private Sub Import_XLS_Services_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_Services.Execute 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) Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
@@ -31,49 +31,49 @@ Public Class CornerVC
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "Corner_InvoiceNameParameters_ListView" Then If View.Id = "Corner_InvoiceNameParameters_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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", False)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "Corner_CustomerNameParameters_ListView" Then If View.Id = "Corner_CustomerNameParameters_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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", False)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "Corner_GLAccounts_ListView" Then If View.Id = "Corner_GLAccounts_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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", False)
Frame.GetController(Of PrintingController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "GLHeader_GLRows_ListView_Accounts" Then If View.Id = "GLHeader_GLRows_ListView_Accounts" 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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", False)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "Corner_DetailView" Then If View.Id = "Corner_DetailView" Then
AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing
@@ -84,47 +84,47 @@ Public Class CornerVC
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "Corner_InvoiceNameParameters_ListView" Then If View.Id = "Corner_InvoiceNameParameters_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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "Corner_CustomerNameParameters_ListView" Then If View.Id = "Corner_CustomerNameParameters_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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "Corner_GLAccounts_ListView" Then If View.Id = "Corner_GLAccounts_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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", True)
Frame.GetController(Of PrintingController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "GLHeader_GLRows_ListView_Accounts" Then If View.Id = "GLHeader_GLRows_ListView_Accounts" 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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", True)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "Corner_CustomerNameParameters_ListView" Then ' Az inline edit beállítása. If View.Id = "Corner_CustomerNameParameters_ListView" Then ' Az inline edit beállítása.
Dim _ListView As ListView = TryCast(View, ListView) Dim _ListView As ListView = TryCast(View, ListView)
@@ -34,49 +34,49 @@ Public Class VivaldiVC
_WaitFormClass = New WaitFormClass _WaitFormClass = New WaitFormClass
If View.Id = "Vivaldi_InvoiceNameParameters_ListView" Then If View.Id = "Vivaldi_InvoiceNameParameters_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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", False)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "Vivaldi_CustomerNameParameters_ListView" Then If View.Id = "Vivaldi_CustomerNameParameters_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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", False)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "Vivaldi_GLAccounts_ListView" Then If View.Id = "Vivaldi_GLAccounts_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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", False)
Frame.GetController(Of PrintingController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "GLHeader_GLRows_ListView_Accounts" Then If View.Id = "GLHeader_GLRows_ListView_Accounts" 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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", False)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "Vivaldi_DetailView" Then If View.Id = "Vivaldi_DetailView" Then
AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing
@@ -87,47 +87,47 @@ Public Class VivaldiVC
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "Vivaldi_InvoiceNameParameters_ListView" Then If View.Id = "Vivaldi_InvoiceNameParameters_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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "Vivaldi_CustomerNameParameters_ListView" Then If View.Id = "Vivaldi_CustomerNameParameters_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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "Vivaldi_GLAccounts_ListView" Then If View.Id = "Vivaldi_GLAccounts_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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", True)
Frame.GetController(Of PrintingController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "GLHeader_GLRows_ListView_Accounts" Then If View.Id = "GLHeader_GLRows_ListView_Accounts" 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.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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.Win.SystemModule.OpenObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().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.RecordsNavigationController)()?.Active.SetItemValue("", True)
Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) Frame.GetController(Of PrintingController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Protected Overrides Sub OnViewControlsCreated() Protected Overrides Sub OnViewControlsCreated()
@@ -172,7 +172,7 @@ Public Class VivaldiVC
End While End While
End Using End Using
Try Try
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
GLOBAL_HAS_Audit = False GLOBAL_HAS_Audit = False
Using parser As New TextFieldParser(New StringReader(_StrBuffer)) Using parser As New TextFieldParser(New StringReader(_StrBuffer))
@@ -320,7 +320,7 @@ Public Class VivaldiVC
MsgBox(ex.Message, MsgBoxStyle.Critical) MsgBox(ex.Message, MsgBoxStyle.Critical)
Finally Finally
GLOBAL_HAS_Audit = True GLOBAL_HAS_Audit = True
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Try End Try
End Sub End Sub
@@ -356,7 +356,7 @@ Public Class VivaldiVC
End While End While
End Using End Using
Try Try
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
GLOBAL_HAS_Audit = False GLOBAL_HAS_Audit = False
Using parser As New TextFieldParser(New StringReader(_StrBuffer)) Using parser As New TextFieldParser(New StringReader(_StrBuffer))
@@ -386,7 +386,7 @@ Public Class VivaldiVC
MsgBox(ex.Message, MsgBoxStyle.Critical) MsgBox(ex.Message, MsgBoxStyle.Critical)
Finally Finally
GLOBAL_HAS_Audit = True GLOBAL_HAS_Audit = True
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Try End Try
End Sub End Sub
@@ -85,8 +85,8 @@ Public Class DragAndDropCRMOutlookCRM_VC
AddHandler View.SelectionChanged, AddressOf CRM_Opportunities_ListView_CRM_Outlook_SelectionChanged AddHandler View.SelectionChanged, AddressOf CRM_Opportunities_ListView_CRM_Outlook_SelectionChanged
End If End If
If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) 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.FileAttachments.Win.FileAttachmentListViewController)?.Active.SetItemValue("", False)
Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView)
_ToDragGridViewCRM_LeadsDocumentation = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView _ToDragGridViewCRM_LeadsDocumentation = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView
@@ -52,7 +52,7 @@ Public Class DragAndDropCRMOutlookCustomers_VC
MyBase.OnViewControlsCreated() MyBase.OnViewControlsCreated()
If View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then 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) Frame.GetController(Of Nuvolar.Module.Win.OutlookEmailVC).aAttachFile.Active.SetItemValue("", False)
Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView)
_DoDragGridViewOutlookEMailAttachments = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView _DoDragGridViewOutlookEMailAttachments = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView
@@ -76,10 +76,10 @@ Public Class DragAndDropCRMOutlookCustomers_VC
End If End If
If View.Id = "Customers_CustomersFileAttachment_ListView" Then If View.Id = "Customers_CustomersFileAttachment_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).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.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
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 DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", False)
Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView)
_ToDragGridViewCustomersFileAttachment = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView _ToDragGridViewCustomersFileAttachment = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView
@@ -72,9 +72,9 @@ Public Class DragAndDropCRMOutlookProducts_VC
AddHandler _ToDragGridControlProducts.DragDrop, AddressOf ToDragGridControlProducts_DragDrop AddHandler _ToDragGridControlProducts.DragDrop, AddressOf ToDragGridControlProducts_DragDrop
End If End If
If View.Id = "Products_ProductsDocumentations_ListView" Then If View.Id = "Products_ProductsDocumentations_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).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.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController).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) Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView)
_ToDragGridViewProductsDocumentations = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView _ToDragGridViewProductsDocumentations = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView
@@ -84,9 +84,9 @@ Public Class DragAndDropCRMOutlookProducts_VC
AddHandler _ToDragGridControlProductsDocumentations.DragDrop, AddressOf ToDragGridControlProductsDocumentations_DragDrop AddHandler _ToDragGridControlProductsDocumentations.DragDrop, AddressOf ToDragGridControlProductsDocumentations_DragDrop
End If End If
If View.Id = "Products_CustomersOrderPriority_ListView_CRM_Outlook" Then If View.Id = "Products_CustomersOrderPriority_ListView_CRM_Outlook" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).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.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)?.Active.SetItemValue("", False)
Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView)
_ToDragGridViewCustomersOrderPriority = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView _ToDragGridViewCustomersOrderPriority = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView
@@ -96,10 +96,10 @@ Public Class DragAndDropCRMOutlookProducts_VC
AddHandler _ToDragGridControlCustomersOrderPriority.DragDrop, AddressOf ToDragGridControlCustomersOrderPrioritys_DragDrop AddHandler _ToDragGridControlCustomersOrderPriority.DragDrop, AddressOf ToDragGridControlCustomersOrderPrioritys_DragDrop
End If End If
If View.Id = "CustomersFileAttachment_ListView" Then If View.Id = "CustomersFileAttachment_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).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.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).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.FileAttachments.Win.FileAttachmentListViewController)?.Active.SetItemValue("", False)
Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView)
_ToDragGridViewCustomersFileAttachment = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView _ToDragGridViewCustomersFileAttachment = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView
@@ -474,17 +474,17 @@ Public Class InLineEditVC
If modelColumn Is Nothing Then Exit Sub If modelColumn Is Nothing Then Exit Sub
If nestedFrame IsNot Nothing Then If nestedFrame IsNot Nothing Then
If modelColumn.InLineEditAutoCommit 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 Dim parentView As View = nestedFrame.View
TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges() TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges()
Frame.GetController(Of PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of PersistenceValidationController)()?.Active.SetItemValue("", True)
parentView.ObjectSpace.Refresh() parentView.ObjectSpace.Refresh()
End If End If
ElseIf Frame IsNot Nothing Then ElseIf Frame IsNot Nothing Then
If modelColumn.InLineEditAutoCommit 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() TryCast(View.ObjectSpace, Xpo.XPObjectSpace).CommitChanges()
Frame.GetController(Of PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of PersistenceValidationController)()?.Active.SetItemValue("", True)
View.ObjectSpace.Refresh() View.ObjectSpace.Refresh()
End If End If
End If End If
@@ -528,15 +528,15 @@ Public Class InLineEditVC
End If End If
If nestedFrame IsNot Nothing Then 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 Dim parentView As View = nestedFrame.View
TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges() 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() 'parentView.ObjectSpace.Refresh()
ElseIf Frame IsNot Nothing Then 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() 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() 'View.ObjectSpace.Refresh()
End If End If
@@ -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
@@ -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
+75 -72
View File
@@ -150,115 +150,118 @@
<OutputPath>bin\x64\R64\</OutputPath> <OutputPath>bin\x64\R64\</OutputPath>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="DevExpress.CodeParser.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.CodeParser.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.DataAccess.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.DataAccess.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.DataAccess.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.DataAccess.v17.2.UI, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.TreeMap.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.TreeMap.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Dashboard.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Dashboard.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.Notifications.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.Notifications.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Notifications.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.Notifications.Win.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Reports.Win.v16.2, Version=16.2.3.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DevExpress.ExpressApp.Reports.Win.v17.2, Version=17.2.3.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.ReportsV2.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.ReportsV2.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Pdf.v16.2.Core"> <Reference Include="DevExpress.Pdf.v17.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Printing.v16.2.Core"> <Reference Include="DevExpress.RichEdit.v17.2.Export">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Data.v16.2"> <Reference Include="DevExpress.Printing.v17.2.Core">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.AuditTrail.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Data.v17.2">
<Reference Include="DevExpress.ExpressApp.Chart.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.CloneObject.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.ConditionalAppearance.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Demos.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.FileAttachment.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.HtmlPropertyEditor.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Kpi.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotChart.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.PivotGrid.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Reports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Scheduler.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.Scheduler.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.TreeListEditors.Win.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Xpo.v16.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.v16.2"> <Reference Include="DevExpress.ExpressApp.AuditTrail.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Chart.Win.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.CloneObject.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.ConditionalAppearance.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Demos.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.FileAttachment.Win.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.HtmlPropertyEditor.Win.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Kpi.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotChart.Win.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.PivotGrid.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.PivotGrid.Win.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Reports.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Scheduler.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.ExpressApp.Scheduler.Win.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.TreeListEditors.Win.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Xpo.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Objects.v16.2"> <Reference Include="DevExpress.ExpressApp.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Security.v16.2"> <Reference Include="DevExpress.ExpressApp.Objects.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Validation.v16.2"> <Reference Include="DevExpress.ExpressApp.Security.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.Validation.Win.v16.2"> <Reference Include="DevExpress.ExpressApp.Validation.v17.2">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.ExpressApp.Validation.Win.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<Private>False</Private> <Private>False</Private>
</Reference> </Reference>
<Reference Include="DevExpress.ExpressApp.ViewVariantsModule.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.ExpressApp.ViewVariantsModule.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Win.v16.2"> <Reference Include="DevExpress.ExpressApp.Win.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Persistent.Base.v16.2"> <Reference Include="DevExpress.Persistent.Base.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Persistent.BaseImpl.v16.2"> <Reference Include="DevExpress.Persistent.BaseImpl.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Office.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Office.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.RichEdit.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.RichEdit.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Spreadsheet.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Spreadsheet.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v16.2"> <Reference Include="DevExpress.Utils.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Xpo.v16.2"> <Reference Include="DevExpress.Xpo.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraCharts.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraCharts.v17.2.UI, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Dashboard.v16.2.Win, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Dashboard.v17.2.Win, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraGauges.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraGauges.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGauges.v16.2.Presets, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraGauges.v17.2.Presets, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGauges.v16.2.Win, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraGauges.v17.2.Win, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGrid.v16.2"> <Reference Include="DevExpress.XtraGrid.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraBars.v16.2"> <Reference Include="DevExpress.XtraBars.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraEditors.v16.2"> <Reference Include="DevExpress.XtraEditors.v17.2">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraLayout.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraLayout.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraNavBar.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraNavBar.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraPrinting.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraPrinting.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.PivotGrid.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.PivotGrid.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPivotGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraPivotGrid.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Charts.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Charts.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v16.2.Wizard, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraCharts.v17.2.Wizard, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraCharts.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v16.2.Extensions, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraReports.v17.2.Extensions, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Utils.v16.2.UI, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Utils.v17.2.UI, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Sparkline.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Sparkline.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraReports.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraRichEdit.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraRichEdit.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraRichEdit.v16.2.Extensions, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraRichEdit.v17.2.Extensions, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraScheduler.v16.2.Reporting.Extensions, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraScheduler.v17.2.Reporting.Extensions, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraScheduler.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraScheduler.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraScheduler.v16.2.Core, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraScheduler.v17.2.Core, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraSpreadsheet.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraSpreadsheet.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraTreeList.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraTreeList.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraVerticalGrid.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraVerticalGrid.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraWizard.v16.2, Version=16.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraWizard.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="exontrol.exg2antt, Version=5.5.4609.24169, Culture=neutral, PublicKeyToken=00765aac3596c012, processorArchitecture=MSIL"> <Reference Include="exontrol.exg2antt, Version=5.5.4609.24169, Culture=neutral, PublicKeyToken=00765aac3596c012, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\..\..\..\Program Files (x86)\Exontrol\ExG2antt.NET\Sample\exontrol.exg2antt.dll</HintPath> <HintPath>..\..\..\..\..\..\Program Files (x86)\Exontrol\ExG2antt.NET\Sample\exontrol.exg2antt.dll</HintPath>
File diff suppressed because it is too large Load Diff
@@ -30,27 +30,27 @@ Public Class APCSheetReviewHeader_VC
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "APCSheetReviewHeader_APCSheetReviewHeaderPhotos_ListView" Then If View.Id = "APCSheetReviewHeader_APCSheetReviewHeaderPhotos_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "APCSheetReviewHeader_APCSheetReviewRows_ListView" Then If View.Id = "APCSheetReviewHeader_APCSheetReviewRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "APCSheetReviewHeader_APCSheetReviewHeaderPhotos_ListView" Then If View.Id = "APCSheetReviewHeader_APCSheetReviewHeaderPhotos_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "APCSheetReviewHeader_APCSheetReviewRows_ListView" Then If View.Id = "APCSheetReviewHeader_APCSheetReviewRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
#End Region #End Region
@@ -36,53 +36,53 @@ Public Class APCSheetVC
Frame.GetController(Of APCSheetVC).aAPCSheetHeader_CreateReviewSheet.Active.SetItemValue("", False) Frame.GetController(Of APCSheetVC).aAPCSheetHeader_CreateReviewSheet.Active.SetItemValue("", False)
Frame.GetController(Of APCSheetVC).aCloneAPCSheet.Active.SetItemValue("", False) Frame.GetController(Of APCSheetVC).aCloneAPCSheet.Active.SetItemValue("", False)
If View.Id = "APCSheetHeader_ListView" Then If View.Id = "APCSheetHeader_ListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "APCSheetHeader_DetailView" Then If View.Id = "APCSheetHeader_DetailView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "APCSheetHeader_APCSheetByProducts_ListView" Then If View.Id = "APCSheetHeader_APCSheetByProducts_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).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 DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView" Then If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).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 DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView_No" Then If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView_No" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).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 DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "APCSheetHeader_APCSheetPresentation_ListView" Then If View.Id = "APCSheetHeader_APCSheetPresentation_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf APCSheetHeader_APCSheetPresentation_ListView_DeleteAction_Executed AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf APCSheetHeader_APCSheetPresentation_ListView_DeleteAction_Executed
End If End If
If View.Id = "APCSheetHeader_APCSheetCreditClassificationFinancialRows_ListView" Then If View.Id = "APCSheetHeader_APCSheetCreditClassificationFinancialRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "APCSheetHeader_APCSheetCreditClassificationAnimalRows_ListView" Then If View.Id = "APCSheetHeader_APCSheetCreditClassificationAnimalRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "APCSheetByProductsOrderInRows_ListView" Then If View.Id = "APCSheetByProductsOrderInRows_ListView" Then
AddHandler Frame.GetController(Of RefreshController).RefreshAction.Execute, AddressOf APCSheetByProductsOrderInRows_ListView_RefreshAction_Execute AddHandler Frame.GetController(Of RefreshController).RefreshAction.Execute, AddressOf APCSheetByProductsOrderInRows_ListView_RefreshAction_Execute
End If End If
If View.Id = "APCSheetByProductsSalesPolicyH_APCSheetByProductsSalesPolicyR_ListView" Then If View.Id = "APCSheetByProductsSalesPolicyH_APCSheetByProductsSalesPolicyR_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "APCSheetByProductsSalesPolicyH_DetailView" Then If View.Id = "APCSheetByProductsSalesPolicyH_DetailView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "APCSheetHeaderSetAPCParameters_PopUp_DetailView" Then If View.Id = "APCSheetHeaderSetAPCParameters_PopUp_DetailView" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf APCSheetHeaderSetAPCParameters_PopUp_AcceptAction_Executing 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() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "APCSheetHeader_ListView" Then If View.Id = "APCSheetHeader_ListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "APCSheetHeader_DetailView" Then If View.Id = "APCSheetHeader_DetailView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "APCSheetHeader_APCSheetByProducts_ListView" Then If View.Id = "APCSheetHeader_APCSheetByProducts_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).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 DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView" Then If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).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 DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView_No" Then If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView_No" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).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 DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "APCSheetHeader_APCSheetPresentation_ListView" Then If View.Id = "APCSheetHeader_APCSheetPresentation_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "APCSheetHeader_APCSheetCreditClassificationFinancialRows_ListView" Then If View.Id = "APCSheetHeader_APCSheetCreditClassificationFinancialRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "APCSheetHeader_APCSheetCreditClassificationAnimalRows_ListView" Then If View.Id = "APCSheetHeader_APCSheetCreditClassificationAnimalRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "APCSheetByProductsOrderInRows_ListView" Then If View.Id = "APCSheetByProductsOrderInRows_ListView" Then
RemoveHandler Frame.GetController(Of RefreshController).RefreshAction.Execute, AddressOf APCSheetByProductsOrderInRows_ListView_RefreshAction_Execute RemoveHandler Frame.GetController(Of RefreshController).RefreshAction.Execute, AddressOf APCSheetByProductsOrderInRows_ListView_RefreshAction_Execute
End If End If
If View.Id = "APCSheetByProductsSalesPolicyH_APCSheetByProductsSalesPolicyR_ListView" Then If View.Id = "APCSheetByProductsSalesPolicyH_APCSheetByProductsSalesPolicyR_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "APCSheetByProductsSalesPolicyH_DetailView" Then If View.Id = "APCSheetByProductsSalesPolicyH_DetailView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Private Sub aCloneAPCSheet_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCloneAPCSheet.Execute Private Sub aCloneAPCSheet_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCloneAPCSheet.Execute
@@ -43,11 +43,11 @@ Public Class CertificateOfContractVC
Frame.GetController(Of CertificateOfContractVC).aPrintCertificateOfContract.Active.SetItemValue("", True) Frame.GetController(Of CertificateOfContractVC).aPrintCertificateOfContract.Active.SetItemValue("", True)
Frame.GetController(Of CertificateOfContractVC).aMakeEditableCOC.Active.SetItemValue("", True) Frame.GetController(Of CertificateOfContractVC).aMakeEditableCOC.Active.SetItemValue("", True)
Frame.GetController(Of CertificateOfContractVC).aStornoCOC.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) Frame.GetController(Of CertificateOfContractVC).aRecalculateCOC.Active.SetItemValue("", True)
End If End If
If View.Id = "CertificateofContractHeader_DetailView" Then If View.Id = "CertificateofContractHeader_DetailView" Then
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
_CertificateofContractHeader = View.SelectedObjects(0) _CertificateofContractHeader = View.SelectedObjects(0)
If _CertificateofContractHeader IsNot Nothing Then If _CertificateofContractHeader IsNot Nothing Then
If _CertificateofContractHeader.IsEditable = True Then If _CertificateofContractHeader.IsEditable = True Then
@@ -63,8 +63,8 @@ Public Class CertificateOfContractVC
End If End If
End If End If
If View.Id = "CertificateofContractHeader_CertificateofContractRows_ListView" Then If View.Id = "CertificateofContractHeader_CertificateofContractRows_ListView" Then
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", True) Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", True)
Frame.GetController(Of CertificateOfContractVC).aViewRegistry_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) _CertificateofContractHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CertificateofContractHeader)
If _CertificateofContractHeader IsNot Nothing Then If _CertificateofContractHeader IsNot Nothing Then
If _CertificateofContractHeader.IsEditable = False Then If _CertificateofContractHeader.IsEditable = False Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
Else Else
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
End If End If
End If End If
End If End If
@@ -89,15 +89,15 @@ Public Class CertificateOfContractVC
If View.Id = "CertificateofContractRows_DetailView" Then If View.Id = "CertificateofContractRows_DetailView" Then
Dim _CertificateofContractRows As CertificateofContractRows = TryCast(View.SelectedObjects(0), CertificateofContractRows) Dim _CertificateofContractRows As CertificateofContractRows = TryCast(View.SelectedObjects(0), CertificateofContractRows)
If _CertificateofContractRows.CertificateofContractHeader.IsEditable = False Then If _CertificateofContractRows.CertificateofContractHeader.IsEditable = False Then
Frame.GetController(Of NewItemRowListViewController).Active.SetItemValue("", False) Frame.GetController(Of NewItemRowListViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
Else Else
Frame.GetController(Of NewItemRowListViewController).Active.SetItemValue("", True) Frame.GetController(Of NewItemRowListViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
End If End If
Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", True) Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", True)
Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", True) Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", True)
@@ -116,8 +116,8 @@ Public Class CertificateOfContractVC
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True) Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
End Sub End Sub
Private Sub aPrintCertificateOfContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintCertificateOfContract.Execute Private Sub aPrintCertificateOfContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintCertificateOfContract.Execute
@@ -39,9 +39,9 @@ Public Class ContractReceivablesVC
End If End If
If View.Id = "ContractRows_ListView_Invoice_IsProforma" Or View.Id = "ContractRows_ListView_Invoice_Finalized" Then 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 NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
@@ -123,7 +123,7 @@ Public Class ContractReceivablesVC
On Error GoTo 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)
' -- létrehozunk egy kollekciót a kiválasztott elemek tömbjébol ' -- létrehozunk egy kollekciót a kiválasztott elemek tömbjébol
_InvoiceHeaderCreated.Clear() _InvoiceHeaderCreated.Clear()
@@ -284,7 +284,7 @@ Public Class ContractReceivablesVC
Me.PrintSelectedInvoices() Me.PrintSelectedInvoices()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
Exit Sub Exit Sub
CheckError: CheckError:
If Err.Number = 91 Then Resume Next If Err.Number = 91 Then Resume Next
@@ -200,12 +200,12 @@ Public Class ContractRowsVC
Dim _InvoiceRows As InvoiceRows = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceRows)) Dim _InvoiceRows As InvoiceRows = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceRows))
If _InvoiceRows IsNot Nothing Then If _InvoiceRows IsNot Nothing Then
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", False)
_InvoiceRows.ContractRows = _ContractRows _InvoiceRows.ContractRows = _ContractRows
_ContractRows.InvoiceRows = _InvoiceRows _ContractRows.InvoiceRows = _InvoiceRows
_ocur.CommitChanges() _ocur.CommitChanges()
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
@@ -47,7 +47,7 @@ Public Class ContractsVC
Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False)
If View.Id Like "Contracts_ListView*" Then If View.Id Like "Contracts_ListView*" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ContractRows_ListView_Invoice_Advance" Then If View.Id = "ContractRows_ListView_Invoice_Advance" Then
@@ -68,17 +68,17 @@ Public Class ContractsVC
'-------------------- LISTVIEW ------------------------------------------------------------------------------------------------------------------------- '-------------------- LISTVIEW -------------------------------------------------------------------------------------------------------------------------
If View.Id = "ContractRows_RegistryRowsFinancialControlling_ListView" Then If View.Id = "ContractRows_RegistryRowsFinancialControlling_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.ModificationsController).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.LinkUnlinkController)?.Active.SetItemValue("", False)
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 = "ContractRows_ListView_Invoice_Advance" Then 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).aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC).aDivideContractRows.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC).aDivideContractRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aMergeContractRows.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).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.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... Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", True) 'Ez is itt volt...
End If End If
If View.Id = "ContractRows_ListView_Invoice_CustomRate" Then 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 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).aDivideContractRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", True) Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", True)
End If End If
If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Or View.Id = "ContractRows_ListView_Invoice_MileStone" Then 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 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) Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", True)
End If End If
If View.Id = "ContractRows_ListView_Invoiced" Then If View.Id = "ContractRows_ListView_Invoiced" Then
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
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.ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ContractRows_ListView_Invoice_IsProforma" Then If View.Id = "ContractRows_ListView_Invoice_IsProforma" Then
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
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.ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ContractRows_ListView_Invoice_Finalized" Then If View.Id = "ContractRows_ListView_Invoice_Finalized" Then
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
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.ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "Contracts_ListView_Signed" Then 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 End If
If View.Id = "Contracts_ContractRows_ListView" Then If View.Id = "Contracts_ContractRows_ListView" Then
Frame.GetController(Of ContractsVC)().aNewContractRows.Active.SetItemValue("", True) Frame.GetController(Of ContractsVC)().aNewContractRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aCloneContractsRows.Active.SetItemValue("", True) 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 nv As ListView = CType(View, ListView)
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource) Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
@@ -137,11 +137,11 @@ Public Class ContractsVC
If _Contracts.ContractTemplate IsNot Nothing Then If _Contracts.ContractTemplate IsNot Nothing Then
If _Contracts.ContractTemplate.IsTechnical = True Then If _Contracts.ContractTemplate.IsTechnical = True Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.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 End If
End If End If
End If End If
@@ -157,7 +157,7 @@ Public Class ContractsVC
End If End If
If View.Id = "InvoiceHeader_DescriptionChanger_PopUp_ListView" Then If View.Id = "InvoiceHeader_DescriptionChanger_PopUp_ListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "Contracts_ListView_Subcontractor" Then If View.Id = "Contracts_ListView_Subcontractor" Then
Frame.GetController(Of ContractsVC).aCloneSelectedContracts.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC).aCloneSelectedContracts.Active.SetItemValue("", False)
@@ -172,18 +172,18 @@ Public Class ContractsVC
If View.Id = "ContractRows_DetailView" Then If View.Id = "ContractRows_DetailView" Then
If TryCast(View.SelectedObjects(0), ContractRows).InvoiceRows IsNot Nothing 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.DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)?.Active.SetItemValue("", False)
End If End If
End If End If
If View.Id = "Contracts_DetailView" Then If View.Id = "Contracts_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 DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)?.Active.SetItemValue("", True)
Dim _Contracts = TryCast(View.SelectedObjects(0), Contracts) Dim _Contracts = TryCast(View.SelectedObjects(0), Contracts)
If _Contracts IsNot Nothing Then If _Contracts IsNot Nothing Then
If _Contracts.State = State.Ready Or _Contracts.State = State.Signed 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
End If End If
If _Contracts.State = State.Preparation Then If _Contracts.State = State.Preparation Then
@@ -209,9 +209,9 @@ Public Class ContractsVC
If _Contracts.ContractTemplate IsNot Nothing Then If _Contracts.ContractTemplate IsNot Nothing Then
If _Contracts.ContractTemplate.IsTechnical = True Then '! Technikai szerzõdés esetén !!! If _Contracts.ContractTemplate.IsTechnical = True Then '! Technikai szerzõdés esetén !!!
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.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).aMarkAsClosed.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC).aMarkAsClosed.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aMarkAsReady.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC).aMarkAsReady.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aMarkAsSigned.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC).aMarkAsSigned.Active.SetItemValue("", False)
@@ -228,7 +228,7 @@ Public Class ContractsVC
'-------------------- LookupListView ----------------------------------------------------------------------------------------------------------------------- '-------------------- LookupListView -----------------------------------------------------------------------------------------------------------------------
If View.Id = "ContractRows_LookupListView" Then 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 End If
'A csoportos számlázás kijelölésváltozás figyelése, hogy csak azonos vállalattal rendelkezo sorokat lehessen kiválasztani 'A csoportos számlázás kijelölésváltozás figyelése, hogy csak azonos vállalattal rendelkezo sorokat lehessen kiválasztani
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
@@ -237,22 +237,22 @@ Public Class ContractsVC
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.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 If View.Id = "ContractRows_RegistryRowsFinancialControlling_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).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.ModificationsController)?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).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.NewObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "Contracts_DetailView" Then If View.Id = "Contracts_DetailView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True) 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.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "ContractRows_ListView_Invoice_Advance" Then If View.Id = "ContractRows_ListView_Invoice_Advance" Then
Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.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).aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.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).aDivideContractRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC).aMergeContractRows.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).aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", True) Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", True)
End If End If
If View.Id = "ContractRows_ListView_Invoice_CustomRate" Then 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 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).aDivideContractRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", True) Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", True)
End If End If
@@ -288,7 +288,7 @@ Public Class ContractsVC
Dim _ContractRows As ContractRows Dim _ContractRows As ContractRows
For Each _ContractRows In View.SelectedObjects For Each _ContractRows In View.SelectedObjects
If _ContractRows.InvoiceRows IsNot Nothing Then 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 End If
Next Next
End Sub End Sub
@@ -296,7 +296,7 @@ Public Class ContractsVC
Dim _Contracts As Contracts = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, Contracts) Dim _Contracts As Contracts = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, Contracts)
If _Contracts Is Nothing Then Exit Sub If _Contracts Is Nothing Then Exit Sub
If _Contracts.State = State.Signed Or _Contracts.State = State.Ready Then 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 If
End Sub End Sub
Sub DeleteAction_Executing(sender As Object, e As System.ComponentModel.CancelEventArgs) Sub DeleteAction_Executing(sender As Object, e As System.ComponentModel.CancelEventArgs)
@@ -535,7 +535,7 @@ Public Class ContractsVC
On Error GoTo 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)
' -- létrehozunk egy kollekciót a kiválasztott elemek tömbjébol ' -- létrehozunk egy kollekciót a kiválasztott elemek tömbjébol
For Each _ContractRows_Selection In _selection For Each _ContractRows_Selection In _selection
_ContractRows = _ocur.GetObject(_ContractRows_Selection) _ContractRows = _ocur.GetObject(_ContractRows_Selection)
@@ -665,7 +665,7 @@ Public Class ContractsVC
Next Next
_ocur.CommitChanges() _ocur.CommitChanges()
_noselect = False _noselect = False
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
Exit Sub Exit Sub
CheckError: CheckError:
If Err.Number = 91 Then Resume Next If Err.Number = 91 Then Resume Next
@@ -697,7 +697,7 @@ CheckError:
End Sub End Sub
Private Sub aCloneSelectedContracts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCloneSelectedContracts.Execute 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 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 = View.ObjectSpace Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
Dim _ContractsCloneView As ContractsCloneView = e.PopupWindow.View.SelectedObjects(0) Dim _ContractsCloneView As ContractsCloneView = e.PopupWindow.View.SelectedObjects(0)
@@ -774,7 +774,7 @@ CheckError:
Throw New Exception("*Nincs megadva szerzõdés sablon!") Throw New Exception("*Nincs megadva szerzõdés sablon!")
End If End If
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub End Sub
Private Sub aGenerateInvoicefromContractsRowsCustomRate_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateInvoicefromContractsRowsCustomRate.Execute 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) Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
@@ -787,7 +787,7 @@ CheckError:
On Error GoTo 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)
' -- létrehozunk egy kollekciót a kiválasztott elemek tömbjébol ' -- létrehozunk egy kollekciót a kiválasztott elemek tömbjébol
For Each _ContractRows_Selection In _selection For Each _ContractRows_Selection In _selection
_ContractRows = _ocur.GetObject(_ContractRows_Selection) _ContractRows = _ocur.GetObject(_ContractRows_Selection)
@@ -921,7 +921,7 @@ CheckError:
Next Next
_ocur.CommitChanges() _ocur.CommitChanges()
_noselect = False _noselect = False
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
Exit Sub Exit Sub
CheckError: CheckError:
If Err.Number = 91 Then Resume Next If Err.Number = 91 Then Resume Next
@@ -30,8 +30,8 @@ Public Class ContractProduct_VC
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False) Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
If View.Id Like "ContractProductHeader_ListView*" Then If View.Id Like "ContractProductHeader_ListView*" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", True) Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", True)
Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.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)" 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 End If
If View.Id Like "ContractProductHeader_DetailView*" Then If View.Id Like "ContractProductHeader_DetailView*" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", True) Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", True)
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", True) Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", True)
End If End If
If View.Id = "ContractProductHeader_ContractProductRows_ListView" Then If View.Id = "ContractProductHeader_ContractProductRows_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.LinkUnlinkController)().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.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 ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", True) Frame.GetController(Of ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractProduct_VC)().aUp_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 End If
If View.Id = "ContractTemplate_ListView_PopUp" Then If View.Id = "ContractTemplate_ListView_PopUp" Then
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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)
End If End If
If View.Id = "ContractProductRowsInOut_ListView" Then If View.Id = "ContractProductRowsInOut_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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsCustomersGroup_Linq" Then 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 End If
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsGroup_Linq" Then 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 End If
If View.Id = "ContractProductRows_ListView_Invoice" Then If View.Id = "ContractProductRows_ListView_Invoice" Then
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True) 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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", False)
@@ -81,9 +81,9 @@ Public Class ContractProduct_VC
End If End If
If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False) 'Iktatás betekintése Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False) 'Iktatás betekintése
Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", True) Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", True)
@@ -94,46 +94,46 @@ Public Class ContractProduct_VC
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "ContractProductHeader_ContractProductRows_ListView" Then If View.Id = "ContractProductHeader_ContractProductRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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)().aDown_ContractProductRows.Active.SetItemValue("", False)
Frame.GetController(Of ContractProduct_VC)().aUp_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 End If
If View.Id Like "ContractProductHeader_ListView*" Then If View.Id Like "ContractProductHeader_ListView*" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", False) Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", False)
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False) Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
End If End If
If View.Id Like "ContractProductHeader_DetailView*" Then If View.Id Like "ContractProductHeader_DetailView*" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False) Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
End If End If
If View.Id = "ContractTemplate_ListView_PopUp" Then If View.Id = "ContractTemplate_ListView_PopUp" Then
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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)
End If End If
If View.Id = "ContractProductRowsInOut_ListView" Then If View.Id = "ContractProductRowsInOut_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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 DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsCustomersGroup_Linq" Then 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 End If
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsGroup_Linq" Then 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 End If
If View.Id = "ContractProductRows_ListView_Invoice" Then If View.Id = "ContractProductRows_ListView_Invoice" Then
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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)().aMergeContractRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True) Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", True) Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", True)
@@ -141,9 +141,9 @@ Public Class ContractProduct_VC
End If End If
If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True) Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", True) Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", True)
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True) 'Iktatás betekintése Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True) 'Iktatás betekintése
Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", False) Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", False)
@@ -174,7 +174,7 @@ Public Class ContractProduct_VC
End If End If
End Sub End Sub
Private Sub aTotable_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_ConProd_Payabels.Execute 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 _ocur As Xpo.XPObjectSpace = View.ObjectSpace
Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader) Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader)
Dim _ContractProductRows As ContractProductRows = _ocur.CreateObject(Of ContractProductRows)() Dim _ContractProductRows As ContractProductRows = _ocur.CreateObject(Of ContractProductRows)()
@@ -213,7 +213,7 @@ Public Class ContractProduct_VC
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
Frame.GetController(Of RefreshController).RefreshAction.DoExecute() Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
End If End If
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub End Sub
Private Sub aTotableD_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_ConProd_Payabels.Execute 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 Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
@@ -256,7 +256,7 @@ Public Class ContractProduct_VC
End If End If
End Sub End Sub
Private Sub aTotable_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_ConProd_Receivables.Execute 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 _ocur As Xpo.XPObjectSpace = View.ObjectSpace
Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader) 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)) 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 -------------------------------<< '--------------------------------- TESZT MIATT -------------------------------<<
End If End If
' Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) ' Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub End Sub
Private Sub aBackToRowEdit_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_ConProd_Receivables.Execute 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) Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
@@ -487,7 +487,7 @@ Public Class ContractProduct_VC
If _ContractProductHeader IsNot Nothing Then If _ContractProductHeader IsNot Nothing Then
Dim _CustomersNGCollection As CustomersNGCollection = Nothing 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 If _ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.eReceivables Then
_CustomersNGCollection = _ocur.FindObject(Of CustomersNGCollection)(CriteriaOperator.Parse("Customers=? AND ContractTemplate=?", _ _CustomersNGCollection = _ocur.FindObject(Of CustomersNGCollection)(CriteriaOperator.Parse("Customers=? AND ContractTemplate=?", _
_ContractProductHeader.Customers, _ContractProductHeader.ContractTemplate)) _ContractProductHeader.Customers, _ContractProductHeader.ContractTemplate))
@@ -504,7 +504,7 @@ Public Class ContractProduct_VC
End If End If
_ocur.CommitChanges() _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 If
End Sub End Sub
Private Sub aSendBackToEditContractProduct_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSendBackToEditContractProduct.Execute Private Sub aSendBackToEditContractProduct_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSendBackToEditContractProduct.Execute
@@ -41,11 +41,11 @@ Public Class DeliveryNoteInVC
'------------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------------- '------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "DeliveryNoteInHeader_DeliveryNoteInrows_ListView" Then ' -- A beágyazott ListView feletti toolbar 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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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).aUp_DeliveryNoteIn.Active.SetItemValue("", True)
Frame.GetController(Of DeliveryNoteInVC).aDown_DeliveryNoteIn.Active.SetItemValue("", True) Frame.GetController(Of DeliveryNoteInVC).aDown_DeliveryNoteIn.Active.SetItemValue("", True)
End If End If
@@ -53,18 +53,18 @@ Public Class DeliveryNoteInVC
Frame.GetController(Of DeliveryNoteInVC).aGenerateStorageIn_From_DeliveryNoteInRows.Active.SetItemValue("", True) Frame.GetController(Of DeliveryNoteInVC).aGenerateStorageIn_From_DeliveryNoteInRows.Active.SetItemValue("", True)
End If End If
If View.Id = "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_ListView" Then If View.Id = "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_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.CloneObject.CloneObjectViewController)().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 DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_ListView" Then If View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_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.CloneObject.CloneObjectViewController)().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 DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------ '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "DeliveryNoteInHeader_DetailView" Then If View.Id = "DeliveryNoteInHeader_DetailView" Then
@@ -101,25 +101,25 @@ Public Class DeliveryNoteInVC
'------------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------------- '------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "DeliveryNoteInHeader_DeliveryNoteInRows_ListView" Then If View.Id = "DeliveryNoteInHeader_DeliveryNoteInRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_ListView" Then If View.Id = "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.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 DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_ListView" Then If View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.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 DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------ '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "DeliveryNoteInHeader_DeatilView" Then If View.Id = "DeliveryNoteInHeader_DeatilView" Then
@@ -47,54 +47,54 @@ Public Class DeliveryNoteOutVC
End If End If
If View.Id = "DeliveryNoteOutRows_ListView_Invoice" Then If View.Id = "DeliveryNoteOutRows_ListView_Invoice" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.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 DeliveryNoteOutVC).aCreate_InvoiceFromStorageORIR.Active.SetItemValue("", True) Frame.GetController(Of DeliveryNoteOutVC).aCreate_InvoiceFromStorageORIR.Active.SetItemValue("", True)
AddHandler View.SelectionChanged, AddressOf DeliveryNoteOutRows_ListView_Invoice_ViewSelectionChanged AddHandler View.SelectionChanged, AddressOf DeliveryNoteOutRows_ListView_Invoice_ViewSelectionChanged
End If End If
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" 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.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.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 DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True) Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
AddHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged AddHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
End If End If
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" Then If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" 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.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.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 DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True) Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
AddHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged AddHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
End If End If
If View.Id = "StorageOutRowsInRows_LookupListView" Then If View.Id = "StorageOutRowsInRows_LookupListView" Then
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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)
End If End If
If View.Id = "DeliveryNoteOutHeader_ListView_NonEditable" Then If View.Id = "DeliveryNoteOutHeader_ListView_NonEditable" 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.CloneObject.CloneObjectViewController)().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 DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", True) Frame.GetController(Of DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", True)
Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", True) Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", True)
Frame.GetController(Of DeliveryNoteOutVC)().aDeliveryNoteOutPrint.Active.SetItemValue("", True) Frame.GetController(Of DeliveryNoteOutVC)().aDeliveryNoteOutPrint.Active.SetItemValue("", True)
End If End If
'------------------- LISTVIEWS ------------------------------------------------------------------------------------------------------------------------------- '------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
If View.Id = "DeliveryNoteOutHeader_DeliveryNoteOutRows_ListView" Then If View.Id = "DeliveryNoteOutHeader_DeliveryNoteOutRows_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.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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).aUp_DeliveryNoteOut.Active.SetItemValue("", True)
Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", True) Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", True)
End If End If
@@ -108,9 +108,9 @@ Public Class DeliveryNoteOutVC
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader) Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
If _DeliveryNoteOutHeader IsNot Nothing Then If _DeliveryNoteOutHeader IsNot Nothing Then
If _DeliveryNoteOutHeader.IsEditable = False Then If _DeliveryNoteOutHeader.IsEditable = False Then
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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 DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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)().SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndCloseAction.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) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndNewAction.Active.SetItemValue("", False)
@@ -131,45 +131,45 @@ Public Class DeliveryNoteOutVC
End If End If
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" 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.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.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 DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", False) Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", False)
RemoveHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged RemoveHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
End If End If
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" Then If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" 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.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.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 DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True) Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
RemoveHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged RemoveHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
End If End If
If View.Id = "StorageOutRowsInRows_LookupListView" Then If View.Id = "StorageOutRowsInRows_LookupListView" Then
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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)
End If End If
If View.Id = "DeliveryNoteOutHeader_ListView_NonEditable" Then If View.Id = "DeliveryNoteOutHeader_ListView_NonEditable" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.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 DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", False) Frame.GetController(Of DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", False)
Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", False) Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", False)
Frame.GetController(Of DeliveryNoteOutVC)().aDeliveryNoteOutPrint.Active.SetItemValue("", False) Frame.GetController(Of DeliveryNoteOutVC)().aDeliveryNoteOutPrint.Active.SetItemValue("", False)
End If End If
'------------------- LISTVIEWS ------------------------------------------------------------------------------------------------------------------------------- '------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
If View.Id = "DeliveryNoteOutHeader_DeliveryNoteOutRows_ListView" Then If View.Id = "DeliveryNoteOutHeader_DeliveryNoteOutRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", False) Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", False)
Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", False) Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", False)
End If End If
@@ -183,9 +183,9 @@ Public Class DeliveryNoteOutVC
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader) Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
If _DeliveryNoteOutHeader IsNot Nothing Then If _DeliveryNoteOutHeader IsNot Nothing Then
If _DeliveryNoteOutHeader.IsEditable = False Then If _DeliveryNoteOutHeader.IsEditable = False Then
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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 DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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)().SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndCloseAction.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) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndNewAction.Active.SetItemValue("", True)
@@ -47,64 +47,64 @@ Public Class CRMEstateVC
View.Id = "CRMEstate_Leads_Selected_StudentHostel_ListView" Or _ View.Id = "CRMEstate_Leads_Selected_StudentHostel_ListView" Or _
View.Id = "CRMEstate_Opportunity_Immovables_ListView_Navigation" Then View.Id = "CRMEstate_Opportunity_Immovables_ListView_Navigation" Then
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "CRMEstate_Opportunity_DetailView" Then If View.Id = "CRMEstate_Opportunity_DetailView" Then
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id Like "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView*" Or _ If View.Id Like "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView*" Or _
View.Id Like "CRMEstate_Leads_CRMEstate_Opportunity_ListView*" Then 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 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 ModificationsController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Or _ 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_Customers_ListView" Or _
View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Or _ View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Or _
View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Rent_ListView" Then 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 End If
If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_DetailView" Then If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_DetailView" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If End If
If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_CollectionOfReservation_ListView" Then If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_CollectionOfReservation_ListView" Then
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Then If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Then
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
AddHandler View.SelectionChanged, AddressOf Selectionchanged_CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView AddHandler View.SelectionChanged, AddressOf Selectionchanged_CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView
End If End If
If View.Id = "CRMEstate_Opportunity_AdvanceMoney_DetailView" Then If View.Id = "CRMEstate_Opportunity_AdvanceMoney_DetailView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "CRMEstate_Leads_DetailView" Or _ If View.Id = "CRMEstate_Leads_DetailView" Or _
View.Id = "CRMEstate_Leads_ListView" Then View.Id = "CRMEstate_Leads_ListView" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf CRMEstate_Leads_DetailView_DeleteAction_Executing AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf CRMEstate_Leads_DetailView_DeleteAction_Executing
End If End If
If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Then If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, _ AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, _
AddressOf CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView_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 RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If End If
If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_CollectionOfReservation_ListView" Then If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_CollectionOfReservation_ListView" Then
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Then If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Then
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "CRMEstate_Opportunity_DetailView" Then If View.Id = "CRMEstate_Opportunity_DetailView" Then
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id Like "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView*" Or _ If View.Id Like "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView*" Or _
View.Id Like "CRMEstate_Leads_CRMEstate_Opportunity_ListView*" Then View.Id Like "CRMEstate_Leads_CRMEstate_Opportunity_ListView*" Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "CRMEstate_Opportunity_AdvanceMoney_DetailView" Then If View.Id = "CRMEstate_Opportunity_AdvanceMoney_DetailView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "CRMEstate_Leads_DetailView" Or _ If View.Id = "CRMEstate_Leads_DetailView" Or _
View.Id = "CRMEstate_Leads_ListView" Then View.Id = "CRMEstate_Leads_ListView" Then
@@ -153,8 +153,8 @@ Public Class CRMEstateVC
End If End If
If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Then If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, _ RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, _
AddressOf CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView_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!") 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 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 '-- 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.CanForSale = False
_CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.Save() _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.Save()
@@ -615,7 +615,7 @@ Public Class CRMEstateVC
_ocur.CommitChanges() _ocur.CommitChanges()
'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", True) 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
View.Close() View.Close()
End Sub 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 Private Sub aDeleteCRMEstate_Opportunity_AdvanceMoney_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeleteCRMEstate_Opportunity_AdvanceMoney.Execute
@@ -28,55 +28,55 @@ Public Class ImmovablesPriceListVC
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Then If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Then
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Then If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Then
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Then If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Then
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Then If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Then
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Then If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Then
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Then If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Then
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Private Sub aGenerateIPriceList_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateIPriceList.Execute Private Sub aGenerateIPriceList_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateIPriceList.Execute
@@ -33,49 +33,49 @@ Public Class ImmovablesCostRecordExcelVC
End If End If
If View.Id = "ImmovablesCostRecordExcel_ListView" Then If View.Id = "ImmovablesCostRecordExcel_ListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ImmovablesCostRecordExcel_DetailView" Then If View.Id = "ImmovablesCostRecordExcel_DetailView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelImmovables_ListView" Then If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelImmovables_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "ImmovablesCostRecordExcel_ListView" Then If View.Id = "ImmovablesCostRecordExcel_ListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "ImmovablesCostRecordExcel_DetailView" Then If View.Id = "ImmovablesCostRecordExcel_DetailView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
@@ -23,7 +23,7 @@ Public Class EstateVC
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "Immovables_ListView" Then 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 End If
If View.Id = "Immovables_ChangeGroup_PopUp_DetailView" Then 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 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() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "Immovables_ListView" Then 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 End If
If View.Id = "Immovables_ChangeGroup_PopUp_DetailView" Then 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 RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing
@@ -29,7 +29,7 @@ Public Class ImmovablesVC
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.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 End Sub
Private Sub aIRentGetContracts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIRentGetContracts.Execute Private Sub aIRentGetContracts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIRentGetContracts.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
@@ -37,7 +37,7 @@ Public Class ImmovablesVC
Dim _ContractRows As ContractRows Dim _ContractRows As ContractRows
Dim _ContractRows_Collection As XPCollection(Of 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) RaiseEvent InitWork(1, 1, TryCast(View, ListView).CollectionSource.List.Count)
For Each _Immovables In TryCast(View, ListView).CollectionSource.List For Each _Immovables In TryCast(View, ListView).CollectionSource.List
RaiseEvent DoWork() RaiseEvent DoWork()
@@ -52,6 +52,6 @@ Public Class ImmovablesVC
Next Next
Next Next
RaiseEvent FinalWork 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 Sub
End Class End Class
@@ -53,14 +53,14 @@ Public Class InvoiceFactoring_VC
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.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 End Sub
Private Sub aFactoringSet_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringSet.Execute Private Sub aFactoringSet_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringSet.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _InvoiceHeader As InvoiceHeader 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 For Each _InvoiceHeader In View.SelectedObjects
If _InvoiceHeader.IsFactoring = False Then If _InvoiceHeader.IsFactoring = False Then
_InvoiceHeader.IsFactoring = True _InvoiceHeader.IsFactoring = True
@@ -69,7 +69,7 @@ Public Class InvoiceFactoring_VC
End If End If
Next Next
_ocur.CommitChanges() _ocur.CommitChanges()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub End Sub
Private Sub aFactoringSendToBank_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFactoringSendToBank.CustomizePopupWindowParams 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 _InvoiceFactoringPopup As InvoiceFactoringPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceFactoringPopup)
Dim _Factoring_Send_Number As String = "" Dim _Factoring_Send_Number As String = ""
Dim _InvoiceFactoringBank As InvoiceFactoringBank 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 For Each _InvoiceHeader In View.SelectedObjects
If _InvoiceHeader.IsFactoring = True Then If _InvoiceHeader.IsFactoring = True Then
@@ -124,7 +124,7 @@ Public Class InvoiceFactoring_VC
Next Next
_ocur.CommitChanges() _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 kérelmet kinyomtatni !!!! '// Most kell a kérelmet kinyomtatni !!!!
@@ -142,7 +142,7 @@ Public Class InvoiceFactoring_VC
Dim _InvoiceHeader As InvoiceHeader Dim _InvoiceHeader As InvoiceHeader
Dim _ReadyForDelete As Boolean = False Dim _ReadyForDelete As Boolean = False
Dim _InvoiceFactoringBank_Collection As New XPCollection(Of InvoiceFactoringBank)(_ocur.Session, CriteriaOperator.Parse("1=2")) 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 For Each _InvoiceFactoringBank In View.SelectedObjects
_ReadyForDelete = False _ReadyForDelete = False
@@ -162,7 +162,7 @@ Public Class InvoiceFactoring_VC
_ocur.Delete(_InvoiceFactoringBank_Collection) _ocur.Delete(_InvoiceFactoringBank_Collection)
_ocur.CommitChanges() _ocur.CommitChanges()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub End Sub
Private Sub aFactoringCreate_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFactoringCreate.CustomizePopupWindowParams Private Sub aFactoringCreate_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFactoringCreate.CustomizePopupWindowParams
@@ -205,7 +205,7 @@ Public Class InvoiceFactoring_VC
End If End If
Dim _InvoiceFactoringRows As InvoiceFactoringRows 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 For Each _InvoiceHeader In View.SelectedObjects
_InvoiceFactoringRows = _ocur.CreateObject(Of InvoiceFactoringRows)() _InvoiceFactoringRows = _ocur.CreateObject(Of InvoiceFactoringRows)()
_InvoiceFactoringRows.InvoiceFactoringHeader = _InvoiceFactoringHeader _InvoiceFactoringRows.InvoiceFactoringHeader = _InvoiceFactoringHeader
@@ -213,7 +213,7 @@ Public Class InvoiceFactoring_VC
_InvoiceHeader.InvoiceFactoringRows = _InvoiceFactoringRows _InvoiceHeader.InvoiceFactoringRows = _InvoiceFactoringRows
Next Next
_ocur.CommitChanges() _ocur.CommitChanges()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub End Sub
Private Sub aFactoringDestroy_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringDestroy.Execute 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 _InvoiceFactoringHeader As InvoiceFactoringHeader
Dim _InvoiceFactoringRows As InvoiceFactoringRows 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 _InvoiceFactoringHeader In View.SelectedObjects
For Each _InvoiceFactoringRows In _InvoiceFactoringHeader.InvoiceFactoringRows For Each _InvoiceFactoringRows In _InvoiceFactoringHeader.InvoiceFactoringRows
@@ -232,7 +232,7 @@ Public Class InvoiceFactoring_VC
_ocur.Delete(_InvoiceFactoringHeader) _ocur.Delete(_InvoiceFactoringHeader)
Next Next
_ocur.CommitChanges() _ocur.CommitChanges()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub End Sub
@@ -28,17 +28,17 @@ Public Class InvoiceCreditNote_VC
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "InvoiceCreditNoteHeader_DetailView" Then If View.Id = "InvoiceCreditNoteHeader_DetailView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.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 NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "InvoiceCreditNoteHeader_InvoiceCreditNoteRows_ListView" Then If View.Id = "InvoiceCreditNoteHeader_InvoiceCreditNoteRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().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 ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "InvoiceRows_ListView_CreditNote" Then If View.Id = "InvoiceRows_ListView_CreditNote" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf InvoiceRows_ListView_CreditNote_AcceptAction_Executing 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() MyBase.OnDeactivated()
If View.Id = "InvoiceCreditNoteHeader_DetailView" Then If View.Id = "InvoiceCreditNoteHeader_DetailView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "InvoiceCreditNoteHeader_InvoiceCreditNoteRows_ListView" Then If View.Id = "InvoiceCreditNoteHeader_InvoiceCreditNoteRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
#End Region #End Region
@@ -53,21 +53,21 @@ Public Class InvoiceRowVC
End If End If
If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.SystemModule.DeleteObjectsViewController)()?.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 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 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 End If
If View.Id = "InvoiceHeader_InvoiceVATRows_ListView" Then If View.Id = "InvoiceHeader_InvoiceVATRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.SystemModule.DeleteObjectsViewController)()?.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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "InvoiceRows_ListView_Table" Then If View.Id = "InvoiceRows_ListView_Table" Then
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
@@ -80,21 +80,21 @@ Public Class InvoiceRowVC
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.DeleteObjectsViewController)()?.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 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 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 End If
If View.Id = "InvoiceHeader_InvoiceVATRows_ListView" Then If View.Id = "InvoiceHeader_InvoiceVATRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.DeleteObjectsViewController)()?.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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "InvoiceRows_ListView_Table" Then If View.Id = "InvoiceRows_ListView_Table" Then
RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
@@ -114,7 +114,7 @@ Public Class InvoiceRowVC
End If End If
If _InvoiceRows_Corr IsNot Nothing Then 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 End If
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
@@ -159,7 +159,7 @@ Public Class InvoiceRowVC
If _InvoiceRows_Corr IsNot Nothing Then 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 End If
Else Else
'_ocur.Rollback() '_ocur.Rollback()
@@ -57,36 +57,36 @@ Public Class InvoiceVC
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aMakeEditableProforma.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC)().aMakeEditableProforma.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).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 InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False) Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False)
End If End If
If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then ' Számla sorok amik egy fejléchez tartoznak 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.LinkUnlinkController)()?.Active.SetItemValue("", False)
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.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Dim _ListView As ListView = CType(View, ListView) Dim _ListView As ListView = CType(View, ListView)
Dim _Cs As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) Dim _Cs As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource)
If TryCast(_Cs.MasterObject, InvoiceHeader) IsNot Nothing Then 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 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 End If
Else 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
End If End If
If View.Id = "InvoiceHeader_ListView" Then ' Számlák lista nézet 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 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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).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 InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aGenerateInvoiceToPdfFiles.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC)().aGenerateInvoiceToPdfFiles.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.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) Frame.GetController(Of InvoiceVC).aViewPCIDInvoice.Active.SetItemValue("", True)
End If End If
If View.Id = "InvoiceHeader_ListView_Editable" Then ' Szerkeszthető számlák 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)().aInvoiceHeaderClone.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.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 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) Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False)
End If End If
If View.Id = "InvoiceHeader_LookupListView" Then 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).aFinalizeInvoice.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC).aFinalizeInvoicewithPopup.Active.SetItemValue("", False) Frame.GetController(Of InvoiceVC).aFinalizeInvoicewithPopup.Active.SetItemValue("", False)
End If End If
If View.Id = "InvoiceRows_ListView_Advanced" Then ' Előleg tipusú számla sorok lista nézet 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.SystemModule.NewObjectViewController)()?.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 InvoiceVC).aPCICheckInvoice.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC).aPCICheckInvoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC).aViewPCIDInvoice.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 If View.Id = "InvoiceHeader_ListView_Proforma_Advanced" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_DeleteAction_Executing 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 InvoiceVC)().aPrintSelectedInvoices.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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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)().aCloneFullInvoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False) Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False)
'Frame.GetController(Of InvoiceVC)().a.Active.SetItemValue("", False) 'Frame.GetController(Of InvoiceVC)().a.Active.SetItemValue("", False)
End If End If
If View.Id = "InvoiceHeader_InvoiceRows_ListView_Corrigendum" Then If View.Id = "InvoiceHeader_InvoiceRows_ListView_Corrigendum" Then
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
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 = "GLAccounts_DetailView_InvoiceHeader" Then If View.Id = "GLAccounts_DetailView_InvoiceHeader" Then
Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", False) 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).aBackToRowEdit_GLAccounts.Active.SetItemValue("", False)
Frame.GetController(Of GLAccountsVC).aFinal_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 GLAccountsVC).aFinalAndNew_GLAccounts.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 DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).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.LinkUnlinkController)()?.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 End If
If View.Id = "InvoiceHeader_ListView_Proforma_CustomRate" Then If View.Id = "InvoiceHeader_ListView_Proforma_CustomRate" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_DeleteAction_Executing 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 CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)().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)().aPrintSelectedInvoices.Active.SetItemValue("", True) '-- Számla nyomtatása
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True)
@@ -169,18 +169,18 @@ Public Class InvoiceVC
If View.SelectedObjects.Count > 0 Then If View.SelectedObjects.Count > 0 Then
_InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) _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 If _InvoiceHeader.IsEditable Or _InvoiceHeader.IsProforma Then
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True)
End If End If
If _InvoiceHeader.IsEditable = False Then 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)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.ModificationsController)()?.Active.SetItemValue("", False)
Else 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) Frame.GetController(Of InvoiceVC)().aCreateProforma.Active.SetItemValue("", True)
End If End If
If _InvoiceHeader.IsEditable = True Then If _InvoiceHeader.IsEditable = True Then
@@ -205,15 +205,15 @@ Public Class InvoiceVC
Frame.GetController(Of InvoiceRowVC).aToTableD_Invoice.Active.SetItemValue("", True) Frame.GetController(Of InvoiceRowVC).aToTableD_Invoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC).aFinalizeInvoice.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC).aFinalizeInvoice.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.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.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)
End If End If
If View.Id = "InvoiceAdvancePopup_DetailView" Then ' Előleg bekérő készítő view 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 AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If End If
If View.Id = "EMailSendQueueParameters_ListView_PopUp" Then If View.Id = "EMailSendQueueParameters_ListView_PopUp" Then
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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)
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf EMailSendQueueParameters_ListView_PopUp_AcceptAction_Executing AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf EMailSendQueueParameters_ListView_PopUp_AcceptAction_Executing
End If End If
End Sub End Sub
@@ -238,8 +238,8 @@ Public Class InvoiceVC
If View.Id = "InvoiceHeader_ListView" Then If View.Id = "InvoiceHeader_ListView" Then
Frame.GetController(Of InvoiceVC)().aStornoInvoice.Active.SetItemValue("", False) '-- Végleges számla stornírozása 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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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)().aPrintSelectedInvoices.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False) Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False)
End If End If
@@ -247,26 +247,26 @@ Public Class InvoiceVC
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If End If
If View.Id = "InvoiceHeader_DetailView" Then 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).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).SaveAndCloseAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAndNewAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAndNewAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting
End If End If
If View.Id = "InvoiceRows_ListView_Advanced" Then If View.Id = "InvoiceRows_ListView_Advanced" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "InvoiceHeader_ListView_Editable" Then ' Szerkeszthető számlák 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)().aInvoiceHeaderClone.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.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 RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Editable_DeleteAction_Executing
End If End If
If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.DeleteObjectsViewController)()?.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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "InvoiceHeader_DetailView_Corrigendum" Then If View.Id = "InvoiceHeader_DetailView_Corrigendum" Then
Frame.GetController(Of InvoiceRowVC).aToTable_Invoice.Active.SetItemValue("", False) 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 InvoiceRowVC).aToTableD_Invoice.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC).aFinalizeInvoice.Active.SetItemValue("", False) Frame.GetController(Of InvoiceVC).aFinalizeInvoice.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.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.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)
End If End If
If View.Id = "InvoiceHeader_InvoiceRows_ListView_Corrigendum" Then If View.Id = "InvoiceHeader_InvoiceRows_ListView_Corrigendum" Then
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController)().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.DeleteObjectsViewController)()?.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 If
If View.Id = "InvoiceHeader_ListView_Proforma" Then '-- Proforma lista nézet 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 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)().aFinalizeInvoicewithPopup.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False) Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aMakeEditableProforma.Active.SetItemValue("", False) Frame.GetController(Of InvoiceVC)().aMakeEditableProforma.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).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 InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False) Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False)
End If End If
If View.Id = "InvoiceHeader_ListView_Proforma_CustomRate" Then If View.Id = "InvoiceHeader_ListView_Proforma_CustomRate" Then
Frame.GetController(Of CloneObjectViewController)().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 InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False) '-- Számla nyomtatása Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False) '-- Számla nyomtatása
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", False) 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 RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_CustomRate_DeleteAction_Executing
End If End If
If View.Id = "EMailSendQueueParameters_ListView_PopUp" Then If View.Id = "EMailSendQueueParameters_ListView_PopUp" Then
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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)
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf EMailSendQueueParameters_ListView_PopUp_AcceptAction_Executing RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf EMailSendQueueParameters_ListView_PopUp_AcceptAction_Executing
End If End If
End Sub End Sub
@@ -459,7 +459,7 @@ Public Class InvoiceVC
If View.SelectedObjects.Count > 0 Then If View.SelectedObjects.Count > 0 Then
Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader)
'If _InvoiceHeader.IsEditable = True Then '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 End If
End If End If
@@ -530,7 +530,7 @@ Public Class InvoiceVC
Dim _ContractRows As ContractRows 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 = _ocur.CreateObject(Of InvoiceHeader)()
_InvoiceHeader_New.IsStorno = True : _p_InvoiceHeader.IsStorno = True _InvoiceHeader_New.IsStorno = True : _p_InvoiceHeader.IsStorno = True
_InvoiceHeader_New.BankInformation = _p_InvoiceHeader.BankInformation _InvoiceHeader_New.BankInformation = _p_InvoiceHeader.BankInformation
@@ -641,7 +641,7 @@ Public Class InvoiceVC
'------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------
Me.PrintInvoice(_InvoiceHeader_New) 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 If TryCast(View, DetailView) IsNot Nothing Then
View.Close(False) View.Close(False)
Else Else
@@ -857,7 +857,7 @@ CheckError:
On Error GoTo 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.IsProforma = True
_InvoiceHeader_New.IsEditable = False _InvoiceHeader_New.IsEditable = False
@@ -949,7 +949,7 @@ CheckError:
_InvoiceHeader_New.RecalculateInvoice(_InvoiceHeader_New, _ocur) _InvoiceHeader_New.RecalculateInvoice(_InvoiceHeader_New, _ocur)
_ocur.CommitChanges() _ocur.CommitChanges()
Me.PrintInvoice(_InvoiceHeader_New) 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() View.Close()
Exit Sub Exit Sub
CheckError: CheckError:
@@ -50,11 +50,11 @@ Public Class OffersInVC
End If End If
If View.Id = "OfferInHeader_OfferInRows_ListView" Then If View.Id = "OfferInHeader_OfferInRows_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.LinkUnlinkController)().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.NewObjectViewController)()?.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().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).aUp_OfferIn.Active.SetItemValue("", True)
Frame.GetController(Of OffersInVC).aDown_OfferIn.Active.SetItemValue("", True) Frame.GetController(Of OffersInVC).aDown_OfferIn.Active.SetItemValue("", True)
Frame.GetController(Of OffersInVC).aOffersIn_ChangeRows.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) Frame.GetController(Of OffersInVC)().aOfferIn_CreateDeliveryNoteIn.Active.SetItemValue("", False)
End If End If
If View.Id = "DeliveryNoteInFromOffersInRowsHeader_DeliveryNoteInFromOffersInRowsRows_ListView" Then If View.Id = "DeliveryNoteInFromOffersInRowsHeader_DeliveryNoteInFromOffersInRowsRows_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.LinkUnlinkController)().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.NewObjectViewController)()?.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "OfferOutHeader_ListView_OfferOutHeaderInHeader" Then 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 If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
@@ -104,11 +104,11 @@ Public Class OffersInVC
RemoveHandler View.SelectionChanged, AddressOf OfferInHeader_OfferInRows_ListView_SelectionChanged RemoveHandler View.SelectionChanged, AddressOf OfferInHeader_OfferInRows_ListView_SelectionChanged
End If End If
If View.Id = "OfferInHeader_OfferInRows_ListView" Then If View.Id = "OfferInHeader_OfferInRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.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).aUp_OfferIn.Active.SetItemValue("", False)
Frame.GetController(Of OffersInVC).aDown_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) Frame.GetController(Of OffersInVC)().aOfferIn_CreateDeliveryNoteIn.Active.SetItemValue("", True)
End If End If
If View.Id = "DeliveryNoteInFromOffersInRowsHeader_DeliveryNoteInFromOffersInRowsRows_ListView" Then If View.Id = "DeliveryNoteInFromOffersInRowsHeader_DeliveryNoteInFromOffersInRowsRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "OfferOutHeader_ListView_OfferOutHeaderInHeader" Then 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 If
End Sub End Sub
Private Sub OfferInHeader_OfferInRows_ListView_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Private Sub OfferInHeader_OfferInRows_ListView_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
@@ -49,23 +49,23 @@ Public Class OffersOutVC
Frame.GetController(Of OffersOutVC).aOfferOut_ChangeState.Active.SetItemValue("", False) Frame.GetController(Of OffersOutVC).aOfferOut_ChangeState.Active.SetItemValue("", False)
'------------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------------- '------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "OfferOutHeader_OfferOutCostRows_ListView" Then If View.Id = "OfferOutHeader_OfferOutCostRows_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.LinkUnlinkController)().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.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)
End If End If
If View.Id = "OfferOutHeader_ListView_Editable" Then If View.Id = "OfferOutHeader_ListView_Editable" Then
Frame.GetController(Of OffersOutVC).aCloneOfferOut.Active.SetItemValue("", True) Frame.GetController(Of OffersOutVC).aCloneOfferOut.Active.SetItemValue("", True)
Frame.GetController(Of OffersOutVC).aCloneOfferOut_CRM.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 End If
If View.Id = "OfferOutHeader_ListView_NotEditable" Or _ If View.Id = "OfferOutHeader_ListView_NotEditable" Or _
View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then
Frame.GetController(Of OffersOutVC).aCloneOfferOut.Active.SetItemValue("", True) Frame.GetController(Of OffersOutVC).aCloneOfferOut.Active.SetItemValue("", True)
Frame.GetController(Of OffersOutVC).aCreateOrderIn_From_OfferOut.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 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) Frame.GetController(Of OffersOutVC).aOfferOut_ChangeState.Active.SetItemValue("", True)
AddHandler View.SelectionChanged, AddressOf OfferOutHeader_OfferOutRows_ListView_SelectionChanged 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 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).aUp_OfferOut.Active.SetItemValue("", True)
Frame.GetController(Of OffersOutVC).aDown_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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.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 OffersOutVC).aImportRecipe.Active.SetItemValue("", True) 'Recept import Frame.GetController(Of OffersOutVC).aImportRecipe.Active.SetItemValue("", True) 'Recept import
Frame.GetController(Of OffersOutVC).aInsertServicesToOfferOut.Active.SetItemValue("", True) Frame.GetController(Of OffersOutVC).aInsertServicesToOfferOut.Active.SetItemValue("", True)
End If End If
If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_ListView" Then If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_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.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "ProductFinderVariable_ProductSelectOriginal_ListView" Then If View.Id = "ProductFinderVariable_ProductSelectOriginal_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.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "ProductFinderVariable_ProductSelectVariables_ListView" Then If View.Id = "ProductFinderVariable_ProductSelectVariables_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.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "OfferOutHeader_ListView_Support" Then If View.Id = "OfferOutHeader_ListView_Support" Then
Frame.GetController(Of OffersOutVC).aBackToEditOfferOut.Active.SetItemValue("", False) Frame.GetController(Of OffersOutVC).aBackToEditOfferOut.Active.SetItemValue("", False)
'Frame.GetController(Of OffersOutVC).a() 'Frame.GetController(Of OffersOutVC).a()
End If End If
If View.Id = "OfferOutHeader_OfferInHeader_ListView" Then If View.Id = "OfferOutHeader_OfferInHeader_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.LinkUnlinkController)().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.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)
End If End If
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------ '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "OfferOutHeader_DetailView" Then 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) Frame.GetController(Of OffersOutVC).aOffersOutFinalWidthVersion.Active.SetItemValue("", True)
Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) 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 AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If End If
If View.Id = "ProductFinderVariable_DetailView" Then 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 End If
If View.Id = "OfferOutHeader_ListView_Support" Then 'WEB Supportnál ajánlatok listázása 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
End If End If
If View.Id = "OfferInHeader_ListView_OfferOutHeaderInHeader" Then If View.Id = "OfferInHeader_ListView_OfferOutHeaderInHeader" 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.LinkUnlinkController)().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.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)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
@@ -172,23 +172,23 @@ Public Class OffersOutVC
'------------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------------- '------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "OfferOutHeader_OfferOutCostRows_ListView" Then If View.Id = "OfferOutHeader_OfferOutCostRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "OfferOutHeader_ListView_Editable" Then 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 End If
If View.Id = "OfferOutHeader_ListView_NotEditable" Then 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) Frame.GetController(Of OffersOutVC).aOfferOut_ChangeState.Active.SetItemValue("", False)
RemoveHandler View.SelectionChanged, AddressOf OfferOutHeader_OfferOutRows_ListView_SelectionChanged 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 Frame.GetController(Of OffersOutVC).aImportRecipe.Active.SetItemValue("", False) 'Recept import
End If End If
If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_ListView" Then If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "ProductFinderVariable_ProductSelectOriginal_ListView" Then If View.Id = "ProductFinderVariable_ProductSelectOriginal_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "ProductFinderVariable_ProductSelectVariables_ListView" Then If View.Id = "ProductFinderVariable_ProductSelectVariables_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "OfferOutHeader_ListView_Support" Then If View.Id = "OfferOutHeader_ListView_Support" Then
Frame.GetController(Of OffersOutVC).aBackToEditOfferOut.Active.SetItemValue("", True) Frame.GetController(Of OffersOutVC).aBackToEditOfferOut.Active.SetItemValue("", True)
End If End If
If View.Id = "OfferOutHeader_OfferInHeader_ListView" Then If View.Id = "OfferOutHeader_OfferInHeader_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------ '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
If View.Id = "OfferOutHeader_DeatilView" Then 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).aTotableD_OfferOut.Active.SetItemValue("", False)
Frame.GetController(Of OffersOutVC).aBackToRowEdit_OfferOut.Active.SetItemValue("", False) Frame.GetController(Of OffersOutVC).aBackToRowEdit_OfferOut.Active.SetItemValue("", False)
Frame.GetController(Of OffersOutVC).aOffersOutFinalWidthVersion.Active.SetItemValue("", True) 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 End If
If View.Id = "OrderInHeaderFromOfferOutRowsHeader_DetailView" Or View.Id = "OffersOutCloneForCRM_DetailView" Then If View.Id = "OrderInHeaderFromOfferOutRowsHeader_DetailView" Or View.Id = "OffersOutCloneForCRM_DetailView" Then
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If End If
If View.Id = "OfferInHeader_ListView_OfferOutHeaderInHeader" Then If View.Id = "OfferInHeader_ListView_OfferOutHeaderInHeader" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
@@ -22,21 +22,21 @@ Public Class OfferAskIn_VC
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "OfferAskInCreateOfferAskOutFromCustomersPopUp_CustomersQualification_ListView" Then If View.Id = "OfferAskInCreateOfferAskOutFromCustomersPopUp_CustomersQualification_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.LinkUnlinkController)().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.NewObjectViewController)()?.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "OfferAskInCreateOfferAskOutFromCustomersPopUp_CustomersQualification_ListView" Then If View.Id = "OfferAskInCreateOfferAskOutFromCustomersPopUp_CustomersQualification_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Private Sub aOfferAskInRowsAddOperations_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferAskInRowsAddOperations.CustomizePopupWindowParams Private Sub aOfferAskInRowsAddOperations_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferAskInRowsAddOperations.CustomizePopupWindowParams
@@ -28,10 +28,10 @@ Public Class OrderInHeader_PermissionVC
If View.Id = "OrderInHeader_ListView_Permission" Then If View.Id = "OrderInHeader_ListView_Permission" Then
Frame.GetController(Of RefreshController).RefreshAction.Active.SetItemValue("", False) Frame.GetController(Of RefreshController).RefreshAction.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Dim _CollectionSource As CollectionSource = TryCast(View, ListView).CollectionSource Dim _CollectionSource As CollectionSource = TryCast(View, ListView).CollectionSource
_CollectionSource.BeginUpdateCriteria() _CollectionSource.BeginUpdateCriteria()
@@ -43,10 +43,10 @@ Public Class OrderInHeader_PermissionVC
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "OrderInHeader_ListView_Permission" Then If View.Id = "OrderInHeader_ListView_Permission" Then
Frame.GetController(Of RefreshController).RefreshAction.Active.SetItemValue("", True) Frame.GetController(Of RefreshController).RefreshAction.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Private Sub aOrderInHeader_Permission_Refresh_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aOrderInHeader_Permission_Refresh.Execute Private Sub aOrderInHeader_Permission_Refresh_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aOrderInHeader_Permission_Refresh.Execute
@@ -24,31 +24,31 @@ Public Class OrderInAcknowledgementVC
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "OrderInHeader_OrderInAcknowledgementHeader_ListView" Then If View.Id = "OrderInHeader_OrderInAcknowledgementHeader_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.LinkUnlinkController)()?.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 End If
If View.Id = "OrderInAcknowledgementHeader_OrderInAcknowledgementRows_ListView" Then If View.Id = "OrderInAcknowledgementHeader_OrderInAcknowledgementRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "OrderInHeader_OrderInAcknowledgementHeader_ListView" Then If View.Id = "OrderInHeader_OrderInAcknowledgementHeader_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.LinkUnlinkController)()?.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 End If
If View.Id = "OrderInAcknowledgementHeader_OrderInAcknowledgementRows_ListView" Then If View.Id = "OrderInAcknowledgementHeader_OrderInAcknowledgementRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Private Sub aCreateAcknowledgementFromOrderIn_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateAcknowledgementFromOrderIn.CustomizePopupWindowParams 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 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 '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 _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _ContractsFromAcknowledgement_PopUp As ContractsFromAcknowledgement_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsFromAcknowledgement_PopUp) 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 _ContractRows.RowGroup2 = _OrderInAcknowledgementRows.RowGroup2
Next Next
_ocur.CommitChanges() _ocur.CommitChanges()
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)()?.Active.SetItemValue("", True)
End Sub End Sub
Private Sub aAcknowledgementRows_Up_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAcknowledgementRows_Up.Execute Private Sub aAcknowledgementRows_Up_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAcknowledgementRows_Up.Execute
@@ -21,11 +21,11 @@ Public Class OrderInRowsOtherVC
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "OrderInHeader_OrderInRowsOther_ListView" Then If View.Id = "OrderInHeader_OrderInRowsOther_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.LinkUnlinkController)().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.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
@@ -33,11 +33,11 @@ Public Class OrderInRowsOtherVC
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "OrderInHeader_OrderInRowsOther_ListView" Then If View.Id = "OrderInHeader_OrderInRowsOther_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Private Sub aToTable_OrderInOther_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_OrderInOther.Execute Private Sub aToTable_OrderInOther_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_OrderInOther.Execute
@@ -57,9 +57,9 @@ Public Class OrderInVC
'--------- LISTVIEWS ------------------------------------------------------------------------------------------------------------------------------- '--------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
If View.Id = "OrderInHeader_OrderInRows_ListView" Then '--- Bejövõ megrendelések sorai If View.Id = "OrderInHeader_OrderInRows_ListView" Then '--- Bejövõ megrendelések sorai
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of OrderInVC)().aUp_OrderIn.Active.SetItemValue("", True) Frame.GetController(Of OrderInVC)().aUp_OrderIn.Active.SetItemValue("", True)
Frame.GetController(Of OrderInVC)().aDown_OrderIn.Active.SetItemValue("", True) Frame.GetController(Of OrderInVC)().aDown_OrderIn.Active.SetItemValue("", True)
@@ -81,8 +81,8 @@ Public Class OrderInVC
End If End If
If View.Id = "OrderInHeader_ListView" Then If View.Id = "OrderInHeader_ListView" Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", True) Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", True)
Frame.GetController(Of OrderInVC)().aBackToEdit_OrderInHeader.Active.SetItemValue("", True) Frame.GetController(Of OrderInVC)().aBackToEdit_OrderInHeader.Active.SetItemValue("", True)
End If End If
@@ -91,21 +91,21 @@ Public Class OrderInVC
End If End If
If View.Id = "OrderInRows_StorageComputed_Collection_ListView" Then If View.Id = "OrderInRows_StorageComputed_Collection_ListView" Then
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "OrderInHeader_OrderInHeaderVAT_ListView" Then If View.Id = "OrderInHeader_OrderInHeaderVAT_ListView" Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "OrderInHeader_OrderInTo_ListView" Then If View.Id = "OrderInHeader_OrderInTo_ListView" Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "OrderInHeader_OrderInRows_ListView" Then If View.Id = "OrderInHeader_OrderInRows_ListView" Then
Frame.GetController(Of OrderInVC).aOrderIn_ChangeRows.Active.SetItemValue("", True) Frame.GetController(Of OrderInVC).aOrderIn_ChangeRows.Active.SetItemValue("", True)
@@ -120,10 +120,10 @@ Public Class OrderInVC
AddHandler View.SelectionChanged, AddressOf OrderInHeader_OrderInRowsOther_ListView_SelectionChanged AddHandler View.SelectionChanged, AddressOf OrderInHeader_OrderInRowsOther_ListView_SelectionChanged
End If End If
If View.Id = "OrderInRows_StorageOutRowsInRows_Collection_ListView" Then If View.Id = "OrderInRows_StorageOutRowsInRows_Collection_ListView" Then
'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) 'Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
'--------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------- '--------- DETAILVIEWS -------------------------------------------------------------------------------------------------------------------------------
If View.Id = "OrderInHeader_DetailView" Then '---Véglegesíteni és Sztornózni csak a megfelelõ elemeket lehessen 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)().aGenerateStorageOutFromOrderIn.Active.SetItemValue("", True)
Frame.GetController(Of OrderInVC).aGenerateStorageOutFromOrderInFIFO.Active.SetItemValue("", True) Frame.GetController(Of OrderInVC).aGenerateStorageOutFromOrderInFIFO.Active.SetItemValue("", True)
Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False) 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) Frame.GetController(Of OrderInVC).aProductFinder.Active.SetItemValue("", True)
If View.SelectedObjects.Count <> 0 Then If View.SelectedObjects.Count <> 0 Then
Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader)
@@ -143,7 +143,7 @@ Public Class OrderInVC
Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False) Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False)
End If End If
If _OrderInHeader.IsEditable = False Then 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 OrderInVC)().aFinalizeOrderIn.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController)().SaveAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)().SaveAction.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", False)
@@ -181,34 +181,34 @@ Public Class OrderInVC
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "OrderInHeader_OrderInRows_ListView" Then '--- Bejövõ megrendelések sorai If View.Id = "OrderInHeader_OrderInRows_ListView" Then '--- Bejövõ megrendelések sorai
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
Dim nv As ListView = CType(View, ListView) Dim nv As ListView = CType(View, ListView)
Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource) Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource)
RemoveHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged RemoveHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged
End If End If
If View.Id = "OrderInRows_StorageComputed_Collection_ListView" Then If View.Id = "OrderInRows_StorageComputed_Collection_ListView" Then
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "ORI_Invoice_Popup_DetailView" Then If View.Id = "ORI_Invoice_Popup_DetailView" Then
RemoveHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing RemoveHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
End If End If
If View.Id = "OrderInHeader_OrderInHeaderVAT_ListView" Then If View.Id = "OrderInHeader_OrderInHeaderVAT_ListView" Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "OrderInHeader_OrderInTo_ListView" Then If View.Id = "OrderInHeader_OrderInTo_ListView" Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "OrderInHeader_ListView" Then If View.Id = "OrderInHeader_ListView" Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False) Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False)
Frame.GetController(Of OrderInVC)().aBackToEdit_OrderInHeader.Active.SetItemValue("", False) Frame.GetController(Of OrderInVC)().aBackToEdit_OrderInHeader.Active.SetItemValue("", False)
End If End If
@@ -221,7 +221,7 @@ Public Class OrderInVC
Frame.GetController(Of OrderInVC)().aToTable_OrderIn.Active.SetItemValue("", False) Frame.GetController(Of OrderInVC)().aToTable_OrderIn.Active.SetItemValue("", False)
Frame.GetController(Of OrderInVC)().aToTableD_OrderIn.Active.SetItemValue("", False) Frame.GetController(Of OrderInVC)().aToTableD_OrderIn.Active.SetItemValue("", False)
Frame.GetController(Of OrderInVC).aGenerateStorageOutFromOrderInFIFO.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 If View.SelectedObjects.Count <> 0 Then
Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader)
@@ -230,9 +230,9 @@ Public Class OrderInVC
Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False) Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False)
End If End If
If _OrderInHeader.IsEditable = False Then If _OrderInHeader.IsEditable = False Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
If _OrderInHeader.IsEditable = False Then 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 OrderInVC)().aFinalizeOrderIn.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController)().SaveAction.Active.SetItemValue("", True) Frame.GetController(Of ModificationsController)().SaveAction.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", True) Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", True)
@@ -24,30 +24,30 @@ Public Class OrderInToDisposeVC
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "OrderInToDispose_DetailView" Then If View.Id = "OrderInToDispose_DetailView" Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "OrderInToDispose_OrderInTo_ListView" Then If View.Id = "OrderInToDispose_OrderInTo_ListView" Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.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 End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "OrderInToDispose_DetailView" Then If View.Id = "OrderInToDispose_DetailView" Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "OrderInToDispose_OrderInTo_ListView" Then If View.Id = "OrderInToDispose_OrderInTo_ListView" Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
@@ -78,7 +78,7 @@ Public Class OrderInToDisposeVC
Dim _OrderOutRows As OrderOutRows = Nothing Dim _OrderOutRows As OrderOutRows = Nothing
Dim _OrderInTo As OrderInTo 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 If _OrderOutHeader IsNot Nothing Then
For Each _OrderInTo In _OrderInTo_ListEditor.ListView.SelectedObjects For Each _OrderInTo In _OrderInTo_ListEditor.ListView.SelectedObjects
If _OrderInTo.OrderOutRows Is Nothing Then If _OrderInTo.OrderOutRows Is Nothing Then
@@ -105,7 +105,7 @@ Public Class OrderInToDisposeVC
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly) MsgBox(ex.Message, MsgBoxStyle.OkOnly)
Finally Finally
Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
End Try End Try
End Sub End Sub
@@ -40,42 +40,42 @@ Public Class OrderOutVC
Frame.GetController(Of OrderOutVC)().aBackToRowEdit_OrderOut.Active.SetItemValue("", False) Frame.GetController(Of OrderOutVC)().aBackToRowEdit_OrderOut.Active.SetItemValue("", False)
'--------- LISTVIEWS ------------------------------------------------------------------------------------------------------------------------------- '--------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
If View.Id = "OrderOutHeader_OrderOutRows_ListView" Then '--- Kimenõ megrendelések sorai 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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.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)().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 Frame.GetController(Of OrderOutVC)().aDown_OrderOut.Active.SetItemValue("", True) ' -- Kimenõ megrendelés sorainak a row indexét növeljük
End If End If
If View.Id = "OrderOutHeader_ListView_Editable" Then 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 End If
If View.Id = "OrderOutHeader_ListView" Then If View.Id = "OrderOutHeader_ListView" Then
Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOut.Active.SetItemValue("", True) 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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
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 View.Id = "OrderOutRows_ListView_Table" Then If View.Id = "OrderOutRows_ListView_Table" Then
Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOut.Active.SetItemValue("", True) Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOut.Active.SetItemValue("", True)
End If End If
If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" Then If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" 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.LinkUnlinkController)().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.NewObjectViewController)()?.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 End If
If View.Id = "OrderOutHeader_OrderInTo_ListView" Then If View.Id = "OrderOutHeader_OrderInTo_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.LinkUnlinkController)().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.NewObjectViewController)()?.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
'--------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------- '--------- DETAILVIEWS -------------------------------------------------------------------------------------------------------------------------------
If View.Id = "OrderOutHeader_DetailView" Then If View.Id = "OrderOutHeader_DetailView" Then
Frame.GetController(Of OrderOutVC)().aToTable_OrderOut.Active.SetItemValue("", True) ' -- Sor hozzáadása 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 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) Dim _OrderOutHeader As OrderOutHeader = TryCast(View.SelectedObjects(0), OrderOutHeader)
@@ -84,7 +84,7 @@ Public Class OrderOutVC
Frame.GetController(Of OrderOutVC)().aStornoOrderOut.Active.SetItemValue("", False) Frame.GetController(Of OrderOutVC)().aStornoOrderOut.Active.SetItemValue("", False)
End If End If
If _OrderOutHeader.IsEditable = False Then 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)().aFinalizeOrderOut.Active.SetItemValue("", False)
Frame.GetController(Of OrderOutVC)().aToTable_OrderOut.Active.SetItemValue("", False) Frame.GetController(Of OrderOutVC)().aToTable_OrderOut.Active.SetItemValue("", False)
Frame.GetController(Of OrderOutVC)().aToTableD_OrderOut.Active.SetItemValue("", False) Frame.GetController(Of OrderOutVC)().aToTableD_OrderOut.Active.SetItemValue("", False)
@@ -123,23 +123,23 @@ Public Class OrderOutVC
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.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 If View.Id = "OrderOutHeader_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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "OrderOutHeader_OrderOutRows_ListView" Then '--- Kimenõ megrendelések sorai 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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "OrderOutHeader_ListView" Then If View.Id = "OrderOutHeader_ListView" Then
Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOut.Active.SetItemValue("", False) 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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" Then If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" Then
' RemoveHandler View.SelectionChanged, AddressOf OrderOutHeader_OrderOutRows_ListView_Corrigendum_SelectionChanged ' RemoveHandler View.SelectionChanged, AddressOf OrderOutHeader_OrderOutRows_ListView_Corrigendum_SelectionChanged
@@ -152,20 +152,20 @@ Public Class OrderOutVC
Frame.GetController(Of OrderOutVC)().aFinalizeOrderOut.Active.SetItemValue("", False) Frame.GetController(Of OrderOutVC)().aFinalizeOrderOut.Active.SetItemValue("", False)
End If End If
If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" Then If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "OrderOutHeader_ListView_Editable" Then 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 End If
If View.Id = "OrderOutHeader_OrderInTo_ListView" Then If View.Id = "OrderOutHeader_OrderInTo_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
'--------- Kimenõ megrendelések akciói --------------------------------------------------------------------------------------------------------------------------------------- '--------- Kimenõ megrendelések akciói ---------------------------------------------------------------------------------------------------------------------------------------
@@ -648,7 +648,7 @@ Public Class OrderOutVC
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _OrderOutRows As OrderOutRows 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")) Dim _OrderOutRows_Collection_Total As New XPCollection(Of OrderOutRows)(_ocur.Session, CriteriaOperator.Parse("1=1"))
@@ -661,7 +661,7 @@ Public Class OrderOutVC
End If End If
Next Next
RaiseEvent FinalWork 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) RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
For Each _OrderOutRows In View.SelectedObjects For Each _OrderOutRows In View.SelectedObjects
@@ -29,23 +29,23 @@ Public Class RecipeExecutionSimpleVC
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "RecipeTo_ListView" Then If View.Id = "RecipeTo_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "RecipeFrom_ListView" Then If View.Id = "RecipeFrom_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "RecipeTo_ListView" Then If View.Id = "RecipeTo_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "RecipeFrom_ListView" Then If View.Id = "RecipeFrom_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
@@ -26,51 +26,51 @@ Public Class TakeOverProtocolVC
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "TakeoverProtocolHeader_ListView" Then If View.Id = "TakeoverProtocolHeader_ListView" Then
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "TakeoverProtocolHeader_TakeOverProtocolRows_ListView" Then If View.Id = "TakeoverProtocolHeader_TakeOverProtocolRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.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 DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "TakeoverProtocolRows_ListView_Finalized" Then If View.Id = "TakeoverProtocolRows_ListView_Finalized" Then
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
AddHandler Frame.GetController(Of ListViewProcessCurrentObjectController).ProcessCurrentObjectAction.Executing, AddressOf TakeoverProtocolRows_ListView_Finalized_ProcessCurrentObjectAction_Executing AddHandler Frame.GetController(Of ListViewProcessCurrentObjectController).ProcessCurrentObjectAction.Executing, AddressOf TakeoverProtocolRows_ListView_Finalized_ProcessCurrentObjectAction_Executing
End If End If
'--------------------DetailView----------------------- '--------------------DetailView-----------------------
If View.Id = "TakeoverProtocolHeader_DetailView" Then If View.Id = "TakeoverProtocolHeader_DetailView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "TakeoverProtocolHeader_ListView" Then If View.Id = "TakeoverProtocolHeader_ListView" Then
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "TakeoverProtocolHeader_TakeOverProtocolRows_ListView" Then If View.Id = "TakeoverProtocolHeader_TakeOverProtocolRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.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 DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "TakeoverProtocolRows_ListView_Finalized" Then If View.Id = "TakeoverProtocolRows_ListView_Finalized" Then
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
RemoveHandler Frame.GetController(Of ListViewProcessCurrentObjectController).ProcessCurrentObjectAction.Executing, AddressOf TakeoverProtocolRows_ListView_Finalized_ProcessCurrentObjectAction_Executing RemoveHandler Frame.GetController(Of ListViewProcessCurrentObjectController).ProcessCurrentObjectAction.Executing, AddressOf TakeoverProtocolRows_ListView_Finalized_ProcessCurrentObjectAction_Executing
End If End If
'--------------------DetailView----------------------- '--------------------DetailView-----------------------
If View.Id = "TakeoverProtocolHeader_DetailView" Then If View.Id = "TakeoverProtocolHeader_DetailView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Private Sub aToTable_TPR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_TPR.Execute Private Sub aToTable_TPR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_TPR.Execute
@@ -34,10 +34,10 @@ Public Class CRM_LeadsVC
Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", False) Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", False)
If View.Id = "CRM_Leads_ListView" Then 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 End If
If View.Id = "CRM_Leads_DetailView" Then 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) Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True)
End If End If
If View.Id = "CRM_Opportunities_DetailView" Then If View.Id = "CRM_Opportunities_DetailView" Then
@@ -52,81 +52,81 @@ Public Class CRM_LeadsVC
'-----------------------------------------------------------------------------------------<<< '-----------------------------------------------------------------------------------------<<<
End If End If
If View.Id = "CRM_Leads_Activity_Task_ListView" Then 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.NewObjectViewController)()?.Active.SetItemValue("", False)
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.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").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)().aCRMTaskCompleted.Active.SetItemValue("", True)
Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", True) Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", True)
End If End If
If View.Id = "CRM_Leads_CRM_Leads_Activity_ListView" Then 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 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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
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.LinkUnlinkController)().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.NewObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "CRM_Leads_CRM_Opportunity_ListView" Then 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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "CRM_Leads_Activity_CRM_Leads_Activity_Task_ListView" Then 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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").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)().aCRMTaskCompleted.Active.SetItemValue("", True)
End If End If
If View.Id = "CRM_Leads_CRMNote_ListView" Then 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 End If
If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "CRM_Leads_ListView" Then 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 End If
If View.Id = "CRM_Leads_DetailView" Then 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 End If
If View.Id = "CRM_Leads_CRM_Leads_Activity_ListView" Then 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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.Active.SetItemValue("", True)
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 = "CRM_Leads_CRM_Opportunity_ListView" Then 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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "CRM_Leads_Activity_CRM_Leads_Activity_Task_ListView" Then 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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", False) Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", False)
End If End If
If View.Id = "CRM_Leads_Activity_Task_ListView" Then 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.NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.ObjectMethodActionsViewController).Actions("Task.MarkCompleted")?.Active.SetItemValue("", True)
Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", False) Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", False)
Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", False) Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", False)
End If End If
If View.Id = "CRM_Leads_CRMNote_ListView" Then 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 End If
If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
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 Sub End Sub
#End Region #End Region
@@ -25,86 +25,86 @@ Public Class CRM_OpportunitiesVC
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", False) Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", False)
If View.Id = "CRM_Opportunities_ListView" Then If View.Id = "CRM_Opportunities_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.NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True) Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True)
End If End If
If View.Id = "CRM_Opportunities_DetailView" Then If View.Id = "CRM_Opportunities_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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True) Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True)
End If End If
If View.Id = "CRM_Opportunities_Contracts_ListView" Then If View.Id = "CRM_Opportunities_Contracts_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.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 DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "CRM_Opportunities_CRM_Opportunities_Contacts_Roles_ListView" Then 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.SystemModule.LinkUnlinkController)()?.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 End If
If View.Id = "CRM_Opportunities_DeliveryNoteOutHeader_ListView" Then If View.Id = "CRM_Opportunities_DeliveryNoteOutHeader_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.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "CRM_Opportunities_InvoiceHeader_ListView" Then If View.Id = "CRM_Opportunities_InvoiceHeader_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.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True)
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True) Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True)
End If End If
If View.Id = "CRM_Opportunities_PCIDetail_ListView" Then If View.Id = "CRM_Opportunities_PCIDetail_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.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then If View.Id = "CRM_Opportunities_OfferOutHeader_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.LinkUnlinkController)().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.NewObjectViewController)()?.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 End If
If View.Id = "CRM_Opportunities_OfferInHeader_ListView" Then If View.Id = "CRM_Opportunities_OfferInHeader_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.LinkUnlinkController)().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.NewObjectViewController)()?.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 OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", True) Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", True)
End If End If
If View.Id = "CRM_Opportunities_OrderInHeader_ListView" Then If View.Id = "CRM_Opportunities_OrderInHeader_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.LinkUnlinkController)().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.NewObjectViewController)()?.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 End If
If View.Id = "CRM_Opportunities_CRM_Leads_Activity_ListView" Then 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 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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "CRM_Opportunities_CRM_Leads_Activity_Task_ListView" Then 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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted")?.Active.SetItemValue("", False)
End If End If
If View.Id = "CRM_Opportunities_RegistryTask_ListView_NotSet" Then If View.Id = "CRM_Opportunities_RegistryTask_ListView_NotSet" Then
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_Set_Registry.Active.SetItemValue("", True) 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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Dim _ListView As ListView = TryCast(View, ListView) Dim _ListView As ListView = TryCast(View, ListView)
Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) 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 If View.Id = "CRM_Opportunities_RegistryTask_ListView_Set" Then
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", True) Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", True)
Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
'// Csak az aktuális CRM ügyhöz tartozó tételek kellenek '// Csak az aktuális CRM ügyhöz tartozó tételek kellenek
Dim _ListView As ListView = TryCast(View, ListView) Dim _ListView As ListView = TryCast(View, ListView)
@@ -128,118 +128,118 @@ Public Class CRM_OpportunitiesVC
_ListView.CollectionSource.EndUpdateCriteria() _ListView.CollectionSource.EndUpdateCriteria()
End If End If
If View.Id = "CRM_Opportunities_CRM_Opportunities_BusinessDirectory_ListView" Then 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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "CRM_Opportunities_CRM_Opportunities_Customers_ListView" Then 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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.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 End If
If View.Id = "CRM_Opportunities_CRM_Opportunities_CustomersContacts_ListView" Then 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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.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 End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.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 If View.Id = "CRM_Opportunities_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", False) Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", False)
End If End If
If View.Id = "CRM_Opportunities_DetailView" Then If View.Id = "CRM_Opportunities_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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "CRM_Opportunities_DeliveryNoteOutHeader_ListView" Then If View.Id = "CRM_Opportunities_DeliveryNoteOutHeader_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.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.Active.SetItemValue("", True)
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 = "CRM_Opportunities_CRM_Opportunities_Contacts_Roles_ListView" Then 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.SystemModule.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "CRM_Opportunities_InvoiceHeader_ListView" Then If View.Id = "CRM_Opportunities_InvoiceHeader_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.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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)().aPrintSelectedInvoices.Active.SetItemValue("", False) Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False)
Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", False) Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", False)
End If End If
If View.Id = "CRM_Opportunities_PCIDetail_ListView" Then If View.Id = "CRM_Opportunities_PCIDetail_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.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.Active.SetItemValue("", True)
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 = "CRM_Opportunities_OfferInHeader_ListView" Then If View.Id = "CRM_Opportunities_OfferInHeader_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", False) Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", False)
End If End If
If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.Active.SetItemValue("", True)
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 = "CRM_Opportunities_OrderInHeader_ListView" Then If View.Id = "CRM_Opportunities_OrderInHeader_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.LinkUnlinkController)()?.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "CRM_Opportunities_CRM_Leads_Activity_ListView" Then 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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "CRM_Opportunities_RegistryTask_ListView_NotSet" Then If View.Id = "CRM_Opportunities_RegistryTask_ListView_NotSet" Then
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_Set_Registry.Active.SetItemValue("", True) 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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.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 End If
If View.Id = "CRM_Opportunities_RegistryTask_ListView_Set" Then If View.Id = "CRM_Opportunities_RegistryTask_ListView_Set" Then
Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", False) Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", False)
Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.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 End If
If View.Id = "CRM_Opportunities_CRM_Opportunities_BusinessDirectory_ListView" Then 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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "CRM_Opportunities_CRM_Opportunities_CustomersOrder_ListView" Then 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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.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 End If
If View.Id = "CRM_Opportunities_CRM_Opportunities_CustomersOrderContacts_ListView" Then 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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.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 End If
End Sub End Sub
Private Sub aCRM_O_CreateOfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_CreateOfferOut.Execute Private Sub aCRM_O_CreateOfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_CreateOfferOut.Execute
@@ -19,7 +19,7 @@ Public Class InstallationVC
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "Installation_InstallationDocumentations_ListView_Support" Then 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 _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser))) 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() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "Installation_InstallationDocumentations_ListView_Support" Then 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) Frame.GetController(Of InstallationVC).aInstallation_ChangeGroups.Active.SetItemValue("", True)
End If End If
End Sub End Sub
@@ -32,36 +32,36 @@ Public Class ProductFinderVC
If View.Id = "ProductFinder_DetailView" Then If View.Id = "ProductFinder_DetailView" Then
Frame.GetController(Of ProductFinderVC).aToTableProductFinder.Active.SetItemValue("", True) Frame.GetController(Of ProductFinderVC).aToTableProductFinder.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ProductFinder_ProductSelect_ListView" Then If View.Id = "ProductFinder_ProductSelect_ListView" Then
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ProductFinder_ProductSelected_ListView" Then If View.Id = "ProductFinder_ProductSelected_ListView" Then
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ProductFinder_StorageOutCirculation_ListView" Then If View.Id = "ProductFinder_StorageOutCirculation_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ProductFinder_ProductFinderInfo_ListView" Then If View.Id = "ProductFinder_ProductFinderInfo_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
@@ -32,19 +32,19 @@ Public Class ProductsGant_VC
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "ProductsGant_ListView" Then If View.Id = "ProductsGant_ListView" Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "ProductsGant_ListView" Then If View.Id = "ProductsGant_ListView" Then
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
#End Region #End Region
@@ -39,15 +39,15 @@ Public Class ProductsVC
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Products_ListView_DeleteAction_Executing AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Products_ListView_DeleteAction_Executing
End If End If
If View.Id = "Products_LookupListView" Then If View.Id = "Products_LookupListView" Then
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of 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)
End If End If
If View.Id = "Products_Products_BusinessDirectory_ListView" Then If View.Id = "Products_Products_BusinessDirectory_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "Products_ListView_EverUsed" Then If View.Id = "Products_ListView_EverUsed" Then
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "Products_ListView_Deleted" Then If View.Id = "Products_ListView_Deleted" Then
If TryCast(View, ListView) IsNot Nothing Then If TryCast(View, ListView) IsNot Nothing Then
@@ -71,12 +71,12 @@ Public Class ProductsVC
RemoveHandler View.SelectionChanged, AddressOf SelectionChanged RemoveHandler View.SelectionChanged, AddressOf SelectionChanged
End If End If
If View.Id = "Products_LookupListView" Then If View.Id = "Products_LookupListView" Then
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of 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)
End If End If
If View.Id = "Products_Products_BusinessDirectory_ListView" Then If View.Id = "Products_Products_BusinessDirectory_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
#End Region #End Region
@@ -25,31 +25,31 @@ Public Class ServiceFinderVC
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "ServiceFinder_DetailView" Then If View.Id = "ServiceFinder_DetailView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ServiceFinder_ServiceSelect_ListView" Then If View.Id = "ServiceFinder_ServiceSelect_ListView" Then
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ServiceFinder_ServiceSelected_ListView" Then If View.Id = "ServiceFinder_ServiceSelected_ListView" Then
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "ServiceFinder_ServiceFinderInfo_ListView" Then If View.Id = "ServiceFinder_ServiceFinderInfo_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
@@ -23,15 +23,15 @@ Public Class Services_VC
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "Services_Services_BusinessDirectory_ListView" Then If View.Id = "Services_Services_BusinessDirectory_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "Services_Services_BusinessDirectory_ListView" Then If View.Id = "Services_Services_BusinessDirectory_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
#End Region #End Region
@@ -43,22 +43,22 @@ Public Class StorageTransactionsInVC
'Frame.GetController(Of StorageTransactionsInVC)().aStorageInHeader_InsertInventoryTransfer.Active.SetItemValue("", False) 'Frame.GetController(Of StorageTransactionsInVC)().aStorageInHeader_InsertInventoryTransfer.Active.SetItemValue("", False)
If View.Id = "StorageOutRows_ListView_Overstored" Then If View.Id = "StorageOutRows_ListView_Overstored" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id Like "Storage*Header_*View" Then '--Anyagmozgást ne lehessen törölni--- 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 End If
If View.Id Like "Products*" Then 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 End If
'------------------------------------------ LISTVIEWS -------------------------------------------------------------------------------------------------------- '------------------------------------------ LISTVIEWS --------------------------------------------------------------------------------------------------------
If View.Id = "StorageInHeader_ListView" Then If View.Id = "StorageInHeader_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.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 StorageTransactionsInVC)().aBackToEdit_StorageInHeader.Active.SetItemValue("", True) Frame.GetController(Of StorageTransactionsInVC)().aBackToEdit_StorageInHeader.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", True) Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", True)
@@ -70,39 +70,39 @@ Public Class StorageTransactionsInVC
If View.Id = "StorageInHeader_ListView_Editable" Then If View.Id = "StorageInHeader_ListView_Editable" Then
Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "StorageInHeader_StorageInRows_ListView" Then If View.Id = "StorageInHeader_StorageInRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.Active.SetItemValue("", False)
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.CloneObject.CloneObjectViewController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsInVC)().aUp_StorageIn.Active.SetItemValue("", True) Frame.GetController(Of StorageTransactionsInVC)().aUp_StorageIn.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsInVC)().aDown_StorageIn.Active.SetItemValue("", True) Frame.GetController(Of StorageTransactionsInVC)().aDown_StorageIn.Active.SetItemValue("", True)
End If End If
If View.Id = "StorageInRows_ListView_Order" Then If View.Id = "StorageInRows_ListView_Order" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "StorageInRows_ListView" Then If View.Id = "StorageInRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "StorageInRowsFromPDACollectionPopup_ListView" Then If View.Id = "StorageInRowsFromPDACollectionPopup_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "StorageInRowsFromPDACollectionPopup_StoragePDACollectionRows_ListView" Then If View.Id = "StorageInRowsFromPDACollectionPopup_StoragePDACollectionRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.LinkUnlinkController)()?.Active.SetItemValue("", False)
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.CloneObject.CloneObjectViewController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
'------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------ '------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------
'-- Ne lehessen stornózni, ha stornózott --------- '-- Ne lehessen stornózni, ha stornózott ---------
@@ -121,10 +121,10 @@ Public Class StorageTransactionsInVC
If _StorageInHeader.IsEditable = False Then If _StorageInHeader.IsEditable = False Then
Frame.GetController(Of StorageTransactionsInVC)().aFinalize_StorageIn.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsInVC)().aFinalize_StorageIn.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsInVC)().aFinalizeAndNew_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 StorageTransactionsInVC)().aStorageInStorno.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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False)
Else Else
Frame.GetController(Of StorageTransactionsInVC)().aFinalizeAndNew_StorageIn.Active.SetItemValue("", True) 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)().aToTableD_SIH.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsInVC)().aStorageInFromPdaCollection.Active.SetItemValue("", True) Frame.GetController(Of StorageTransactionsInVC)().aStorageInFromPdaCollection.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.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 DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
End If End If
End If End If
@@ -147,43 +147,43 @@ Public Class StorageTransactionsInVC
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
'------------------------------------------ LISTVIEWS -------------------------------------------------------------------------------------------------------- '------------------------------------------ LISTVIEWS --------------------------------------------------------------------------------------------------------
If View.Id = "StorageInHeader_ListView" Then If View.Id = "StorageInHeader_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
RemoveHandler View.SelectionChanged, AddressOf StorageInHeader_ListView_View_SelectionChanged RemoveHandler View.SelectionChanged, AddressOf StorageInHeader_ListView_View_SelectionChanged
End If End If
If View.Id = "StorageInHeader_StorageInRows_ListView" Then If View.Id = "StorageInHeader_StorageInRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "StorageInHeader_ListView_Editable" Then If View.Id = "StorageInHeader_ListView_Editable" Then
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "StorageInRows_ListView" Then If View.Id = "StorageInRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "StorageInRowsFromPDACollectionPopup_ListView" Then If View.Id = "StorageInRowsFromPDACollectionPopup_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.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 DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "StorageInRowsFromPDACollectionPopup_StoragePDACollectionRows_ListView" Then If View.Id = "StorageInRowsFromPDACollectionPopup_StoragePDACollectionRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
End If End If
'------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------ '------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------
If View.Id = "StorageInRows_Split_PopUp_DetailView" Then If View.Id = "StorageInRows_Split_PopUp_DetailView" Then
@@ -37,108 +37,108 @@ Public Class InventoryVC
Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", False) Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", False)
If View.Id = "InventoryHeader_ListView" Then If View.Id = "InventoryHeader_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
' Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Teszt miatt ideiglenesen enedélyezett ' Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False) Teszt miatt ideiglenesen enedélyezett
Frame.GetController(Of InventoryVC).aCreateInventoryHeader.Active.SetItemValue("", True) Frame.GetController(Of InventoryVC).aCreateInventoryHeader.Active.SetItemValue("", True)
Frame.GetController(Of InventoryVC).aCloseInventoryHeader.Active.SetItemValue("", True) Frame.GetController(Of InventoryVC).aCloseInventoryHeader.Active.SetItemValue("", True)
End If End If
If View.Id = "InventoryHeader_InventorySC_ListView" Then If View.Id = "InventoryHeader_InventorySC_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
Frame.GetController(Of InventoryVC).aCreatePDACollection.Active.SetItemValue("", True) Frame.GetController(Of InventoryVC).aCreatePDACollection.Active.SetItemValue("", True)
End If End If
If View.Id = "InventoryHeader_InventorySIR_ListView" Then If View.Id = "InventoryHeader_InventorySIR_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
End If End If
If View.Id = "InventoryHeader_InventoryPDA_ListView" Then If View.Id = "InventoryHeader_InventoryPDA_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
End If End If
If View.Id = "InventoryHeader_InventoryDifferent_ListView" Then If View.Id = "InventoryHeader_InventoryDifferent_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", True) Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", True)
End If End If
If View.Id = "Storage_LookupListView" Then If View.Id = "Storage_LookupListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "InventoryParameters_ListView" Then If View.Id = "InventoryParameters_ListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
'--------------DeatilViewZ------------- '--------------DeatilViewZ-------------
If View.Id = "InventoryParameters_DetailView" Then If View.Id = "InventoryParameters_DetailView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "InventoryHeader_ListView" Then If View.Id = "InventoryHeader_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of InventoryVC).aCreateInventoryHeader.Active.SetItemValue("", False) Frame.GetController(Of InventoryVC).aCreateInventoryHeader.Active.SetItemValue("", False)
Frame.GetController(Of InventoryVC).aCloseInventoryHeader.Active.SetItemValue("", False) Frame.GetController(Of InventoryVC).aCloseInventoryHeader.Active.SetItemValue("", False)
End If End If
If View.Id = "Storage_LookupListView" Then If View.Id = "Storage_LookupListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "InventoryHeader_InventorySC_ListView" Then If View.Id = "InventoryHeader_InventorySC_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
Frame.GetController(Of InventoryVC).aCreatePDACollection.Active.SetItemValue("", False) Frame.GetController(Of InventoryVC).aCreatePDACollection.Active.SetItemValue("", False)
End If End If
If View.Id = "InventoryHeader_InventorySIR_ListView" Then If View.Id = "InventoryHeader_InventorySIR_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
End If End If
If View.Id = "InventoryHeader_InventoryPDA_ListView" Then If View.Id = "InventoryHeader_InventoryPDA_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
End If End If
If View.Id = "InventoryHeader_InventoryDifferent_ListView" Then If View.Id = "InventoryHeader_InventoryDifferent_ListView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", False) Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", False)
End If End If
If View.Id = "InventoryParameters_ListView" Then If View.Id = "InventoryParameters_ListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
'--------------DeatilViewZ------------- '--------------DeatilViewZ-------------
If View.Id = "InventoryHeader_DetailView" Then If View.Id = "InventoryHeader_DetailView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "InventoryParameters_DetailView" Then If View.Id = "InventoryParameters_DetailView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Private Sub aCreateInventoryHeader_Cancel(sender As Object, e As System.EventArgs) Handles aCreateInventoryHeader.Cancel Private Sub aCreateInventoryHeader_Cancel(sender As Object, e As System.EventArgs) Handles aCreateInventoryHeader.Cancel
@@ -47,45 +47,45 @@ Public Class StorageTransactionsOutVC
End If End If
If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.ListViewProcessCurrentObjectController)()?.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 DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsOutVC)().aUp_StorageOut.Active.SetItemValue("", True) Frame.GetController(Of StorageTransactionsOutVC)().aUp_StorageOut.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsOutVC)().aDown_StorageOut.Active.SetItemValue("", True) Frame.GetController(Of StorageTransactionsOutVC)().aDown_StorageOut.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsOutVC).aCreatePDACollectionFromStorageOut.Active.SetItemValue("", True) Frame.GetController(Of StorageTransactionsOutVC).aCreatePDACollectionFromStorageOut.Active.SetItemValue("", True)
End If End If
If View.Id = "StorageOutHeader_ListView_Editable" Then If View.Id = "StorageOutHeader_ListView_Editable" Then
Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", False) 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 End If
If View.Id = "StorageOutHeader_ListView" Then If View.Id = "StorageOutHeader_ListView" Then
Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", True) Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.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 DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "StorageOutRows_ListView_Order" Then If View.Id = "StorageOutRows_ListView_Order" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
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.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsOutVC).aBackToStorageOutFromOrderIn.Active.SetItemValue("", True) Frame.GetController(Of StorageTransactionsOutVC).aBackToStorageOutFromOrderIn.Active.SetItemValue("", True)
End If End If
If View.Id = "StorageOutRows_ListView_DeliveryNote" Then If View.Id = "StorageOutRows_ListView_DeliveryNote" Then
Frame.GetController(Of StorageTransactionsOutVC)().aCreateDeliveryNote.Active.SetItemValue("", True) Frame.GetController(Of StorageTransactionsOutVC)().aCreateDeliveryNote.Active.SetItemValue("", True)
End If End If
If View.Id = "StorageOutRowsFromPDACollectionPopup_ListView" Then If View.Id = "StorageOutRowsFromPDACollectionPopup_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", False)
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.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
'------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------ '------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------
If View.Id = "StorageOutHeader_DetailView" Then If View.Id = "StorageOutHeader_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 DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)()?.Active.SetItemValue("", False)
Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader) Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader)
If _StorageOutHeader.IsEditable = False And _StorageOutHeader.IsStorno = False Then 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 _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader)
Dim _IsFromOrderIn As Boolean = False 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 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 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 If _StorageOutHeader.IsEditable = False Then
Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_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 Else
Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", True) Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", True) Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", True)
@@ -132,14 +132,14 @@ Public Class StorageTransactionsOutVC
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
'------------------------------------------ LISTVIEWS -------------------------------------------------------------------------------------------------------- '------------------------------------------ LISTVIEWS --------------------------------------------------------------------------------------------------------
If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.ListViewProcessCurrentObjectController)()?.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 DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "StorageOutHeader_ListView" Then If View.Id = "StorageOutHeader_ListView" Then
Frame.GetController(Of StorageTransactionsOutVC)().aBackToEdit_StorageOut.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsOutVC)().aBackToEdit_StorageOut.Active.SetItemValue("", False)
@@ -147,44 +147,44 @@ Public Class StorageTransactionsOutVC
End If End If
If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().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.ListViewProcessCurrentObjectController)()?.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 DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsOutVC)().aUp_StorageOut.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsOutVC)().aUp_StorageOut.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsOutVC)().aDown_StorageOut.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsOutVC)().aDown_StorageOut.Active.SetItemValue("", False)
End If End If
If View.Id = "StorageOutHeader_ListView_Editable" Then If View.Id = "StorageOutHeader_ListView_Editable" Then
Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", True) 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 End If
If View.Id = "StorageOutHeader_ListView" Then If View.Id = "StorageOutHeader_ListView" Then
Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", False)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.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 End If
If View.Id = "StorageOutRows_ListView_Order" Then If View.Id = "StorageOutRows_ListView_Order" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
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.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of StorageTransactionsOutVC).aBackToStorageOutFromOrderIn.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsOutVC).aBackToStorageOutFromOrderIn.Active.SetItemValue("", False)
End If End If
If View.Id = "StorageOutRows_ListView_DeliveryNote" Then If View.Id = "StorageOutRows_ListView_DeliveryNote" Then
Frame.GetController(Of StorageTransactionsOutVC)().aCreateDeliveryNote.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsOutVC)().aCreateDeliveryNote.Active.SetItemValue("", False)
End If End If
If View.Id = "StorageOutRowsFromPDACollectionPopup_ListView" Then If View.Id = "StorageOutRowsFromPDACollectionPopup_ListView" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().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.DeleteObjectsViewController)()?.Active.SetItemValue("", True)
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.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
'------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------ '------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------
If View.Id = "StorageOutHeader_DetailView" Then If View.Id = "StorageOutHeader_DetailView" Then
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().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)
Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader) Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader)
If _StorageOutHeader.IsEditable = False And _StorageOutHeader.IsStorno = False Then 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 _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader)
Dim _IsFromOrderIn As Boolean = False 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 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 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 If _StorageOutHeader.IsEditable = False Then
Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_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 Else
Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", False)
Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False) Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False)
@@ -35,20 +35,20 @@ Public Class StoragePDACollectionHeaderVC
If View.Id = "StoragePDACollectionHeader_ListView" Then If View.Id = "StoragePDACollectionHeader_ListView" Then
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "StoragePDACollectionHeader_StoragePDACollectionRows_ListView" Then If View.Id = "StoragePDACollectionHeader_StoragePDACollectionRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.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 DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC)().aGetAuditTrail.Active.SetItemValue("", False) Frame.GetController(Of AuditTrailVC)().aGetAuditTrail.Active.SetItemValue("", False)
End If End If
'--------------------------DetailViewZ---------------------------------------- '--------------------------DetailViewZ----------------------------------------
If View.Id = "StoragePDACollectionHeader_DetailView" Then If View.Id = "StoragePDACollectionHeader_DetailView" Then
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "StorageInFromPDACollectionPopup_DetailView" Then If View.Id = "StorageInFromPDACollectionPopup_DetailView" Then
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
@@ -57,20 +57,20 @@ Public Class StoragePDACollectionHeaderVC
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "StoragePDACollectionHeader_ListView" Then If View.Id = "StoragePDACollectionHeader_ListView" Then
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "StoragePDACollectionHeader_StoragePDACollectionRows_ListView" Then If View.Id = "StoragePDACollectionHeader_StoragePDACollectionRows_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.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 DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC)().aGetAuditTrail.Active.SetItemValue("", True) Frame.GetController(Of AuditTrailVC)().aGetAuditTrail.Active.SetItemValue("", True)
End If End If
'--------------------------DetailViewZ---------------------------------------- '--------------------------DetailViewZ----------------------------------------
If View.Id = "StoragePDACollectionHeader_DetailView" Then If View.Id = "StoragePDACollectionHeader_DetailView" Then
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of CloneObject.CloneObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "StorageInFromPDACollectionPopup_DetailView" Then If View.Id = "StorageInFromPDACollectionPopup_DetailView" Then
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
@@ -323,7 +323,7 @@ Public Class StoragePDACollectionHeaderVC
' _StreamReader.Close() ' _StreamReader.Close()
' _StreamFile.Close() ' _StreamFile.Close()
' File.Delete(_DeliveryNoteInType.PDAPath) ' 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)) ' Using parser As New TextFieldParser(New StringReader(_StrBuffer))
' parser.TextFieldType = FieldType.Delimited ' parser.TextFieldType = FieldType.Delimited
' parser.SetDelimiters(",") ' parser.SetDelimiters(",")
@@ -350,7 +350,7 @@ Public Class StoragePDACollectionHeaderVC
' End While ' End While
' End Using ' End Using
' _onew.CommitChanges() ' _onew.CommitChanges()
' Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) ' Frame.GetController(Of Validation.PersistenceValidationController)?.Active.SetItemValue("", True)
' End If ' End If
'Catch ex As Exception 'Catch ex As Exception
' MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly) ' MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
@@ -506,7 +506,7 @@ Public Class StoragePDACollectionHeaderVC
' _StreamReader.Close() ' _StreamReader.Close()
' _StreamFile.Close() ' _StreamFile.Close()
' File.Delete(_DeliveryNoteInType.PDAPath) ' 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)) ' Using parser As New TextFieldParser(New StringReader(_StrBuffer))
' parser.TextFieldType = FieldType.Delimited ' parser.TextFieldType = FieldType.Delimited
' parser.SetDelimiters(",") ' parser.SetDelimiters(",")
@@ -23,24 +23,24 @@ Public Class StorageComputedLocations_VC
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "MoveProductsOtherLocation_PopUp_StorageComputedLocations_ListView" Then If View.Id = "MoveProductsOtherLocation_PopUp_StorageComputedLocations_ListView" Then
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController)().Active.SetItemValue("", False) Frame.GetController(Of ModificationsController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ModificationsController)().Active.SetItemValue("", True) Frame.GetController(Of ModificationsController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)?.Active.SetItemValue("", True)
End Sub End Sub
Private Sub aMoveProductsOtherLocation_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aMoveProductsOtherLocation.CustomizePopupWindowParams Private Sub aMoveProductsOtherLocation_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aMoveProductsOtherLocation.CustomizePopupWindowParams
@@ -29,10 +29,10 @@ Public Class StorageComputedVC
MyBase.OnActivated() MyBase.OnActivated()
'------------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------------- '------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
If View.Id Like "StorageComputed_LookupListView" Then '-- StorageComputed csak programból állítható elő !!! 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.NewObjectViewController)()?.Active.SetItemValue("", False)
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.ModificationsController)().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.ListViewProcessCurrentObjectController)()?.Active.SetItemValue("", False)
End If End If
'------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------ '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
@@ -41,21 +41,21 @@ Public Class StorageComputedVC
MyBase.OnDeactivated() MyBase.OnDeactivated()
'----------------- LISTVIEWS ---------------------------------------------------------------------------------------------------------------------------- '----------------- LISTVIEWS ----------------------------------------------------------------------------------------------------------------------------
If View.Id Like "StorageComputed_LookupListView" Then '-- StorageComputed csak programból állítható elő !!! 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.NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.ModificationsController)()?.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 End If
'----------------- DETAILVIEWS -------------------------------------------------------------------------------------------------------------------------- '----------------- DETAILVIEWS --------------------------------------------------------------------------------------------------------------------------
'----------------- OTHERVIEWS --------------------------------------------------------------------------------------------------------------------------- '----------------- OTHERVIEWS ---------------------------------------------------------------------------------------------------------------------------
If View.Id Like "Storage*Header_*" Then If View.Id Like "Storage*Header_*" Then
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().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.ModificationsController)()?.Active.SetItemValue("", True)
End If End If
If View.Id Like "Products*" Then 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 If
End Sub End Sub
@@ -29,30 +29,30 @@ Public Class Subcontractor_VC
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
If View.Id = "Subcontractor_ListView" Then If View.Id = "Subcontractor_ListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "Subcontractor_SubcontractorCustomers_ListView" Then If View.Id = "Subcontractor_SubcontractorCustomers_ListView" Then
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
Frame.GetController(Of Subcontractor_VC).aSelectCustomersSubcontractor.Active.SetItemValue("", True) Frame.GetController(Of Subcontractor_VC).aSelectCustomersSubcontractor.Active.SetItemValue("", True)
End If End If
If View.Id = "Subcontractor_SubcontractorWorksheetType_ListView" Then If View.Id = "Subcontractor_SubcontractorWorksheetType_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False)
End If End If
If View.Id = "PCIGroup_ListView_Subcontractor" Then If View.Id = "PCIGroup_ListView_Subcontractor" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid = ?", SecuritySystem.CurrentUserId)) Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid = ?", SecuritySystem.CurrentUserId))
@@ -68,40 +68,40 @@ Public Class Subcontractor_VC
End If End If
'------------------DeatailViews---------------------- '------------------DeatailViews----------------------
If View.Id = "Subcontractor_DetailView" Then If View.Id = "Subcontractor_DetailView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "Subcontractor_ListView" Then If View.Id = "Subcontractor_ListView" Then
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "Subcontractor_SubcontractorCustomers_ListView" Then If View.Id = "Subcontractor_SubcontractorCustomers_ListView" Then
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
End If End If
If View.Id = "Subcontractor_SubcontractorWorksheetType_ListView" Then If View.Id = "Subcontractor_SubcontractorWorksheetType_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True)
End If End If
If View.Id = "PCIGroup_ListView_Subcontractor" Then If View.Id = "PCIGroup_ListView_Subcontractor" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) Frame.GetController(Of DeleteObjectsViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) Frame.GetController(Of ListViewProcessCurrentObjectController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
'------------------DeatailViews---------------------- '------------------DeatailViews----------------------
If View.Id = "Subcontractor_DetailView" Then If View.Id = "Subcontractor_DetailView" Then
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
Private Sub aSelectCustomersSubcontractor_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomersSubcontractor.CustomizePopupWindowParams Private Sub aSelectCustomersSubcontractor_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomersSubcontractor.CustomizePopupWindowParams
@@ -23,65 +23,65 @@ Public Class Technologies_VC
Protected Overrides Sub OnActivated() Protected Overrides Sub OnActivated()
MyBase.OnActivated() MyBase.OnActivated()
If View.Id = "Technologies_Products_ListView" Then If View.Id = "Technologies_Products_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().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 DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "Technologies_Services_ListView" Then If View.Id = "Technologies_Services_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().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 DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "Technologies_Customers_ListView" Then If View.Id = "Technologies_Customers_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().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 DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If End If
If View.Id = "Technologies_Contacts_ListView" Then If View.Id = "Technologies_Contacts_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", False)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", False)
End If End If
If View.Id = "Technologies_Technologies_BusinessDirectory_ListView" Then If View.Id = "Technologies_Technologies_BusinessDirectory_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", False)
Frame.GetController(Of CloneObjectViewController)().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 DeleteObjectsViewController)?.Active.SetItemValue("", False)
End If End If
End Sub End Sub
Protected Overrides Sub OnDeactivated() Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated() MyBase.OnDeactivated()
If View.Id = "Technologies_Products_ListView" Then If View.Id = "Technologies_Products_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)().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 DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "Technologies_Services_ListView" Then If View.Id = "Technologies_Services_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)().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 DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "Technologies_Customers_ListView" Then If View.Id = "Technologies_Customers_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)().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 DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If End If
If View.Id = "Technologies_Contacts_ListView" Then If View.Id = "Technologies_Contacts_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of CloneObjectViewController)()?.Active.SetItemValue("", True)
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) Frame.GetController(Of NewObjectViewController)()?.Active.SetItemValue("", True)
End If End If
If View.Id = "Technologies_Technologies_BusinessDirectory_ListView" Then If View.Id = "Technologies_Technologies_BusinessDirectory_ListView" Then
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) Frame.GetController(Of LinkUnlinkController)()?.Active.SetItemValue("", True)
Frame.GetController(Of CloneObjectViewController)().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 DeleteObjectsViewController)?.Active.SetItemValue("", True)
End If End If
End Sub End Sub
#End Region #End Region

Some files were not shown because too many files have changed in this diff Show More