24 Commits

Author SHA1 Message Date
Jonathan Jenne
9015c9113b Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/ProcessManager 2022-11-03 09:54:45 +01:00
Jonathan Jenne
ba7347faff Logging for translations 2022-11-03 09:54:24 +01:00
a8f34120ca ms nOTIFICATIONS UND LANGUAGE 2022-11-01 09:13:04 +01:00
0665672626 Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/ProcessManager 2022-10-28 12:59:21 +02:00
eb06ef5de4 MS DEV Language 2022-10-28 12:59:05 +02:00
Jonathan Jenne
b9f8703e78 Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/ProcessManager 2022-10-27 12:43:53 +02:00
Jonathan Jenne
69fe0906fe fix 2022-10-27 12:43:47 +02:00
5fab9868f3 MS 2022-10-27 08:35:25 +02:00
cd432b3922 MS Merge 2022-10-25 13:28:16 +02:00
cbbf0011f1 MS 2022-10-25 13:26:42 +02:00
Jonathan Jenne
7589404257 remove .vs crap 2022-10-24 13:42:53 +02:00
Jonathan Jenne
0c8393c3e2 ignore .vs directory 2022-10-24 13:42:39 +02:00
Jonathan Jenne
bfb68ec692 frm Validator translations 2022-10-24 10:09:39 +02:00
Jonathan Jenne
176a95f24f More translations for frmMain and frmValidator 2022-10-20 10:39:37 +02:00
e796fb2ee8 Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/ProcessManager 2022-10-18 09:58:47 +02:00
14acce81f8 MS Verwise 2022-10-18 09:58:33 +02:00
Jonathan Jenne
f255052a52 fix some resource files 2022-10-17 16:53:22 +02:00
Jonathan Jenne
a823361811 Merge branch 'translations' 2022-10-17 16:36:16 +02:00
c7efad48c8 MS languages und verweise 2022-10-17 16:06:11 +02:00
7c7787d32a Ms Language Anpassungen 2022-10-14 13:17:56 +02:00
1f66f12030 MS 2022-10-14 10:31:03 +02:00
f55a7bdfc3 MS Languages 2022-10-14 10:09:43 +02:00
Jonathan Jenne
1ac7aeae93 Version 2.3.8.6 2022-10-06 09:10:58 +02:00
Jonathan Jenne
3b258180a0 Adjust modules to new path DDModules 2022-10-06 09:07:57 +02:00
39 changed files with 20137 additions and 9598 deletions

7
.gitignore vendored
View File

@@ -154,8 +154,5 @@ $RECYCLE.BIN/
# Mac desktop service store files
.DS_Store
/app/.vs/DD_PM_WINDREAM/v15/Server/sqlite3
/app/.vs/DD_PM_WINDREAM/v16/Server/sqlite3/storage.ide-wal
/app/.vs/DD_PM_WINDREAM/v16/Server/sqlite3/storage.ide-shm
/app/.vs/DD_PM_WINDREAM/v16/Server/sqlite3/storage.ide
/app/.vs/DD_PM_WINDREAM/v16/Server/sqlite3/db.lock
.vs

View File

@@ -87,7 +87,9 @@
</DevExpress.LookAndFeel.Design.AppSettings>
</applicationSettings>
<connectionStrings>
<add name="DD_ProcessManager.My.MySettings.ConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient" />
<add name="DD_ProcessManager.My.MySettings.ConnectionString"
connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />

View File

@@ -21,7 +21,19 @@ Public Class ClassAllgemeineFunktionen
End If
Else
Return oFilteredDatatable
If oFilteredDatatable.Rows.Count = 0 Then 'KEIN EINTRAG FÜR SPRACHE
oExpression = $"LANGUAGE ='de-DE' AND TITLE = '{pTITLE}'"
BASEDATA_DT_GUI_LANGUAGE_PHRASES.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges)
Try
Return oFilteredDatatable.Rows(0).Item("STRING1")
Catch ex As Exception
Return $"ERR-LANG(NoTranslationFor [{oExpression}]"
End Try
Else
Return oFilteredDatatable
End If
End If
End Function
Public Shared Function GUI_LANGUAGE_MSGBOX(pTITLE As String)

View File

@@ -306,6 +306,7 @@ Public Class ClassControlCreator
Try
control.Text = row.Item("CTRL_CAPTION_LANG")
Catch ex As Exception
Logger.Warn("Label [{0}] does not have a translation!", control.Name)
control.Text = row.Item("CTRL_TEXT")
End Try

View File

@@ -92,7 +92,7 @@
oSingleAttribute = False
End Select
Dim oAttributeValue
LOGGER.Debug($"IDBData - GetVariableValue - oSingleAttribute [{oSingleAttribute.ToString}] - FromIDB [{FromIDB.ToString}]")
If oSingleAttribute = True And IDB_DT_DOC_DATA.Rows.Count = 1 And FromIDB = False Then
Try
If oAttributeName = "IDBCreatedWhen" Then
@@ -104,7 +104,7 @@
ElseIf oAttributeName = "IDBChangedWho" Then
oAttributeName = "CHANGED_WHO"
End If
LOGGER.Debug($"IDBData - GetVariableValue - IDB_DT_DOC_DATA.Rows.Count = 1")
oAttributeValue = IDB_DT_DOC_DATA.Rows(0).Item(oAttributeName)
Catch ex As Exception
LOGGER.Debug($"Error getting Attribute from IDB_DT_DOC_DATA: {ex.Message}")
@@ -112,11 +112,13 @@
End If
If Not IsNothing(oAttributeValue) Then
LOGGER.Debug($"IDBData - GetVariableValue - Returning value: [{oAttributeValue}]")
Return oAttributeValue
Else
LOGGER.Debug($"oAttributeValue for Attribute [{oAttributeName}] is so far nothing..Now trying FNIDB_PM_GET_VARIABLE_VALUE ")
End If
Dim oFNSQL = $"SELECT * FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({CURRENT_DOC_ID},'{oAttributeName}','{USER_LANGUAGE}',CONVERT(BIT,'{IDB_USES_WMFILESTORE}'))"
LOGGER.Debug($"GetVariableValue: {oFNSQL}")
oAttributeValue = DatabaseFallback.GetDatatableIDB(oFNSQL)
Dim odt As DataTable = oAttributeValue
If odt.Rows.Count = 1 Then

View File

@@ -337,6 +337,10 @@ Public Class ClassInit
User.UserId = USER_ID
User.Language = USER_LANGUAGE
LOGGER.Debug("User Info:")
LOGGER.Debug("Language: [{0}]", USER_LANGUAGE)
LOGGER.Debug("Username: [{0}]", USER_USERNAME)
Try
USER_RIGHT_FILE_DELETE = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL")), False, DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL"))
@@ -372,6 +376,8 @@ Public Class ClassInit
USER_RIGHT4 = False
End Try
LOGGER.Debug("User exists....")
'Am System anmelden
Refresh_Licence()
'Check_User_Exists_in_PMGroups()
@@ -448,10 +454,9 @@ Public Class ClassInit
BASEDATA_DT_TBDD_SQL_COMMANDS = DatabaseFallback.GetDatatable("TBDD_SQL_COMMANDS", New GetDatatableOptions(oSql, DatabaseType.ECM))
oStep = "TBDD_GUI_LANGUAGE_PHRASE"
oSql = "SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE WHERE MODULE IN ('PM','All Modules')"
oSql = $"SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE WHERE MODULE IN ('PM','All Modules')"
'BASEDATA_DT_GUI_LANGUAGE_PHRASES = DataASorDB.GetDatatable("DD_ECM", oSql, "TBDD_GUI_LANGUAGE_PHRASE", "")
BASEDATA_DT_GUI_LANGUAGE_PHRASES = DatabaseFallback.GetDatatable("TBDD_GUI_LANGUAGE_PHRASE", New GetDatatableOptions(oSql, DatabaseType.ECM))
oStep = "TBPM_PROFILE_SEARCH"
oSql = "select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX"
'BASEDATA_DT_PROFILES_SEARCHES_DOC = DataASorDB.GetDatatable("DD_ECM", oSql, "TBPM_PROFILE_SEARCH", "TYPE = 'DOC'", "PROFILE_ID,TAB_INDEX")
@@ -484,7 +489,6 @@ Public Class ClassInit
Try
Dim oStopWatch As New RefreshHelper.SW("InitBasics2")
Dim oSql = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID)
'BASEDATA_DT_VW_PROFILE_USER = DataASorDB.GetDatatable("DD_ECM", oSql, "VWPM_PROFILE_USER", $"USER_ID = {USER_ID}")
BASEDATA_DT_VW_PROFILE_USER = DatabaseFallback.GetDatatable("VWPM_PROFILE_USER", New GetDatatableOptions(oSql, DatabaseType.ECM) With {
.FilterExpression = $"USER_ID = {USER_ID}"
})

View File

@@ -14,6 +14,8 @@ Public Class ClassParamRefresh
Dim oSQL = oRow.Item("SQL_COMMAND")
USERCOUNT_LOGGED_IN = DatabaseFallback.GetScalarValueECM(oSQL)
oLicenseoverSQL = True
ElseIf oRow.Item("TITLE") = "PM_PROFILES_USER" Then
SQL_PROFILES_USER = oRow.Item("SQL_COMMAND")
End If
Next
End If

View File

@@ -160,33 +160,36 @@
<Reference Include="DigitalData.Controls.SnapPanel">
<HintPath>..\..\..\DDMonorepo\Controls.SnapPanel\bin\Debug\DigitalData.Controls.SnapPanel.dll</HintPath>
</Reference>
<Reference Include="DigitalData.GUIs.Common">
<Reference Include="DigitalData.GUIs.Common, Version=2.3.1.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Base, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.Base\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
<HintPath>..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
<HintPath>..\..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Database, Version=2.1.4.0, Culture=neutral, processorArchitecture=MSIL">
<Reference Include="DigitalData.Modules.Database, Version=2.2.7.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
<HintPath>..\..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.EDMI.API">
<HintPath>..\..\..\DDMonorepo\Modules.EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Language">
<HintPath>..\..\..\DDMonorepo\Modules.Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging, Version=2.4.0.0, Culture=neutral, processorArchitecture=MSIL">
<Reference Include="DigitalData.Modules.EDMI.API, Version=1.5.4.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
<HintPath>..\..\..\DDModules\EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.ZooFlow, Version=1.1.0.0, Culture=neutral, processorArchitecture=MSIL">
<Reference Include="DigitalData.Modules.Language, Version=1.6.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
<HintPath>..\..\..\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging, Version=2.5.4.2, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.ZooFlow, Version=1.2.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
</Reference>
<Reference Include="DLLLicenseManager">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
@@ -426,9 +429,6 @@
<Compile Include="frmLoginAdmin.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMain.Designer.vb">
<DependentUpon>frmMain.vb</DependentUpon>
</Compile>
<Compile Include="frmMassValidator.Designer.vb">
<DependentUpon>frmMassValidator.vb</DependentUpon>
</Compile>
@@ -483,6 +483,9 @@
<Compile Include="frmSQL_Admin.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMain.Designer.vb">
<DependentUpon>frmMain.vb</DependentUpon>
</Compile>
<Compile Include="frmMain.vb">
<SubType>Form</SubType>
</Compile>
@@ -530,6 +533,11 @@
<DesignTime>True</DesignTime>
<DependentUpon>frmMain_Strings.resx</DependentUpon>
</Compile>
<Compile Include="Translations\frmValidator_Strings.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>frmValidator_Strings.resx</DependentUpon>
</Compile>
<Compile Include="XtraReport1.Designer.vb">
<DependentUpon>XtraReport1.vb</DependentUpon>
</Compile>
@@ -545,6 +553,12 @@
<DependentUpon>frmAdmin2.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmAdministration.en.resx">
<DependentUpon>frmAdministration.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAdministration.fr.resx">
<DependentUpon>frmAdministration.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAdminPasswort.resx">
<DependentUpon>frmAdminPasswort.vb</DependentUpon>
</EmbeddedResource>
@@ -591,7 +605,6 @@
</EmbeddedResource>
<EmbeddedResource Include="frmGhostMode.resx">
<DependentUpon>frmGhostMode.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmInvDashboard.resx">
<DependentUpon>frmInvDashboard.vb</DependentUpon>
@@ -602,6 +615,9 @@
<EmbeddedResource Include="frmLoginAdmin.resx">
<DependentUpon>frmLoginAdmin.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.en.resx">
<DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.fr.resx">
<DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource>
@@ -615,6 +631,12 @@
<EmbeddedResource Include="frmKonfig.resx">
<DependentUpon>frmKonfig.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmKonfig.en.resx">
<DependentUpon>frmKonfig.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmKonfig.fr.resx">
<DependentUpon>frmKonfig.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMetadataFile.resx">
<DependentUpon>frmMetadataFile.vb</DependentUpon>
</EmbeddedResource>
@@ -633,6 +655,12 @@
<EmbeddedResource Include="frmSQL_Admin.resx">
<DependentUpon>frmSQL_Admin.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSQL_Admin.en.resx">
<DependentUpon>frmSQL_Admin.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSQL_Admin.fr.resx">
<DependentUpon>frmSQL_Admin.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.resx">
<DependentUpon>frmMain.vb</DependentUpon>
<SubType>Designer</SubType>
@@ -640,10 +668,22 @@
<EmbeddedResource Include="frmUserKonfig_AddUsers.resx">
<DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmValidator.en.resx">
<DependentUpon>frmValidator.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmValidator.fr.resx">
<DependentUpon>frmValidator.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmValidator.resx">
<DependentUpon>frmValidator.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmValidatorSearch.en.resx">
<DependentUpon>frmValidatorSearch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmValidatorSearch.fr.resx">
<DependentUpon>frmValidatorSearch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmValidatorSearch.resx">
<DependentUpon>frmValidatorSearch.vb</DependentUpon>
<SubType>Designer</SubType>
@@ -662,99 +702,16 @@
<Generator>ResXFileCodeGenerator</Generator>
<LastGenOutput>frmMain_Strings.Designer.vb</LastGenOutput>
</EmbeddedResource>
<EmbeddedResource Include="Translations\frmValidator_Strings.en.resx" />
<EmbeddedResource Include="Translations\frmValidator_Strings.fr.resx" />
<EmbeddedResource Include="Translations\frmValidator_Strings.resx">
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<Generator>ResXFileCodeGenerator</Generator>
<LastGenOutput>frmValidator_Strings.Designer.vb</LastGenOutput>
</EmbeddedResource>
<EmbeddedResource Include="XtraReport1.resx">
<DependentUpon>XtraReport1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAdmin2.en.resx">
<DependentUpon>frmAdmin2.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAdmin2.fr.resx">
<DependentUpon>frmAdmin2.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAdministration.en.resx">
<DependentUpon>frmAdministration.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAdministration.fr.resx">
<DependentUpon>frmAdministration.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAnnotations.en.resx">
<DependentUpon>frmAnnotations.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAnnotations.fr.resx">
<DependentUpon>frmAnnotations.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmClientLogin.fr.resx">
<DependentUpon>frmClientLogin.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmColumn_Detail.en.resx">
<DependentUpon>frmColumn_Detail.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmColumn_Detail.fr.resx">
<DependentUpon>frmColumn_Detail.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmFormDesigner.en.resx">
<DependentUpon>frmFormDesigner.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmFormDesigner.fr.resx">
<DependentUpon>frmFormDesigner.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmGhostMode.en.resx">
<DependentUpon>frmGhostMode.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmGhostMode.fr.resx">
<DependentUpon>frmGhostMode.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmKonfig.en.resx">
<DependentUpon>frmKonfig.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmKonfig.fr.resx">
<DependentUpon>frmKonfig.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmLicense.en.resx">
<DependentUpon>frmLicense.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmLicense.fr.resx">
<DependentUpon>frmLicense.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmLoginAdmin.en.resx">
<DependentUpon>frmLoginAdmin.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmLoginAdmin.fr.resx">
<DependentUpon>frmLoginAdmin.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.en.resx">
<DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSQL_Admin.en.resx">
<DependentUpon>frmSQL_Admin.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSQL_Admin.fr.resx">
<DependentUpon>frmSQL_Admin.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmUserKonfig_AddUsers.en.resx">
<DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmUserKonfig_AddUsers.fr.resx">
<DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmValidator.en.resx">
<DependentUpon>frmValidator.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmValidator.fr.resx">
<DependentUpon>frmValidator.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmValidatorSearch.en.resx">
<DependentUpon>frmValidatorSearch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmValidatorSearch.fr.resx">
<DependentUpon>frmValidatorSearch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmDesignerLayout\Editors\frmStaticListEditor.en.resx">
<DependentUpon>frmStaticListEditor.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmDesignerLayout\Editors\frmStaticListEditor.fr.resx">
<DependentUpon>frmStaticListEditor.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="App.config" />
@@ -998,8 +955,6 @@
<None Include="Resources\chartdesigner2.svg" />
<None Include="Resources\cancel.svg" />
<None Include="Resources\publicfix_32x32.png" />
<None Include="Resources\actions_user.svg" />
<None Include="Resources\security_key.svg" />
<Content Include="task.ico" />
<None Include="Resources\searchFlow_icon.png" />
<None Include="Resources\taskFlow_icon.png" />

View File

@@ -120,6 +120,7 @@ Module ModuleRuntimeVariables
Public Property CURRENT_DT_FINAL_INDEXING As DataTable
Public Property CURRENT_DT_PROFILES As DataTable
Public Property CURRENT_DT_PROFILE_LANGUAGE As DataTable
Public Property CURRENT_DT_PROFILE As DataTable
Public Property CURRENT_CONTROL_NAME_LIST As New List(Of String)
@@ -157,4 +158,6 @@ Module ModuleRuntimeVariables
Public Property Timer5Mins_running As Boolean = False
Public Property TimerRefresh_running As Boolean = False
Public Property SQL_PROFILES_USER As String = ""
End Module

View File

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("TaskFlow")>
<Assembly: AssemblyCopyright("Copyright © Digital Data 2022")>
<Assembly: AssemblyTrademark("2.3.8.5")>
<Assembly: AssemblyTrademark("2.3.8.6")>
<Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.3.8.5")>
<Assembly: AssemblyVersion("2.3.8.6")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

View File

@@ -92,11 +92,11 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Aktuell keine Workflowdaten vorhanden! ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die Aktuell keine Workflowdaten vorhanden! {0} ähnelt.
'''</summary>
Friend Shared ReadOnly Property Aktuell_keine_Workflowdaten_vorhanden_() As String
Friend Shared ReadOnly Property Aktuell_keine_Workflowdaten_vorhanden___0_() As String
Get
Return ResourceManager.GetString("Aktuell keine Workflowdaten vorhanden!", resourceCulture)
Return ResourceManager.GetString("Aktuell keine Workflowdaten vorhanden! {0}", resourceCulture)
End Get
End Property
@@ -109,6 +109,15 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Anzahl angemeldete Benutzer: {0} ähnelt.
'''</summary>
Friend Shared ReadOnly Property Anzahl_angemeldete_Benutzer___0_() As String
Get
Return ResourceManager.GetString("Anzahl angemeldete Benutzer: {0}", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Anzahl Lizenzen: {0} ähnelt.
'''</summary>
@@ -263,15 +272,6 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Lizenz-Zähler: {0} ähnelt.
'''</summary>
Friend Shared ReadOnly Property Lizenz_Zähler___0_() As String
Get
Return ResourceManager.GetString("Lizenz-Zähler: {0}", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Massenabschluss ähnelt.
'''</summary>

View File

@@ -117,19 +117,100 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Achtung:" xml:space="preserve">
<value>Attention:</value>
</data>
<data name="Anzahl angemeldete Benutzer: {0}" xml:space="preserve">
<value>Logged in users: {0}</value>
</data>
<data name="Anzahl Lizenzen: {0}" xml:space="preserve">
<value>Number of licenses: {0}</value>
</data>
<data name="Bitte schließen Sie den offenen Workflow!" xml:space="preserve">
<value>Please close the currently open workflow!</value>
</data>
<data name="Achtung:">
<value>Attention:</value>
</data>
<data name="Größer">
<data name="Größer" xml:space="preserve">
<value>Bigger</value>
</data>
<data name="Kleiner">
<data name="Kleiner" xml:space="preserve">
<value>Smaller</value>
</data>
<data name="Normal">
<data name="Normal" xml:space="preserve">
<value>Normal</value>
</data>
<data name="Aktuell keine Workflowdaten vorhanden! {0}">
<value>Currently no workflow data available! {0}</value>
</data>
<data name="Aktuelle Lizenz ist abgelaufen oder ungültig!">
<value>Current license has expired or is invalid!</value>
</data>
<data name="Bitte konfigurieren Sie eine Datenbankverbindung!">
<value>Please configure a database connection!</value>
</data>
<data name="Bitte kontaktieren Sie Ihren Administrator!">
<value>Please contact your administrator!</value>
</data>
<data name="Bitte wählen Sie ein Profil aus!">
<value>Please select a profile!</value>
</data>
<data name="Der gewählte Beleg ist durch einen anderen Benutzer bereits in Bearbeitung oder anderweitig gesperrt!">
<value>The selected document is already being processed by another user or is otherwise blocked!</value>
</data>
<data name="Detailansicht Profil: {0}">
<value>Detail view profile: {0}</value>
</data>
<data name="Es existiert bereits ein aktiver Workflow!">
<value>There is already an active workflow!</value>
</data>
<data name="Es ist keine Windream Session vorhanden. Bitte überprüfen Sie das Log.">
<value>There is no Windream session available. Please check the log.</value>
</data>
<data name="Fehlende Datenbank Konfiguration">
<value>Missing database configuration</value>
</data>
<data name="Filter aktiv">
<value>Filter active</value>
</data>
<data name="Gesamtübersicht">
<value>Overview</value>
</data>
<data name="Ghost Modus ({0}) deaktivieren">
<value>Deactivate ({0}) Ghost Mode</value>
</data>
<data name="HINWEIS: Debug Modus ist eingeschaltet!">
<value>NOTE: Debug mode is switched on!</value>
</data>
<data name="Letzte Synchronisation: {0}">
<value>Last synchronization: {0}</value>
</data>
<data name="Massenabschluss">
<value>Mass completion</value>
</data>
<data name="Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte!">
<value>Mass completion could not be executed because windream could not be initialised!</value>
</data>
<data name="Nächste Aktivitätsüberprüfung: {0} {1}">
<value>Next activity check: {0} {1}</value>
</data>
<data name="Popup Erinnerung aktivieren ({0} min)">
<value>Activate pop-up reminder ({0} min)</value>
</data>
<data name="Popup Erinnerung deaktivieren">
<value>Deactivate pop-up reminder</value>
</data>
<data name="Profil (Fixiert)">
<value>Profile (Fixed)</value>
</data>
<data name="Sie wurden aufgrund von Inaktivität automatisch abgemeldet!">
<value>You have been automatically logged out due to inactivity!</value>
</data>
<data name="System konnte die Profilworkflows nicht auswerten!">
<value>System could not evaluate the profile workflows!{0}Please select a profile by clicking on a document or a heading!</value>
</data>
<data name="[{0}] Workflows">
<value>{0} Workflows</value>
</data>
<data name="{0} Vorgänge">
<value>{0} Processes</value>
</data>
</root>

View File

@@ -117,19 +117,100 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Achtung:" xml:space="preserve">
<value>Attention:</value>
</data>
<data name="Anzahl angemeldete Benutzer: {0}" xml:space="preserve">
<value>Nombre d'utilisateurs connectés: {0}</value>
</data>
<data name="Anzahl Lizenzen: {0}" xml:space="preserve">
<value>Nombre de licences: {0}</value>
</data>
<data name="Bitte schließen Sie den offenen Workflow!" xml:space="preserve">
<value>Veuillez fermer le workflow ouvert !</value>
</data>
<data name="Achtung:">
<value>Attention:</value>
</data>
<data name="Größer">
<data name="Größer" xml:space="preserve">
<value>Plus grand</value>
</data>
<data name="Kleiner">
<data name="Kleiner" xml:space="preserve">
<value>Petit</value>
</data>
<data name="Normal">
<data name="Normal" xml:space="preserve">
<value>Normal</value>
</data>
<data name="Aktuell keine Workflowdaten vorhanden! {0}">
<value>Actuellement, aucune donnée de workflow n'est disponible ! {0}</value>
</data>
<data name="Aktuelle Lizenz ist abgelaufen oder ungültig!">
<value>La licence actuelle a expiré ou n'est plus valable !</value>
</data>
<data name="Bitte konfigurieren Sie eine Datenbankverbindung!">
<value>Veuillez configurer une connexion à la base de données !</value>
</data>
<data name="Bitte kontaktieren Sie Ihren Administrator!">
<value>Veuillez contacter votre administrateur !</value>
</data>
<data name="Bitte wählen Sie ein Profil aus!">
<value>Veuillez sélectionner un profil !</value>
</data>
<data name="Der gewählte Beleg ist durch einen anderen Benutzer bereits in Bearbeitung oder anderweitig gesperrt!">
<value>Le document sélectionné est déjà en cours de traitement par un autre utilisateur ou bloqué d'une autre manière !</value>
</data>
<data name="Detailansicht Profil: {0}">
<value>Vue détaillée du profil : {0}</value>
</data>
<data name="Es existiert bereits ein aktiver Workflow!">
<value>Il existe déjà un workflow actif !</value>
</data>
<data name="Es ist keine Windream Session vorhanden. Bitte überprüfen Sie das Log.">
<value>Il n'y a pas de session Windream. Veuillez vérifier le log.</value>
</data>
<data name="Fehlende Datenbank Konfiguration">
<value>Configuration de la base de données manquante</value>
</data>
<data name="Filter aktiv">
<value>Filtre actif</value>
</data>
<data name="Gesamtübersicht">
<value>Vue générale</value>
</data>
<data name="Ghost Modus ({0}) deaktivieren">
<value>Désactiver ({0}) le Mode Fantôme</value>
</data>
<data name="HINWEIS: Debug Modus ist eingeschaltet!">
<value>REMARQUE : le mode de débogage est activé !</value>
</data>
<data name="Letzte Synchronisation: {0}">
<value>Dernière synchronisation : {0}</value>
</data>
<data name="Massenabschluss">
<value>Clôture en masse</value>
</data>
<data name="Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte!">
<value>La clôture en masse n'a pas pu être exécutée parce que windream n'a pas pu être initialisé !</value>
</data>
<data name="Nächste Aktivitätsüberprüfung: {0} {1}">
<value>Prochaine vérification d'activité : {0} {1}</value>
</data>
<data name="Popup Erinnerung aktivieren ({0} min)">
<value>Activer le rappels contextuels ({0} min)</value>
</data>
<data name="Popup Erinnerung deaktivieren">
<value>Désactiver les rappels contextuels</value>
</data>
<data name="Profil (Fixiert)">
<value>Profil (Fixe)</value>
</data>
<data name="Sie wurden aufgrund von Inaktivität automatisch abgemeldet!">
<value>Vous avez été automatiquement déconnecté pour cause d'inactivité !</value>
</data>
<data name="System konnte die Profilworkflows nicht auswerten!">
<value>Le système n'a pas pu évaluer les workflows de profil!{0}Veuillez sélectionner un profil en cliquant sur un document ou un titre !</value>
</data>
<data name="[{0}] Workflows">
<value>{0} Workflows</value>
</data>
<data name="{0} Vorgänge">
<value>{0} Opérations</value>
</data>
</root>

View File

@@ -120,12 +120,15 @@
<data name="Achtung:" xml:space="preserve">
<value>Achtung:</value>
</data>
<data name="Aktuell keine Workflowdaten vorhanden!" xml:space="preserve">
<value>Aktuell keine Workflowdaten vorhanden!</value>
<data name="Aktuell keine Workflowdaten vorhanden! {0}" xml:space="preserve">
<value>Aktuell keine Workflowdaten vorhanden! {0}</value>
</data>
<data name="Aktuelle Lizenz ist abgelaufen oder ungültig!" xml:space="preserve">
<value>Aktuelle Lizenz ist abgelaufen oder ungültig!</value>
</data>
<data name="Anzahl angemeldete Benutzer: {0}" xml:space="preserve">
<value>Anzahl angemeldete Benutzer: {0}</value>
</data>
<data name="Anzahl Lizenzen: {0}" xml:space="preserve">
<value>Anzahl Lizenzen: {0}</value>
</data>
@@ -177,9 +180,6 @@
<data name="Letzte Synchronisation: {0}" xml:space="preserve">
<value>Letzte Synchronisation: {0}</value>
</data>
<data name="Lizenz-Zähler: {0}" xml:space="preserve">
<value>Lizenz-Zähler: {0}</value>
</data>
<data name="Massenabschluss" xml:space="preserve">
<value>Massenabschluss</value>
</data>
@@ -208,7 +208,7 @@
<value>System konnte die Profilworkflows nicht auswerten!{0}Bitte wählen Sie ein Profil durch Klicken auf einen Beleg oder eine Überschrift!</value>
</data>
<data name="[{0}] Workflows" xml:space="preserve">
<value>[{0}] Workflows</value>
<value>{0} Workflows</value>
</data>
<data name="{0} Vorgänge" xml:space="preserve">
<value>{0} Vorgänge</value>

View File

@@ -0,0 +1,139 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Class frmValidator_Strings
Private Shared resourceMan As Global.System.Resources.ResourceManager
Private Shared resourceCulture As Global.System.Globalization.CultureInfo
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
Friend Sub New()
MyBase.New
End Sub
'''<summary>
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_ProcessManager.frmValidator_Strings", GetType(frmValidator_Strings).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Bitte validieren Sie die rot markierten Felder! ähnelt.
'''</summary>
Friend Shared ReadOnly Property Bitte_validieren_Sie_die_rot_markierten_Felder_() As String
Get
Return ResourceManager.GetString("Bitte validieren Sie die rot markierten Felder!", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Eingaben gespeichert ähnelt.
'''</summary>
Friend Shared ReadOnly Property Eingaben_gespeichert() As String
Get
Return ResourceManager.GetString("Eingaben gespeichert", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Ende des Profils - Keine weiteren Vorgänge ähnelt.
'''</summary>
Friend Shared ReadOnly Property Ende_des_Profils___Keine_weiteren_Vorgänge() As String
Get
Return ResourceManager.GetString("Ende des Profils - Keine weiteren Vorgänge", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die F2 für Speichern ähnelt.
'''</summary>
Friend Shared ReadOnly Property F2_für_Speichern() As String
Get
Return ResourceManager.GetString("F2 für Speichern", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Falsche Eingabe ähnelt.
'''</summary>
Friend Shared ReadOnly Property Falsche_Eingabe() As String
Get
Return ResourceManager.GetString("Falsche Eingabe", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Speichern - Nächster Vorgang (F2) ähnelt.
'''</summary>
Friend Shared ReadOnly Property Speichern___Nächster_Vorgang__F2_() As String
Get
Return ResourceManager.GetString("Speichern - Nächster Vorgang (F2)", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Verbleibende Vorgänge: {0} ähnelt.
'''</summary>
Friend Shared ReadOnly Property Verbleibende_Vorgänge___0_() As String
Get
Return ResourceManager.GetString("Verbleibende Vorgänge: {0}", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Wollen Sie die Konversation beenden? ähnelt.
'''</summary>
Friend Shared ReadOnly Property Wollen_Sie_die_Konversation_beenden_() As String
Get
Return ResourceManager.GetString("Wollen Sie die Konversation beenden?", resourceCulture)
End Get
End Property
End Class
End Namespace

View File

@@ -0,0 +1,144 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Bitte validieren Sie die rot markierten Felder!" xml:space="preserve">
<value>Please validate red marked fields!</value>
</data>
<data name="Eingaben gespeichert" xml:space="preserve">
<value>Inputs saved</value>
</data>
<data name="Ende des Profils - Keine weiteren Vorgänge" xml:space="preserve">
<value>End of the profile - No further operations</value>
</data>
<data name="F2 für Speichern" xml:space="preserve">
<value>F2 for save</value>
</data>
<data name="Falsche Eingabe" xml:space="preserve">
<value>Wrong input</value>
</data>
<data name="Speichern - Nächster Vorgang (F2)" xml:space="preserve">
<value>Save - Next operation (F2)</value>
</data>
<data name="Verbleibende Vorgänge: {0}" xml:space="preserve">
<value>Remaining operations: {0}</value>
</data>
<data name="Wollen Sie die Konversation beenden?" xml:space="preserve">
<value>Would You like to end this conversation?</value>
</data>
</root>

View File

@@ -0,0 +1,144 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Bitte validieren Sie die rot markierten Felder!" xml:space="preserve">
<value>Veuillez valider les champs marqués en rouge!</value>
</data>
<data name="Eingaben gespeichert" xml:space="preserve">
<value>Saisies enregistrées</value>
</data>
<data name="Ende des Profils - Keine weiteren Vorgänge" xml:space="preserve">
<value>Fin du profil - aucune autre opération</value>
</data>
<data name="F2 für Speichern" xml:space="preserve">
<value>F2 pour enregistrer</value>
</data>
<data name="Falsche Eingabe" xml:space="preserve">
<value>Mauvaise saisie</value>
</data>
<data name="Speichern - Nächster Vorgang (F2)" xml:space="preserve">
<value>Enregistrer - Opération suivante (F2)</value>
</data>
<data name="Verbleibende Vorgänge: {0}" xml:space="preserve">
<value>Opérations restantes: {0}</value>
</data>
<data name="Wollen Sie die Konversation beenden?" xml:space="preserve">
<value>Vous voulez mettre fin à la conversation?</value>
</data>
</root>

View File

@@ -0,0 +1,144 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Bitte validieren Sie die rot markierten Felder!" xml:space="preserve">
<value>Bitte validieren Sie die rot markierten Felder!</value>
</data>
<data name="Eingaben gespeichert" xml:space="preserve">
<value>Eingaben gespeichert</value>
</data>
<data name="Ende des Profils - Keine weiteren Vorgänge" xml:space="preserve">
<value>Ende des Profils - Keine weiteren Vorgänge</value>
</data>
<data name="F2 für Speichern" xml:space="preserve">
<value>F2 für Speichern</value>
</data>
<data name="Falsche Eingabe" xml:space="preserve">
<value>Falsche Eingabe</value>
</data>
<data name="Speichern - Nächster Vorgang (F2)" xml:space="preserve">
<value>Speichern - Nächster Vorgang (F2)</value>
</data>
<data name="Verbleibende Vorgänge: {0}" xml:space="preserve">
<value>Verbleibende Vorgänge: {0}</value>
</data>
<data name="Wollen Sie die Konversation beenden?" xml:space="preserve">
<value>Wollen Sie die Konversation beenden?</value>
</data>
</root>

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -920,13 +920,27 @@ Public Class frmAdministration
CHANGED_WHOTextBox.Text = USER_USERNAME
Me.TBPM_PROFILEBindingSource.EndEdit()
Me.TBPM_PROFILETableAdapter.Update(DD_DMSLiteDataSet.TBPM_PROFILE)
'Refresh_Profildaten()
'Dim pos As Integer = TBPM_PROFILEBindingSource.Find("GUID", CURRENT_ProfilGUID)
'TBPM_PROFILEBindingSource.Position = pos
Try
Dim oSQL = $"EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM','PROFILE_TITLE{PROFILGUIDTextBox.Text}','{USER_LANGUAGE}',
'Title of Profile','{TITLETextBox.Text}','','{USER_USERNAME}','{PROFILGUIDTextBox.Text}',0"
DatabaseFallback.ExecuteNonQueryECM(oSQL)
oSQL = $"EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM','PROFILE_DESCRIPTION{PROFILGUIDTextBox.Text}','{USER_LANGUAGE}',
'Description of Profile','{DESCRIPTIONTextBox.Text}','','{USER_USERNAME}','{PROFILGUIDTextBox.Text}',0"
DatabaseFallback.ExecuteNonQueryECM(oSQL)
If FINAL_TEXTTextBox.Text <> String.Empty Then
oSQL = $"EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM','PROFILE_FINAL_TEXT{PROFILGUIDTextBox.Text}','{USER_LANGUAGE}',
'Description of Profile','{FINAL_TEXTTextBox.Text}','','{USER_USERNAME}','{PROFILGUIDTextBox.Text}',0"
DatabaseFallback.ExecuteNonQueryECM(oSQL)
End If
Catch ex As Exception
End Try
tsbStaticInfo.Caption = $"ProfileData saved - {Now.ToLongTimeString}"
UNSAVED_CHANGES_PROFILE = False
Else
tsbStaticInfo.Caption = ""
UNSAVED_CHANGES_PROFILE = False
Else
tsbStaticInfo.Caption = ""
End If
Catch ex As Exception
_LOGGER.Error(ex)

View File

@@ -457,6 +457,7 @@ Partial Class frmMain
Me.bsiLicenses.Id = 9
Me.bsiLicenses.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.security_key
Me.bsiLicenses.Name = "bsiLicenses"
Me.bsiLicenses.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'bsiUserLoggedIn
'
@@ -737,6 +738,7 @@ Partial Class frmMain
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.AllowTextClipping = False
Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtniRefresh)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItemGhostMode)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
@@ -768,6 +770,7 @@ Partial Class frmMain
'
'RibbonPageGroup7
'
Me.RibbonPageGroup7.AllowTextClipping = False
Me.RibbonPageGroup7.ItemLinks.Add(Me.BarButtonItemWFSingle)
Me.RibbonPageGroup7.ItemLinks.Add(Me.BarButtonItemWFGroup)
Me.RibbonPageGroup7.Name = "RibbonPageGroup7"

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAUwBCQFMAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CAAAAk1TRnQBSQFMAgEBAgEAAXwBCQF8AQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -480,28 +480,28 @@
<value>250, 56</value>
</metadata>
<data name="PopupErinnerungInaktivierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 22</value>
<value>282, 22</value>
</data>
<data name="PopupErinnerungInaktivierenToolStripMenuItem.Text" xml:space="preserve">
<value>Popup Erinnerung inaktivieren</value>
<value>Popup Erinnerung deaktivieren</value>
</data>
<data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
<value>231, 6</value>
<value>279, 6</value>
</data>
<data name="AnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 22</value>
<value>282, 22</value>
</data>
<data name="AnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Bring to Front</value>
<value>In den Vordergrund</value>
</data>
<data name="OutOfRangePMFixierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 22</value>
<value>282, 22</value>
</data>
<data name="OutOfRangePMFixierenToolStripMenuItem.Text" xml:space="preserve">
<value>Out of Range - PM fixieren</value>
<value>Out of Range - Fenster wiederherstellen</value>
</data>
<data name="ContextMenuNotifyIcon.Size" type="System.Drawing.Size, System.Drawing">
<value>235, 76</value>
<value>283, 76</value>
</data>
<data name="&gt;&gt;ContextMenuNotifyIcon.Name" xml:space="preserve">
<value>ContextMenuNotifyIcon</value>
@@ -807,7 +807,7 @@
<value>BarStaticItem4</value>
</data>
<data name="bsilastsync.Caption" xml:space="preserve">
<value>Noch keine Synchronisation</value>
<value>Noch keine Syncronisation</value>
</data>
<data name="bsilastsync.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -885,7 +885,7 @@
</value>
</data>
<data name="BarEditItem1.Caption" xml:space="preserve">
<value>Sync in Progress</value>
<value>Synchronisierung läuft</value>
</data>
<data name="bbtnitDashboardInv.Caption" xml:space="preserve">
<value>Dashboard Invoice</value>
@@ -1008,7 +1008,7 @@
</value>
</data>
<data name="bsi_GhostMode.Caption" xml:space="preserve">
<value>Ghost Modus aktiv</value>
<value>GhostMode aktiv</value>
</data>
<data name="bsi_GhostMode.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -1204,7 +1204,7 @@
</value>
</data>
<data name="BarCheckItem2.Caption" xml:space="preserve">
<value>Spaltenauswahl</value>
<value>Spaltenauswahhl</value>
</data>
<data name="BarCheckItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -1766,7 +1766,7 @@
<value>True</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>198</value>
<value>63</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>9, 19</value>
@@ -3190,7 +3190,7 @@
<value>677, 56</value>
</metadata>
<data name="SaveFileDialog1.Filter" xml:space="preserve">
<value>PDF Files (*.pdf*)|*.pdf</value>
<value>PDF Dateien (*.pdf*)|*.pdf</value>
</data>
<metadata name="bwBasicData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>814, 56</value>

View File

@@ -12,14 +12,15 @@ Imports DevExpress.XtraPrinting
Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
Imports DigitalData.Modules.EDMI.API.Constants
Imports DigitalData.GUIs.Common
Imports DevExpress.XtraGrid.Views.BandedGrid
Imports DevExpress.XtraBars.Ribbon
Imports DigitalData.Modules.ZooFlow
Imports DevExpress.LookAndFeel
Public Class frmMain
Private Property FormHelper As FormHelper
Private UserLoggedin As Integer = 0
Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable
Private CURR_DT_OVERVIEW As DataTable
Private OVERVIEW_ADDED_WHEN As String
@@ -31,6 +32,7 @@ Public Class frmMain
Private GridViewItem_Clicked = Nothing
Private GridCursorLocation As Point
Private GRID_LOAD_TYPE As String = "OVERVIEW"
Private GRID_INV_COL_REMOVED As Boolean = False
Private NO_WORKFLOWITEMS As Boolean = False
Private InResetlayout As Boolean = False
Private RefreshHelper As RefreshHelper
@@ -41,25 +43,29 @@ Public Class frmMain
Private OverviewOrDEtail As String = "OVERVIEW"
Private GridBuilder As GridBuilder
Private ReadOnly allgFunk As New ClassAllgemeineFunktionen
Private ReadOnly _Init As New ClassInit
Private allgFunk As New ClassAllgemeineFunktionen
Private _Init As New ClassInit
Private CurrNavBarGroup As NavBarGroup
'Private DataASorDB As ClassDataASorDB
'Private DT_CHECKUSER_MODULE As DataTable
Private DT_CHECKUSER_MODULE As DataTable
Private IsFilterMode As Boolean
Private DetailLinkActive As Boolean = False
Private FRONTEND_ACTION As String = "NONE"
Private Ev_Filter_Panel_Closed As Boolean = False
Private Const FullFilepathColumnName = "FULL_FILE_PATH"
Dim omsgOpenWorkflow As String
Dim omsgTitleWarning As String
Dim omsgTitleAttention As String
Private Const FullFilepatColName = "FULL_FILE_PATH"
Private Const FA_NONE = "NONE"
Friend Class S
Private Class S
Inherits My.Resources.frmMain_Strings
End Class
Private Function GET_LAST_ADDED(pDatatable As DataTable) As String
Dim oADDED As String
Try
@@ -140,7 +146,7 @@ Public Class frmMain
End Try
End Sub
Private Sub frmMain_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
Private Sub frmMain_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
Select Case e.KeyCode
Case Keys.F12
frmLicense.ShowDialog()
@@ -169,10 +175,15 @@ Public Class frmMain
' Create helper to save/load expanded GroupColumns at runtime
RefreshHelper = New RefreshHelper(LOGCONFIG, GridView_Docs, "GUID")
omsgOpenWorkflow = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("WorkflowIsActive1")
omsgTitleWarning = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MsgboxTitleWarning")
omsgTitleAttention = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MsgboxTitleAttention")
Dim oVErsion = String.Format("{0}.{1}.{2}", My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build)
bsiVersion.Caption = oVErsion
If ERROR_STATE = "NO DB-CONNECTION" Or ERROR_STATE = "FAILED DBCONNECTION" Then
FormHelper.ShowErrorMessage(S.Bitte_konfigurieren_Sie_eine_Datenbankverbindung_, S.Fehlende_Datenbank_Konfiguration)
MsgBox(S.Bitte_konfigurieren_Sie_eine_Datenbankverbindung_, MsgBoxStyle.Critical, "Fehlende Konfiguration:")
frmKonfig.ShowDialog()
End If
Try
@@ -196,14 +207,17 @@ Public Class frmMain
End Try
Catch ex As Exception
LOGGER.Error(ex)
FormHelper.ShowErrorMessage(ex, "frmMain_Load")
MessageBox.Show("Error loading CurrentUICulture-Info!", "Attention:", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
Try
'DataASorDB = New ClassDataASorDB
If User.IsAdmin = True Then
bsiLicenses.Caption = String.Format(S.Anzahl_Lizenzen___0_, LICENSE_COUNT)
'Dim oCaption As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NumberLicenses")
'bsiLicenses.Caption = $"{oCaption} {LICENSE_COUNT}"
Dim oCaption As String = String.Format(S.Anzahl_Lizenzen___0_, LICENSE_COUNT)
bsiLicenses.Caption = oCaption
bsiLicenses.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else
bsiLicenses.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -213,14 +227,12 @@ Public Class frmMain
If ERROR_STATE = "NO USER" Then
Dim oDT As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("No Userconfig")
FormHelper.ShowErrorMessage(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), S.Achtung_)
MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), MsgBoxStyle.Critical, "Exception")
Me.Close()
ElseIf USER_IN_MODULE = False Then
If USER_IS_ADMIN = False Then
Dim oDT As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("No Module Configuration")
FormHelper.ShowErrorMessage(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), S.Achtung_)
MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), MsgBoxStyle.Critical, "Exception")
Me.Close()
End If
Else
@@ -228,15 +240,21 @@ Public Class frmMain
'Wenn license abgelaufen und der User nicht admin ist!
If LICENSE_EXPIRED = True Then
If USER_IS_ADMIN = False Then
FormHelper.ShowErrorMessage(S.Aktuelle_Lizenz_ist_abgelaufen_oder_ungültig_ & vbNewLine & S.Bitte_kontaktieren_Sie_Ihren_Administrator_, S.Achtung_)
MsgBox("License expired or invalid!" & vbNewLine & "Please contact the AdminTeam!", MsgBoxStyle.Critical, "Attention:")
Me.Close()
End If
End If
If USER_IS_ADMIN = True Then
RibbonPageGroup3.Visible = True
'Anzahl der eingeloggten User
bsiUserLoggedIn.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
bsiUserLoggedIn.Caption = String.Format(S.Lizenz_Zähler___0_, USERCOUNT_LOGGED_IN)
'Dim oCaption As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NumberUserLoggedIn")
'bsiUserLoggedIn.Caption = $"{oCaption} {USERCOUNT_LOGGED_IN}"
Dim oCaption As String = String.Format(S.Anzahl_angemeldete_Benutzer___0_, USERCOUNT_LOGGED_IN)
bsiUserLoggedIn.Caption = oCaption
If GHOSTMODE_ACTIVE = True Then
bbtnitmGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
@@ -309,18 +327,21 @@ Public Class frmMain
End If
Catch ex As Exception
FormHelper.ShowErrorMessage(ex, "frmMain_Load/UserCheck")
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in User Check:")
End Try
bsiUser.Caption = USER_USERNAME
GetBaseData("Load")
Try
If TimerRefresh.Enabled = False Then
TimerRefresh.Start()
End If
Timer5Mins.Start()
Catch ex As Exception
FormHelper.ShowErrorMessage(ex, "frmMain_Load/RefreshTimer")
LOGGER.Error(ex)
MsgBox("Unexpected Error in LoadForm - Step 4: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
End Try
LoadNavBar()
AddHandler NavBarControl1.LinkClicked, AddressOf navBar_LinkClicked
@@ -340,7 +361,7 @@ Public Class frmMain
End If
Catch ex As Exception
FormHelper.ShowErrorMessage(ex, "frmMain_Load/ChartLoading")
LOGGER.Warn($"Could not load Charts: {ex.Message}")
End Try
If MONITORING_ACTIVE = False Then
bbtniMonitor.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -360,16 +381,19 @@ Public Class frmMain
BarButtonItemFileLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
If Not IsNothing(WINDREAM.oSession) Then
If WINDREAM.oSession.aLoggedin = False Then
FormHelper.ShowErrorMessage("You could not be logged in to windream. Please check the log.", "frmMain_Load/WindreamLogin")
LOGGER.Warn("You could not be logged in to windream")
MsgBox(S.Es_ist_keine_Windream_Session_vorhanden__Bitte_überprüfen_Sie_das_Log_, MsgBoxStyle.Critical)
End If
Else
FormHelper.ShowErrorMessage("Login on windream was not possible. Please check the log.", "frmMain_Load/WindreamLogin")
LOGGER.Warn("Login on windream was not possible.")
MsgBox(S.Es_ist_keine_Windream_Session_vorhanden__Bitte_überprüfen_Sie_das_Log_, MsgBoxStyle.Critical)
End If
End If
Catch ex As Exception
FormHelper.ShowErrorMessage(ex, "frmMain_Load/WindreamLogin")
LOGGER.Error(ex)
MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
End Try
Else
BarButtonItemFileLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -600,7 +624,7 @@ Public Class frmMain
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
GridView_Docs.Columns.Item("GUID").Visible = False
Try
GridView_Docs.Columns.Item(FullFilepathColumnName).Visible = False
GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
Catch ex As Exception
End Try
@@ -650,6 +674,7 @@ Public Class frmMain
Try
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex1 As Exception
LOGGER.Warn("(ResetLayout)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try
@@ -751,14 +776,17 @@ Public Class frmMain
End If
Catch ex As Exception
FormHelper.ShowErrorMessage(ex, "LoadNavBar")
LOGGER.Error(ex)
LOGGER.Info("Load_Profile_items - Error: " & ex.Message)
'MsgBox("Unexpected Error in Load_Profile_items - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Async Sub navBar_LinkClicked(ByVal sender As Object, ByVal e As NavBarLinkEventArgs)
If Not Application.OpenForms().OfType(Of frmValidator).Any Then
Else
FormHelper.ShowInfoMessage(S.Bitte_schließen_Sie_den_offenen_Workflow_, S.Achtung_)
'FormHelper.ShowInfoMessage(omsgOpenWorkflow, omsgTitleWarning)
FormHelper.ShowInfoMessage(S.Bitte_schließen_Sie_den_offenen_Workflow_, omsgTitleWarning)
Exit Sub
End If
@@ -890,7 +918,7 @@ Public Class frmMain
OVERVIEW_CHANGED_WHEN = oChanged
OVERVIEW_COUNT = oCOUNT
End If
GridView_Docs.ViewCaption = String.Format(S.Detailansicht_Profil___0_, CURRENT_CLICKED_PROFILE_TITLE)
If CURR_DT_OVERVIEW.Rows.Count = 0 Then
NO_WORKFLOWITEMS = True
Else
@@ -899,7 +927,10 @@ Public Class frmMain
Create_Basic_View()
RestoreLayout()
GridView_Docs.ViewCaption = String.Format(S.Detailansicht_Profil___0_, CURRENT_CLICKED_PROFILE_TITLE)
'GridView_Docs.ViewCaption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NoWorkflowData")} {CURRENT_CLICKED_PROFILE_TITLE}"
GridView_Docs.ViewCaption = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, CURRENT_CLICKED_PROFILE_TITLE)
End If
End If
@@ -979,8 +1010,12 @@ Public Class frmMain
Next
bindsourcegrid.DataSource = CURR_DT_OVERVIEW
GridControl_Docs.DataSource = bindsourcegrid
Dim objectCount_Descr = GridView_Docs.RowCount.ToString
Dim objectCount_Descr = String.Format(S._0__Vorgänge, GridView_Docs.RowCount.ToString)
'Dim ocapt = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("DescItems")
Dim ocapt = String.Format(S._0__Vorgänge, objectCount_Descr)
objectCount_Descr = $"{objectCount_Descr} {ocapt}"
'tslblObjectCount.Text = objectCount_Descr
@@ -992,7 +1027,7 @@ Public Class frmMain
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
GridView_Docs.Columns.Item("GUID").Visible = False
Try
GridView_Docs.Columns.Item(FullFilepathColumnName).Visible = False
GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
Catch ex As Exception
End Try
Try
@@ -1063,8 +1098,6 @@ Public Class frmMain
LOGGER.Error(ex)
End Try
FRONTEND_ACTION = FA_NONE
End Sub
Private Function GridLayoutChanged() As Boolean
Try
@@ -1091,7 +1124,7 @@ Public Class frmMain
End If
Next
If oViewColumn_exists = False Then
If oViewColumn.Caption = FullFilepathColumnName And IDB_ACTIVE = False Then
If oViewColumn.Caption = FullFilepatColName And IDB_ACTIVE = False Then
LOGGER.Info($"Following ViewColumn no longer exists in the view: [{oViewColumn.Caption}]")
Return True
End If
@@ -1175,6 +1208,7 @@ Public Class frmMain
Exit Sub
End If
'bsilastsync.Caption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("CaptLastSync")}: " & Now.ToLongTimeString
bsilastsync.Caption = String.Format(S.Letzte_Synchronisation___0_, Now.ToLongTimeString)
If GridControl_Docs.Visible = True And FormOpenClose = False Then
@@ -1286,8 +1320,7 @@ Public Class frmMain
End Try
Try
If USER_LANGUAGE <> "" Then
Dim cultureInfo As System.Globalization.CultureInfo
cultureInfo = New System.Globalization.CultureInfo(USER_LANGUAGE)
Dim cultureInfo As New System.Globalization.CultureInfo(USER_LANGUAGE)
cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
Thread.CurrentThread.CurrentCulture = cultureInfo
Thread.CurrentThread.CurrentUICulture = cultureInfo
@@ -1295,7 +1328,7 @@ Public Class frmMain
CultureInfo.DefaultThreadCurrentUICulture = cultureInfo
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
Try
InitializeComponent()
@@ -1305,8 +1338,6 @@ Public Class frmMain
LOGGER.Error(ex)
LOGGER.Info($"Error in InitializeComponent: {ex.Message}")
End Try
End Sub
Private Sub TimerReminder_Tick(sender As Object, e As EventArgs) Handles TimerReminder.Tick
@@ -1338,6 +1369,9 @@ Public Class frmMain
Try
CURRENT_ProfilGUID = pProfilID
' Dim th As System.Threading.Thread
If Not Application.OpenForms().OfType(Of frmValidator).Any Then
If TimerRefresh.Enabled Then
@@ -1357,7 +1391,7 @@ Public Class frmMain
If CURRENT_DT_PROFILE.Rows.Count = 1 Then
CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME")
Else
FormHelper.ShowWarningMessage("Could not get a Profile - Check Your log!", ADDITIONAL_TITLE)
MsgBox("Could not get a Profile - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Exit Sub
End If
@@ -1382,8 +1416,7 @@ Public Class frmMain
LOGGER.Warn($"ex.InnerException.Message [{ex.InnerException.Message}]")
LOGGER.Warn($"ex.InnerException.Source [{ex.InnerException.Source}]")
LOGGER.Error(ex.InnerException)
FormHelper.ShowErrorMessage(ex, "Load_Profil_from_Grid")
MsgBox(ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
End Try
Try
@@ -1406,14 +1439,24 @@ Public Class frmMain
' th.Start()
Else
LOGGER.Debug("Validator is already open...")
FormHelper.ShowWarningMessage(S.Es_existiert_bereits_ein_aktiver_Workflow_, S.Achtung_)
Dim omsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("WorkflowIsActive2")
FormHelper.ShowInfoMessage(S.Es_existiert_bereits_ein_aktiver_Workflow_, omsgTitleAttention)
'FormHelper.ShowInfoMessage(omsg, omsgTitleAttention)
End If
Catch ex As Exception
FormHelper.ShowErrorMessage(ex, "Load_Profil_from_Grid")
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unexpected error in Load_Profil_from_Grid: " & ex.Message & vbNewLine & ADDITIONAL_TITLE & " will try to reload the overview - Please try again!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
Dim task = Decide_Load(False, True)
End Try
'Me.Visible = True
'Decide_Load()
End Sub
'Public Sub Task_A()
@@ -1494,8 +1537,7 @@ Public Class frmMain
' -----------------------------
If oIds.Count = 0 Then
FormHelper.ShowWarningMessage(String.Format(S.System_konnte_die_Profilworkflows_nicht_auswerten_, vbNewLine), ADDITIONAL_TITLE)
MsgBox("System konnte die Profilworkflows nicht auswerten!" & vbNewLine & "Bitte wählen Sie ein Profil durch Klicken auf einen Beleg oder eine Überschrift!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
Exit Sub
End If
Dim oDelete = $"DELETE FROM TBPM_VALIDATION_PROFILE_GROUP_USER WHERE UserID = {USER_ID}"
@@ -1532,7 +1574,7 @@ Public Class frmMain
groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle)
OItemScopeInfo = $"groupRowText {groupRowText}"
LOGGER.Debug($"Item_Scope: groupRowText {groupRowText}")
' oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewWFItems.Columns("PROFILE_ID"))
' oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID"))
ElseIf hitInfo.InDataRow Then
GridViewItem_Clicked = "ROW"
OItemScopeInfo = "InDataRow"
@@ -1543,7 +1585,7 @@ Public Class frmMain
groupRowText = GridView_Docs.GetGroupRowDisplayText(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle))
OItemScopeInfo = $"OVERVIEWgroupRowText {groupRowText}"
LOGGER.Debug($"Item_Scope: OVERVIEWgroupRowText {groupRowText}")
' oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(GridViewWFItems.GetParentRowHandle(hitInfo.RowHandle)), GridViewWFItems.Columns("PROFILE_ID"))
' oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID"))
Else
OItemScopeInfo = $"NOT GRID_LOAD_TYPE = OVERVIEW"
LOGGER.Debug($"Item_Scope: NOT GRID_LOAD_TYPE = OVERVIEW")
@@ -1598,14 +1640,14 @@ Public Class frmMain
Try
oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
Catch ex As Exception
FormHelper.ShowWarningMessage("Could not get DocGUID. Inform Your admin-team: Check Your View-Config", S.Achtung_)
FormHelper.ShowInfoMessage("Could not get DocGUID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning)
End Try
Dim oFocusedDocID
Try
oFocusedDocID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DocID"))
Catch ex As Exception
FormHelper.ShowWarningMessage("Could not get DocID. Inform Your admin-team: Check Your View-Config", S.Achtung_)
FormHelper.ShowInfoMessage("Could not get DocID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning)
End Try
If IsNothing(oFocusedDocID) Then
@@ -1621,8 +1663,8 @@ Public Class frmMain
Exit Sub
End If
LOGGER.Debug($"Item_Scope: GotDocID {oFocusedDocID} and DocGUID {oFocusedDocGUID}")
If Not IsNothing(GridView_Docs.Columns(FullFilepathColumnName)) Then
Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns(FullFilepathColumnName))
If Not IsNothing(GridView_Docs.Columns(FullFilepatColName)) Then
Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns(FullFilepatColName))
If IsNothing(DOC_PATH) Then
LOGGER.Warn("In hitInfo.InDataRow: FULL_FILE_PATH is nothing!!!")
Exit Sub
@@ -1652,7 +1694,10 @@ Public Class frmMain
If CBool(oResult) = True Then
Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID)
Else
FormHelper.ShowWarningMessage(S.Der_gewählte_Beleg_ist_durch_einen_anderen_Benutzer_bereits_in_Bearbeitung_oder_anderweitig_gesperrt_, S.Achtung_)
'Dim omsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("WFInWork")
Dim omsg = S.Der_gewählte_Beleg_ist_durch_einen_anderen_Benutzer_bereits_in_Bearbeitung_oder_anderweitig_gesperrt_
FormHelper.ShowInfoMessage(omsg, omsgTitleAttention)
End If
Catch ex As Exception
@@ -1666,7 +1711,7 @@ Public Class frmMain
End If
Else
FormHelper.ShowWarningMessage("Could not get the ProfileID of file! - Check Your configuration of MainView!", S.Achtung_)
FormHelper.ShowInfoMessage("Could not get the ProfileID of file! - Check Your configuration of MainView!", omsgTitleWarning)
End If
Catch ex As Exception
LOGGER.Error(ex)
@@ -1690,7 +1735,9 @@ Public Class frmMain
Return True
Catch ex As Exception
FormHelper.ShowErrorMessage(ex, "Init_IDB")
LOGGER.Error(ex)
MsgBox("Error Init_IDB:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
LOGGER.Info("Unexpected error in Init_IDB: " & ex.Message, True)
Return False
End Try
End Function
@@ -1702,10 +1749,12 @@ Public Class frmMain
'_windreamPM.Create_Session()
WINDREAM = New ClassPMWindream()
WINDREAM.Create_Session()
WINDREAM_ALLG = New ClassWindream_allgemein()
WINDREAM_ALLG = New ClassWindream_allgemein
Return WINDREAM.IsLoggedIn
Catch ex As Exception
FormHelper.ShowErrorMessage(ex, "Init_windream")
LOGGER.Error(ex)
MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
LOGGER.Info("Unexpected error in Init_windream: " & ex.Message, True)
Return False
End Try
End Function
@@ -1729,10 +1778,10 @@ Public Class frmMain
oGroupColumn.OptionsColumn.AllowGroup = DefaultBoolean.False
oGroupColumn.OptionsColumn.AllowMove = False
oGroupColumn.OptionsColumn.AllowShowHide = False
oGroupColumn.Caption = S.Profil__Fixiert_
oGroupColumn.Caption = "Profile (Fixed)"
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
oindex += 1
@@ -1743,7 +1792,6 @@ Public Class frmMain
GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
Catch ex As Exception
LOGGER.Error(ex)
End Try
For index = 0 To GridView_Docs.GroupCount - 1
'Dim v = GridView_Docs.GroupedColumns(index).ToString
@@ -1791,7 +1839,7 @@ Public Class frmMain
End If
If oSQLOverview.ToString.Contains("GROUP_TEXT") = False Then
LOGGER.Info($"SQL SO FAR: {oSQLOverview} ")
FormHelper.ShowInfoMessage("Incomplete Overview-Source (No Group-Columns). Please reload manually!", S.Achtung_)
FormHelper.ShowInfoMessage("Incomplete Overview-Source (No Group-Columns). Please reload manually!", omsgTitleWarning)
NO_WORKFLOWITEMS = True
GridControl_Docs.Visible = False
@@ -1845,7 +1893,11 @@ Public Class frmMain
NO_WORKFLOWITEMS = False
If CURR_DT_OVERVIEW.Rows.Count = 0 Then
GridView_Docs.ViewCaption = S.Aktuell_keine_Workflowdaten_vorhanden_
'GridView_Docs.ViewCaption = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NoWorkflowData")
GridView_Docs.ViewCaption = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, "")
NO_WORKFLOWITEMS = True
GridControl_Docs.Visible = False
bindsourcegrid.DataSource = Nothing
@@ -1951,7 +2003,7 @@ Public Class frmMain
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
GridView_Docs.Columns.Item("GUID").Visible = False
Try
GridView_Docs.Columns.Item(FullFilepathColumnName).Visible = False
GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
'GridView_Docs.Columns.Item("DocID").Visible = False
GridView_Docs.Columns.Item("TL_STATE").Visible = False
Catch ex As Exception
@@ -2041,7 +2093,7 @@ Public Class frmMain
If CURRENT_CLICKED_PROFILE_ID <> 0 Then
Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID)
Else
FormHelper.ShowInfoMessage(S.Bitte_wählen_Sie_ein_Profil_aus_, S.Achtung_)
FormHelper.ShowInfoMessage(S.Bitte_wählen_Sie_ein_Profil_aus_, omsgTitleWarning)
End If
End Sub
@@ -2212,10 +2264,12 @@ Public Class frmMain
End If
End Sub
Sub LoadCURRENT_DT_PROFILES()
Dim oSQL = "select * from TBPM_PROFILE where ACTIVE = 1"
'CURRENT_DT_PROFILES = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBPM_PROFILE", "")
Dim oSQL = $"select * from TBPM_PROFILE where ACTIVE = 1"
CURRENT_DT_PROFILES = DatabaseFallback.GetDatatable("TBPM_PROFILE", New GetDatatableOptions(oSQL, DatabaseType.ECM))
oSQL = $"select * from TBDD_GUI_LANGUAGE_PHRASE where LANGUAGE = '{USER_LANGUAGE}' AND MODULE = 'PM' AND TITLE LIKE 'PROFILE_%'"
CURRENT_DT_PROFILE_LANGUAGE = DatabaseFallback.GetDatatable("TBPMPROFILE_LANGUAGE_TERMS", New GetDatatableOptions(oSQL, DatabaseType.ECM) With {
.FilterExpression = $"LANGUAGE = '{USER_LANGUAGE}'"
})
End Sub
Sub LoadVWPM_CONTROL_INDEX()
Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX ORDER BY PROFIL_ID,Y_LOC, X_LOC"
@@ -2237,7 +2291,12 @@ Public Class frmMain
End If
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(20)
oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID)
If SQL_PROFILES_USER <> "" Then
oSQL = SQL_PROFILES_USER.Replace("@USER_ID", USER_ID)
Else
oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID)
End If
CURR_DT_VWPM_PROFILE_ACTIVE = DatabaseFallback.GetDatatableECM(oSQL)
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(30)
LoadCURRENT_DT_PROFILES()
@@ -2307,10 +2366,12 @@ Public Class frmMain
Await Decide_Load(True)
Handling_DEBUG_USER()
Dim oSQL = $"SELECT * FROM TBDD_NOTIFICATIONS_SYSTEM
where DISPLAY_UNTIL <= CONVERT(DATE,GETDATE()) or DISPLAY_UNTIL IS NULL AND MODULE = 'PM'
AND GUID NOT IN (SELECT NOTIFY_ID FROM TBDD_NOTIFICATIONS_USER_HISTORY WHERE USR_ID = {USER_ID})"
Dim oSQL = $"SELECT * FROM TBDD_NOTIFICATIONS_SYSTEM NOTE
INNER JOIN (SELECT * FROM TBDD_NOTIFICATIONS_SYSTEM WHERE LANG_CODE = '{USER_LANGUAGE}' OR LANG_CODE = 'ALL') LANG ON NOTE.GUID = LANG.GUID
where (CONVERT(DATE,GETDATE()) <= NOTE.DISPLAY_UNTIL or NOTE.DISPLAY_UNTIL IS NULL) AND NOTE.MODULE = 'PM'
AND NOTE.GUID NOT IN (SELECT NOTIFY_ID FROM TBDD_NOTIFICATIONS_USER_HISTORY WHERE USR_ID = {USER_ID})"
Dim oDT As DataTable = DatabaseFallback.GetDatatable("TBDD_NOTIFICATIONS_SYSTEM", New GetDatatableOptions(oSQL, DatabaseType.ECM))
If Not IsNothing(oDT) Then
If oDT.Rows.Count > 0 Then
Dim oEnvironment = GetEnvironment()
@@ -2323,6 +2384,7 @@ Public Class frmMain
End Sub
Sub Handling_DEBUG_USER()
If DEBUG = True Then
'bsiDebug.Caption = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("DebugModeActive")
bsiDebug.Caption = S.HINWEIS__Debug_Modus_ist_eingeschaltet_
bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else
@@ -2346,6 +2408,10 @@ Public Class frmMain
LOGGER.Warn($"oSQL so far [{oSQL}]")
End Try
End Sub
Private Sub tsslblDEBUG_LOG_MouseHover(sender As Object, e As EventArgs)
MsgBox("UserDebugMode is activated remotely. Debugdata will be transferred to database and will be deleted after 10 days!!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
End Sub
Private Sub frmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
If Application.OpenForms().OfType(Of frmValidator).Any Then
@@ -2368,9 +2434,9 @@ Public Class frmMain
Private Sub ContextMenuNotifyIcon_Opening(sender As Object, e As CancelEventArgs) Handles ContextMenuNotifyIcon.Opening
If CONFIG.Config.ReminderTimer <> 0 Then
PopupErinnerungInaktivierenToolStripMenuItem.Text = S.Popup_Erinnerung_deaktivieren
PopupErinnerungInaktivierenToolStripMenuItem.Text = "Popup Erinnerung inaktivieren"
Else
PopupErinnerungInaktivierenToolStripMenuItem.Text = String.Format(S.Popup_Erinnerung_aktivieren___0__min_, CONFIG.Config.ReminderTimer)
PopupErinnerungInaktivierenToolStripMenuItem.Text = $"Popup Erinnerung aktivieren ({CONFIG.Config.ReminderTimer} min)"
End If
End Sub
@@ -2413,14 +2479,16 @@ Public Class frmMain
' Load_Profil()
Check_Timer_Notification()
Catch ex As Exception
FormHelper.ShowErrorMessage(ex, "frmConfig/Load")
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden Grundeinstellungen:")
End Try
End Sub
Private Async Sub bbtniRefresh_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefresh.ItemClick
If Application.OpenForms().OfType(Of frmValidator).Any Then
FormHelper.ShowInfoMessage(S.Bitte_schließen_Sie_den_offenen_Workflow_, S.Achtung_)
'FormHelper.ShowInfoMessage(omsgOpenWorkflow, omsgTitleWarning)
FormHelper.ShowInfoMessage(S.Bitte_schließen_Sie_den_offenen_Workflow_, omsgTitleWarning)
Exit Sub
End If
Timer_Inactivity_Reset_Disable("OverviewRefreshClick")
@@ -2501,7 +2569,8 @@ Public Class frmMain
Private Sub bwBasicData_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bwBasicData.RunWorkerCompleted
If USER_IS_ADMIN Then
bsiUserLoggedIn.Caption = String.Format(S.Lizenz_Zähler___0_, USERCOUNT_LOGGED_IN)
'bsiDebug.Caption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("LicenseCountCaption")}: {USERCOUNT_LOGGED_IN}"
bsiDebug.Caption = String.Format(S.Anzahl_Lizenzen___0_, USERCOUNT_LOGGED_IN)
End If
BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End Sub
@@ -2584,6 +2653,8 @@ Public Class frmMain
frmGhostMode.ShowDialog()
If USER_GHOST_MODE_ACTIVE = True And USER_GHOST_MODE_USRNAME <> String.Empty Then
LOGGER.Info($"GHOST MODE for User {USER_GHOST_MODE_USRNAME} will now be initialized!")
'BarButtonItemGhostMode.Caption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("CaptionDeactivateDebugMode")} ({USER_GHOST_MODE_USRNAME})"
BarButtonItemGhostMode.Caption = String.Format(S.Ghost_Modus___0___deaktivieren, USER_GHOST_MODE_USRNAME)
BarButtonItemGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
@@ -2602,6 +2673,7 @@ Public Class frmMain
USER_GHOST_MODE_USRNAME = String.Empty
BarButtonItemGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
_Init.InitUserLogin()
GetBaseData("InactivateGM")
LoadNavBar()
Await Decide_Load(False)
If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo()
@@ -2616,9 +2688,10 @@ Public Class frmMain
Timer_Inactivity_Reset_Disable("GridView_Docs.ColumnFilterChanged")
Create_View_Caption()
If Ev_Filter_Panel_Closed = False Then
Dim objectCount_Descr As String ' = GridViewWFItems.RowCount.ToString
objectCount_Descr = S.Filter_aktiv
GridView_Docs.ViewCaption += $"| {objectCount_Descr}"
'Dim objectCount_Descr As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("DescFilterActive")
Dim objectCount_Descr As String = S.Filter_aktiv
GridView_Docs.ViewCaption += $"|{objectCount_Descr}"
Else
Ev_Filter_Panel_Closed = False
End If
@@ -2633,14 +2706,33 @@ Public Class frmMain
End Sub
Sub RowCount()
Try
'Dim oGroupCount As Integer = 0
'For index = 0 To GridView_Docs.RowCount
' Dim oRow = GridView_Docs.GetRow(index)
' If oRow Is Nothing Then
' Continue For
' End If
' If GridView_Docs.GetRowExpanded(index) = True Then
' oGroupCount += 1
' End If
'Next
Dim oRowCount = GridView_Docs.RowCount
bsiRowCount.Caption = String.Format(S.__0___Workflows, oRowCount)
oRowCount = oRowCount '- oGroupCount
Dim objectCount_Descr = $"[{oRowCount.ToString}]"
'objectCount_Descr = $"{objectCount_Descr} {ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("Workflows")}"
objectCount_Descr = String.Format(S.__0___Workflows, objectCount_Descr)
bsiRowCount.Caption = objectCount_Descr
Catch ex As Exception
bsiRowCount.Caption = "Error getting RowCount"
End Try
End Sub
Sub Create_View_Caption()
Try
' GridView_Docs.ViewCaption = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("GridView_Docs.ViewCaption")
GridView_Docs.ViewCaption = S.Gesamtübersicht
Catch ex As Exception
@@ -2695,6 +2787,9 @@ Public Class frmMain
End If
INACTIVITYRecognized = True
'Dim omsg As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("INACTIVITYRecognized")
Dim omsg As String = S.Sie_wurden_aufgrund_von_Inaktivität_automatisch_abgemeldet_
Timer5Mins.Stop()
TimerRefresh.Stop()
TimerReminder.Stop()
@@ -2702,8 +2797,7 @@ Public Class frmMain
Hide()
ClassAllgemeineFunktionen.LoginOut("LOGOUT")
TimerInactivity.Stop()
FormHelper.ShowWarningMessage(S.Sie_wurden_aufgrund_von_Inaktivität_automatisch_abgemeldet_, ADDITIONAL_TITLE)
MsgBox(omsg, MsgBoxStyle.Information, ADDITIONAL_TITLE)
Application.Exit()
Catch ex As Exception
LOGGER.Error(ex.Message)
@@ -2735,7 +2829,7 @@ Public Class frmMain
MyProcess.Start()
Else
LOGGER.Warn($"Clipboardwatcher-Exe not found [{bbtniCW.Tag}]")
FormHelper.ShowInfoMessage("Clipboard Watcher could not be started!", S.Achtung_)
FormHelper.ShowInfoMessage("Clipboard Watcher could not be started!", omsgTitleWarning)
End If
Catch ex As Exception
@@ -2845,19 +2939,17 @@ Public Class frmMain
Dim oProfileId = 0
If oSelectedRows.Count = 0 Then
Dim omsg = "Bitte selektieren Sie einige 1 oder mehr Dokumente"
If USER_LANGUAGE <> "de-DE" Then
'Dim omsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MASS_NO_WF_SELECTED")
Dim omsg = S.Bitte_wählen_Sie_ein_Profil_aus_
omsg = "Please select some documents!"
End If
FormHelper.ShowInfoMessage(omsg, S.Achtung_)
FormHelper.ShowInfoMessage(omsg, omsgTitleWarning)
Exit Sub
End If
oProfileId = GridView_Docs.GetRowCellValue(oSelectedRows.Last(), GridView_Docs.Columns("PROFILE_ID"))
If oProfileId = 0 Then
FormHelper.ShowInfoMessage("Could not select a profile!", S.Achtung_)
FormHelper.ShowInfoMessage("Could not select a profile!", omsgTitleWarning)
Exit Sub
End If
@@ -2901,7 +2993,7 @@ Public Class frmMain
End If
Dim R As DataRow = NewDatatable.NewRow
CURRENT_DOC_ID = oDocID
Dim DOC_PATH = GridView_Docs.GetRowCellValue(oRowHandle, FullFilepathColumnName)
Dim DOC_PATH = GridView_Docs.GetRowCellValue(oRowHandle, FullFilepatColName)
' CURRENT_DOC_PATH = DOC_PATH
CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
R("DocID") = CURRENT_DOC_ID
@@ -2917,10 +3009,13 @@ Public Class frmMain
LoadNavBar()
Await Decide_Load(False)
Else
FormHelper.ShowErrorMessage(S.Massenabschluss_konnte_nicht_ausgeführt_werden__weil_windream_nicht_initialisiert_werden_konnte_, ADDITIONAL_TITLE)
'Dim oMSG = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MASS_ERROR_WINDREAM")
Dim oMSG = S.Massenabschluss_konnte_nicht_ausgeführt_werden__weil_windream_nicht_initialisiert_werden_konnte_
MsgBox(oMSG, MsgBoxStyle.Critical, "Unexpected Error Massvalidation")
End If
Catch ex As Exception
FormHelper.ShowErrorMessage(ex, "BarButtonItemMassValidation_ItemClick")
LOGGER.Error(ex)
MsgBox("Unhandled Error in tsmiMarkedFilesFinish_Click: " & ex.Message)
End Try
End Sub

View File

@@ -211,7 +211,7 @@
<value>5</value>
</data>
<data name="Button1.Text" xml:space="preserve">
<value>Open SQL</value>
<value>SQL Öffnen</value>
</data>
<data name="Button1.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>BottomCenter</value>

View File

@@ -137,21 +137,22 @@ Partial Class frmValidator
'
'SplitContainer2_DV_Chat
'
Me.SplitContainer2_DV_Chat.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
resources.ApplyResources(Me.SplitContainer2_DV_Chat, "SplitContainer2_DV_Chat")
Me.SplitContainer2_DV_Chat.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainer2_DV_Chat.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.None
Me.SplitContainer2_DV_Chat.Name = "SplitContainer2_DV_Chat"
'
'SplitContainer2_DV_Chat.Panel1
'
Me.SplitContainer2_DV_Chat.Panel1.Controls.Add(Me.SplitContainer1)
resources.ApplyResources(Me.SplitContainer2_DV_Chat.Panel1, "SplitContainer2_DV_Chat.Panel1")
Me.SplitContainer2_DV_Chat.Panel1.Controls.Add(Me.SplitContainer1)
'
'SplitContainer2_DV_Chat.Panel2
'
resources.ApplyResources(Me.SplitContainer2_DV_Chat.Panel2, "SplitContainer2_DV_Chat.Panel2")
Me.SplitContainer2_DV_Chat.Panel2.Controls.Add(Me.ChatControl1)
Me.SplitContainer2_DV_Chat.SplitterPosition = 919
Me.ToolTip1.SetToolTip(Me.SplitContainer2_DV_Chat, resources.GetString("SplitContainer2_DV_Chat.ToolTip"))
'
'SplitContainer1
'
@@ -160,27 +161,34 @@ Partial Class frmValidator
'
'SplitContainer1.Panel1
'
resources.ApplyResources(Me.SplitContainer1.Panel1, "SplitContainer1.Panel1")
Me.SplitContainer1.Panel1.Controls.Add(Me.Panel1)
Me.ToolTip1.SetToolTip(Me.SplitContainer1.Panel1, resources.GetString("SplitContainer1.Panel1.ToolTip"))
'
'SplitContainer1.Panel2
'
resources.ApplyResources(Me.SplitContainer1.Panel2, "SplitContainer1.Panel2")
Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewerValidator)
Me.ToolTip1.SetToolTip(Me.SplitContainer1.Panel2, resources.GetString("SplitContainer1.Panel2.ToolTip"))
Me.SplitContainer1.TabStop = False
Me.ToolTip1.SetToolTip(Me.SplitContainer1, resources.GetString("SplitContainer1.ToolTip"))
'
'Panel1
'
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLight
Me.Panel1.Controls.Add(Me.TITLELabel1)
Me.Panel1.Controls.Add(Me.btnSave)
Me.Panel1.Controls.Add(Me.DESCRIPTIONLabel)
Me.Panel1.Controls.Add(Me.PanelValidatorControl)
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Name = "Panel1"
Me.ToolTip1.SetToolTip(Me.Panel1, resources.GetString("Panel1.ToolTip"))
'
'TITLELabel1
'
resources.ApplyResources(Me.TITLELabel1, "TITLELabel1")
Me.TITLELabel1.Name = "TITLELabel1"
Me.ToolTip1.SetToolTip(Me.TITLELabel1, resources.GetString("TITLELabel1.ToolTip"))
'
'btnSave
'
@@ -188,29 +196,34 @@ Partial Class frmValidator
Me.btnSave.Image = Global.DD_ProcessManager.My.Resources.Resources.flag_pink
Me.btnSave.Name = "btnSave"
Me.btnSave.TabStop = False
Me.ToolTip1.SetToolTip(Me.btnSave, resources.GetString("btnSave.ToolTip"))
Me.btnSave.UseVisualStyleBackColor = True
'
'DESCRIPTIONLabel
'
resources.ApplyResources(Me.DESCRIPTIONLabel, "DESCRIPTIONLabel")
Me.DESCRIPTIONLabel.Name = "DESCRIPTIONLabel"
Me.ToolTip1.SetToolTip(Me.DESCRIPTIONLabel, resources.GetString("DESCRIPTIONLabel.ToolTip"))
'
'PanelValidatorControl
'
resources.ApplyResources(Me.PanelValidatorControl, "PanelValidatorControl")
Me.PanelValidatorControl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PanelValidatorControl.Name = "PanelValidatorControl"
Me.ToolTip1.SetToolTip(Me.PanelValidatorControl, resources.GetString("PanelValidatorControl.ToolTip"))
'
'DocumentViewerValidator
'
resources.ApplyResources(Me.DocumentViewerValidator, "DocumentViewerValidator")
Me.DocumentViewerValidator.FileLoaded = False
Me.DocumentViewerValidator.Name = "DocumentViewerValidator"
Me.ToolTip1.SetToolTip(Me.DocumentViewerValidator, resources.GetString("DocumentViewerValidator.ToolTip"))
'
'ChatControl1
'
resources.ApplyResources(Me.ChatControl1, "ChatControl1")
Me.ChatControl1.Name = "ChatControl1"
Me.ToolTip1.SetToolTip(Me.ChatControl1, resources.GetString("ChatControl1.ToolTip"))
'
'BarAndDockingController3
'
@@ -240,33 +253,40 @@ Partial Class frmValidator
'
'barDockControlTop
'
Me.barDockControlTop.CausesValidation = False
resources.ApplyResources(Me.barDockControlTop, "barDockControlTop")
Me.barDockControlTop.CausesValidation = False
Me.barDockControlTop.Manager = Me.BarManager1
Me.ToolTip1.SetToolTip(Me.barDockControlTop, resources.GetString("barDockControlTop.ToolTip"))
'
'barDockControlBottom
'
Me.barDockControlBottom.CausesValidation = False
resources.ApplyResources(Me.barDockControlBottom, "barDockControlBottom")
Me.barDockControlBottom.CausesValidation = False
Me.barDockControlBottom.Manager = Me.BarManager1
Me.ToolTip1.SetToolTip(Me.barDockControlBottom, resources.GetString("barDockControlBottom.ToolTip"))
'
'barDockControlLeft
'
Me.barDockControlLeft.CausesValidation = False
resources.ApplyResources(Me.barDockControlLeft, "barDockControlLeft")
Me.barDockControlLeft.CausesValidation = False
Me.barDockControlLeft.Manager = Me.BarManager1
Me.ToolTip1.SetToolTip(Me.barDockControlLeft, resources.GetString("barDockControlLeft.ToolTip"))
'
'barDockControlRight
'
Me.barDockControlRight.CausesValidation = False
resources.ApplyResources(Me.barDockControlRight, "barDockControlRight")
Me.barDockControlRight.CausesValidation = False
Me.barDockControlRight.Manager = Me.BarManager1
Me.ToolTip1.SetToolTip(Me.barDockControlRight, resources.GetString("barDockControlRight.ToolTip"))
'
'PdfFileOpenBarItem1
'
resources.ApplyResources(Me.PdfFileOpenBarItem1, "PdfFileOpenBarItem1")
Me.PdfFileOpenBarItem1.Enabled = False
Me.PdfFileOpenBarItem1.Id = 1
Me.PdfFileOpenBarItem1.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFileOpenBarItem1.ImageOptions.ImageIndex"), Integer)
Me.PdfFileOpenBarItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFileOpenBarItem1.ImageOptions.LargeImageIndex"), Integer)
Me.PdfFileOpenBarItem1.ImageOptions.SvgImage = CType(resources.GetObject("PdfFileOpenBarItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfFileOpenBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O))
Me.PdfFileOpenBarItem1.Name = "PdfFileOpenBarItem1"
'
@@ -275,6 +295,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfFileSaveAsBarItem1, "PdfFileSaveAsBarItem1")
Me.PdfFileSaveAsBarItem1.Enabled = False
Me.PdfFileSaveAsBarItem1.Id = 2
Me.PdfFileSaveAsBarItem1.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFileSaveAsBarItem1.ImageOptions.ImageIndex"), Integer)
Me.PdfFileSaveAsBarItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFileSaveAsBarItem1.ImageOptions.LargeImageIndex"), Integer)
Me.PdfFileSaveAsBarItem1.ImageOptions.SvgImage = CType(resources.GetObject("PdfFileSaveAsBarItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfFileSaveAsBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S))
Me.PdfFileSaveAsBarItem1.Name = "PdfFileSaveAsBarItem1"
'
@@ -283,6 +306,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfFilePrintBarItem2, "PdfFilePrintBarItem2")
Me.PdfFilePrintBarItem2.Enabled = False
Me.PdfFilePrintBarItem2.Id = 3
Me.PdfFilePrintBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFilePrintBarItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfFilePrintBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFilePrintBarItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfFilePrintBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfFilePrintBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfFilePrintBarItem2.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.P))
Me.PdfFilePrintBarItem2.Name = "PdfFilePrintBarItem2"
'
@@ -291,6 +317,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfPreviousPageBarItem2, "PdfPreviousPageBarItem2")
Me.PdfPreviousPageBarItem2.Enabled = False
Me.PdfPreviousPageBarItem2.Id = 4
Me.PdfPreviousPageBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfPreviousPageBarItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfPreviousPageBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfPreviousPageBarItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfPreviousPageBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfPreviousPageBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfPreviousPageBarItem2.Name = "PdfPreviousPageBarItem2"
'
'PdfNextPageBarItem2
@@ -298,6 +327,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfNextPageBarItem2, "PdfNextPageBarItem2")
Me.PdfNextPageBarItem2.Enabled = False
Me.PdfNextPageBarItem2.Id = 5
Me.PdfNextPageBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfNextPageBarItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfNextPageBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfNextPageBarItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfNextPageBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfNextPageBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfNextPageBarItem2.Name = "PdfNextPageBarItem2"
'
'PdfFindTextBarItem2
@@ -305,6 +337,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfFindTextBarItem2, "PdfFindTextBarItem2")
Me.PdfFindTextBarItem2.Enabled = False
Me.PdfFindTextBarItem2.Id = 6
Me.PdfFindTextBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFindTextBarItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfFindTextBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFindTextBarItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfFindTextBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfFindTextBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfFindTextBarItem2.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F))
Me.PdfFindTextBarItem2.Name = "PdfFindTextBarItem2"
'
@@ -313,6 +348,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoomOutBarItem2, "PdfZoomOutBarItem2")
Me.PdfZoomOutBarItem2.Enabled = False
Me.PdfZoomOutBarItem2.Id = 7
Me.PdfZoomOutBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoomOutBarItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoomOutBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoomOutBarItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoomOutBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoomOutBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoomOutBarItem2.Name = "PdfZoomOutBarItem2"
'
'PdfZoomInBarItem2
@@ -320,6 +358,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoomInBarItem2, "PdfZoomInBarItem2")
Me.PdfZoomInBarItem2.Enabled = False
Me.PdfZoomInBarItem2.Id = 8
Me.PdfZoomInBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoomInBarItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoomInBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoomInBarItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoomInBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoomInBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoomInBarItem2.Name = "PdfZoomInBarItem2"
'
'PdfExactZoomListBarSubItem2
@@ -327,6 +368,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfExactZoomListBarSubItem2, "PdfExactZoomListBarSubItem2")
Me.PdfExactZoomListBarSubItem2.Enabled = False
Me.PdfExactZoomListBarSubItem2.Id = 9
Me.PdfExactZoomListBarSubItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfExactZoomListBarSubItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfExactZoomListBarSubItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfExactZoomListBarSubItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfExactZoomListBarSubItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfExactZoomListBarSubItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfExactZoomListBarSubItem2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom10CheckItem2, True), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom25CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom50CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom75CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom100CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom125CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom150CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom200CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom400CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom500CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetActualSizeZoomModeCheckItem2, True), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetPageLevelZoomModeCheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitWidthZoomModeCheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitVisibleZoomModeCheckItem2)})
Me.PdfExactZoomListBarSubItem2.Name = "PdfExactZoomListBarSubItem2"
Me.PdfExactZoomListBarSubItem2.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu
@@ -336,6 +380,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom10CheckItem2, "PdfZoom10CheckItem2")
Me.PdfZoom10CheckItem2.Enabled = False
Me.PdfZoom10CheckItem2.Id = 10
Me.PdfZoom10CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom10CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom10CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom10CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom10CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom10CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom10CheckItem2.Name = "PdfZoom10CheckItem2"
'
'PdfZoom25CheckItem2
@@ -343,6 +390,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom25CheckItem2, "PdfZoom25CheckItem2")
Me.PdfZoom25CheckItem2.Enabled = False
Me.PdfZoom25CheckItem2.Id = 11
Me.PdfZoom25CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom25CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom25CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom25CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom25CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom25CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom25CheckItem2.Name = "PdfZoom25CheckItem2"
'
'PdfZoom50CheckItem2
@@ -350,6 +400,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom50CheckItem2, "PdfZoom50CheckItem2")
Me.PdfZoom50CheckItem2.Enabled = False
Me.PdfZoom50CheckItem2.Id = 12
Me.PdfZoom50CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom50CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom50CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom50CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom50CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom50CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom50CheckItem2.Name = "PdfZoom50CheckItem2"
'
'PdfZoom75CheckItem2
@@ -357,6 +410,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom75CheckItem2, "PdfZoom75CheckItem2")
Me.PdfZoom75CheckItem2.Enabled = False
Me.PdfZoom75CheckItem2.Id = 13
Me.PdfZoom75CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom75CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom75CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom75CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom75CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom75CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom75CheckItem2.Name = "PdfZoom75CheckItem2"
'
'PdfZoom100CheckItem2
@@ -364,6 +420,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom100CheckItem2, "PdfZoom100CheckItem2")
Me.PdfZoom100CheckItem2.Enabled = False
Me.PdfZoom100CheckItem2.Id = 14
Me.PdfZoom100CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom100CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom100CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom100CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom100CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom100CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom100CheckItem2.Name = "PdfZoom100CheckItem2"
'
'PdfZoom125CheckItem2
@@ -371,6 +430,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom125CheckItem2, "PdfZoom125CheckItem2")
Me.PdfZoom125CheckItem2.Enabled = False
Me.PdfZoom125CheckItem2.Id = 15
Me.PdfZoom125CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom125CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom125CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom125CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom125CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom125CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom125CheckItem2.Name = "PdfZoom125CheckItem2"
'
'PdfZoom150CheckItem2
@@ -378,6 +440,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom150CheckItem2, "PdfZoom150CheckItem2")
Me.PdfZoom150CheckItem2.Enabled = False
Me.PdfZoom150CheckItem2.Id = 16
Me.PdfZoom150CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom150CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom150CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom150CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom150CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom150CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom150CheckItem2.Name = "PdfZoom150CheckItem2"
'
'PdfZoom200CheckItem2
@@ -385,6 +450,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom200CheckItem2, "PdfZoom200CheckItem2")
Me.PdfZoom200CheckItem2.Enabled = False
Me.PdfZoom200CheckItem2.Id = 17
Me.PdfZoom200CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom200CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom200CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom200CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom200CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom200CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom200CheckItem2.Name = "PdfZoom200CheckItem2"
'
'PdfZoom400CheckItem2
@@ -392,6 +460,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom400CheckItem2, "PdfZoom400CheckItem2")
Me.PdfZoom400CheckItem2.Enabled = False
Me.PdfZoom400CheckItem2.Id = 18
Me.PdfZoom400CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom400CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom400CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom400CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom400CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom400CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom400CheckItem2.Name = "PdfZoom400CheckItem2"
'
'PdfZoom500CheckItem2
@@ -399,6 +470,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfZoom500CheckItem2, "PdfZoom500CheckItem2")
Me.PdfZoom500CheckItem2.Enabled = False
Me.PdfZoom500CheckItem2.Id = 19
Me.PdfZoom500CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom500CheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfZoom500CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom500CheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfZoom500CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom500CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfZoom500CheckItem2.Name = "PdfZoom500CheckItem2"
'
'PdfSetActualSizeZoomModeCheckItem2
@@ -406,6 +480,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfSetActualSizeZoomModeCheckItem2, "PdfSetActualSizeZoomModeCheckItem2")
Me.PdfSetActualSizeZoomModeCheckItem2.Enabled = False
Me.PdfSetActualSizeZoomModeCheckItem2.Id = 20
Me.PdfSetActualSizeZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetActualSizeZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfSetActualSizeZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetActualSizeZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfSetActualSizeZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetActualSizeZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfSetActualSizeZoomModeCheckItem2.Name = "PdfSetActualSizeZoomModeCheckItem2"
'
'PdfSetPageLevelZoomModeCheckItem2
@@ -413,6 +490,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfSetPageLevelZoomModeCheckItem2, "PdfSetPageLevelZoomModeCheckItem2")
Me.PdfSetPageLevelZoomModeCheckItem2.Enabled = False
Me.PdfSetPageLevelZoomModeCheckItem2.Id = 21
Me.PdfSetPageLevelZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetPageLevelZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfSetPageLevelZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetPageLevelZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfSetPageLevelZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetPageLevelZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfSetPageLevelZoomModeCheckItem2.Name = "PdfSetPageLevelZoomModeCheckItem2"
'
'PdfSetFitWidthZoomModeCheckItem2
@@ -420,6 +500,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfSetFitWidthZoomModeCheckItem2, "PdfSetFitWidthZoomModeCheckItem2")
Me.PdfSetFitWidthZoomModeCheckItem2.Enabled = False
Me.PdfSetFitWidthZoomModeCheckItem2.Id = 22
Me.PdfSetFitWidthZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetFitWidthZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfSetFitWidthZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetFitWidthZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfSetFitWidthZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetFitWidthZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfSetFitWidthZoomModeCheckItem2.Name = "PdfSetFitWidthZoomModeCheckItem2"
'
'PdfSetFitVisibleZoomModeCheckItem2
@@ -427,12 +510,18 @@ Partial Class frmValidator
resources.ApplyResources(Me.PdfSetFitVisibleZoomModeCheckItem2, "PdfSetFitVisibleZoomModeCheckItem2")
Me.PdfSetFitVisibleZoomModeCheckItem2.Enabled = False
Me.PdfSetFitVisibleZoomModeCheckItem2.Id = 23
Me.PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer)
Me.PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer)
Me.PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PdfSetFitVisibleZoomModeCheckItem2.Name = "PdfSetFitVisibleZoomModeCheckItem2"
'
'BarButtonItem1
'
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
Me.BarButtonItem1.Id = 0
Me.BarButtonItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.ImageIndex"), Integer)
Me.BarButtonItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImageIndex"), Integer)
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'PdfBarController2
@@ -463,9 +552,13 @@ Partial Class frmValidator
'
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.btnitemConversationEnd, Me.bbtnitem_ConversationNew, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarEditItem3, Me.btnitemConversation_reload, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex"), Integer)
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex"), Integer)
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.RibbonControl1.ExpandCollapseItem.SearchTags = resources.GetString("RibbonControl1.ExpandCollapseItem.SearchTags")
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.btnitemConversationEnd, Me.bbtnitem_ConversationNew, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarEditItem3, Me.btnitemConversation_reload, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick})
Me.RibbonControl1.MaxItemId = 32
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageConversations})
@@ -476,10 +569,15 @@ Partial Class frmValidator
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
Me.ToolTip1.SetToolTip(Me.RibbonControl1, resources.GetString("RibbonControl1.ToolTip"))
'
'bsiError
'
resources.ApplyResources(Me.bsiError, "bsiError")
Me.bsiError.Id = 1
Me.bsiError.ImageOptions.ImageIndex = CType(resources.GetObject("bsiError.ImageOptions.ImageIndex"), Integer)
Me.bsiError.ImageOptions.LargeImageIndex = CType(resources.GetObject("bsiError.ImageOptions.LargeImageIndex"), Integer)
Me.bsiError.ImageOptions.SvgImage = CType(resources.GetObject("bsiError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bsiError.ItemAppearance.Normal.Font = CType(resources.GetObject("bsiError.ItemAppearance.Normal.Font"), System.Drawing.Font)
Me.bsiError.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Red
Me.bsiError.ItemAppearance.Normal.Options.UseFont = True
@@ -490,6 +588,9 @@ Partial Class frmValidator
'
resources.ApplyResources(Me.bsiInformation, "bsiInformation")
Me.bsiInformation.Id = 2
Me.bsiInformation.ImageOptions.ImageIndex = CType(resources.GetObject("bsiInformation.ImageOptions.ImageIndex"), Integer)
Me.bsiInformation.ImageOptions.LargeImageIndex = CType(resources.GetObject("bsiInformation.ImageOptions.LargeImageIndex"), Integer)
Me.bsiInformation.ImageOptions.SvgImage = CType(resources.GetObject("bsiInformation.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bsiInformation.ItemAppearance.Normal.BackColor = System.Drawing.Color.Transparent
Me.bsiInformation.ItemAppearance.Normal.Options.UseBackColor = True
Me.bsiInformation.Name = "bsiInformation"
@@ -498,12 +599,17 @@ Partial Class frmValidator
'
resources.ApplyResources(Me.bsiDocID, "bsiDocID")
Me.bsiDocID.Id = 3
Me.bsiDocID.ImageOptions.ImageIndex = CType(resources.GetObject("bsiDocID.ImageOptions.ImageIndex"), Integer)
Me.bsiDocID.ImageOptions.LargeImageIndex = CType(resources.GetObject("bsiDocID.ImageOptions.LargeImageIndex"), Integer)
Me.bsiDocID.ImageOptions.SvgImage = CType(resources.GetObject("bsiDocID.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bsiDocID.Name = "bsiDocID"
'
'BarButtonItemFileView
'
resources.ApplyResources(Me.BarButtonItemFileView, "BarButtonItemFileView")
Me.BarButtonItemFileView.Id = 4
Me.BarButtonItemFileView.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItemFileView.ImageOptions.ImageIndex"), Integer)
Me.BarButtonItemFileView.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItemFileView.ImageOptions.LargeImageIndex"), Integer)
Me.BarButtonItemFileView.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.enablesearch
Me.BarButtonItemFileView.Name = "BarButtonItemFileView"
'
@@ -512,7 +618,10 @@ Partial Class frmValidator
resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3")
Me.BarButtonItem3.Id = 5
Me.BarButtonItem3.ImageOptions.Image = CType(resources.GetObject("BarButtonItem3.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem3.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem3.ImageOptions.ImageIndex"), Integer)
Me.BarButtonItem3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem3.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImageIndex"), Integer)
Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem3.Name = "BarButtonItem3"
Me.BarButtonItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
@@ -520,6 +629,8 @@ Partial Class frmValidator
'
resources.ApplyResources(Me.BarButtonItem4, "BarButtonItem4")
Me.BarButtonItem4.Id = 6
Me.BarButtonItem4.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem4.ImageOptions.ImageIndex"), Integer)
Me.BarButtonItem4.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImageIndex"), Integer)
Me.BarButtonItem4.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.bo_unknown
Me.BarButtonItem4.Name = "BarButtonItem4"
Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
@@ -529,7 +640,10 @@ Partial Class frmValidator
resources.ApplyResources(Me.bbtniRefresh, "bbtniRefresh")
Me.bbtniRefresh.Id = 7
Me.bbtniRefresh.ImageOptions.Image = CType(resources.GetObject("bbtniRefresh.ImageOptions.Image"), System.Drawing.Image)
Me.bbtniRefresh.ImageOptions.ImageIndex = CType(resources.GetObject("bbtniRefresh.ImageOptions.ImageIndex"), Integer)
Me.bbtniRefresh.ImageOptions.LargeImage = CType(resources.GetObject("bbtniRefresh.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtniRefresh.ImageOptions.LargeImageIndex = CType(resources.GetObject("bbtniRefresh.ImageOptions.LargeImageIndex"), Integer)
Me.bbtniRefresh.ImageOptions.SvgImage = CType(resources.GetObject("bbtniRefresh.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtniRefresh.Name = "bbtniRefresh"
'
'bbtniRefreshSearches
@@ -537,7 +651,10 @@ Partial Class frmValidator
resources.ApplyResources(Me.bbtniRefreshSearches, "bbtniRefreshSearches")
Me.bbtniRefreshSearches.Id = 8
Me.bbtniRefreshSearches.ImageOptions.Image = CType(resources.GetObject("bbtniRefreshSearches.ImageOptions.Image"), System.Drawing.Image)
Me.bbtniRefreshSearches.ImageOptions.ImageIndex = CType(resources.GetObject("bbtniRefreshSearches.ImageOptions.ImageIndex"), Integer)
Me.bbtniRefreshSearches.ImageOptions.LargeImage = CType(resources.GetObject("bbtniRefreshSearches.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtniRefreshSearches.ImageOptions.LargeImageIndex = CType(resources.GetObject("bbtniRefreshSearches.ImageOptions.LargeImageIndex"), Integer)
Me.bbtniRefreshSearches.ImageOptions.SvgImage = CType(resources.GetObject("bbtniRefreshSearches.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtniRefreshSearches.Name = "bbtniRefreshSearches"
Me.bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
@@ -546,7 +663,10 @@ Partial Class frmValidator
resources.ApplyResources(Me.bbtniNext, "bbtniNext")
Me.bbtniNext.Id = 9
Me.bbtniNext.ImageOptions.Image = CType(resources.GetObject("bbtniNext.ImageOptions.Image"), System.Drawing.Image)
Me.bbtniNext.ImageOptions.ImageIndex = CType(resources.GetObject("bbtniNext.ImageOptions.ImageIndex"), Integer)
Me.bbtniNext.ImageOptions.LargeImage = CType(resources.GetObject("bbtniNext.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtniNext.ImageOptions.LargeImageIndex = CType(resources.GetObject("bbtniNext.ImageOptions.LargeImageIndex"), Integer)
Me.bbtniNext.ImageOptions.SvgImage = CType(resources.GetObject("bbtniNext.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtniNext.Name = "bbtniNext"
'
'bbtniDelete
@@ -554,7 +674,10 @@ Partial Class frmValidator
resources.ApplyResources(Me.bbtniDelete, "bbtniDelete")
Me.bbtniDelete.Id = 10
Me.bbtniDelete.ImageOptions.Image = CType(resources.GetObject("bbtniDelete.ImageOptions.Image"), System.Drawing.Image)
Me.bbtniDelete.ImageOptions.ImageIndex = CType(resources.GetObject("bbtniDelete.ImageOptions.ImageIndex"), Integer)
Me.bbtniDelete.ImageOptions.LargeImage = CType(resources.GetObject("bbtniDelete.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtniDelete.ImageOptions.LargeImageIndex = CType(resources.GetObject("bbtniDelete.ImageOptions.LargeImageIndex"), Integer)
Me.bbtniDelete.ImageOptions.SvgImage = CType(resources.GetObject("bbtniDelete.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtniDelete.Name = "bbtniDelete"
Me.bbtniDelete.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
'
@@ -563,7 +686,10 @@ Partial Class frmValidator
resources.ApplyResources(Me.bbtniAnnotation, "bbtniAnnotation")
Me.bbtniAnnotation.Id = 11
Me.bbtniAnnotation.ImageOptions.Image = CType(resources.GetObject("bbtniAnnotation.ImageOptions.Image"), System.Drawing.Image)
Me.bbtniAnnotation.ImageOptions.ImageIndex = CType(resources.GetObject("bbtniAnnotation.ImageOptions.ImageIndex"), Integer)
Me.bbtniAnnotation.ImageOptions.LargeImage = CType(resources.GetObject("bbtniAnnotation.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtniAnnotation.ImageOptions.LargeImageIndex = CType(resources.GetObject("bbtniAnnotation.ImageOptions.LargeImageIndex"), Integer)
Me.bbtniAnnotation.ImageOptions.SvgImage = CType(resources.GetObject("bbtniAnnotation.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtniAnnotation.Name = "bbtniAnnotation"
Me.bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
'
@@ -572,7 +698,10 @@ Partial Class frmValidator
resources.ApplyResources(Me.bsiInfo1, "bsiInfo1")
Me.bsiInfo1.Id = 14
Me.bsiInfo1.ImageOptions.Image = CType(resources.GetObject("bsiInfo1.ImageOptions.Image"), System.Drawing.Image)
Me.bsiInfo1.ImageOptions.ImageIndex = CType(resources.GetObject("bsiInfo1.ImageOptions.ImageIndex"), Integer)
Me.bsiInfo1.ImageOptions.LargeImage = CType(resources.GetObject("bsiInfo1.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bsiInfo1.ImageOptions.LargeImageIndex = CType(resources.GetObject("bsiInfo1.ImageOptions.LargeImageIndex"), Integer)
Me.bsiInfo1.ImageOptions.SvgImage = CType(resources.GetObject("bsiInfo1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bsiInfo1.ItemAppearance.Normal.Font = CType(resources.GetObject("bsiInfo1.ItemAppearance.Normal.Font"), System.Drawing.Font)
Me.bsiInfo1.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Red
Me.bsiInfo1.ItemAppearance.Normal.Options.UseFont = True
@@ -585,7 +714,10 @@ Partial Class frmValidator
resources.ApplyResources(Me.bsiInfo2, "bsiInfo2")
Me.bsiInfo2.Id = 15
Me.bsiInfo2.ImageOptions.Image = CType(resources.GetObject("bsiInfo2.ImageOptions.Image"), System.Drawing.Image)
Me.bsiInfo2.ImageOptions.ImageIndex = CType(resources.GetObject("bsiInfo2.ImageOptions.ImageIndex"), Integer)
Me.bsiInfo2.ImageOptions.LargeImage = CType(resources.GetObject("bsiInfo2.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bsiInfo2.ImageOptions.LargeImageIndex = CType(resources.GetObject("bsiInfo2.ImageOptions.LargeImageIndex"), Integer)
Me.bsiInfo2.ImageOptions.SvgImage = CType(resources.GetObject("bsiInfo2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bsiInfo2.ItemAppearance.Normal.Font = CType(resources.GetObject("bsiInfo2.ItemAppearance.Normal.Font"), System.Drawing.Font)
Me.bsiInfo2.ItemAppearance.Normal.Options.UseFont = True
Me.bsiInfo2.Name = "bsiInfo2"
@@ -596,25 +728,36 @@ Partial Class frmValidator
resources.ApplyResources(Me.BbtnitmSave, "BbtnitmSave")
Me.BbtnitmSave.Id = 16
Me.BbtnitmSave.ImageOptions.Image = CType(resources.GetObject("BbtnitmSave.ImageOptions.Image"), System.Drawing.Image)
Me.BbtnitmSave.ImageOptions.ImageIndex = CType(resources.GetObject("BbtnitmSave.ImageOptions.ImageIndex"), Integer)
Me.BbtnitmSave.ImageOptions.LargeImage = CType(resources.GetObject("BbtnitmSave.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BbtnitmSave.ImageOptions.LargeImageIndex = CType(resources.GetObject("BbtnitmSave.ImageOptions.LargeImageIndex"), Integer)
Me.BbtnitmSave.ImageOptions.SvgImage = CType(resources.GetObject("BbtnitmSave.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BbtnitmSave.Name = "BbtnitmSave"
'
'BarButtonItem2
'
resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
Me.BarButtonItem2.Id = 17
Me.BarButtonItem2.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem2.ImageOptions.ImageIndex"), Integer)
Me.BarButtonItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImageIndex"), Integer)
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'BarLinkContainerItem1
'
resources.ApplyResources(Me.BarLinkContainerItem1, "BarLinkContainerItem1")
Me.BarLinkContainerItem1.Id = 18
Me.BarLinkContainerItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarLinkContainerItem1.ImageOptions.ImageIndex"), Integer)
Me.BarLinkContainerItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarLinkContainerItem1.ImageOptions.LargeImageIndex"), Integer)
Me.BarLinkContainerItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarLinkContainerItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarLinkContainerItem1.Name = "BarLinkContainerItem1"
'
'btnitemConversationEnd
'
resources.ApplyResources(Me.btnitemConversationEnd, "btnitemConversationEnd")
Me.btnitemConversationEnd.Id = 19
Me.btnitemConversationEnd.ImageOptions.ImageIndex = CType(resources.GetObject("btnitemConversationEnd.ImageOptions.ImageIndex"), Integer)
Me.btnitemConversationEnd.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnitemConversationEnd.ImageOptions.LargeImageIndex"), Integer)
Me.btnitemConversationEnd.ImageOptions.SvgImage = CType(resources.GetObject("btnitemConversationEnd.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnitemConversationEnd.Name = "btnitemConversationEnd"
'
@@ -622,6 +765,8 @@ Partial Class frmValidator
'
resources.ApplyResources(Me.bbtnitem_ConversationNew, "bbtnitem_ConversationNew")
Me.bbtnitem_ConversationNew.Id = 20
Me.bbtnitem_ConversationNew.ImageOptions.ImageIndex = CType(resources.GetObject("bbtnitem_ConversationNew.ImageOptions.ImageIndex"), Integer)
Me.bbtnitem_ConversationNew.ImageOptions.LargeImageIndex = CType(resources.GetObject("bbtnitem_ConversationNew.ImageOptions.LargeImageIndex"), Integer)
Me.bbtnitem_ConversationNew.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitem_ConversationNew.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitem_ConversationNew.Name = "bbtnitem_ConversationNew"
'
@@ -629,6 +774,9 @@ Partial Class frmValidator
'
resources.ApplyResources(Me.BarLinkContainerItem2, "BarLinkContainerItem2")
Me.BarLinkContainerItem2.Id = 21
Me.BarLinkContainerItem2.ImageOptions.ImageIndex = CType(resources.GetObject("BarLinkContainerItem2.ImageOptions.ImageIndex"), Integer)
Me.BarLinkContainerItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarLinkContainerItem2.ImageOptions.LargeImageIndex"), Integer)
Me.BarLinkContainerItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarLinkContainerItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarLinkContainerItem2.Name = "BarLinkContainerItem2"
'
'BarEditItem1
@@ -636,6 +784,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.BarEditItem1, "BarEditItem1")
Me.BarEditItem1.Edit = Me.RepositoryItemComboBox1
Me.BarEditItem1.Id = 22
Me.BarEditItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarEditItem1.ImageOptions.ImageIndex"), Integer)
Me.BarEditItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarEditItem1.ImageOptions.LargeImageIndex"), Integer)
Me.BarEditItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarEditItem1.Name = "BarEditItem1"
'
'RepositoryItemComboBox1
@@ -649,6 +800,9 @@ Partial Class frmValidator
resources.ApplyResources(Me.BarEditItem2, "BarEditItem2")
Me.BarEditItem2.Edit = Me.RepositoryItemComboBox2
Me.BarEditItem2.Id = 23
Me.BarEditItem2.ImageOptions.ImageIndex = CType(resources.GetObject("BarEditItem2.ImageOptions.ImageIndex"), Integer)
Me.BarEditItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarEditItem2.ImageOptions.LargeImageIndex"), Integer)
Me.BarEditItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarEditItem2.Name = "BarEditItem2"
'
'RepositoryItemComboBox2
@@ -659,9 +813,12 @@ Partial Class frmValidator
'
'BarEditItem3
'
Me.BarEditItem3.Edit = Me.RepositoryItemComboBox3
resources.ApplyResources(Me.BarEditItem3, "BarEditItem3")
Me.BarEditItem3.Edit = Me.RepositoryItemComboBox3
Me.BarEditItem3.Id = 24
Me.BarEditItem3.ImageOptions.ImageIndex = CType(resources.GetObject("BarEditItem3.ImageOptions.ImageIndex"), Integer)
Me.BarEditItem3.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarEditItem3.ImageOptions.LargeImageIndex"), Integer)
Me.BarEditItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarEditItem3.Name = "BarEditItem3"
Me.BarEditItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
'
@@ -675,12 +832,17 @@ Partial Class frmValidator
'
resources.ApplyResources(Me.btnitemConversation_reload, "btnitemConversation_reload")
Me.btnitemConversation_reload.Id = 25
Me.btnitemConversation_reload.ImageOptions.ImageIndex = CType(resources.GetObject("btnitemConversation_reload.ImageOptions.ImageIndex"), Integer)
Me.btnitemConversation_reload.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnitemConversation_reload.ImageOptions.LargeImageIndex"), Integer)
Me.btnitemConversation_reload.ImageOptions.SvgImage = CType(resources.GetObject("btnitemConversation_reload.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnitemConversation_reload.Name = "btnitemConversation_reload"
'
'BarButtonItem5
'
resources.ApplyResources(Me.BarButtonItem5, "BarButtonItem5")
Me.BarButtonItem5.Id = 26
Me.BarButtonItem5.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem5.ImageOptions.ImageIndex"), Integer)
Me.BarButtonItem5.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem5.ImageOptions.LargeImageIndex"), Integer)
Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem5.Name = "BarButtonItem5"
'
@@ -688,6 +850,8 @@ Partial Class frmValidator
'
resources.ApplyResources(Me.Attmt_bbtnitmShow, "Attmt_bbtnitmShow")
Me.Attmt_bbtnitmShow.Id = 27
Me.Attmt_bbtnitmShow.ImageOptions.ImageIndex = CType(resources.GetObject("Attmt_bbtnitmShow.ImageOptions.ImageIndex"), Integer)
Me.Attmt_bbtnitmShow.ImageOptions.LargeImageIndex = CType(resources.GetObject("Attmt_bbtnitmShow.ImageOptions.LargeImageIndex"), Integer)
Me.Attmt_bbtnitmShow.ImageOptions.SvgImage = CType(resources.GetObject("Attmt_bbtnitmShow.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.Attmt_bbtnitmShow.Name = "Attmt_bbtnitmShow"
Me.Attmt_bbtnitmShow.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -696,6 +860,8 @@ Partial Class frmValidator
'
resources.ApplyResources(Me.barbtnitmExport, "barbtnitmExport")
Me.barbtnitmExport.Id = 28
Me.barbtnitmExport.ImageOptions.ImageIndex = CType(resources.GetObject("barbtnitmExport.ImageOptions.ImageIndex"), Integer)
Me.barbtnitmExport.ImageOptions.LargeImageIndex = CType(resources.GetObject("barbtnitmExport.ImageOptions.LargeImageIndex"), Integer)
Me.barbtnitmExport.ImageOptions.SvgImage = CType(resources.GetObject("barbtnitmExport.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.barbtnitmExport.Name = "barbtnitmExport"
Me.barbtnitmExport.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -704,6 +870,8 @@ Partial Class frmValidator
'
resources.ApplyResources(Me.ToggleSwitchItemLoadonClick, "ToggleSwitchItemLoadonClick")
Me.ToggleSwitchItemLoadonClick.Id = 30
Me.ToggleSwitchItemLoadonClick.ImageOptions.ImageIndex = CType(resources.GetObject("ToggleSwitchItemLoadonClick.ImageOptions.ImageIndex"), Integer)
Me.ToggleSwitchItemLoadonClick.ImageOptions.LargeImageIndex = CType(resources.GetObject("ToggleSwitchItemLoadonClick.ImageOptions.LargeImageIndex"), Integer)
Me.ToggleSwitchItemLoadonClick.ImageOptions.SvgImage = CType(resources.GetObject("ToggleSwitchItemLoadonClick.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.ToggleSwitchItemLoadonClick.Name = "ToggleSwitchItemLoadonClick"
'
@@ -711,6 +879,8 @@ Partial Class frmValidator
'
resources.ApplyResources(Me.Attmnt_bbtnitm_LoadonClick, "Attmnt_bbtnitm_LoadonClick")
Me.Attmnt_bbtnitm_LoadonClick.Id = 31
Me.Attmnt_bbtnitm_LoadonClick.ImageOptions.ImageIndex = CType(resources.GetObject("Attmnt_bbtnitm_LoadonClick.ImageOptions.ImageIndex"), Integer)
Me.Attmnt_bbtnitm_LoadonClick.ImageOptions.LargeImageIndex = CType(resources.GetObject("Attmnt_bbtnitm_LoadonClick.ImageOptions.LargeImageIndex"), Integer)
Me.Attmnt_bbtnitm_LoadonClick.ImageOptions.SvgImage = CType(resources.GetObject("Attmnt_bbtnitm_LoadonClick.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.Attmnt_bbtnitm_LoadonClick.ItemAppearance.Pressed.Font = CType(resources.GetObject("Attmnt_bbtnitm_LoadonClick.ItemAppearance.Pressed.Font"), System.Drawing.Font)
Me.Attmnt_bbtnitm_LoadonClick.ItemAppearance.Pressed.ForeColor = DevExpress.LookAndFeel.DXSkinColors.ForeColors.Information
@@ -795,22 +965,27 @@ Partial Class frmValidator
'
'RibbonStatusBar1
'
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiError)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInformation)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDocID)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.ToolTip1.SetToolTip(Me.RibbonStatusBar1, resources.GetString("RibbonStatusBar1.ToolTip"))
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
'
'FolderBrowserDialog1
'
resources.ApplyResources(Me.FolderBrowserDialog1, "FolderBrowserDialog1")
'
'frmValidator
'
Me.Appearance.Options.UseFont = True
resources.ApplyResources(Me, "$this")
Me.Appearance.Options.UseFont = True
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SplitContainer2_DV_Chat)
Me.Controls.Add(Me.RibbonControl1)
@@ -825,6 +1000,7 @@ Partial Class frmValidator
Me.Name = "frmValidator"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.ToolTip1.SetToolTip(Me, resources.GetString("$this.ToolTip"))
CType(Me.SplitContainer2_DV_Chat.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer2_DV_Chat.Panel1.ResumeLayout(False)
CType(Me.SplitContainer2_DV_Chat.Panel2, System.ComponentModel.ISupportInitialize).EndInit()

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -106,6 +106,9 @@ Public Class frmValidator
Private AdditionalDocResultsExist As Boolean = False
Private AdditionalDataResultsExist As Boolean = False
Private Class S
Inherits My.Resources.frmValidator_Strings
End Class
Public Sub New(pEnvironment As Environment)
'MyBase.New
@@ -145,6 +148,8 @@ Public Class frmValidator
Try
LOGGER.Debug("###frmValidation_Load###")
LOGGER.Debug("Current User Language: [{0}]", USER_LANGUAGE)
' Operation mode is either guessed from service settings
' or explictly set from OperationModeOverride in Params
OperationMode = GetOperationMode()
@@ -245,10 +250,29 @@ Public Class frmValidator
PROFIL_VEKTORINDEX = oProfileRow.Item("PM_VEKTOR_INDEX")
PROFIL_LOGINDEX = oProfileRow.Item("LOG_INDEX")
CURRENT_PROFILE_LOG_INDEX = PROFIL_LOGINDEX
Me.Text = ADDITIONAL_TITLE & " - " & oProfileRow.Item("TITLE")
TITLELabel1.Text = oProfileRow.Item("TITLE")
DESCRIPTIONLabel.Text = IIf(IsDBNull(oProfileRow.Item("DESCRIPTION")), "", oProfileRow.Item("DESCRIPTION"))
Dim oProfileTitle As String = ""
Dim oProfileDescription As String = ""
Dim oProfileFinalText As String = ""
For Each oRow As DataRow In CURRENT_DT_PROFILE_LANGUAGE.Rows
Console.WriteLine(oRow.Item("TITLE"))
If oRow.Item("TITLE") = $"PROFILE_TITLE{CURRENT_ProfilGUID}" Then
oProfileTitle = oRow.Item("STRING1")
ElseIf oRow.Item("TITLE") = $"PROFILE_DESCRIPTION{CURRENT_ProfilGUID}" Then
oProfileDescription = oRow.Item("STRING1")
ElseIf oRow.Item("TITLE") = $"PROFILE_FINAL_TEXT{CURRENT_ProfilGUID}" Then
oProfileFinalText = oRow.Item("STRING1")
End If
Next
If oProfileTitle = "" Then
oProfileTitle = oProfileRow.Item("TITLE")
End If
Me.Text = ADDITIONAL_TITLE & " - " & oProfileTitle
If oProfileDescription = "" Then
IIf(IsDBNull(oProfileRow.Item("DESCRIPTION")), "", oProfileRow.Item("DESCRIPTION"))
End If
TITLELabel1.Text = oProfileTitle
DESCRIPTIONLabel.Text = oProfileDescription
If PROFIL_VEKTORINDEX.GetType.ToString.ToLower = "system.dbnull" Then
PROFIL_VEKTORINDEX = ""
End If
@@ -261,19 +285,17 @@ Public Class frmValidator
Move2Folder = IIf(IsDBNull(oProfileRow.Item("MOVE2Folder")), "", oProfileRow.Item("MOVE2Folder"))
Try
If finalProfile = True Then
Dim text As String = IIf(IsDBNull(oProfileRow.Item("FINAL_TEXT")), "", oProfileRow.Item("FINAL_TEXT") & (" (F2)"))
If text <> "" Then
btnSave.Text = text
If oProfileFinalText = "" Then
oProfileFinalText = IIf(IsDBNull(oProfileRow.Item("FINAL_TEXT")), "", oProfileRow.Item("FINAL_TEXT") & (" (F2)"))
Else
Try
btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
Catch ex As Exception
LOGGER.Warn("Missing Config frmValidator.ValidationButton in TBDD_GUI_LANGUAGE_PHRASE")
End Try
oProfileFinalText = $"{oProfileFinalText} (F2)"
End If
btnSave.Text = oProfileFinalText
Else
btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
oProfileFinalText = IIf(IsDBNull(oProfileRow.Item("FINAL_TEXT")), "", oProfileRow.Item("FINAL_TEXT") & (" (F2)"))
'btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
btnSave.Text = oProfileFinalText
End If
LOGGER.Debug("Buttontext validation loaded")
Catch ex As Exception
@@ -320,7 +342,9 @@ Public Class frmValidator
End If
End If
oErrMsgMissingInput = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.MissingInput")
'oErrMsgMissingInput = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.MissingInput")
oErrMsgMissingInput = S.Bitte_validieren_Sie_die_rot_markierten_Felder_
RibbonPageConversations.Visible = False
If IDB_ACTIVE Then
Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_OBJECT_DYNAMIC_CONFIG] ({CURRENT_DOC_ID},{USER_ID})"
@@ -333,7 +357,10 @@ Public Class frmValidator
LOGGER.Debug("CONVERSATION-RIGHTS EXISTING")
RibbonPageConversations.Visible = True
RibbonPageGroupConv1.Enabled = True
ConversationQUDT_Delete = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.Conversation_Delete")
'ConversationQUDT_Delete = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.Conversation_Delete")
ConversationQUDT_Delete = Nothing
oView = New DataView(DTDYNAMIC_RIGHTS)
oView.RowFilter = "CONF_TITLE = 'CONVERSATION_USER_ACTIVE'"
Conversation_initialized = Conversation_init()
@@ -2631,10 +2658,9 @@ Public Class frmValidator
' ############ Infos eintragen #################
' txtDateipfad.Text = Document_Path
Dim omsg = $"Verbleibende Belege: {Amount_Docs2Validate}"
If USER_LANGUAGE <> "de-DE" Then
omsg = $"Remaining documents: {omsg}"
End If
'Dim omsg = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("remainingOps")}: {Amount_Docs2Validate}"
Dim omsg = String.Format(S.Verbleibende_Vorgänge___0_, Amount_Docs2Validate)
If Amount_Docs2Validate > 0 Then
bsiInformation.Caption = omsg
Else
@@ -2704,17 +2730,10 @@ Public Class frmValidator
errormessage = oErrMsgMissingInput
frmError.ShowDialog()
Else
Dim oMsg = "Ende des Profils - Keine weiteren Vorgänge!"
If USER_LANGUAGE <> "de-DE" Then
oMsg = "End of profile - no more objects!"
End If
'Dim oMsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("msgEndOfProfile")
Dim oMsg = S.Ende_des_Profils___Keine_weiteren_Vorgänge
LOGGER.Info(oMsg)
Dim oROW As DataRow = ClassAllgemeineFunktionen.GUI_LANGUAGE_MSGBOX("frmValidator.NoMoreDocument")
'Try
' MsgBox(oROW.Item("STRING1"), MsgBoxStyle.Information, oROW.Item("STRING2"))
'Catch ex As Exception
' MsgBox("No more documents! (No translation so far)" & vbNewLine & "Form will be closed now!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
'End Try
activate_controls(True)
Me.Close()
End If
@@ -3052,6 +3071,7 @@ Public Class frmValidator
If IDB_ACTIVE = False Then
oValuefromSource = CURRENT_WMFILE.GetVariableValue(oSourceIndexName)
Else
LOGGER.Debug($"GetVariableValuefromSource - IDBCase...")
oValuefromSource = IDBData.GetVariableValue(oSourceIndexName, oIDBTyp, FromIDB)
End If
Return oValuefromSource
@@ -3265,7 +3285,7 @@ Public Class frmValidator
LOGGER.Debug("Indexwert soll nicht geladen werden.")
Exit Select
End If
LOGGER.Debug($"getting wmValue for Index {oSourceIndexName}...")
LOGGER.Debug($"getting Value for Attribute [{oSourceIndexName}] - oIDBTyp [{oIDBTyp}] - oIDBOverride [{oIDBOverride}]...")
' Dim wertWD = CURRENT_WMFILE.GetVariableValue(oSourceIndexName)
oValueFromSource = GetVariableValuefromSource(oSourceIndexName, oIDBTyp, oIDBOverride)
@@ -3313,6 +3333,8 @@ Public Class frmValidator
Else
If oValueType = "System.String" Then
LOGGER.Debug($"IDB Fill Grid [{oControl.Name}] with String")
LOGGER.Debug($"oValueFromSource [{oValueFromSource}] - PMDelimiter[{PMDelimiter}]")
oColValuesfromSource = Split(oValueFromSource.ToString, PMDelimiter)
If oColValuesfromSource.Length > 8 Then
LOGGER.Warn("Fill Grid Error - Max 8 columns can be configured!")
@@ -4676,7 +4698,9 @@ Public Class frmValidator
Case "System.Windows.Forms.TextBox"
Try
Dim oWrongInputMessage = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.WrongInputControl")
'Dim oWrongInputMessage = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.WrongInputControl")
Dim oWrongInputMessage = S.Falsche_Eingabe
If oRegexMatch <> String.Empty AndAlso Not Regex.IsMatch(oControl.Text, oRegexMatch) Then
oMissing = True
@@ -5180,130 +5204,7 @@ Public Class frmValidator
Exit For
End If
'Try
' Dim dgv As GridControl = oControl
' Dim oRowCount As Integer = dgv.DataSource.Rows.Count
' LOGGER.Debug("Grid Row Count: [{0}]", oRowCount)
' 'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
' If oIsRequired = True And oRowCount = 0 Then
' oMissing = True
' oErrMsgMissingInput = "Fehlende Eingabe in Tabelle '" & dgv.Name & "'"
' oControl.BackColor = Color.Red
' LOGGER.Warn(oErrMsgMissingInput)
' Exit For
' ElseIf oRowCount > 0 Then
' Dim ZeilenGrid As Integer = 0
' Dim myVektorArr As String()
' 'Jeden Werte des Datagridviews durchlaufen
' For Each oRow As DataRow In dgv.DataSource.Rows
' Dim exists = False
' Select Case oControlType
' Case "TABLE"
' Dim oRowValue = oRow.Item(0)
' If IsNothing(oRowValue) Then
' oRowValue = String.Empty
' ElseIf IsDBNull(oRowValue) Then
' oRowValue = String.Empty
' End If
' ' MsgBox(row.Cells(0).Value.GetType.ToString)
' Dim str As String = String.Empty
' 'If oRowValue <> String.Empty Then
' 'Das Array anpassen
' ReDim Preserve myVektorArr(ZeilenGrid)
' Dim oValueList As New List(Of String)
' For Each item In oRow.ItemArray
' item = NotNull(item, String.Empty)
' If TypeOf item IsNot String Then item.ToString()
' oValueList.Add(item)
' Next
' str = String.Join(PMDelimiter, oValueList.ToArray)
' ' 22.10.2021 Attempt at fixing empty lines appearing in indexes
' LOGGER.Debug("Grid Value before saving: [{0}]", str)
' If str.Trim.Length = 0 Or str.Trim.Replace(PMDelimiter, "").Length = 0 Then
' LOGGER.Debug("Empty line in Grid [{0}]. Skipping.", oControlName)
' Continue For
' End If
' 'Den Wert im Array speichern
' myVektorArr(ZeilenGrid) = str
' ZeilenGrid += 1
' 'End If
' Case Else
' ' MsgBox(row.Cells(0).Value.GetType.ToString)
' If oRow.Item(0) Is Nothing = False Then
' 'Das Array anpassen
' ReDim Preserve myVektorArr(ZeilenGrid)
' 'Den Wert im Array speichern
' myVektorArr(ZeilenGrid) = oRow.Item(0).Value.ToString
' ZeilenGrid += 1
' End If
' End Select
' Next
' If IDB_ACTIVE = False Then
' If Indexiere_File(CURRENT_WMFILE, oIndexName, myVektorArr) = False Then
' oMissing = True
' oErrMsgMissingInput = $"Error while indexing table (1) {dgv.Name} - ERROR: " & idxerr_message
' LOGGER.Warn(oErrMsgMissingInput)
' Exit For
' End If
' Else
' Dim oMyDT = DT_FOR_ARRAY(myVektorArr)
' If oMyDT.Rows.Count > 0 Then
' If IDBData.SetVariableValue(oIndexName, oMyDT, True, oIDBTyp) = False Then
' oMissing = True
' oErrMsgMissingInput = $"Error while indexing table IDB (1) {dgv.Name} - ERROR: " & idxerr_message
' LOGGER.Warn(oErrMsgMissingInput)
' Exit For
' End If
' End If
' End If
' Else
' LOGGER.Debug("Required = False And RowCount > 0")
' Dim oValue As New List(Of Object) From {String.Empty}
' If IDB_ACTIVE = False Then
' If Indexiere_File(CURRENT_WMFILE, oIndexName, oValue.ToArray) = False Then
' oMissing = True
' 'oErrorMessage = "Error while indexing der Tabelle - ERROR: " & idxerr_message
' oErrMsgMissingInput = $"Error while indexing table (2) {dgv.Name} - ERROR: " & idxerr_message
' LOGGER.Warn(oErrMsgMissingInput)
' Exit For
' End If
' Else
' Dim oOldAttributeResult = IDBData.GetVariableValue(oIndexName, oIDBTyp)
' Dim oTypeOldResult = oOldAttributeResult.GetType.ToString
' If oTypeOldResult = "System.Data.DataTable" Then
' Dim oDT As DataTable = IDBData.GetVariableValue(oIndexName, oIDBTyp)
' If oDT.Rows.Count > 0 Then
' LOGGER.Debug("User cleared the grid, so data needs to be erased!")
' IDBData.Delete_AttributeData(CURRENT_DOC_ID, oIndexName)
' End If
' Else
' LOGGER.Debug("(String) User cleared the grid, so data needs to be erased!")
' IDBData.Delete_AttributeData(CURRENT_DOC_ID, oIndexName)
' End If
' End If
' End If
'Catch ex As Exception
' LOGGER.Error(ex)
'End Try
End Select
End If 'End If für Control und ReadOnly = False
Next
@@ -5401,7 +5302,7 @@ Public Class frmValidator
For Each oRow As DataRow In pGrid.DataSource.Rows
Dim exists = False
Select Case pSettings.ControlType
Case "TABLE"
Case "DevExpress.XtraGrid.GridControl" '"TABLE"
Dim oRowValue = oRow.Item(0)
If IsNothing(oRowValue) Then
oRowValue = String.Empty
@@ -5767,11 +5668,8 @@ Public Class frmValidator
My.Settings.Save()
End Sub
Private Sub btnSave_MouseHover(sender As Object, e As EventArgs) Handles btnSave.MouseHover
Dim oMsg = "F2 für Speichern"
If USER_LANGUAGE <> "de-DE" Then
oMsg = "F2 for saving"
End If
ToolTip1.Show(oMsg, btnSave)
'Dim oMsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("F2forSave")
ToolTip1.Show(S.F2_für_Speichern, btnSave)
End Sub
Sub Reload_Controls(SingleAttribute As String)
@@ -5846,7 +5744,8 @@ Public Class frmValidator
Private Sub bbtniRefresh_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbtniRefresh.ItemClick
Reload_Controls("")
Try
btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
'btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
btnSave.Text = S.Speichern___Nächster_Vorgang__F2_
Catch ex As Exception
End Try
@@ -5879,12 +5778,9 @@ Public Class frmValidator
Private Sub BbtnItm_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BbtnitmSave.ItemClick
If ForceGridValidation() = True Then
Dim oRESULT As String
'oRESULT = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("InputSaved")
oRESULT = S.Eingaben_gespeichert
If USER_LANGUAGE = "de-DE" Then
oRESULT = "Eingaben gespeichert"
Else
oRESULT = "Eingaben gespeichert"
End If
If Check_UpdateIndexe() = True Then
SetStatusLabel($"Data saved", "LimeGreen")
LOGGER.Info("Workflowdata saved manually!")
@@ -5966,24 +5862,18 @@ Public Class frmValidator
Private Sub bbtnitem_ConversationEnd_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnitemConversationEnd.ItemClick
If ChatControl1.CurrentConversationID <> 0 Then
Dim oQuestion As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.Conversation_Delete")
If Not IsNothing(oQuestion) Then
If oQuestion.Rows.Count = 1 Then
Dim result As MsgBoxResult
result = MessageBox.Show(oQuestion.Rows(0).Item("STRING1").ToString, oQuestion.Rows(0).Item("STRING2").ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
If result = MsgBoxResult.Yes Then
Dim oSQL = $"EXEC PRIDB_END_CONVERSATION {ChatControl1.CurrentConversationID}, '{USER_USERNAME}', '{USER_LANGUAGE}'"
If DatabaseFallback.ExecuteNonQueryIDB(oSQL) = True Then
btnitemConversationEnd.Enabled = False
SplitContainer2_DV_Chat.Collapsed = True
btnitemConversationEnd.Enabled = True
Else
MsgBox("Unexpected error in PRIDB_END_CONVERSATION - Check Your log!", MsgBoxStyle.Exclamation)
End If
End If
Dim result As MsgBoxResult
result = MessageBox.Show(S.Wollen_Sie_die_Konversation_beenden_, Text, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
If result = MsgBoxResult.Yes Then
Dim oSQL = $"EXEC PRIDB_END_CONVERSATION {ChatControl1.CurrentConversationID}, '{USER_USERNAME}', '{USER_LANGUAGE}'"
If DatabaseFallback.ExecuteNonQueryIDB(oSQL) = True Then
btnitemConversationEnd.Enabled = False
SplitContainer2_DV_Chat.Collapsed = True
btnitemConversationEnd.Enabled = True
Else
MsgBox("Unexpected error in PRIDB_END_CONVERSATION - Check Your log!", MsgBoxStyle.Exclamation)
End If
End If
End If
End Sub

View File

@@ -67,6 +67,7 @@ Partial Class frmValidatorSearch
Me.GridViewSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tsslblSQL = New System.Windows.Forms.ToolStripStatusLabel()
Me.statlbl = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.tslblDocID = New System.Windows.Forms.ToolStripLabel()
Me.tslblState = New System.Windows.Forms.ToolStripLabel()
@@ -84,7 +85,6 @@ Partial Class frmValidatorSearch
Me.ContextMenuStripSQL = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
Me.statlbl = New System.Windows.Forms.ToolStripStatusLabel()
CType(Me.SplitContainerControlDoc, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControlDoc.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControlDoc.Panel1.SuspendLayout()
@@ -143,13 +143,13 @@ Partial Class frmValidatorSearch
'
'SplitContainerControlDoc.Panel1
'
Me.SplitContainerControlDoc.Panel1.Controls.Add(Me.XtraTabControlDocs)
resources.ApplyResources(Me.SplitContainerControlDoc.Panel1, "SplitContainerControlDoc.Panel1")
Me.SplitContainerControlDoc.Panel1.Controls.Add(Me.XtraTabControlDocs)
'
'SplitContainerControlDoc.Panel2
'
Me.SplitContainerControlDoc.Panel2.Controls.Add(Me.DocumentViewer1)
resources.ApplyResources(Me.SplitContainerControlDoc.Panel2, "SplitContainerControlDoc.Panel2")
Me.SplitContainerControlDoc.Panel2.Controls.Add(Me.DocumentViewer1)
Me.SplitContainerControlDoc.SplitterPosition = 351
'
'XtraTabControlDocs
@@ -161,13 +161,25 @@ Partial Class frmValidatorSearch
'
'XtraTabPageDoc1
'
resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1")
Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1")
'
'GridControlDocSearch1
'
resources.ApplyResources(Me.GridControlDocSearch1, "GridControlDocSearch1")
Me.GridControlDocSearch1.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch1.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch1.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch1.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch1.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch1.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch1.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch1.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch1.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch1.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch1.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch1.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch1.EmbeddedNavigator.ToolTipTitle")
GridLevelNode1.RelationName = "Level1"
Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
Me.GridControlDocSearch1.MainView = Me.GridViewDocSearch1
@@ -180,6 +192,7 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch1.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch1, "GridViewDocSearch1")
Me.GridViewDocSearch1.GridControl = Me.GridControlDocSearch1
Me.GridViewDocSearch1.Name = "GridViewDocSearch1"
Me.GridViewDocSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -193,13 +206,25 @@ Partial Class frmValidatorSearch
'
'XtraTabPageDoc2
'
resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2")
Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2")
'
'GridControlDocSearch2
'
resources.ApplyResources(Me.GridControlDocSearch2, "GridControlDocSearch2")
Me.GridControlDocSearch2.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch2.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch2.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch2.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch2.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch2.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch2.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch2.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch2.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch2.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch2.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch2.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch2.EmbeddedNavigator.ToolTipTitle")
Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2
Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2})
@@ -210,6 +235,7 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch2.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch2, "GridViewDocSearch2")
Me.GridViewDocSearch2.GridControl = Me.GridControlDocSearch2
Me.GridViewDocSearch2.Name = "GridViewDocSearch2"
Me.GridViewDocSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -223,13 +249,25 @@ Partial Class frmValidatorSearch
'
'XtraTabPageDoc3
'
resources.ApplyResources(Me.XtraTabPageDoc3, "XtraTabPageDoc3")
Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3)
Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3"
resources.ApplyResources(Me.XtraTabPageDoc3, "XtraTabPageDoc3")
'
'GridControlDocSearch3
'
resources.ApplyResources(Me.GridControlDocSearch3, "GridControlDocSearch3")
Me.GridControlDocSearch3.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch3.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch3.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch3.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch3.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch3.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch3.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch3.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch3.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch3.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch3.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch3.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch3.EmbeddedNavigator.ToolTipTitle")
Me.GridControlDocSearch3.MainView = Me.GridViewDocSearch3
Me.GridControlDocSearch3.Name = "GridControlDocSearch3"
Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch3})
@@ -240,6 +278,7 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch3.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch3, "GridViewDocSearch3")
Me.GridViewDocSearch3.GridControl = Me.GridControlDocSearch3
Me.GridViewDocSearch3.Name = "GridViewDocSearch3"
Me.GridViewDocSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -253,13 +292,25 @@ Partial Class frmValidatorSearch
'
'XtraTabPageDoc4
'
resources.ApplyResources(Me.XtraTabPageDoc4, "XtraTabPageDoc4")
Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4)
Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4"
resources.ApplyResources(Me.XtraTabPageDoc4, "XtraTabPageDoc4")
'
'GridControlDocSearch4
'
resources.ApplyResources(Me.GridControlDocSearch4, "GridControlDocSearch4")
Me.GridControlDocSearch4.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch4.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch4.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch4.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch4.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch4.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch4.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch4.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch4.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch4.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch4.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch4.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch4.EmbeddedNavigator.ToolTipTitle")
Me.GridControlDocSearch4.MainView = Me.GridViewDocSearch4
Me.GridControlDocSearch4.Name = "GridControlDocSearch4"
Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch4})
@@ -270,6 +321,7 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch4.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch4, "GridViewDocSearch4")
Me.GridViewDocSearch4.GridControl = Me.GridControlDocSearch4
Me.GridViewDocSearch4.Name = "GridViewDocSearch4"
Me.GridViewDocSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -283,13 +335,25 @@ Partial Class frmValidatorSearch
'
'XtraTabPageDoc5
'
resources.ApplyResources(Me.XtraTabPageDoc5, "XtraTabPageDoc5")
Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5)
Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5"
resources.ApplyResources(Me.XtraTabPageDoc5, "XtraTabPageDoc5")
'
'GridControlDocSearch5
'
resources.ApplyResources(Me.GridControlDocSearch5, "GridControlDocSearch5")
Me.GridControlDocSearch5.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.AccessibleDescription")
Me.GridControlDocSearch5.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.AccessibleName")
Me.GridControlDocSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlDocSearch5.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlDocSearch5.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlDocSearch5.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlDocSearch5.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlDocSearch5.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlDocSearch5.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlDocSearch5.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.ToolTip")
Me.GridControlDocSearch5.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDocSearch5.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlDocSearch5.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDocSearch5.EmbeddedNavigator.ToolTipTitle")
Me.GridControlDocSearch5.MainView = Me.GridViewDocSearch5
Me.GridControlDocSearch5.Name = "GridControlDocSearch5"
Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch5})
@@ -300,6 +364,7 @@ Partial Class frmValidatorSearch
Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDocSearch5.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewDocSearch5, "GridViewDocSearch5")
Me.GridViewDocSearch5.GridControl = Me.GridControlDocSearch5
Me.GridViewDocSearch5.Name = "GridViewDocSearch5"
Me.GridViewDocSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -319,17 +384,19 @@ Partial Class frmValidatorSearch
'
'SplitContainerSearches
'
Me.SplitContainerSearches.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.DD_ProcessManager.My.MySettings.Default, "frmValSearchSplitterDistance", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
resources.ApplyResources(Me.SplitContainerSearches, "SplitContainerSearches")
Me.SplitContainerSearches.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.DD_ProcessManager.My.MySettings.Default, "frmValSearchSplitterDistance", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.SplitContainerSearches.Name = "SplitContainerSearches"
'
'SplitContainerSearches.Panel1
'
resources.ApplyResources(Me.SplitContainerSearches.Panel1, "SplitContainerSearches.Panel1")
Me.SplitContainerSearches.Panel1.Controls.Add(Me.XtraTabControlSQL)
Me.SplitContainerSearches.Panel1.Controls.Add(Me.StatusStrip1)
'
'SplitContainerSearches.Panel2
'
resources.ApplyResources(Me.SplitContainerSearches.Panel2, "SplitContainerSearches.Panel2")
Me.SplitContainerSearches.Panel2.Controls.Add(Me.SplitContainerControlDoc)
Me.SplitContainerSearches.Panel2.Controls.Add(Me.ToolStrip2)
Me.SplitContainerSearches.SplitterDistance = Global.DD_ProcessManager.My.MySettings.Default.frmValSearchSplitterDistance
@@ -343,13 +410,25 @@ Partial Class frmValidatorSearch
'
'XtraTabPageSearch1
'
resources.ApplyResources(Me.XtraTabPageSearch1, "XtraTabPageSearch1")
Me.XtraTabPageSearch1.Controls.Add(Me.GridControlSearch1)
Me.XtraTabPageSearch1.Name = "XtraTabPageSearch1"
resources.ApplyResources(Me.XtraTabPageSearch1, "XtraTabPageSearch1")
'
'GridControlSearch1
'
resources.ApplyResources(Me.GridControlSearch1, "GridControlSearch1")
Me.GridControlSearch1.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch1.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch1.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch1.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch1.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch1.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch1.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch1.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch1.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch1.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch1.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch1.EmbeddedNavigator.ToolTip")
Me.GridControlSearch1.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch1.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch1.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch1.EmbeddedNavigator.ToolTipTitle")
GridLevelNode2.RelationName = "Level1"
Me.GridControlSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
Me.GridControlSearch1.MainView = Me.GridViewSearch1
@@ -362,6 +441,7 @@ Partial Class frmValidatorSearch
Me.GridViewSearch1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch1.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch1, "GridViewSearch1")
Me.GridViewSearch1.GridControl = Me.GridControlSearch1
Me.GridViewSearch1.Name = "GridViewSearch1"
Me.GridViewSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -375,13 +455,25 @@ Partial Class frmValidatorSearch
'
'XtraTabPageSearch2
'
resources.ApplyResources(Me.XtraTabPageSearch2, "XtraTabPageSearch2")
Me.XtraTabPageSearch2.Controls.Add(Me.GridControlSearch2)
Me.XtraTabPageSearch2.Name = "XtraTabPageSearch2"
resources.ApplyResources(Me.XtraTabPageSearch2, "XtraTabPageSearch2")
'
'GridControlSearch2
'
resources.ApplyResources(Me.GridControlSearch2, "GridControlSearch2")
Me.GridControlSearch2.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch2.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch2.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch2.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch2.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch2.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch2.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch2.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch2.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch2.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch2.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch2.EmbeddedNavigator.ToolTip")
Me.GridControlSearch2.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch2.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch2.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch2.EmbeddedNavigator.ToolTipTitle")
GridLevelNode3.RelationName = "Level1"
Me.GridControlSearch2.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
Me.GridControlSearch2.MainView = Me.GridViewSearch2
@@ -394,6 +486,7 @@ Partial Class frmValidatorSearch
Me.GridViewSearch2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch2.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch2, "GridViewSearch2")
Me.GridViewSearch2.GridControl = Me.GridControlSearch2
Me.GridViewSearch2.Name = "GridViewSearch2"
Me.GridViewSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -407,13 +500,25 @@ Partial Class frmValidatorSearch
'
'XtraTabPageSearch3
'
resources.ApplyResources(Me.XtraTabPageSearch3, "XtraTabPageSearch3")
Me.XtraTabPageSearch3.Controls.Add(Me.GridControlSearch3)
Me.XtraTabPageSearch3.Name = "XtraTabPageSearch3"
resources.ApplyResources(Me.XtraTabPageSearch3, "XtraTabPageSearch3")
'
'GridControlSearch3
'
resources.ApplyResources(Me.GridControlSearch3, "GridControlSearch3")
Me.GridControlSearch3.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch3.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch3.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch3.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch3.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch3.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch3.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch3.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch3.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch3.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch3.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch3.EmbeddedNavigator.ToolTip")
Me.GridControlSearch3.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch3.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch3.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch3.EmbeddedNavigator.ToolTipTitle")
GridLevelNode4.RelationName = "Level1"
Me.GridControlSearch3.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4})
Me.GridControlSearch3.MainView = Me.GridViewSearch3
@@ -426,6 +531,7 @@ Partial Class frmValidatorSearch
Me.GridViewSearch3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch3.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch3, "GridViewSearch3")
Me.GridViewSearch3.GridControl = Me.GridControlSearch3
Me.GridViewSearch3.Name = "GridViewSearch3"
Me.GridViewSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -439,13 +545,25 @@ Partial Class frmValidatorSearch
'
'XtraTabPageSearch4
'
resources.ApplyResources(Me.XtraTabPageSearch4, "XtraTabPageSearch4")
Me.XtraTabPageSearch4.Controls.Add(Me.GridControlSearch4)
Me.XtraTabPageSearch4.Name = "XtraTabPageSearch4"
resources.ApplyResources(Me.XtraTabPageSearch4, "XtraTabPageSearch4")
'
'GridControlSearch4
'
resources.ApplyResources(Me.GridControlSearch4, "GridControlSearch4")
Me.GridControlSearch4.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch4.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch4.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch4.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch4.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch4.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch4.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch4.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch4.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch4.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch4.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch4.EmbeddedNavigator.ToolTip")
Me.GridControlSearch4.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch4.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch4.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch4.EmbeddedNavigator.ToolTipTitle")
GridLevelNode5.RelationName = "Level1"
Me.GridControlSearch4.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode5})
Me.GridControlSearch4.MainView = Me.GridViewSearch4
@@ -458,6 +576,7 @@ Partial Class frmValidatorSearch
Me.GridViewSearch4.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch4.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch4, "GridViewSearch4")
Me.GridViewSearch4.GridControl = Me.GridControlSearch4
Me.GridViewSearch4.Name = "GridViewSearch4"
Me.GridViewSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -471,13 +590,25 @@ Partial Class frmValidatorSearch
'
'XtraTabPageSearch5
'
resources.ApplyResources(Me.XtraTabPageSearch5, "XtraTabPageSearch5")
Me.XtraTabPageSearch5.Controls.Add(Me.GridControlSearch5)
Me.XtraTabPageSearch5.Name = "XtraTabPageSearch5"
resources.ApplyResources(Me.XtraTabPageSearch5, "XtraTabPageSearch5")
'
'GridControlSearch5
'
resources.ApplyResources(Me.GridControlSearch5, "GridControlSearch5")
Me.GridControlSearch5.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlSearch5.EmbeddedNavigator.AccessibleDescription")
Me.GridControlSearch5.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlSearch5.EmbeddedNavigator.AccessibleName")
Me.GridControlSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlSearch5.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlSearch5.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlSearch5.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlSearch5.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlSearch5.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlSearch5.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlSearch5.EmbeddedNavigator.ToolTip = resources.GetString("GridControlSearch5.EmbeddedNavigator.ToolTip")
Me.GridControlSearch5.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlSearch5.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlSearch5.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlSearch5.EmbeddedNavigator.ToolTipTitle")
GridLevelNode6.RelationName = "Level1"
Me.GridControlSearch5.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode6})
Me.GridControlSearch5.MainView = Me.GridViewSearch5
@@ -490,6 +621,7 @@ Partial Class frmValidatorSearch
Me.GridViewSearch5.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewSearch5.Appearance.SelectedRow.Options.UseBackColor = True
resources.ApplyResources(Me.GridViewSearch5, "GridViewSearch5")
Me.GridViewSearch5.GridControl = Me.GridControlSearch5
Me.GridViewSearch5.Name = "GridViewSearch5"
Me.GridViewSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
@@ -503,14 +635,20 @@ Partial Class frmValidatorSearch
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslblSQL, Me.statlbl})
resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslblSQL, Me.statlbl})
Me.StatusStrip1.Name = "StatusStrip1"
'
'tsslblSQL
'
Me.tsslblSQL.Name = "tsslblSQL"
resources.ApplyResources(Me.tsslblSQL, "tsslblSQL")
Me.tsslblSQL.Name = "tsslblSQL"
'
'statlbl
'
resources.ApplyResources(Me.statlbl, "statlbl")
Me.statlbl.BackColor = System.Drawing.Color.Red
Me.statlbl.Name = "statlbl"
'
'ToolStrip2
'
@@ -520,52 +658,52 @@ Partial Class frmValidatorSearch
'
'tslblDocID
'
Me.tslblDocID.Name = "tslblDocID"
resources.ApplyResources(Me.tslblDocID, "tslblDocID")
Me.tslblDocID.Name = "tslblDocID"
'
'tslblState
'
resources.ApplyResources(Me.tslblState, "tslblState")
Me.tslblState.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tslblState.Name = "tslblState"
resources.ApplyResources(Me.tslblState, "tslblState")
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile, Me.ToolStripButtonRefreshSearches})
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile, Me.ToolStripButtonRefreshSearches})
Me.ToolStrip1.Name = "ToolStrip1"
'
'ToolStripDropDownButtonFile
'
resources.ApplyResources(Me.ToolStripDropDownButtonFile, "ToolStripDropDownButtonFile")
Me.ToolStripDropDownButtonFile.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripDropDownButtonFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem1, Me.EigenschaftenToolStripMenuItem})
Me.ToolStripDropDownButtonFile.Image = Global.DD_ProcessManager.My.Resources.Resources.ID_FILE_PAGE_SETUP
resources.ApplyResources(Me.ToolStripDropDownButtonFile, "ToolStripDropDownButtonFile")
Me.ToolStripDropDownButtonFile.Name = "ToolStripDropDownButtonFile"
'
'DateiÖffnenToolStripMenuItem1
'
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem1, "DateiÖffnenToolStripMenuItem1")
Me.DateiÖffnenToolStripMenuItem1.Image = Global.DD_ProcessManager.My.Resources.Resources.OpenFileDialog_692
Me.DateiÖffnenToolStripMenuItem1.Name = "DateiÖffnenToolStripMenuItem1"
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem1, "DateiÖffnenToolStripMenuItem1")
'
'EigenschaftenToolStripMenuItem
'
resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
Me.EigenschaftenToolStripMenuItem.Image = Global.DD_ProcessManager.My.Resources.Resources.Properties
Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
'
'ToolStripButtonRefreshSearches
'
Me.ToolStripButtonRefreshSearches.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.ToolStripButtonRefreshSearches, "ToolStripButtonRefreshSearches")
Me.ToolStripButtonRefreshSearches.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
Me.ToolStripButtonRefreshSearches.Name = "ToolStripButtonRefreshSearches"
'
'ContextMenuStripWMFile
'
resources.ApplyResources(Me.ContextMenuStripWMFile, "ContextMenuStripWMFile")
Me.ContextMenuStripWMFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EigenschaftenDateiToolStripMenuItem, Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator1, Me.ToolStripMenuItem1, Me.LayoutZurücksetzenToolStripMenuItem})
Me.ContextMenuStripWMFile.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStripWMFile, "ContextMenuStripWMFile")
'
'EigenschaftenDateiToolStripMenuItem
'
@@ -579,42 +717,36 @@ Partial Class frmValidatorSearch
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
'
'ToolStripMenuItem1
'
resources.ApplyResources(Me.ToolStripMenuItem1, "ToolStripMenuItem1")
Me.ToolStripMenuItem1.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
resources.ApplyResources(Me.ToolStripMenuItem1, "ToolStripMenuItem1")
'
'LayoutZurücksetzenToolStripMenuItem
'
Me.LayoutZurücksetzenToolStripMenuItem.Name = "LayoutZurücksetzenToolStripMenuItem"
resources.ApplyResources(Me.LayoutZurücksetzenToolStripMenuItem, "LayoutZurücksetzenToolStripMenuItem")
Me.LayoutZurücksetzenToolStripMenuItem.Name = "LayoutZurücksetzenToolStripMenuItem"
'
'ContextMenuStripSQL
'
resources.ApplyResources(Me.ContextMenuStripSQL, "ContextMenuStripSQL")
Me.ContextMenuStripSQL.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.ToolStripMenuItem4})
Me.ContextMenuStripSQL.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStripSQL, "ContextMenuStripSQL")
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
'
'ToolStripMenuItem4
'
resources.ApplyResources(Me.ToolStripMenuItem4, "ToolStripMenuItem4")
Me.ToolStripMenuItem4.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
resources.ApplyResources(Me.ToolStripMenuItem4, "ToolStripMenuItem4")
'
'statlbl
'
Me.statlbl.BackColor = System.Drawing.Color.Red
Me.statlbl.Name = "statlbl"
resources.ApplyResources(Me.statlbl, "statlbl")
'
'frmValidatorSearch
'

File diff suppressed because it is too large Load Diff

View File

@@ -778,4 +778,7 @@ Public Class frmValidatorSearch
Refresh_DocID(GridViewDocSearch5)
End Sub
Private Sub ContextMenuStripWMFile_Opening(sender As Object, e As CancelEventArgs) Handles ContextMenuStripWMFile.Opening
End Sub
End Class