Compare commits

61 Commits

Author SHA1 Message Date
Developer01
983164c149 MS Modules windream integriert 2025-04-29 16:20:42 +02:00
Developer01
b34a0780e7 Logging im Falle Vektor und Vorbelegung 2025-04-28 13:12:19 +02:00
Developer01
9e40e2eccd MS 2025-04-28 12:53:37 +02:00
Developer01
b2d6f0d186 Ressources adapt 2025-04-28 10:56:39 +02:00
Developer01
a5a0d1898a Übergabe WM Indexe an SQL Admin 2025-04-23 09:33:44 +02:00
Developer01
cb00f0f96d MS 2025-04-10 13:01:15 +02:00
Developer01
f36b591bd1 MS 2025-04-03 18:13:47 +02:00
Developer01
b6b0858888 MS 2.7.4.01Indexierung Vektorfelder automatische Idnexe 2025-04-02 14:14:04 +02:00
Developer01
e604b513b5 MS V2.7.4.1 Betatest 2025-03-28 15:16:58 +01:00
Developer01
5df478bdab MS GDPicture Verweis 2025-03-26 14:05:16 +01:00
Developer01
11a92817bc MS Leerzeichen 2025-03-18 17:07:11 +01:00
Developer01
8b584eef51 V2.7.30 2025-01-23 11:46:03 +01:00
Developer01
6cb4cee7c3 MS Vektrortype > 4095 und neue dlls GDPicture inkl Runtime dll 2025-01-22 12:15:33 +01:00
Developer01
5733509404 MS Indexierung Vektor lief amok weil Constante Vektor zu klein war 2025-01-21 14:45:47 +01:00
Developer01
b72e60d89a MS 2.7.2.0 Copy Automatischer Index Sequence Spalte itnegriert 2024-09-24 13:02:01 +02:00
Developer01
f3ebcf3259 MS GD Picture 2024-09-23 17:36:44 +02:00
Developer01
d903658c13 MS Update Globix Renaming 2024-09-23 17:14:28 +02:00
Developer01
ad46bae4f4 MS V2.7.70 2024-09-10 17:41:58 +02:00
Developer01
6f9ede51cb MS v2.7.0.0 Renaming fileFLOW 2024-09-02 12:43:56 +02:00
Developer01
48d21617c9 MS V 2.6.9 Indexierung Vektorfeld mit Vektor 2024-08-23 09:36:18 +02:00
8c824f3f59 MS V2.6.8.3 newfileFLOW Icons 2024-06-17 08:45:47 +02:00
e5a0734b24 MS Folderwatch ColumnName instead index 2024-06-11 16:58:14 +02:00
d2a8464f3e MergeCommit 2024-06-11 16:25:00 +02:00
daa89b0535 MS Debug Folderwatch 2024-06-11 16:23:04 +02:00
Jonathan Jenne
d1eb446ed4 Switch Module dependencies to 'P:\Install .Net\0 DD - Bibliotheken\Modules' 2024-01-31 10:14:51 +01:00
Jonathan Jenne
6cc19c72a5 Version 2.6.8.1 2023-12-20 09:23:17 +01:00
Jonathan Jenne
349351ba82 Automatically set focus to profile select or first control 2023-12-20 09:22:52 +01:00
Jonathan Jenne
65ad9de1e2 Version 2.6.8.0 2023-12-19 10:12:27 +01:00
Jonathan Jenne
64a6cba017 add keybinding for profile selector 2023-12-19 10:12:05 +01:00
Jonathan Jenne
75bfd81ad4 Fix Config Migration 2023-10-04 14:00:19 +02:00
Jonathan Jenne
31a9afaf96 Version 2.6.7.3 2023-10-04 13:27:22 +02:00
Jonathan Jenne
281c7a824a Migrate computer config 2023-10-04 13:27:04 +02:00
Jonathan Jenne
a196e84071 Version 2.6.7.2 2023-09-29 13:20:20 +02:00
Jonathan Jenne
b18eedf701 Add config migrator 2023-09-29 13:17:37 +02:00
Jonathan Jenne
54bb1bb451 first pass of overwrite and distinct 2023-09-26 16:51:37 +02:00
Jonathan Jenne
2eeb773cf8 update TBDD_DOKUMENTART & VWDDINDEX_AUTOM 2023-09-26 15:42:11 +02:00
Jonathan Jenne
67bf229525 add new automatic index settings 2023-09-26 14:42:09 +02:00
ef804638b3 MS Skins 2023-09-21 12:07:24 +02:00
Jonathan Jenne
cf041b3894 Add VKT_PREVENT_NEW_VALUES and VKT_OVERWRITE in Dataset 2023-09-19 16:31:24 +02:00
Jonathan Jenne
6edb3879de Version 2.6.7.1 2023-09-11 15:25:14 +02:00
Jonathan Jenne
6cd56af377 Fix installer 2023-09-11 15:24:56 +02:00
Jonathan Jenne
81e5fe7820 Version 2.6.7.0 2023-09-11 15:17:51 +02:00
Jonathan Jenne
123eaceb12 Fix Sql Connection missing in Depending Controls, clean up Filesystem module use 2023-09-11 15:17:22 +02:00
Jonathan Jenne
f727c0da9f Version 2.6.6.6 2023-06-05 16:48:22 +02:00
Jonathan Jenne
54813eb7a5 fix double windream objects 2023-06-05 16:48:01 +02:00
Jonathan Jenne
db364d1fd6 merge 2023-06-05 16:36:54 +02:00
Jonathan Jenne
ba7f11491b Version 2.6.6.5 2023-06-05 16:36:22 +02:00
Jonathan Jenne
10d7680aa3 Fix windream basepath being swallowed when combining paths 2023-06-05 16:36:13 +02:00
d2fbe0a894 MS Release module.windream currency 2023-04-26 15:23:28 +02:00
Jonathan Jenne
3913928a21 fix path in SINGLEFILE_2_WINDREAM 2023-04-14 13:01:11 +02:00
Jonathan Jenne
b70613ffcc Version 2.6.6.2 2023-04-14 12:11:40 +02:00
7da463c6b3 MS 2.6.5.1 2023-04-12 10:54:16 +02:00
Jonathan Jenne
62e4bb84c3 Fix debug flag for logger 2023-03-28 14:47:21 +02:00
Jonathan Jenne
e1692f68de Version 2.6.5.1 2023-03-28 13:59:21 +02:00
Jonathan Jenne
2fefe100ee merge 2023-03-28 13:57:54 +02:00
8097017f9f MS merge DEsign 2023-03-28 13:56:07 +02:00
Jonathan Jenne
890cd6a45e Version 2.6.3.3 2023-03-28 13:47:48 +02:00
Jonathan Jenne
8edac6bb6a Version 2.6.3.1 2023-03-13 15:43:41 +01:00
Jonathan Jenne
8ac13823ca Fix placeholder configuration for dynamic sqls 2023-03-13 15:43:31 +01:00
Jonathan Jenne
1906bac96d Merge branch 'master' of http://dd-vmp07-com04:3000/SchreiberM/GlobalIndexer 2023-03-13 14:12:24 +01:00
Jonathan Jenne
e66d404158 ignore .vs folder 2023-02-20 09:32:32 +01:00
82 changed files with 5391 additions and 3115 deletions

4
.gitignore vendored
View File

@@ -154,5 +154,5 @@ $RECYCLE.BIN/
# Mac desktop service store files
.DS_Store
/.vs/Global_Indexer/v15/Server/sqlite3
/.vs/Global_Indexer/v16/Server/sqlite3
.vs

View File

@@ -1,3 +0,0 @@
{
"CurrentProjectSetting": null
}

View File

@@ -1,7 +0,0 @@
{
"ExpandedNodes": [
""
],
"SelectedNode": "\\Global_Indexer.sln",
"PreviewInSolutionExplorer": false
}

Binary file not shown.

View File

@@ -1,12 +1,16 @@
Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 16
VisualStudioVersion = 16.0.29728.190
# Visual Studio Version 17
VisualStudioVersion = 17.5.33516.290
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Global_Indexer", "Global_Indexer\Global_Indexer.vbproj", "{7474B1D2-49A4-4D12-B544-C8674D3F7231}"
EndProject
Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupVS19", "SetupVS19\SetupVS19.wixproj", "{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Global_Indexer.Test", "Global_Indexer.Test\Global_Indexer.Test.vbproj", "{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Windream", "..\..\2_DLL Projekte\DDModules\Windream\Windream.vbproj", "{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
CD_ROM|Any CPU = CD_ROM|Any CPU
@@ -79,6 +83,66 @@ Global
{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.SingleImage|Mixed Platforms.Build.0 = Release|x86
{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.SingleImage|x86.ActiveCfg = Release|x86
{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.SingleImage|x86.Build.0 = Release|x86
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.CD_ROM|Any CPU.ActiveCfg = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.CD_ROM|Any CPU.Build.0 = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.CD_ROM|Mixed Platforms.ActiveCfg = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.CD_ROM|Mixed Platforms.Build.0 = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.CD_ROM|x86.ActiveCfg = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.CD_ROM|x86.Build.0 = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Debug|Any CPU.Build.0 = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Debug|x86.ActiveCfg = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Debug|x86.Build.0 = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.DVD-5|Any CPU.Build.0 = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.DVD-5|x86.ActiveCfg = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.DVD-5|x86.Build.0 = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Release|Any CPU.ActiveCfg = Release|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Release|Any CPU.Build.0 = Release|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Release|x86.ActiveCfg = Release|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Release|x86.Build.0 = Release|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.SingleImage|Any CPU.ActiveCfg = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.SingleImage|Any CPU.Build.0 = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.SingleImage|x86.ActiveCfg = Debug|Any CPU
{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.SingleImage|x86.Build.0 = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.CD_ROM|Any CPU.ActiveCfg = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.CD_ROM|Any CPU.Build.0 = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.CD_ROM|Mixed Platforms.ActiveCfg = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.CD_ROM|Mixed Platforms.Build.0 = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.CD_ROM|x86.ActiveCfg = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.CD_ROM|x86.Build.0 = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Debug|Any CPU.Build.0 = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Debug|x86.ActiveCfg = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Debug|x86.Build.0 = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.DVD-5|Any CPU.Build.0 = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.DVD-5|x86.ActiveCfg = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.DVD-5|x86.Build.0 = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Release|Any CPU.ActiveCfg = Release|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Release|Any CPU.Build.0 = Release|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Release|x86.ActiveCfg = Release|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.Release|x86.Build.0 = Release|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.SingleImage|Any CPU.ActiveCfg = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.SingleImage|Any CPU.Build.0 = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.SingleImage|x86.ActiveCfg = Debug|Any CPU
{4C86DF8F-A280-40D4-85B0-10B1BF66C15C}.SingleImage|x86.Build.0 = Debug|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE

View File

@@ -0,0 +1,112 @@
Imports System.Data
Imports Microsoft.VisualStudio.TestTools.UnitTesting
Imports FluentAssertions
Imports DigitalData.Modules.Logging
Namespace Global_Indexer.Test
<TestClass>
Public Class ClassPostprocessingTest
Private LogConfig As LogConfig
Private PostProcessing As ClassPostprocessing
<TestInitialize()>
Sub Init()
LogConfig = New LogConfig(LogPath:=LogConfig.PathType.Temp)
PostProcessing = New ClassPostprocessing(LogConfig)
End Sub
<TestMethod>
Sub Get_Nachbearbeitung_Wert_VBSPLIT_INDEX_0()
Dim oTable = GetDataTable(ClassPostprocessing.VBSPLIT, ",", "0")
Dim oString = "1,2,3,4"
Dim oExpected = "1"
Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
rString.Should.Be(oExpected)
End Sub
<TestMethod>
Sub Get_Nachbearbeitung_Wert_VBSPLIT_INDEX_3()
Dim oTable = GetDataTable(ClassPostprocessing.VBSPLIT, ",", "3")
Dim oString = "1,2,3,4"
Dim oExpected = "4"
Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
rString.Should.Be(oExpected)
End Sub
<TestMethod>
Sub Get_Nachbearbeitung_Wert_VBSPLIT_INDEX_5()
Dim oTable = GetDataTable(ClassPostprocessing.VBSPLIT, ",", "5")
Dim oString = "1,2,3,4"
Dim oExpected = "1,2,3,4"
Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
rString.Should.Be(oExpected)
End Sub
<TestMethod>
Sub Get_Nachbearbeitung_Wert_VBREPLACE()
Dim oTable = GetDataTable(ClassPostprocessing.VBREPLACE, ",", "_")
Dim oString = "1,2,3,4"
Dim oExpected = "1_2_3_4"
Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
rString.Should.Be(oExpected)
End Sub
<TestMethod>
Sub Get_Nachbearbeitung_Wert_VBREPLACE_NOT_EXISTING()
Dim oTable = GetDataTable(ClassPostprocessing.VBREPLACE, ";", "_")
Dim oString = "1,2,3,4"
Dim oExpected = "1,2,3,4"
Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
rString.Should.Be(oExpected)
End Sub
<TestMethod>
Sub Get_Nachbearbeitung_Wert_VBREPLACE_EMPTY_STRING()
Dim oTable = GetDataTable(ClassPostprocessing.VBREPLACE, "", "_")
Dim oString = "1,2,3,4"
Dim oExpected = "1,2,3,4"
Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
rString.Should.Be(oExpected)
End Sub
<TestMethod>
Sub Get_Nachbearbeitung_Wert_VBREPLACE_NOTHING1()
Dim oTable = GetDataTable(ClassPostprocessing.VBREPLACE, ",", Nothing)
Dim oString = "1,2,3,4"
Dim oExpected = "1,2,3,4"
Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
rString.Should.Be(oExpected)
End Sub
<TestMethod>
Sub Get_Nachbearbeitung_Wert_VBREPLACE_NOTHING2()
Dim oTable = GetDataTable(ClassPostprocessing.VBREPLACE, Nothing, "_")
Dim oString = "1,2,3,4"
Dim oExpected = "1,2,3,4"
Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
rString.Should.Be(oExpected)
End Sub
Private Function GetDataTable(pType As String, pText1 As String, Optional pText2 As String = "") As DataTable
Dim oTable As New DataTable()
oTable.Columns.Add("TYPE", GetType(String))
oTable.Columns.Add("TEXT1", GetType(String))
oTable.Columns.Add("TEXT2", GetType(String))
oTable.Rows.Add(pType, pText1, pText2)
oTable.AcceptChanges()
Return oTable
End Function
End Class
End Namespace

View File

@@ -0,0 +1,32 @@
<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<RootNamespace>Global_Indexer.Test</RootNamespace>
<TargetFramework>net6.0</TargetFramework>
<IsPackable>false</IsPackable>
<IsTestProject>true</IsTestProject>
</PropertyGroup>
<ItemGroup>
<PackageReference Include="FluentAssertions" Version="6.12.0" />
<PackageReference Include="Microsoft.NET.Test.Sdk" Version="17.3.2" />
<PackageReference Include="MSTest.TestAdapter" Version="2.2.10" />
<PackageReference Include="MSTest.TestFramework" Version="2.2.10" />
<PackageReference Include="coverlet.collector" Version="3.1.2" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\Global_Indexer\Global_Indexer.vbproj" />
</ItemGroup>
<ItemGroup>
<Reference Include="DigitalData.Modules.Base">
<HintPath>..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
</ItemGroup>
</Project>

View File

@@ -2,40 +2,57 @@
<configuration>
<configSections>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
<section name="Global_Indexer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
<section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup>
<!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
<section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</configSections>
<applicationSettings>
<Global_Indexer.My.MySettings>
<setting name="GDPICTURE_VERSION" serializeAs="String">
<value>11.2024</value>
</setting>
</Global_Indexer.My.MySettings>
<DevExpress.LookAndFeel.Design.AppSettings>
<setting name="DefaultAppSkin" serializeAs="String">
<value>Skin/Office 2019 White</value>
<value>Skin/Office 2013</value>
</setting>
<setting name="DefaultPalette" serializeAs="String">
<value>Yale</value>
<value>
</value>
</setting>
<setting name="TouchUI" serializeAs="String">
<value></value>
<value>
</value>
</setting>
<setting name="CompactUI" serializeAs="String">
<value></value>
<value>
</value>
</setting>
<setting name="TouchScaleFactor" serializeAs="String">
<value></value>
<value>
</value>
</setting>
<setting name="DirectX" serializeAs="String">
<value></value>
<value>
</value>
</setting>
<setting name="RegisterUserSkins" serializeAs="String">
<value></value>
<value>
</value>
</setting>
<setting name="RegisterBonusSkins" serializeAs="String">
<value></value>
<value>
</value>
</setting>
<setting name="FontBehavior" serializeAs="String">
<value></value>
<value>
</value>
</setting>
<setting name="DefaultAppFont" serializeAs="String">
<value></value>
<value>
</value>
</setting>
<setting name="DPIAwarenessMode" serializeAs="String">
<value>System</value>
@@ -46,7 +63,7 @@
</DevExpress.LookAndFeel.Design.AppSettings>
</applicationSettings>
<connectionStrings>
<add name="Global_Indexer.My.MySettings.DD_ECMConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient" />
<add name="Global_Indexer.My.MySettings.DD_ECMConnectionString" 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.2" />
@@ -57,6 +74,65 @@
<assemblyIdentity name="NLog" publicKeyToken="5120e14c03d0593c" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GdPicture.NET.14" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-14.3.3.0" newVersion="14.3.3.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GdPicture.NET.14.Common" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-14.3.3.0" newVersion="14.3.3.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GdPicture.NET.14.Imaging" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-14.3.3.0" newVersion="14.3.3.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.0.2.0" newVersion="4.0.2.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-6.0.1.0" newVersion="6.0.1.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.0.4.0" newVersion="4.0.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Collections.Immutable" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-9.0.0.0" newVersion="9.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Numerics.Vectors" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.1.5.0" newVersion="4.1.5.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Security.Cryptography.Pkcs" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-9.0.0.0" newVersion="9.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.IO.Packaging" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-9.0.0.0" newVersion="9.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Text.Json" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-9.0.0.0" newVersion="9.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="FirebirdSql.Data.FirebirdClient" publicKeyToken="3750abcc3150b00c" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-7.5.0.0" newVersion="7.5.0.0" />
</dependentAssembly>
</assemblyBinding>
</runtime>
<entityFramework>
<providers>
<provider invariantName="System.Data.SqlClient" type="System.Data.Entity.SqlServer.SqlProviderServices, EntityFramework.SqlServer" />
<provider invariantName="FirebirdSql.Data.FirebirdClient" type="EntityFramework.Firebird.FbProviderServices, EntityFramework.Firebird" />
</providers>
<defaultConnectionFactory type="EntityFramework.Firebird.FbConnectionFactory, EntityFramework.Firebird" />
</entityFramework>
</configuration>

View File

@@ -19,5 +19,5 @@ Public Class ClassConfig
' Misc Settings
Public Property LogDEBUG As Boolean = True
Public Property WindreamSearchMaximized As Boolean = False
Public Property OverrideLanguage As String = ""
Public Property MyFormsDesign As String = ""
End Class

View File

@@ -120,7 +120,7 @@
FROM TBDD_USER_DOKTYPE
WHERE DOCTYPE_ID = {ProfileId}
)
AND GUID IN (SELECT USER_ID FROM [dbo].[FNDD_GET_USER_FOR_MODULE] ('GLOBIX', 1))
AND GUID IN (SELECT USER_ID FROM [dbo].[FNDD_GET_USER_FOR_MODULE] ('fileFLOW', 1))
"
Dim oDatatable As DataTable = DATABASE_ECM.GetDatatable(oSQL)

View File

@@ -57,6 +57,7 @@ Public Class ClassFileHandler
Public Function Decide_FileHandle(pFilepath As String, pHandletype As String) As Boolean
Try
Logger.Info($"Decide_FileHandle - pFilepath: {pFilepath} - pHandletype: {pHandletype}")
''TODO: Before doing anything, clean the filename
'Dim oFilename = IO.Path.GetFileName(pFilepath)
'Dim oCleanFileName = Utils.RemoveInvalidCharacters(oFilename)
@@ -130,9 +131,9 @@ Public Class ClassFileHandler
If oTempFilePath.ToUpper.EndsWith(".LNK") Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "File Flow")
MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "fileFLOW")
Else
MsgBox("Shortcuts cannot be droppped!", MsgBoxStyle.Critical, "File Flow")
MsgBox("Shortcuts cannot be droppped!", MsgBoxStyle.Critical, "fileFLOW")
End If
Return False
End If

View File

@@ -68,7 +68,7 @@ Public Class ClassIndexFunctions
Else
Dim oResult As DialogResult
Dim oDate As String = oFileExists.ToString("d")
Dim oBoxTitle = $"GLOBIX - {pModuleTitle}"
Dim oBoxTitle = $"fileFLOW - {pModuleTitle}"
Dim oMessage As String
If USER_LANGUAGE = "de-DE" Then

View File

@@ -1,11 +1,10 @@
Imports System.ComponentModel
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Windream
Imports DigitalData.Modules.Filesystem
Imports DigitalData.Modules.Messaging
Imports DigitalData.Modules.Database
Imports DLLLicenseManager
Imports DigitalData.Modules.Base
Public Class ClassInit
Private Form As Form
@@ -17,14 +16,19 @@ Public Class ClassInit
LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing,
CompanyName:=My.Application.Info.CompanyName,
ProductName:=My.Application.Info.ProductName)
LOGGER = LOGCONFIG.GetLogger("Globix")
LOGGER = LOGCONFIG.GetLogger("fileFLOW")
LOGGER.Info("Programmstart: " & Now)
LOGGER.Info("Username: {0}", Environment.UserName)
End Sub
Public Sub InitConfig()
Dim oUtils = New ConfigUtils(LOGCONFIG)
oUtils.MigrateUserAppDataConfig(Application.UserAppDataPath, Application.ProductName, "fileFLOW")
oUtils.MigrateCommonAppDataConfig(Application.CommonAppDataPath, Application.ProductName, "fileFLOW")
CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
LOGCONFIG.Debug = Not CONFIG.Config.LogDEBUG
LOGCONFIG.Debug = CONFIG.Config.LogDEBUG
LOGGER.Info("Debug log set to: [{0}]", LOGCONFIG.Debug)
MyConnectionString = DecryptConnectionString(CONFIG.Config.ConnectionString)
@@ -69,7 +73,7 @@ Public Class ClassInit
If dbResult = False Then
ERROR_STATE = "FAILED DBCONNECTION"
' Fehler wird in frmSplash abgehandelt
'Fehler wird in frmSplash abgehandelt
'MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical)
Return False
Else
@@ -81,8 +85,8 @@ Public Class ClassInit
Dim configResult As Boolean
configResult = Load_BasicConfig()
FILESYSTEM = New File(LOGCONFIG)
EMAIL = New Email2(LOGCONFIG)
FILESYSTEM = New FilesystemEx(LOGCONFIG)
If configResult = False Then
If USER_LANGUAGE = "de-DE" Then
@@ -113,12 +117,22 @@ Public Class ClassInit
Public Function Load_BasicConfig()
Try
'ClassDatabase.Init()
Dim oSql As String = "SELECT * FROM TBDD_MODULES WHERE NAME = 'Global-Indexer'"
Dim oSql As String = "SELECT * FROM TBDD_MODULES WHERE NAME = 'fileFLOW'"
Dim DT As DataTable = DATABASE_ECM.GetDatatable(oSql)
If DT.Rows.Count = 1 Then
GI_withWindream = DT.Rows(0).Item("BIT1")
'vWLaufwerk = DT.Rows(0).Item("STRING1")
End If
oSql = "SELECT * FROM TBDD_CATALOG"
DT = DATABASE_ECM.GetDatatable(oSql)
For Each oROW As DataRow In DT.Rows
If oROW.Item("CAT_TITLE") = "WM_DB_SERVER" Then
WM_DB_SERVER = oROW.Item("CAT_STRING")
End If
Next
VIEWER_LICENSE = DATABASE_ECM.GetScalarValue($"SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE
NAME = 'GDPICTURE_FILEFLOW' AND ACTIVE = 1")
oSql = "SELECT * FROM TBDD_BASECONFIG"
DT = DATABASE_ECM.GetDatatable(oSql)
If DT.Rows.Count = 1 Then
@@ -222,8 +236,7 @@ Public Class ClassInit
oHandleType = "|FW_SIMPLEINDEXER|"
End If
'Die Datei übergeben
LOGGER.Info(">> OnCreated-File:" & e.FullPath)
LOGGER.Info(">> Adding file from Hotfolder (OnCreated):" & e.FullPath)
If ClassIndexFunctions.CheckDuplicateFiles(Form, e.FullPath, "FolderWatch/Scan") Then
FILE_HANDLER.Decide_FileHandle(e.FullPath, oHandleType)
End If
@@ -237,7 +250,7 @@ Public Class ClassInit
Try
Dim oSql As String
oSql = String.Format($"SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{Environment.UserName}','GLOBIX',{1},'{CONFIG.Config.OverrideLanguage}')")
oSql = String.Format($"SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{Environment.UserName}','fileFLOW',{1})")
Dim DT_CHECKUSER_MODULE As DataTable = DATABASE_ECM.GetDatatable(oSql)
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0")
@@ -290,18 +303,18 @@ Public Class ClassInit
End If
USER_LANGUAGE = oRow.Item("USER_LANGUAGE")
oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'fileFLOW'"
DATABASE_ECM.ExecuteNonQuery(oSql)
oSql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE, CLIENT_ID) VALUES (" & USER_ID & ",'Global-Indexer', 1)"
oSql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE, CLIENT_ID) VALUES (" & USER_ID & ",'fileFLOW', 1)"
DATABASE_ECM.ExecuteNonQuery(oSql)
oSql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
oSql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'fileFLOW'"
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für File Flow!")
LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für fileFLOW!")
If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen
oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'"
oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'fileFLOW'"
DATABASE_ECM.ExecuteNonQuery(oSql)
LOGGER.Info(" - Wieder abgemeldet")
START_INCOMPLETE = True

View File

@@ -1,7 +1,7 @@
Imports System.Text.RegularExpressions
Imports DevExpress.XtraEditors
Imports DigitalData.Controls.LookupGrid
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.Base
Imports DigitalData.GUIs.GlobalIndexer
Imports WINDREAMLib
@@ -39,6 +39,8 @@ Public Class ClassPatterns
Public Const INT_VALUE_MACHINE = "MACHINE"
Public Const INT_VALUE_DOMAIN = "DOMAIN"
Public Const INT_VALUE_DATE = "DATE"
Public Const INT_VALUE_WMDocID = "WMDocID"
Public Const INT_VALUE_IDBID = "IDBObjID"
Public Const MAX_TRY_COUNT = 20
@@ -74,29 +76,35 @@ Public Class ClassPatterns
Public Shared Function ReplaceInternalValues(input As String) As String
Try
Dim result = input
Dim oResult = input
' Replace Username(s)
While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_USERNAME)
result = ReplacePattern(result, PATTERN_INT, Environment.UserName)
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_USERNAME)
oResult = ReplacePattern(oResult, PATTERN_INT, Environment.UserName)
End While
' Replace Machinename(s)
While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_MACHINE)
result = ReplacePattern(result, PATTERN_INT, Environment.MachineName)
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_MACHINE)
oResult = ReplacePattern(oResult, PATTERN_INT, Environment.MachineName)
End While
' Replace Domainname(s)
While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_DOMAIN)
result = ReplacePattern(result, PATTERN_INT, Environment.UserDomainName)
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_DOMAIN)
oResult = ReplacePattern(oResult, PATTERN_INT, Environment.UserDomainName)
End While
' Replace CurrentDate(s)
While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_DATE)
result = ReplacePattern(result, PATTERN_INT, Now.ToShortDateString)
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_DATE)
oResult = ReplacePattern(oResult, PATTERN_INT, Now.ToShortDateString)
End While
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_WMDocID)
oResult = ReplacePattern(oResult, PATTERN_INT, CURRENT_DOC_ID)
End While
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_IDBID)
oResult = ReplacePattern(oResult, PATTERN_INT, CURRENT_DOC_ID)
End While
LOGGER.Debug("sql after ReplaceInternalValues: " & input)
Return result
Return oResult
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error in ReplaceInternalValues:" & ex.Message)
@@ -208,24 +216,16 @@ Public Class ClassPatterns
If oFoundControl IsNot Nothing Then
Dim oValue As String = String.Empty
Dim oTypeString = oFoundControl
LOGGER.Debug("Found Control [{0}], continuing with setting value..", oFoundControl.Name)
If TypeOf oFoundControl Is TextEdit Then
Try
oValue = DirectCast(oFoundControl, TextEdit).Text
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn("Control Value for TextBox [{0}] could not be retrieved!", oFoundControl.Name)
End Try
ElseIf TypeOf oFoundControl Is CheckBox Then
Try
oValue = IIf(DirectCast(oFoundControl, CheckBox).Checked, 1, 0)
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn("Control Value for CheckBox [{0}] could not be retrieved!", oFoundControl.Name)
End Try
ElseIf TypeOf oFoundControl Is LookupControl3 Then
If TypeOf (oFoundControl) Is LookupControl3 Then
LOGGER.Debug("oTypeString LookupControl3")
ElseIf TypeOf (oFoundControl) Is Checkbox Then
LOGGER.Debug("oTypeString CheckBox")
ElseIf TypeOf (oFoundControl) Is TextEdit Then
LOGGER.Debug("oTypeString TextEdit")
End If
If TypeOf (oFoundControl) Is LookupControl3 Then
Try
Dim oLookupControl = DirectCast(oFoundControl, LookupControl3)
@@ -234,18 +234,43 @@ Public Class ClassPatterns
Case ClassConstants.INDEX_TYPE_INTEGER
oValue = String.Join(",", oLookupControl.Properties.SelectedValues)
Case ClassConstants.INDEX_TYPE_VARCHAR
Dim oWrapped = oLookupControl.Properties.SelectedValues
oValue = String.Join(",", oWrapped)
Dim oIndex As Integer = 0
For Each oString As String In oLookupControl.Properties.SelectedValues
If oIndex = 0 Then
oValue = "'" + oString + "'"
Else
oValue += ", '" + oString + "'"
End If
oIndex += 1
Next
'Dim oWrapped = oLookupControl.Properties.SelectedValues
'oValue = String.Join(",", oWrapped)
Case Else
LOGGER.Warn("Lookup Control with [{0}] is not supported!", oFoundType)
End Select
Else
oValue = Utils.NotNull(oLookupControl.Properties.SelectedValues.Item(0), "")
oValue = ObjectEx.NotNull(oLookupControl.Properties.SelectedValues.Item(0), "")
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn("Control Value for LookupControl3 [{0}] could not be retrieved!", oFoundControl.Name)
End Try
ElseIf TypeOf (oFoundControl) Is TextEdit Then
Try
oValue = DirectCast(oFoundControl, TextEdit).Text
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn("Control Value for TextBox [{0}] could not be retrieved!", oFoundControl.Name)
End Try
ElseIf TypeOf (oFoundControl) Is CheckBox Then
Try
oValue = IIf(DirectCast(oFoundControl, CheckBox).Checked, 1, 0)
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn("Control Value for CheckBox [{0}] could not be retrieved!", oFoundControl.Name)
End Try
Else
LOGGER.Debug("Unknown Control type for type [{0}], setting value to empty string.", oFoundControl.Name)
oValue = ""

View File

@@ -1,12 +1,19 @@
Imports System.Text.RegularExpressions
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging
Public Class ClassPostprocessing
Inherits BaseClass
Private Const VBSPLIT = "VBSPLIT"
Private Const VBREPLACE = "VBREPLACE"
Private Const REGEXPRESSION = "REG. EXPRESSION"
Public Const VBSPLIT = "VBSPLIT"
Public Const VBREPLACE = "VBREPLACE"
Public Const REGEXPRESSION = "REG. EXPRESSION"
Public Shared Function Get_Nachbearbeitung_Wert(idxvalue As String, Datatable As DataTable) As String
Public Sub New(pLogConfig As LogConfig)
MyBase.New(pLogConfig)
End Sub
Public Function Get_Nachbearbeitung_Wert(idxvalue As String, Datatable As DataTable) As String
Dim oIndexValues As List(Of String) = idxvalue.Split(ClassConstants.VECTORSEPARATOR).ToList()
Try
@@ -14,9 +21,10 @@ Public Class ClassPostprocessing
Dim oResult As New List(Of String)
Dim oType As String = oDataRow.Item("TYPE").ToString.ToUpper
Logger.Info(" ...Nachbearbeitung mit [{0}]", oType)
Select Case oType
Case VBSPLIT
LOGGER.Info(" ...Nachbearbeitung mit VBSPLIT")
Dim oSeparator As String = oDataRow.Item("TEXT1")
Dim oSplitIndex As Integer = 0
@@ -31,34 +39,31 @@ Public Class ClassPostprocessing
Dim oFindString = oDataRow.Item("TEXT1")
Dim oReplaceString = oDataRow.Item("TEXT2")
LOGGER.Info(" ...Nachbearbeitung mit VBREPLACE")
LOGGER.Info(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'")
Logger.Info(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'")
For Each oIndexValue In oIndexValues
Dim oReplaceResult = oIndexValue.Replace(oFindString, oReplaceString)
oResult.Add(oReplaceResult)
Next
Case REGEXPRESSION
LOGGER.Info(" ...Nachbearbeitung mit RegEx")
Case REGEXPRESSION
Dim oRegexList As New List(Of Regex)
Dim oRegex As New Regex(oDataRow.Item("TEXT1"), RegexOptions.IgnoreCase)
oRegexList.Add(oRegex)
For Each oIndexValue In oIndexValues
Dim oProcessedString = extractFromStringviaRE(oIndexValue, oRegexList)
Dim oProcessedString = ExtractFromStringWithRegex(oIndexValue, oRegexList)
oResult.Add(oProcessedString)
LOGGER.Info(" ...Ergebnis des RegEx: " & oProcessedString)
Logger.Info(" ...Ergebnis des RegEx: " & oProcessedString)
Next
End Select
oIndexValues = oResult
Next
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:")
LOGGER.Info(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & idxvalue & " - Fehler: " & vbNewLine & ex.Message)
Logger.Error(ex)
End Try
Return String.Join(ClassConstants.VECTORSEPARATOR, oIndexValues.ToArray)
@@ -71,7 +76,7 @@ Public Class ClassPostprocessing
''' <param name="RegexList">Eine Liste von Regular Expressions</param>
''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
Public Shared Function extractFromStringviaRE(SearchString As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
Private Function ExtractFromStringWithRegex(SearchString As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
If IsNothing(SearchString) Then
Return Nothing
End If

Binary file not shown.

Before

Width:  |  Height:  |  Size: 15 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 52 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.7 KiB

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@@ -1,5 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="..\packages\EntityFramework.6.4.4\build\EntityFramework.props" Condition="Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.props')" />
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
@@ -8,7 +9,7 @@
<OutputType>WinExe</OutputType>
<StartupObject>Global_Indexer.My.MyApplication</StartupObject>
<RootNamespace>Global_Indexer</RootNamespace>
<AssemblyName>FileFlow</AssemblyName>
<AssemblyName>fileFLOW</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
@@ -29,6 +30,8 @@
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
@@ -37,7 +40,7 @@
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>FileFlow.xml</DocumentationFile>
<DocumentationFile>fileFLOW.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
@@ -47,7 +50,7 @@
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>FileFlow.xml</DocumentationFile>
<DocumentationFile>fileFLOW.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
@@ -63,12 +66,15 @@
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>file.ico</ApplicationIcon>
<ApplicationIcon>DD_fileFLOW_ICON.ico</ApplicationIcon>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup>
<Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
<HintPath>..\packages\BouncyCastle.Cryptography.2.5.0\lib\net461\BouncyCastle.Cryptography.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Charts.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
@@ -156,51 +162,135 @@
<Reference Include="DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DigitalData.Controls.DocumentViewer, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
<Reference Include="DigitalData.Controls.DocumentViewer, Version=1.9.8.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\DigitalData.Controls.DocumentViewer.1.9.8\lib\net462\DigitalData.Controls.DocumentViewer.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Controls.LookupGrid">
<HintPath>..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
<HintPath>..\..\..\2_DLL Projekte\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
</Reference>
<Reference Include="DigitalData.GUIs.Common">
<HintPath>..\..\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
<Reference Include="DigitalData.GUIs.Common, Version=2.6.2.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\DigitalData.GUIs.Common.2.6.2\lib\net462\DigitalData.GUIs.Common.dll</HintPath>
</Reference>
<Reference Include="DigitalData.GUIs.GlobalIndexer">
<HintPath>..\..\DDMonorepo\GUIs.GlobalIndexer\bin\Debug\DigitalData.GUIs.GlobalIndexer.dll</HintPath>
<HintPath>..\..\..\2_DLL Projekte\DDMonorepo\GUIs.GlobalIndexer\bin\Debug\DigitalData.GUIs.GlobalIndexer.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Base">
<HintPath>..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
<Reference Include="DigitalData.Modules.Base, Version=1.3.8.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\DigitalData.Modules.Base.1.3.8\lib\net462\DigitalData.Modules.Base.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
<Reference Include="DigitalData.Modules.Config, Version=1.3.0.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\DigitalData.Modules.Config.1.3.0\lib\net462\DigitalData.Modules.Config.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Database">
<HintPath>..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
<Reference Include="DigitalData.Modules.Database, Version=2.3.5.4, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\DigitalData.Modules.Database.2.3.5.4\lib\net462\DigitalData.Modules.Database.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Filesystem">
<HintPath>..\..\DDModules\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
<Reference Include="DigitalData.Modules.Encryption, Version=1.3.1.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\DigitalData.Modules.Encryption.1.3.1\lib\net462\DigitalData.Modules.Encryption.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Language">
<HintPath>..\..\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
<Reference Include="DigitalData.Modules.License, Version=1.1.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\2_DLL Projekte\DDModules\License\bin\Debug\DigitalData.Modules.License.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.License">
<HintPath>..\..\DDModules\License\bin\Debug\DigitalData.Modules.License.dll</HintPath>
<Reference Include="DigitalData.Modules.Logging, Version=2.6.5.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\DigitalData.Modules.Logging.2.6.5\lib\net462\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
<Reference Include="DigitalData.Modules.Messaging, Version=1.9.8.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\DigitalData.Modules.Messaging.1.9.8\lib\net462\DigitalData.Modules.Messaging.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Messaging">
<HintPath>..\..\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll</HintPath>
<Reference Include="DigitalData.Modules.Patterns, Version=1.3.1.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\DigitalData.Modules.Patterns.1.3.1\lib\net462\DigitalData.Modules.Patterns.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Windows">
<HintPath>..\..\DDModules\Windows\bin\Debug\DigitalData.Modules.Windows.dll</HintPath>
<Reference Include="DigitalData.Modules.Windows, Version=1.5.1.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\DigitalData.Modules.Windows.1.5.1\lib\net462\DigitalData.Modules.Windows.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Windream">
<HintPath>..\..\DDModules\Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>
<Reference Include="DigitalData.Modules.Windream, Version=1.9.5.2, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\2_DLL Projekte\DDModules\Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.ZooFlow">
<HintPath>..\..\DDModules\ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
<Reference Include="DigitalData.Modules.ZooFlow, Version=1.3.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>P:\Install .Net\0 DD - Bibliotheken\Modules\ZooFlow\DigitalData.Modules.ZooFlow.dll</HintPath>
</Reference>
<Reference Include="DocumentFormat.OpenXml, Version=3.2.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
<HintPath>..\packages\DocumentFormat.OpenXml.3.2.0\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
</Reference>
<Reference Include="DocumentFormat.OpenXml.Framework, Version=3.2.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
<HintPath>..\packages\DocumentFormat.OpenXml.Framework.3.2.0\lib\net46\DocumentFormat.OpenXml.Framework.dll</HintPath>
</Reference>
<Reference Include="EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
<HintPath>..\packages\EntityFramework.6.4.4\lib\net45\EntityFramework.dll</HintPath>
</Reference>
<Reference Include="EntityFramework.Firebird, Version=6.4.0.0, Culture=neutral, PublicKeyToken=42d22d092898e5f8, processorArchitecture=MSIL">
<HintPath>..\packages\EntityFramework.Firebird.6.4.0\lib\net452\EntityFramework.Firebird.dll</HintPath>
</Reference>
<Reference Include="EntityFramework.SqlServer, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
<HintPath>..\packages\EntityFramework.6.4.4\lib\net45\EntityFramework.SqlServer.dll</HintPath>
</Reference>
<Reference Include="FirebirdSql.Data.FirebirdClient, Version=7.5.0.0, Culture=neutral, PublicKeyToken=3750abcc3150b00c, processorArchitecture=MSIL">
<HintPath>..\packages\FirebirdSql.Data.FirebirdClient.7.5.0\lib\net452\FirebirdSql.Data.FirebirdClient.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.barcode.1d.writer, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.1d.writer.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.barcode.2d.writer, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.2d.writer.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.CAD, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.CAD.DWG, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.DWG.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.Common, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Common.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.Document, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Document.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.Email, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Email.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.HTML, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.HTML.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.Imaging, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.Imaging.Formats, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.Imaging.Formats.Conversion, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.Conversion.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.Imaging.Rendering, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Rendering.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.MSOfficeBinary, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.MSOfficeBinary.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.OpenDocument, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenDocument.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.OpenXML, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.OpenXML.Templating, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.Templating.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.PDF, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.PDF.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.RTF, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.RTF.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.SVG, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.SVG.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14.wia.gateway, Version=1.0.0.0, Culture=neutral, PublicKeyToken=6973b5c22dcf45f7, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.wia.gateway.dll</HintPath>
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="Interop.WINDREAMLib">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
@@ -214,28 +304,119 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>P:\Visual Studio Projekte\Bibliotheken\Limilabs\Mail.dll\Mail.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.9.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Bcl.Cryptography, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Bcl.Cryptography.9.0.0\lib\net462\Microsoft.Bcl.Cryptography.dll</HintPath>
</Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="Microsoft.Identity.Client, Version=4.55.0.0, Culture=neutral, PublicKeyToken=0a613f4dd989e8ae, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Identity.Client.4.55.0\lib\net461\Microsoft.Identity.Client.dll</HintPath>
</Reference>
<Reference Include="Microsoft.IdentityModel.Abstractions, Version=6.22.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.IdentityModel.Abstractions.6.22.0\lib\net461\Microsoft.IdentityModel.Abstractions.dll</HintPath>
</Reference>
<Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.13.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
</Reference>
<Reference Include="Newtonsoft.Json.Bson, Version=1.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.Bson.1.0.2\lib\net45\Newtonsoft.Json.Bson.dll</HintPath>
</Reference>
<Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.5.0.2\lib\net46\NLog.dll</HintPath>
<HintPath>..\packages\NLog.5.0.5\lib\net46\NLog.dll</HintPath>
</Reference>
<Reference Include="OpenMcdf, Version=2.4.1.0, Culture=neutral, PublicKeyToken=fdbb1629d7c00800, processorArchitecture=MSIL">
<HintPath>..\packages\OpenMcdf.2.4.1\lib\net40\OpenMcdf.dll</HintPath>
</Reference>
<Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference>
<Reference Include="PresentationCore" />
<Reference Include="protobuf-net, Version=3.0.0.0, Culture=neutral, PublicKeyToken=257b51d87d2e4d67, processorArchitecture=MSIL">
<HintPath>..\packages\protobuf-net.3.2.46\lib\net462\protobuf-net.dll</HintPath>
</Reference>
<Reference Include="protobuf-net.Core, Version=3.0.0.0, Culture=neutral, PublicKeyToken=257b51d87d2e4d67, processorArchitecture=MSIL">
<HintPath>..\packages\protobuf-net.Core.3.2.46\lib\net462\protobuf-net.Core.dll</HintPath>
</Reference>
<Reference Include="RtfPipe, Version=2.0.7677.4303, Culture=neutral, PublicKeyToken=5f6ab4ce530296d2, processorArchitecture=MSIL">
<HintPath>..\packages\RtfPipe.2.0.7677.4303\lib\net45\RtfPipe.dll</HintPath>
</Reference>
<Reference Include="S22.Imap, Version=3.6.0.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\S22.Imap.3.6.0.0\lib\net40\S22.Imap.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Buffers, Version=4.0.4.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Buffers.4.6.0\lib\net462\System.Buffers.dll</HintPath>
</Reference>
<Reference Include="System.CodeDom, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.CodeDom.9.0.0\lib\net462\System.CodeDom.dll</HintPath>
</Reference>
<Reference Include="System.Collections.Immutable, Version=9.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Collections.Immutable.9.0.0\lib\net462\System.Collections.Immutable.dll</HintPath>
</Reference>
<Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.Data.Linq" />
<Reference Include="System.Data.Odbc, Version=6.0.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Data.Odbc.6.0.1\lib\net461\System.Data.Odbc.dll</HintPath>
</Reference>
<Reference Include="System.Deployment" />
<Reference Include="System.DirectoryServices" />
<Reference Include="System.DirectoryServices.AccountManagement" />
<Reference Include="System.Drawing" />
<Reference Include="System.Formats.Asn1, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Formats.Asn1.9.0.0\lib\net462\System.Formats.Asn1.dll</HintPath>
</Reference>
<Reference Include="System.IdentityModel" />
<Reference Include="System.IO.Compression" />
<Reference Include="System.IO.Packaging, Version=9.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.IO.Packaging.9.0.0\lib\net462\System.IO.Packaging.dll</HintPath>
</Reference>
<Reference Include="System.IO.Pipelines, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.IO.Pipelines.9.0.0\lib\net462\System.IO.Pipelines.dll</HintPath>
</Reference>
<Reference Include="System.Management" />
<Reference Include="System.Memory, Version=4.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Memory.4.6.0\lib\net462\System.Memory.dll</HintPath>
</Reference>
<Reference Include="System.Net.Http" />
<Reference Include="System.Net.Http.Formatting, Version=6.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNet.WebApi.Client.6.0.0\lib\net45\System.Net.Http.Formatting.dll</HintPath>
</Reference>
<Reference Include="System.Numerics" />
<Reference Include="System.Numerics.Vectors, Version=4.1.5.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Numerics.Vectors.4.6.0\lib\net462\System.Numerics.Vectors.dll</HintPath>
</Reference>
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.1.0\lib\net462\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
</Reference>
<Reference Include="System.Runtime.InteropServices.RuntimeInformation, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Runtime.InteropServices.RuntimeInformation.4.0.0\lib\net45\System.Runtime.InteropServices.RuntimeInformation.dll</HintPath>
<Private>True</Private>
<Private>True</Private>
</Reference>
<Reference Include="System.Runtime.Remoting" />
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.Security" />
<Reference Include="System.Security.Cryptography.Pkcs, Version=9.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Security.Cryptography.Pkcs.9.0.0\lib\net462\System.Security.Cryptography.Pkcs.dll</HintPath>
</Reference>
<Reference Include="System.ServiceModel" />
<Reference Include="System.Text.Encodings.Web, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Text.Encodings.Web.9.0.0\lib\net462\System.Text.Encodings.Web.dll</HintPath>
</Reference>
<Reference Include="System.Text.Json, Version=9.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Text.Json.9.0.0\lib\net462\System.Text.Json.dll</HintPath>
</Reference>
<Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll</HintPath>
</Reference>
<Reference Include="System.Transactions" />
<Reference Include="System.ValueTuple, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.ValueTuple.4.5.0\lib\net461\System.ValueTuple.dll</HintPath>
</Reference>
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
@@ -243,6 +424,7 @@
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="UIAutomationClient" />
<Reference Include="WindowsBase" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
@@ -499,9 +681,11 @@
</EmbeddedResource>
<EmbeddedResource Include="frmLicense.en-US.resx">
<DependentUpon>frmLicense.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmLicense.resx">
<DependentUpon>frmLicense.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmLookupGrid.resx">
<DependentUpon>frmLookupGrid.vb</DependentUpon>
@@ -778,17 +962,32 @@
<None Include="Resources\arrow_Up_16xLG.png" />
</ItemGroup>
<ItemGroup>
<Content Include="DD_Icons_ICO_GLOBIX_1.ico">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
<Content Include="DD_fileFLOW_ICON.ico">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="DD_Icons_ICO_GLOBIX_128.ico">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="file.ico" />
<Content Include="GdPicture.NET.14.barcode.1d.reader.64.dll" />
<Content Include="GdPicture.NET.14.barcode.1d.reader.dll" />
<Content Include="GdPicture.NET.14.barcode.2d.reader.64.dll" />
<Content Include="GdPicture.NET.14.barcode.2d.reader.dll" />
<Content Include="GdPicture.NET.14.filters.64.dll" />
<Content Include="GdPicture.NET.14.filters.dll" />
<Content Include="GdPicture.NET.14.image.gdimgplug.64.dll" />
<Content Include="GdPicture.NET.14.image.gdimgplug.dll" />
<Content Include="GdPicture.NET.14.Imaging.ML.64.dll" />
<Content Include="GdPicture.NET.14.Imaging.ML.dll" />
<Content Include="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
<Content Include="GdPicture.NET.14.Imaging.Rendering.Skia.dll" />
<Content Include="GdPicture.NET.14.machine.vision.64.dll" />
<Content Include="GdPicture.NET.14.machine.vision.dll" />
<Content Include="GdPicture.NET.14.twain.client.64.dll" />
<Content Include="GdPicture.NET.14.twain.client.dll" />
<Content Include="globe_handdrawn.ico" />
<Content Include="MailLicense.xml">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="README.txt" />
<None Include="Resources\DD_fileFLOW_BOOT.png" />
<None Include="Resources\DD_fileFLOW_ICON.png" />
<None Include="Resources\Dropitlikeitshot.png" />
<None Include="Resources\SelectAll_32x32.png" />
<None Include="Resources\FileFlow_Boot1.png" />
@@ -828,6 +1027,16 @@
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<Import Project="..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets" Condition="Exists('..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets')" />
<Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
<PropertyGroup>
<ErrorText>Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".</ErrorText>
</PropertyGroup>
<Error Condition="!Exists('..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets'))" />
<Error Condition="!Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\EntityFramework.6.4.4\build\EntityFramework.props'))" />
<Error Condition="!Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\EntityFramework.6.4.4\build\EntityFramework.targets'))" />
</Target>
<Import Project="..\packages\EntityFramework.6.4.4\build\EntityFramework.targets" Condition="Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.targets')" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">

View File

@@ -1,6 +1,6 @@
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Filesystem
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Messaging
Module ModuleCURRENT
@@ -16,8 +16,8 @@ Module ModuleCURRENT
Public Property CONFIG As ConfigManager(Of ClassConfig)
Public Property LOGCONFIG As LogConfig
Public Property LOGGER As Logger
Public Property FILESYSTEM As File
Public Property EMAIL As Email2
Public Property FILESYSTEM As FilesystemEx
Public Property FILE_HANDLER As ClassFileHandler
Public Property FOLDER_WATCHER As ClassFolderWatcher
@@ -82,6 +82,7 @@ Module ModuleCURRENT
Public Property CURRENT_DROPTYPE
Public Property VIEWER_LICENSE As String = ""
Public CURRENT_DOC_ID As Integer
End Module

View File

@@ -12,6 +12,7 @@ Module ModuleRuntime
Public LogErrorsOnly As Boolean = True
Public GI_withWindream As Boolean = False
Public WMDrive As String = "W"
Public WM_DB_SERVER As String = ""
'Public myPreviewActive As Boolean = True
Public Property FW_started As Boolean = False
Public IDB_ACTIVE As Boolean = False
@@ -25,6 +26,8 @@ Module ModuleRuntime
Public IDB_DOC_ID As Int64
Public IDB_LOG_INDEX As String
Public Property WINDREAM As Windream
Public Property DATABASE_ECM As MSSQLServer

View File

@@ -10,12 +10,12 @@ Imports System.Runtime.InteropServices
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("File Flow")>
<Assembly: AssemblyTitle("fileFLOW")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("File Flow")>
<Assembly: AssemblyCopyright("Copyright © 2022")>
<Assembly: AssemblyTrademark("2.6.2.0")>
<Assembly: AssemblyProduct("fileFLOW")>
<Assembly: AssemblyCopyright("Copyright © 2024")>
<Assembly: AssemblyTrademark("2.7.4.0")>
<Assembly: ComVisible(False)>
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.6.5.0")>
<Assembly: AssemblyVersion("2.7.4.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

View File

@@ -340,6 +340,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property DD_fileFLOW_BOOT() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("DD_fileFLOW_BOOT", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property DD_fileFLOW_ICON() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("DD_fileFLOW_ICON", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

View File

@@ -118,38 +118,71 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="arrow_back_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_back_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="initialstate1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\initialstate1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="arrow_Up_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_Up_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bell_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bell_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="database_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="initialstate" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\initialstate.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="WindowsForm_817_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WindowsForm_817_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="delete2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\delete2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="gear_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="properties" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\properties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="gear_32xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear_32xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="FileFlow_Boot" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\FileFlow_Boot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="gear_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bell_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bell_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="folder_link" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bo_notifications" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_notifications.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="WindowsForm_817_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WindowsForm_817_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="trackingchanges_next" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\trackingchanges_next.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="database_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Close_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Close_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="gear_32xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear_32xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_Forward_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_Forward_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -157,160 +190,133 @@
<data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_previous_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_previous_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="delete_12x12" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\delete_12x12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_right" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="shipmentawaiting" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\shipmentawaiting.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="page_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\page_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="folder_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="initialstate" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\initialstate.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="FileFlow_Boot" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\FileFlow_Boot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="trackingchanges_next" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\trackingchanges_next.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="file" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\file.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xLG1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="initialstate1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\initialstate1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Close_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Close_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="KeyDown_8461_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\KeyDown_8461_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="about" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="folder_link" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einstellungen5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einstellungen5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bullet_arrow_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_arrow_top.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="folder_Open_32xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_Open_32xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="CheckOutforEdit_13187_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CheckOutforEdit_13187_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_left" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_left.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Copy_6524" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Copy_6524.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="properties1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\properties1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="database_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_connect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_connect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Save_6530" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="highlight1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\highlight1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="action_add_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Selectallrowsfrom_tableA__294" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Selectallrowsfrom_tableA__294.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="highlight" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\highlight.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="Close_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Close_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="delete2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\delete2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Benutzer" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Benutzer.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Shortcut_8169_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Shortcut_8169_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="DD_fileFLOW_ICON" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DD_fileFLOW_ICON.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="folder_Open_32xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_Open_32xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bo_notifications" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_notifications.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="properties1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\properties1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="highlight1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\highlight1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="properties" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\properties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="arrow_back_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_back_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="CheckOutforEdit_13187_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CheckOutforEdit_13187_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Close_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Close_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xLG1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="itemtypechecked" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\itemtypechecked.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="SelectAll_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SelectAll_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="file" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\file.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_previous_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_previous_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Save_6530" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bullet_arrow_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_arrow_top.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_connect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_connect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="delete_12x12" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\delete_12x12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_right" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="page_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\page_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="shipmentawaiting" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\shipmentawaiting.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="folder_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Shortcut_8169_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Shortcut_8169_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="about" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="arrow_Up_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_Up_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="KeyDown_8461_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\KeyDown_8461_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Selectallrowsfrom_tableA__294" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Selectallrowsfrom_tableA__294.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Copy_6524" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Copy_6524.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Dropitlikeitshot" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Dropitlikeitshot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="SelectAll_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SelectAll_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="highlight" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\highlight.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einstellungen5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einstellungen5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="DD_fileFLOW_BOOT" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DD_fileFLOW_BOOT.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

View File

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.9.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -57,13 +57,22 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Secu"& _
"rity Info=True;User ID=sa;Password=dd")> _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security "& _
"Info=True;User ID=sa;Password=dd")> _
Public ReadOnly Property DD_ECMConnectionString() As String
Get
Return CType(Me("DD_ECMConnectionString"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("11.2024")> _
Public ReadOnly Property GDPICTURE_VERSION() As String
Get
Return CType(Me("GDPICTURE_VERSION"),String)
End Get
End Property
End Class
End Namespace

View File

@@ -5,10 +5,13 @@
<Setting Name="DD_ECMConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
&lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
&lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
<Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</Value>
</Setting>
<Setting Name="GDPICTURE_VERSION" Type="System.String" Scope="Application">
<Value Profile="(Default)">11.2024</Value>
</Setting>
</Settings>
</SettingsFile>

View File

@@ -4558,6 +4558,10 @@ Partial Public Class MyDataset
Private columnSEQUENCE As Global.System.Data.DataColumn
Private columnVKT_OVERWRITE As Global.System.Data.DataColumn
Private columnVKT_PREVENT_MULTIPLE_VALUES As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
@@ -4745,6 +4749,22 @@ Partial Public Class MyDataset
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property VKT_OVERWRITEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVKT_OVERWRITE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property VKT_PREVENT_MULTIPLE_VALUESColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVKT_PREVENT_MULTIPLE_VALUES
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
@@ -4801,9 +4821,11 @@ Partial Public Class MyDataset
ByVal Indexwert As String, _
ByVal VALUE As String, _
ByVal SQL_ACTIVE As Boolean, _
ByVal SEQUENCE As Byte) As VWDDINDEX_AUTOMRow
ByVal SEQUENCE As Byte, _
ByVal VKT_OVERWRITE As Boolean, _
ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) As VWDDINDEX_AUTOMRow
Dim rowVWDDINDEX_AUTOMRow As VWDDINDEX_AUTOMRow = CType(Me.NewRow,VWDDINDEX_AUTOMRow)
Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, Indexiert, Indexwert, VALUE, SQL_ACTIVE, SEQUENCE}
Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, Indexiert, Indexwert, VALUE, SQL_ACTIVE, SEQUENCE, VKT_OVERWRITE, VKT_PREVENT_MULTIPLE_VALUES}
rowVWDDINDEX_AUTOMRow.ItemArray = columnValuesArray
Me.Rows.Add(rowVWDDINDEX_AUTOMRow)
Return rowVWDDINDEX_AUTOMRow
@@ -4851,6 +4873,8 @@ Partial Public Class MyDataset
Me.columnVALUE = MyBase.Columns("VALUE")
Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE")
Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
Me.columnVKT_OVERWRITE = MyBase.Columns("VKT_OVERWRITE")
Me.columnVKT_PREVENT_MULTIPLE_VALUES = MyBase.Columns("VKT_PREVENT_MULTIPLE_VALUES")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -4894,6 +4918,10 @@ Partial Public Class MyDataset
MyBase.Columns.Add(Me.columnSQL_ACTIVE)
Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSEQUENCE)
Me.columnVKT_OVERWRITE = New Global.System.Data.DataColumn("VKT_OVERWRITE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnVKT_OVERWRITE)
Me.columnVKT_PREVENT_MULTIPLE_VALUES = New Global.System.Data.DataColumn("VKT_PREVENT_MULTIPLE_VALUES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnVKT_PREVENT_MULTIPLE_VALUES)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AllowDBNull = false
Me.columnGUID.Unique = true
@@ -4919,6 +4947,8 @@ Partial Public Class MyDataset
Me.columnVALUE.MaxLength = 2000
Me.columnSQL_ACTIVE.AllowDBNull = false
Me.columnSEQUENCE.AllowDBNull = false
Me.columnVKT_OVERWRITE.AllowDBNull = false
Me.columnVKT_PREVENT_MULTIPLE_VALUES.AllowDBNull = false
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -5084,6 +5114,10 @@ Partial Public Class MyDataset
Private columnSEQUENCE As Global.System.Data.DataColumn
Private columnVKT_PREVENT_MULTIPLE_VALUES As Global.System.Data.DataColumn
Private columnVKT_OVERWRITE As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
@@ -5231,6 +5265,22 @@ Partial Public Class MyDataset
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property VKT_PREVENT_MULTIPLE_VALUESColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVKT_PREVENT_MULTIPLE_VALUES
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property VKT_OVERWRITEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVKT_OVERWRITE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
@@ -5268,9 +5318,9 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte) As TBDD_INDEX_AUTOMRow
Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte, ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, ByVal VKT_OVERWRITE As Boolean) As TBDD_INDEX_AUTOMRow
Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE}
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE, VKT_PREVENT_MULTIPLE_VALUES, VKT_OVERWRITE}
If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then
columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0)
End If
@@ -5316,6 +5366,8 @@ Partial Public Class MyDataset
Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT")
Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE")
Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
Me.columnVKT_PREVENT_MULTIPLE_VALUES = MyBase.Columns("VKT_PREVENT_MULTIPLE_VALUES")
Me.columnVKT_OVERWRITE = MyBase.Columns("VKT_OVERWRITE")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -5349,6 +5401,10 @@ Partial Public Class MyDataset
MyBase.Columns.Add(Me.columnSQL_ACTIVE)
Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSEQUENCE)
Me.columnVKT_PREVENT_MULTIPLE_VALUES = New Global.System.Data.DataColumn("VKT_PREVENT_MULTIPLE_VALUES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnVKT_PREVENT_MULTIPLE_VALUES)
Me.columnVKT_OVERWRITE = New Global.System.Data.DataColumn("VKT_OVERWRITE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnVKT_OVERWRITE)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AllowDBNull = false
@@ -5374,6 +5430,10 @@ Partial Public Class MyDataset
Me.columnSQL_ACTIVE.DefaultValue = CType(false,Boolean)
Me.columnSEQUENCE.AllowDBNull = false
Me.columnSEQUENCE.DefaultValue = CType(0,Byte)
Me.columnVKT_PREVENT_MULTIPLE_VALUES.AllowDBNull = false
Me.columnVKT_PREVENT_MULTIPLE_VALUES.DefaultValue = CType(false,Boolean)
Me.columnVKT_OVERWRITE.AllowDBNull = false
Me.columnVKT_OVERWRITE.DefaultValue = CType(false,Boolean)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -11996,6 +12056,28 @@ Partial Public Class MyDataset
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property VKT_OVERWRITE() As Boolean
Get
Return CType(Me(Me.tableVWDDINDEX_AUTOM.VKT_OVERWRITEColumn),Boolean)
End Get
Set
Me(Me.tableVWDDINDEX_AUTOM.VKT_OVERWRITEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean
Get
Return CType(Me(Me.tableVWDDINDEX_AUTOM.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean)
End Get
Set
Me(Me.tableVWDDINDEX_AUTOM.VKT_PREVENT_MULTIPLE_VALUESColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCOMMENTNull() As Boolean
@@ -12306,6 +12388,28 @@ Partial Public Class MyDataset
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean
Get
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean)
End Get
Set
Me(Me.tableTBDD_INDEX_AUTOM.VKT_PREVENT_MULTIPLE_VALUESColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property VKT_OVERWRITE() As Boolean
Get
Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VKT_OVERWRITEColumn),Boolean)
End Get
Set
Me(Me.tableTBDD_INDEX_AUTOM.VKT_OVERWRITEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow
@@ -15751,8 +15855,8 @@ Namespace MyDatasetTableAdapters
""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT T.DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" FROM TBDD_DOKUMENTART_MODULE AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBDD_MODULES AS T1 ON T.MODULE_ID = "& _
"T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (T1.NAME = 'Global-Indexer'"& _
")))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BEZEICHNUNG"
"T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (T1.NAME = 'fileFLOW')))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"O"& _
"RDER BY SEQUENCE, BEZEICHNUNG"
Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text
End Sub
@@ -18003,6 +18107,8 @@ Namespace MyDatasetTableAdapters
tableMapping.ColumnMappings.Add("VALUE", "VALUE")
tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE")
tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE")
tableMapping.ColumnMappings.Add("VKT_OVERWRITE", "VKT_OVERWRITE")
tableMapping.ColumnMappings.Add("VKT_PREVENT_MULTIPLE_VALUES", "VKT_PREVENT_MULTIPLE_VALUES")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
@@ -18021,8 +18127,9 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNEC"& _
"TION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RE"& _
"SULT, VALUE, SQL_ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEQUENCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VW"& _
"DDINDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE"
"SULT, VALUE, SQL_ACTIVE, SEQUENCE,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" VKT_OVERWRITE, VKT"& _
"_PREVENT_MULTIPLE_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE"& _
"_ID = @DOCTYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub
@@ -18195,6 +18302,8 @@ Namespace MyDatasetTableAdapters
tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT")
tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE")
tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE")
tableMapping.ColumnMappings.Add("VKT_PREVENT_MULTIPLE_VALUES", "VKT_PREVENT_MULTIPLE_VALUES")
tableMapping.ColumnMappings.Add("VKT_OVERWRITE", "VKT_OVERWRITE")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -18232,12 +18341,13 @@ Namespace MyDatasetTableAdapters
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, INDEXNAME, VA"& _
"LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _
"_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@INDEXNAME,"& _
"@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHAN"& _
"GED_WHEN,@SQL_RESULT,@SQL_ACTIVE,@SEQUENCE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAM"& _
"E, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _
"ANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDE"& _
"NTITY()) ORDER BY SEQUENCE"
"_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE, VKT_PREVENT_MULTIPLE_VALUES, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" VKT_OVERWRITE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@INDEXNAME,@VALUE,@C"& _
"ONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,"& _
"@SQL_RESULT,@SQL_ACTIVE,@SEQUENCE,@VKT_PREVENT_MULTIPLE_VALUES,@VKT_OVERWRITE); "& _
" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, AD"& _
"DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD"& _
"_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -18252,17 +18362,20 @@ Namespace MyDatasetTableAdapters
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_OVERWRITE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_OVERWRITE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, INDEX"& _
"NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _
"MMENT, ACTIVE = @ACTIVE, ADDED_WHO = @ADDED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADDE"& _
"D_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, "& _
"SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, SEQUENCE = @SEQUENCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
" (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CON"& _
"NECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, S"& _
"QL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUEN"& _
"CE"
"SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES,"& _
" VKT_OVERWRITE = @VKT_OVERWRITE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _
" GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, "& _
"ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AU"& _
"TOM WHERE (GUID = @GUID) ORDER BY SEQUENCE"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -18277,6 +18390,8 @@ Namespace MyDatasetTableAdapters
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_OVERWRITE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_OVERWRITE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
End Sub
@@ -18296,8 +18411,9 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _
" ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUE"& _
"NCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
"ORDER BY SEQUENCE"
"NCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" VKT_PREVENT_MULTIPLE_VALUES, VKT_OVERWRITE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"& _
" TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY "& _
"SEQUENCE"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub
@@ -18435,7 +18551,7 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte) As Integer
Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte, ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, ByVal VKT_OVERWRITE As Boolean) As Integer
Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
If (INDEXNAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("INDEXNAME")
@@ -18481,6 +18597,8 @@ Namespace MyDatasetTableAdapters
End If
Me.Adapter.InsertCommand.Parameters(11).Value = CType(SQL_ACTIVE,Boolean)
Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEQUENCE,Byte)
Me.Adapter.InsertCommand.Parameters(13).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean)
Me.Adapter.InsertCommand.Parameters(14).Value = CType(VKT_OVERWRITE,Boolean)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
@@ -18500,7 +18618,24 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
Public Overloads Overridable Function Update( _
ByVal DOCTYPE_ID As Integer, _
ByVal INDEXNAME As String, _
ByVal VALUE As String, _
ByVal CONNECTION_ID As Short, _
ByVal COMMENT As String, _
ByVal ACTIVE As Boolean, _
ByVal ADDED_WHO As String, _
ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _
ByVal CHANGED_WHO As String, _
ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _
ByVal SQL_RESULT As String, _
ByVal SQL_ACTIVE As Boolean, _
ByVal SEQUENCE As Byte, _
ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _
ByVal VKT_OVERWRITE As Boolean, _
ByVal Original_GUID As Integer, _
ByVal GUID As Integer) As Integer
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
If (INDEXNAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("INDEXNAME")
@@ -18546,8 +18681,10 @@ Namespace MyDatasetTableAdapters
End If
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SQL_ACTIVE,Boolean)
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEQUENCE,Byte)
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean)
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(VKT_OVERWRITE,Boolean)
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then

File diff suppressed because it is too large Load Diff

View File

@@ -4,30 +4,30 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="251" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ex:showrelationlabel="False" ViewPortX="417" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBDD_USER" ZOrder="12" X="765" Y="247" Height="305" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="14" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
<Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="17" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="13" X="765" Y="247" Height="305" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="15" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
<Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="18" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBDD_DOKART_MODULE" ZOrder="29" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBDD_MODULES" ZOrder="28" X="1096" Y="325" Height="115" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="3" X="456" Y="638" Height="360" Width="244" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="27" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="11" X="1040" Y="444" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
<Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="25" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="12" X="1040" Y="444" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
<Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="1" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="2" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="22" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="4" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="7" X="719" Y="25" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="6" X="135" Y="27" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="8" X="1040" Y="71" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="13" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="1" X="1474" Y="-2" Height="336" Width="243" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBGI_HISTORY" ZOrder="5" X="120" Y="153" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBGI_REGEX_DOCTYPE" ZOrder="10" X="1027" Y="881" Height="210" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBTempFiles2Index" ZOrder="23" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
<Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="19" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBAD_Users" ZOrder="15" X="1363" Y="639" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
<Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="23" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="5" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="8" X="719" Y="25" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="7" X="135" Y="27" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="9" X="1040" Y="71" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="14" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="4" X="1474" Y="-2" Height="336" Width="243" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBGI_HISTORY" ZOrder="6" X="120" Y="153" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBGI_REGEX_DOCTYPE" ZOrder="11" X="1027" Y="881" Height="210" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBTempFiles2Index" ZOrder="24" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
<Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="20" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBAD_Users" ZOrder="16" X="1363" Y="639" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="30" LineWidth="11">
@@ -54,7 +54,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="24" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="25" LineWidth="11">
<RoutePoints>
<Point>
<X>397</X>
@@ -66,7 +66,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="21" LineWidth="11">
<Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="22" LineWidth="11">
<RoutePoints>
<Point>
<X>597</X>
@@ -82,7 +82,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="20" LineWidth="11">
<Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="21" LineWidth="11">
<RoutePoints>
<Point>
<X>293</X>
@@ -94,7 +94,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="18" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="19" LineWidth="11">
<RoutePoints>
<Point>
<X>978</X>
@@ -106,7 +106,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="16" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="17" LineWidth="11">
<RoutePoints>
<Point>
<X>397</X>
@@ -118,7 +118,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="9" LineWidth="11">
<Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="10" LineWidth="11">
<RoutePoints>
<Point>
<X>380</X>

View File

@@ -0,0 +1,5 @@
BASE MODULE
===========
This module is intended for often used constants and datastructures.
Therefor it is important that this module does not have any dependencies on other modules!!

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.3 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 3.4 KiB

View File

@@ -182,8 +182,9 @@ Partial Class frmAdministration
Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageManualIndex = New DevExpress.XtraTab.XtraTabPage()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.txtManIndexConnectionId = New System.Windows.Forms.TextBox()
Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.txtManIndexConnectionId = New System.Windows.Forms.TextBox()
Me.txtManIndexSQL = New System.Windows.Forms.TextBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.lbManIndexDefaultValueParameter = New System.Windows.Forms.ListBox()
@@ -204,7 +205,6 @@ Partial Class frmAdministration
Me.SUGGESTIONCheckBox = New System.Windows.Forms.CheckBox()
Me.DEFAULT_VALUETextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.SEQUENCETextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.ListBoxControl3 = New DevExpress.XtraEditors.ListBoxControl()
@@ -233,8 +233,11 @@ Partial Class frmAdministration
Me.COMMENTTextBox2 = New System.Windows.Forms.TextBox()
Me.GUIDTextBox4 = New System.Windows.Forms.TextBox()
Me.XtraTabPageAutoIndex = New DevExpress.XtraTab.XtraTabPage()
Me.txtAutomIndexConnectionId = New System.Windows.Forms.TextBox()
Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown()
Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.chkPreventMultipleValues = New DevExpress.XtraEditors.CheckEdit()
Me.chkOverwrite = New DevExpress.XtraEditors.CheckEdit()
Me.txtAutomIndexConnectionId = New System.Windows.Forms.TextBox()
Me.txtAutomIndexSQLResult = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.ListBoxControl4 = New DevExpress.XtraEditors.ListBoxControl()
@@ -245,7 +248,6 @@ Partial Class frmAdministration
Me.INDEXNAME_AutoIndexCMB = New System.Windows.Forms.ComboBox()
Me.btnSQLViewAuto = New System.Windows.Forms.Button()
Me.SQL_ACTIVECheckBox = New System.Windows.Forms.CheckBox()
Me.TextBox8 = New System.Windows.Forms.TextBox()
Me.GUIDAUTO_INDEXTextbox = New System.Windows.Forms.TextBox()
Me.VALUETextBox = New System.Windows.Forms.TextBox()
Me.COMMENTTextBox1 = New System.Windows.Forms.TextBox()
@@ -357,12 +359,20 @@ Partial Class frmAdministration
GEANDERTWERLabel = New System.Windows.Forms.Label()
GEAENDERTWANNLabel = New System.Windows.Forms.Label()
CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl2.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl2.Panel1.SuspendLayout()
CType(Me.SplitContainerControl2.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl2.Panel2.SuspendLayout()
Me.SplitContainerControl2.SuspendLayout()
CType(Me.gridAssignedGroups, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.viewAssignedGroups, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.gridAvailableGroups, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl5.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl5.Panel1.SuspendLayout()
CType(Me.SplitContainerControl5.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl5.Panel2.SuspendLayout()
Me.SplitContainerControl5.SuspendLayout()
CType(Me.gridAssignedUsers, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.viewAssignedUsers, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -370,6 +380,10 @@ Partial Class frmAdministration
CType(Me.gridAvailableUsers, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.viewAvailableUsers, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerControl4.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl4.Panel1.SuspendLayout()
CType(Me.SplitContainerControl4.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl4.Panel2.SuspendLayout()
Me.SplitContainerControl4.SuspendLayout()
CType(Me.GridControlProfile, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -383,13 +397,17 @@ Partial Class frmAdministration
Me.XtraTabControl2.SuspendLayout()
Me.XtraTabPageManualIndex.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ListBoxControl3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageManualIndexFunctions.SuspendLayout()
CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWHDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageAutoIndex.SuspendLayout()
CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.chkPreventMultipleValues.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.chkOverwrite.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ListBoxControl4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageFolderPath.SuspendLayout()
Me.GroupBox4.SuspendLayout()
@@ -421,9 +439,15 @@ Partial Class frmAdministration
resources.ApplyResources(Me.SplitContainerControl2, "SplitContainerControl2")
Me.SplitContainerControl2.Horizontal = False
Me.SplitContainerControl2.Name = "SplitContainerControl2"
'
'SplitContainerControl2.Panel1
'
Me.SplitContainerControl2.Panel1.Controls.Add(Me.gridAssignedGroups)
Me.SplitContainerControl2.Panel1.Controls.Add(Me.Label13)
resources.ApplyResources(Me.SplitContainerControl2.Panel1, "SplitContainerControl2.Panel1")
'
'SplitContainerControl2.Panel2
'
Me.SplitContainerControl2.Panel2.Controls.Add(Me.gridAvailableGroups)
Me.SplitContainerControl2.Panel2.Controls.Add(Me.Label14)
resources.ApplyResources(Me.SplitContainerControl2.Panel2, "SplitContainerControl2.Panel2")
@@ -536,9 +560,15 @@ Partial Class frmAdministration
resources.ApplyResources(Me.SplitContainerControl5, "SplitContainerControl5")
Me.SplitContainerControl5.Horizontal = False
Me.SplitContainerControl5.Name = "SplitContainerControl5"
'
'SplitContainerControl5.Panel1
'
Me.SplitContainerControl5.Panel1.Controls.Add(Me.gridAssignedUsers)
Me.SplitContainerControl5.Panel1.Controls.Add(Me.Label2)
resources.ApplyResources(Me.SplitContainerControl5.Panel1, "SplitContainerControl5.Panel1")
'
'SplitContainerControl5.Panel2
'
Me.SplitContainerControl5.Panel2.Controls.Add(Me.gridAvailableUsers)
Me.SplitContainerControl5.Panel2.Controls.Add(Me.Label35)
resources.ApplyResources(Me.SplitContainerControl5.Panel2, "SplitContainerControl5.Panel2")
@@ -974,9 +1004,15 @@ Partial Class frmAdministration
'
resources.ApplyResources(Me.SplitContainerControl4, "SplitContainerControl4")
Me.SplitContainerControl4.Name = "SplitContainerControl4"
'
'SplitContainerControl4.Panel1
'
Me.SplitContainerControl4.Panel1.Controls.Add(Me.GridControlProfile)
Me.SplitContainerControl4.Panel1.Controls.Add(Me.Label3)
resources.ApplyResources(Me.SplitContainerControl4.Panel1, "SplitContainerControl4.Panel1")
'
'SplitContainerControl4.Panel2
'
Me.SplitContainerControl4.Panel2.Controls.Add(Me.XtraTabControl1)
resources.ApplyResources(Me.SplitContainerControl4.Panel2, "SplitContainerControl4.Panel2")
Me.SplitContainerControl4.SplitterPosition = 224
@@ -1308,6 +1344,7 @@ Partial Class frmAdministration
'
'Panel1
'
Me.Panel1.Controls.Add(Me.NumericUpDown1)
Me.Panel1.Controls.Add(Me.txtManIndexConnectionId)
Me.Panel1.Controls.Add(Me.txtManIndexSQL)
Me.Panel1.Controls.Add(Me.Button3)
@@ -1337,7 +1374,6 @@ Partial Class frmAdministration
Me.Panel1.Controls.Add(Me.CHANGED_WHOTextBox)
Me.Panel1.Controls.Add(DEFAULT_VALUELabel)
Me.Panel1.Controls.Add(ADDED_WHENLabel)
Me.Panel1.Controls.Add(Me.SEQUENCETextBox)
Me.Panel1.Controls.Add(Me.ADDED_WHENTextBox)
Me.Panel1.Controls.Add(SEQUENCELabel)
Me.Panel1.Controls.Add(ADDED_WHOLabel)
@@ -1345,6 +1381,18 @@ Partial Class frmAdministration
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Name = "Panel1"
'
'NumericUpDown1
'
Me.NumericUpDown1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True))
resources.ApplyResources(Me.NumericUpDown1, "NumericUpDown1")
Me.NumericUpDown1.Maximum = New Decimal(New Integer() {999, 0, 0, 0})
Me.NumericUpDown1.Name = "NumericUpDown1"
'
'TBDD_INDEX_MANBindingSource
'
Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN"
Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset
'
'txtManIndexConnectionId
'
Me.txtManIndexConnectionId.BackColor = System.Drawing.SystemColors.Control
@@ -1355,11 +1403,6 @@ Partial Class frmAdministration
Me.txtManIndexConnectionId.Name = "txtManIndexConnectionId"
Me.txtManIndexConnectionId.TabStop = False
'
'TBDD_INDEX_MANBindingSource
'
Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN"
Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset
'
'txtManIndexSQL
'
Me.txtManIndexSQL.BackColor = System.Drawing.SystemColors.Control
@@ -1539,12 +1582,6 @@ Partial Class frmAdministration
resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel")
ADDED_WHENLabel.Name = "ADDED_WHENLabel"
'
'SEQUENCETextBox
'
Me.SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True))
resources.ApplyResources(Me.SEQUENCETextBox, "SEQUENCETextBox")
Me.SEQUENCETextBox.Name = "SEQUENCETextBox"
'
'ADDED_WHENTextBox
'
Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "ADDED_WHEN", True))
@@ -1818,6 +1855,9 @@ Partial Class frmAdministration
Me.XtraTabPageAutoIndex.Appearance.Header.GradientMode = CType(resources.GetObject("XtraTabPageAutoIndex.Appearance.Header.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.XtraTabPageAutoIndex.Appearance.HeaderActive.GradientMode = CType(resources.GetObject("XtraTabPageAutoIndex.Appearance.HeaderActive.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
resources.ApplyResources(Me.XtraTabPageAutoIndex, "XtraTabPageAutoIndex")
Me.XtraTabPageAutoIndex.Controls.Add(Me.NumericUpDown2)
Me.XtraTabPageAutoIndex.Controls.Add(Me.chkPreventMultipleValues)
Me.XtraTabPageAutoIndex.Controls.Add(Me.chkOverwrite)
Me.XtraTabPageAutoIndex.Controls.Add(Me.txtAutomIndexConnectionId)
Me.XtraTabPageAutoIndex.Controls.Add(Me.txtAutomIndexSQLResult)
Me.XtraTabPageAutoIndex.Controls.Add(Me.Label6)
@@ -1831,7 +1871,6 @@ Partial Class frmAdministration
Me.XtraTabPageAutoIndex.Controls.Add(Me.SQL_ACTIVECheckBox)
Me.XtraTabPageAutoIndex.Controls.Add(Label12)
Me.XtraTabPageAutoIndex.Controls.Add(GUIDLabel4)
Me.XtraTabPageAutoIndex.Controls.Add(Me.TextBox8)
Me.XtraTabPageAutoIndex.Controls.Add(Me.GUIDAUTO_INDEXTextbox)
Me.XtraTabPageAutoIndex.Controls.Add(INDEXNAMELabel)
Me.XtraTabPageAutoIndex.Controls.Add(Me.VALUETextBox)
@@ -1851,6 +1890,33 @@ Partial Class frmAdministration
Me.XtraTabPageAutoIndex.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
Me.XtraTabPageAutoIndex.Name = "XtraTabPageAutoIndex"
'
'NumericUpDown2
'
Me.NumericUpDown2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_INDEX_AUTOMBindingSource, "SEQUENCE", True))
resources.ApplyResources(Me.NumericUpDown2, "NumericUpDown2")
Me.NumericUpDown2.Maximum = New Decimal(New Integer() {999, 0, 0, 0})
Me.NumericUpDown2.Name = "NumericUpDown2"
'
'TBDD_INDEX_AUTOMBindingSource
'
Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM"
Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.MyDataset
'
'chkPreventMultipleValues
'
Me.chkPreventMultipleValues.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_AUTOMBindingSource, "VKT_PREVENT_MULTIPLE_VALUES", True))
resources.ApplyResources(Me.chkPreventMultipleValues, "chkPreventMultipleValues")
Me.chkPreventMultipleValues.Name = "chkPreventMultipleValues"
Me.chkPreventMultipleValues.Properties.Caption = resources.GetString("chkPreventMultipleValues.Properties.Caption")
'
'chkOverwrite
'
Me.chkOverwrite.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_AUTOMBindingSource, "VKT_OVERWRITE", True))
resources.ApplyResources(Me.chkOverwrite, "chkOverwrite")
Me.chkOverwrite.MenuManager = Me.RibbonControl1
Me.chkOverwrite.Name = "chkOverwrite"
Me.chkOverwrite.Properties.Caption = resources.GetString("chkOverwrite.Properties.Caption")
'
'txtAutomIndexConnectionId
'
Me.txtAutomIndexConnectionId.BackColor = System.Drawing.SystemColors.Control
@@ -1861,11 +1927,6 @@ Partial Class frmAdministration
Me.txtAutomIndexConnectionId.Name = "txtAutomIndexConnectionId"
Me.txtAutomIndexConnectionId.TabStop = False
'
'TBDD_INDEX_AUTOMBindingSource
'
Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM"
Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.MyDataset
'
'txtAutomIndexSQLResult
'
Me.txtAutomIndexSQLResult.BackColor = System.Drawing.SystemColors.Control
@@ -1945,12 +2006,6 @@ Partial Class frmAdministration
resources.ApplyResources(GUIDLabel4, "GUIDLabel4")
GUIDLabel4.Name = "GUIDLabel4"
'
'TextBox8
'
Me.TextBox8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "SEQUENCE", True))
resources.ApplyResources(Me.TextBox8, "TextBox8")
Me.TextBox8.Name = "TextBox8"
'
'GUIDAUTO_INDEXTextbox
'
Me.GUIDAUTO_INDEXTextbox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "GUID", True))
@@ -2477,12 +2532,20 @@ Partial Class frmAdministration
Me.Name = "frmAdministration"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
CType(Me.SplitContainerControl2.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl2.Panel1.ResumeLayout(False)
CType(Me.SplitContainerControl2.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl2.Panel2.ResumeLayout(False)
CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl2.ResumeLayout(False)
CType(Me.gridAssignedGroups, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.viewAssignedGroups, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.gridAvailableGroups, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControl5.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl5.Panel1.ResumeLayout(False)
CType(Me.SplitContainerControl5.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl5.Panel2.ResumeLayout(False)
CType(Me.SplitContainerControl5, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl5.ResumeLayout(False)
CType(Me.gridAssignedUsers, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2490,6 +2553,10 @@ Partial Class frmAdministration
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.gridAvailableUsers, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.viewAvailableUsers, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControl4.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl4.Panel1.ResumeLayout(False)
CType(Me.SplitContainerControl4.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl4.Panel2.ResumeLayout(False)
CType(Me.SplitContainerControl4, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl4.ResumeLayout(False)
CType(Me.GridControlProfile, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2506,6 +2573,7 @@ Partial Class frmAdministration
Me.XtraTabPageManualIndex.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ListBoxControl3, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageManualIndexFunctions.ResumeLayout(False)
@@ -2514,7 +2582,10 @@ Partial Class frmAdministration
CType(Me.TBWHDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageAutoIndex.ResumeLayout(False)
Me.XtraTabPageAutoIndex.PerformLayout()
CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.chkPreventMultipleValues.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.chkOverwrite.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ListBoxControl4, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageFolderPath.ResumeLayout(False)
Me.GroupBox4.ResumeLayout(False)
@@ -2579,7 +2650,6 @@ Partial Class frmAdministration
Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox
Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox
Friend WithEvents ACTIVECheckBox As System.Windows.Forms.CheckBox
Friend WithEvents SEQUENCETextBox As System.Windows.Forms.TextBox
Friend WithEvents DEFAULT_VALUETextBox As System.Windows.Forms.TextBox
Friend WithEvents SUGGESTIONCheckBox As System.Windows.Forms.CheckBox
Friend WithEvents DATATYPEComboBox As System.Windows.Forms.ComboBox
@@ -2777,6 +2847,9 @@ Partial Class frmAdministration
Friend WithEvents txtManIndexSQL As TextBox
Friend WithEvents txtAutomIndexConnectionId As TextBox
Friend WithEvents txtAutomIndexSQLResult As TextBox
Friend WithEvents TextBox8 As TextBox
Friend WithEvents colAKTIV As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents chkPreventMultipleValues As DevExpress.XtraEditors.CheckEdit
Friend WithEvents chkOverwrite As DevExpress.XtraEditors.CheckEdit
Friend WithEvents NumericUpDown1 As NumericUpDown
Friend WithEvents NumericUpDown2 As NumericUpDown
End Class

View File

@@ -1326,6 +1326,6 @@ The received values can be written to Indicies or used to rename a file.</value>
</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Adminconsole File Flow</value>
<value>Adminconsole fileFLOW</value>
</data>
</root>

File diff suppressed because it is too large Load Diff

View File

@@ -212,9 +212,9 @@ Public Class frmAdministration
Dim oNewID As Integer
oNewID = DATABASE_ECM.GetScalarValue("SELECT MAX(GUID) FROM TBDD_DOKUMENTART")
If IsNumeric(oNewID) Then
Dim osql = $"EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX', {oNewID}"
Dim osql = $"EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'fileFLOW', {oNewID}"
If DATABASE_ECM.ExecuteNonQuery(osql) = False Then
MsgBox("Fehler beim zuweisen des neuen Profils zum Modul Global-Indexer!", MsgBoxStyle.Critical, Text)
MsgBox("Fehler beim zuweisen des neuen Profils zum Modul fileFLOW/GI!", MsgBoxStyle.Critical, Text)
End If
End If
End If
@@ -299,9 +299,9 @@ Public Class frmAdministration
End Sub
Private Sub btnadd_Click(sender As Object, e As EventArgs)
Dim osql = $"EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX',{DOKART_GUIDTextBox.Text}"
Dim osql = $"EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'fileFLOW',{DOKART_GUIDTextBox.Text}"
DATABASE_ECM.ExecuteNonQuery(osql)
LoadGlobix_Doctypes()
LoadfileFLOW_Doctypes()
End Sub
Private Sub OBJEKTTYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles OBJEKTTYPComboBox.SelectedIndexChanged
@@ -369,6 +369,7 @@ Public Class frmAdministration
EnableControls(XtraTabPageAutoIndex)
End If
CheckIndexAutoWD()
SetAutomIndexVectorCheckboxEnabled()
Catch ex As System.Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Indexe Auto: ")
End Try
@@ -502,48 +503,7 @@ Public Class frmAdministration
End Select
End Sub
Private Sub btnSQLView_Click(sender As Object, e As EventArgs) Handles btnSQLView.Click
Dim oIndexGuid As Integer = GUIDTextBox1.Text
Dim oDocTypeGuid As Integer = DOKART_GUIDTextBox.Text
Try
Dim oConnection As Integer = 1
Dim oSQLCommand = ""
If txtManIndexConnectionId.Text <> String.Empty Then
oConnection = txtManIndexConnectionId.Text
End If
If txtManIndexSQL.Text <> String.Empty Then
oSQLCommand = txtManIndexSQL.Text
End If
'Dim oForm As New frmSQL_DESIGNER(oIndexGuid, oDocTypeGuid) With {
' .SQLCommand = oSQLCommand,
' .ConnectionID = oConnection
'}
Dim oDatatable = DATABASE_ECM.GetDatatable($"SELECT * FROM TBDD_INDEX_MAN WHERE DOK_ID = {oDocTypeGuid} AND ACTIVE = 1")
Dim oPlaceholders = oDatatable.AsEnumerable().
ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("WD_INDEX"))
Dim oForm2 As New DigitalData.GUIs.Common.frmSQLEditor(LOGCONFIG, DATABASE_ECM) With {
.SQLCommand = oSQLCommand,
.SQLConnection = oConnection,
.PlaceholdersManual = oPlaceholders
}
Dim oResult = oForm2.ShowDialog()
If oResult = DialogResult.OK Then
txtManIndexSQL.Text = oForm2.SQLCommand
txtManIndexConnectionId.Text = oForm2.SQLConnection
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
End Sub
Private Sub WINDREAM_DIRECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles WINDREAM_DIRECTCheckBox.CheckedChanged
WM_CHECKED_CHANGE()
@@ -662,7 +622,8 @@ Public Class frmAdministration
.SQLConnection = oConnection,
.PlaceholdersManual = oPlaceholders,
.PlaceholdersManualTitle = "Manueller Index",
.PlaceholdersManualPrefix = "CTRL"
.PlaceholdersManualPrefix = "CTRL",
.PlaceholdersWindream = SourceAttributes
}
Dim oResult = oForm2.ShowDialog()
@@ -674,6 +635,43 @@ Public Class frmAdministration
LOGGER.Error(ex)
End Try
End Sub
Private Sub btnSQLView_Click(sender As Object, e As EventArgs) Handles btnSQLView.Click
Dim oIndexGuid As Integer = GUIDTextBox1.Text
Dim oDocTypeGuid As Integer = DOKART_GUIDTextBox.Text
Try
Dim oConnection As Integer = 1
Dim oSQLCommand = ""
If txtManIndexConnectionId.Text <> String.Empty Then
oConnection = txtManIndexConnectionId.Text
End If
If txtManIndexSQL.Text <> String.Empty Then
oSQLCommand = txtManIndexSQL.Text
End If
Dim oDatatable = DATABASE_ECM.GetDatatable($"SELECT * FROM TBDD_INDEX_MAN WHERE DOK_ID = {oDocTypeGuid} AND ACTIVE = 1")
Dim oPlaceholders = oDatatable.AsEnumerable().
ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("NAME"))
Dim oForm2 As New DigitalData.GUIs.Common.frmSQLEditor(LOGCONFIG, DATABASE_ECM) With {
.SQLCommand = oSQLCommand,
.SQLConnection = oConnection,
.PlaceholdersManual = oPlaceholders,
.PlaceholdersManualPrefix = "CTRL",
.PlaceholdersWindream = SourceAttributes
}
Dim oResult = oForm2.ShowDialog()
If oResult = DialogResult.OK Then
txtManIndexSQL.Text = oForm2.SQLCommand
txtManIndexConnectionId.Text = oForm2.SQLConnection
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
End Sub
Private Sub TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPEComboBox.SelectedIndexChanged
If TYPEComboBox.SelectedIndex <> -1 Then
@@ -787,7 +785,7 @@ Public Class frmAdministration
Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
End Sub
Sub LoadGlobix_Doctypes()
Sub LoadfileFLOW_Doctypes()
Dim oFocusedRow = GridViewProfile.FocusedRowHandle
Load_Dokart()
GridViewProfile.FocusedRowHandle = oFocusedRow
@@ -898,7 +896,7 @@ Public Class frmAdministration
Private _indexIsVectorField As Boolean = False
Private Sub WD_INDEXComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles WD_INDEXComboBox.SelectedIndexChanged
_indexIsVectorField = indexIsVectorField()
_indexIsVectorField = indexIsVectorField(WD_INDEXComboBox.Text)
MULTISELECTCheckBox.Enabled = _indexIsVectorField
@@ -916,9 +914,9 @@ Public Class frmAdministration
End If
End Sub
Private Function indexIsVectorField() As Boolean
Private Function indexIsVectorField(pIndexName As String) As Boolean
Try
Dim selectedIndexName As String = WD_INDEXComboBox.Text
Dim selectedIndexName As String = pIndexName
If selectedIndexName = String.Empty Then
Return False
@@ -1019,8 +1017,8 @@ Public Class frmAdministration
If result = MsgBoxResult.Yes Then
Try
Dim oGlobixId = DATABASE_ECM.GetScalarValue("SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'GLOBIX'")
Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", " & oGlobixId
Dim oFF_ID = DATABASE_ECM.GetScalarValue("SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'fileFLOW'")
Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", " & oFF_ID
If DATABASE_ECM.ExecuteNonQuery(copy) Then
If USER_LANGUAGE = "de-DE" Then
@@ -1038,7 +1036,7 @@ Public Class frmAdministration
End Sub
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
LoadGlobix_Doctypes()
LoadfileFLOW_Doctypes()
End Sub
Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
@@ -1453,4 +1451,22 @@ Public Class frmAdministration
Private Sub frmAdministration_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Check_HasChanges(BEZEICHNUNGTextBox.Text)
End Sub
Private Sub INDEXNAME_AutoIndexCMB_SelectedIndexChanged(sender As Object, e As EventArgs) Handles INDEXNAME_AutoIndexCMB.SelectedIndexChanged
SetAutomIndexVectorCheckboxEnabled()
End Sub
Private Function SetAutomIndexVectorCheckboxEnabled()
_indexIsVectorField = indexIsVectorField(INDEXNAME_AutoIndexCMB.Text)
If _indexIsVectorField Then
chkOverwrite.Enabled = True
chkPreventMultipleValues.Enabled = True
Else
chkOverwrite.Enabled = False
chkPreventMultipleValues.Enabled = False
End If
End Function
End Class

View File

@@ -39,6 +39,9 @@ Partial Class frmConfig_Basic
Me.txtPasswort = New System.Windows.Forms.TextBox()
Me.BtnConnect = New System.Windows.Forms.Button()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.Label10 = New System.Windows.Forms.Label()
Me.Button5 = New System.Windows.Forms.Button()
Me.cmbDesign = New System.Windows.Forms.ComboBox()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
Me.Button3 = New System.Windows.Forms.Button()
Me.cmbLanguage = New System.Windows.Forms.ComboBox()
@@ -169,6 +172,9 @@ Partial Class frmConfig_Basic
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.Label10)
Me.TabPage2.Controls.Add(Me.Button5)
Me.TabPage2.Controls.Add(Me.cmbDesign)
Me.TabPage2.Controls.Add(Me.LinkLabel1)
Me.TabPage2.Controls.Add(Me.Button3)
Me.TabPage2.Controls.Add(Me.cmbLanguage)
@@ -182,6 +188,24 @@ Partial Class frmConfig_Basic
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.UseVisualStyleBackColor = True
'
'Label10
'
resources.ApplyResources(Me.Label10, "Label10")
Me.Label10.Name = "Label10"
'
'Button5
'
resources.ApplyResources(Me.Button5, "Button5")
Me.Button5.Name = "Button5"
Me.Button5.UseVisualStyleBackColor = True
'
'cmbDesign
'
resources.ApplyResources(Me.cmbDesign, "cmbDesign")
Me.cmbDesign.FormattingEnabled = True
Me.cmbDesign.Items.AddRange(New Object() {resources.GetString("cmbDesign.Items"), resources.GetString("cmbDesign.Items1"), resources.GetString("cmbDesign.Items2"), resources.GetString("cmbDesign.Items3"), resources.GetString("cmbDesign.Items4"), resources.GetString("cmbDesign.Items5"), resources.GetString("cmbDesign.Items6")})
Me.cmbDesign.Name = "cmbDesign"
'
'LinkLabel1
'
resources.ApplyResources(Me.LinkLabel1, "LinkLabel1")
@@ -401,4 +425,7 @@ Partial Class frmConfig_Basic
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
Friend WithEvents Label10 As Label
Friend WithEvents Button5 As Button
Friend WithEvents cmbDesign As ComboBox
End Class

View File

@@ -447,11 +447,116 @@
<data name="&gt;&gt;TabPage1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Label10.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label10.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label10.Location" type="System.Drawing.Point, System.Drawing">
<value>8, 127</value>
</data>
<data name="Label10.Size" type="System.Drawing.Size, System.Drawing">
<value>96, 13</value>
</data>
<data name="Label10.TabIndex" type="System.Int32, mscorlib">
<value>48</value>
</data>
<data name="Label10.Text" xml:space="preserve">
<value>Aktuelles Design:</value>
</data>
<data name="&gt;&gt;Label10.Name" xml:space="preserve">
<value>Label10</value>
</data>
<data name="&gt;&gt;Label10.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label10.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;Label10.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Button5.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="Button5.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Button5.Location" type="System.Drawing.Point, System.Drawing">
<value>197, 141</value>
</data>
<data name="Button5.Size" type="System.Drawing.Size, System.Drawing">
<value>134, 23</value>
</data>
<data name="Button5.TabIndex" type="System.Int32, mscorlib">
<value>47</value>
</data>
<data name="Button5.Text" xml:space="preserve">
<value>Design jetzt wechseln</value>
</data>
<data name="&gt;&gt;Button5.Name" xml:space="preserve">
<value>Button5</value>
</data>
<data name="&gt;&gt;Button5.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Button5.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;Button5.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="cmbDesign.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="cmbDesign.Items" xml:space="preserve">
<value>DevExpress Style</value>
</data>
<data name="cmbDesign.Items1" xml:space="preserve">
<value>DevExpress Dark Style</value>
</data>
<data name="cmbDesign.Items2" xml:space="preserve">
<value>Office 2016 Colorful</value>
</data>
<data name="cmbDesign.Items3" xml:space="preserve">
<value>Office 2013</value>
</data>
<data name="cmbDesign.Items4" xml:space="preserve">
<value>Office 2010 Blue</value>
</data>
<data name="cmbDesign.Items5" xml:space="preserve">
<value>Seven Classic</value>
</data>
<data name="cmbDesign.Items6" xml:space="preserve">
<value>Visual Studio 2013 Light</value>
</data>
<data name="cmbDesign.Location" type="System.Drawing.Point, System.Drawing">
<value>11, 143</value>
</data>
<data name="cmbDesign.Size" type="System.Drawing.Size, System.Drawing">
<value>180, 21</value>
</data>
<data name="cmbDesign.TabIndex" type="System.Int32, mscorlib">
<value>46</value>
</data>
<data name="&gt;&gt;cmbDesign.Name" xml:space="preserve">
<value>cmbDesign</value>
</data>
<data name="&gt;&gt;cmbDesign.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;cmbDesign.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;cmbDesign.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="LinkLabel1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="LinkLabel1.Location" type="System.Drawing.Point, System.Drawing">
<value>8, 166</value>
<value>8, 226</value>
</data>
<data name="LinkLabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>153, 13</value>
@@ -472,7 +577,7 @@
<value>TabPage2</value>
</data>
<data name="&gt;&gt;LinkLabel1.ZOrder" xml:space="preserve">
<value>0</value>
<value>3</value>
</data>
<data name="Button3.Location" type="System.Drawing.Point, System.Drawing">
<value>197, 95</value>
@@ -496,7 +601,7 @@
<value>TabPage2</value>
</data>
<data name="&gt;&gt;Button3.ZOrder" xml:space="preserve">
<value>1</value>
<value>4</value>
</data>
<data name="cmbLanguage.Items" xml:space="preserve">
<value>German</value>
@@ -523,7 +628,7 @@
<value>TabPage2</value>
</data>
<data name="&gt;&gt;cmbLanguage.ZOrder" xml:space="preserve">
<value>2</value>
<value>5</value>
</data>
<data name="Label9.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -550,7 +655,7 @@
<value>TabPage2</value>
</data>
<data name="&gt;&gt;Label9.ZOrder" xml:space="preserve">
<value>3</value>
<value>6</value>
</data>
<data name="CheckBoxPreviewDocs.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -577,7 +682,7 @@
<value>TabPage2</value>
</data>
<data name="&gt;&gt;CheckBoxPreviewDocs.ZOrder" xml:space="preserve">
<value>4</value>
<value>7</value>
</data>
<data name="CheckBoxIndexResult.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -605,7 +710,7 @@
<value>TabPage2</value>
</data>
<data name="&gt;&gt;CheckBoxIndexResult.ZOrder" xml:space="preserve">
<value>5</value>
<value>8</value>
</data>
<data name="chkLogErrorsOnly.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -632,13 +737,13 @@
<value>TabPage2</value>
</data>
<data name="&gt;&gt;chkLogErrorsOnly.ZOrder" xml:space="preserve">
<value>6</value>
<value>9</value>
</data>
<data name="btnApplicationFolder.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnApplicationFolder.Location" type="System.Drawing.Point, System.Drawing">
<value>11, 140</value>
<value>11, 183</value>
</data>
<data name="btnApplicationFolder.Size" type="System.Drawing.Size, System.Drawing">
<value>180, 23</value>
@@ -662,7 +767,7 @@
<value>TabPage2</value>
</data>
<data name="&gt;&gt;btnApplicationFolder.ZOrder" xml:space="preserve">
<value>7</value>
<value>10</value>
</data>
<data name="btnopenlog.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
@@ -671,7 +776,7 @@
<value>NoControl</value>
</data>
<data name="btnopenlog.Location" type="System.Drawing.Point, System.Drawing">
<value>197, 140</value>
<value>197, 183</value>
</data>
<data name="btnopenlog.Size" type="System.Drawing.Size, System.Drawing">
<value>180, 23</value>
@@ -695,7 +800,7 @@
<value>TabPage2</value>
</data>
<data name="&gt;&gt;btnopenlog.ZOrder" xml:space="preserve">
<value>8</value>
<value>11</value>
</data>
<data name="TabPage2.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 22</value>
@@ -704,7 +809,7 @@
<value>3, 3, 3, 3</value>
</data>
<data name="TabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>582, 280</value>
<value>526, 244</value>
</data>
<data name="TabPage2.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -882,7 +987,7 @@ ausgenommen werden sollen:</value>
<value>3</value>
</data>
<data name="btnFW_OwnFiles.Text" xml:space="preserve">
<value>Ordner 'GlobalIndexer' in Eigenen Dateien erzeugen</value>
<value>Ordner 'fileFLOW' in Eigenen Dateien erzeugen</value>
</data>
<data name="&gt;&gt;btnFW_OwnFiles.Name" xml:space="preserve">
<value>btnFW_OwnFiles</value>
@@ -906,7 +1011,7 @@ ausgenommen werden sollen:</value>
<value>2</value>
</data>
<data name="btnFW_Desktop.Text" xml:space="preserve">
<value>Ordner 'GlobalIndexer' auf Desktop erzeugen</value>
<value>Ordner 'fileFLOW' auf Desktop erzeugen</value>
</data>
<data name="&gt;&gt;btnFW_Desktop.Name" xml:space="preserve">
<value>btnFW_Desktop</value>
@@ -1098,7 +1203,7 @@ ausgenommen werden sollen:</value>
<value>0, 0</value>
</data>
<data name="TabControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>590, 306</value>
<value>534, 270</value>
</data>
<data name="TabControl1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -1125,7 +1230,7 @@ ausgenommen werden sollen:</value>
<value>6, 13</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>590, 306</value>
<value>534, 270</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>

View File

@@ -2,6 +2,7 @@
Imports System.Threading
Imports System.Globalization
Imports DigitalData.Modules.Database
Imports DevExpress.LookAndFeel
Public Class frmConfig_Basic
Dim formloaded = False
@@ -75,8 +76,8 @@ Public Class frmConfig_Basic
USER_ID = DATABASE_ECM.GetScalarValue(sql)
If IsDBNull(USER_ID) Then
MsgBox("Attention: Your Username '" & Environment.UserName & "' is not configured for File Flow. this might result in unhandled exceptions!", MsgBoxStyle.Exclamation)
LOGGER.Info("User '" & Environment.UserName & "' not configured for File Flow! (DBNull - frmConfigBasic)")
MsgBox("Attention: Your Username '" & Environment.UserName & "' is not configured for fileFLOW. this might result in unhandled exceptions!", MsgBoxStyle.Exclamation)
LOGGER.Info("User '" & Environment.UserName & "' not configured for fileFLOW! (DBNull - frmConfigBasic)")
End If
@@ -149,6 +150,8 @@ Public Class frmConfig_Basic
Else
cmbLanguage.SelectedIndex = 1
End If
cmbDesign.Text = CONFIG.Config.MyFormsDesign
'chkdelete_origin.Checked = CURR_DELETE_ORIGIN
Case 2
If ERROR_STATE = "NO DB-CONNECTION" Then
@@ -231,7 +234,7 @@ Public Class frmConfig_Basic
End Sub
Private Sub btnFW_Desktop_Click(sender As Object, e As EventArgs) Handles btnFW_Desktop.Click
CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "GlobalIndexer")
CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "fileFLOW")
CheckFolder(CURRENT_FOLDERWATCH, "DEFAULT")
End Sub
Sub CheckFolder(mypath As String, FOLDER_TYPE As String)
@@ -300,7 +303,7 @@ Public Class frmConfig_Basic
End Sub
Private Sub btnFW_OwnFiles_Click(sender As Object, e As EventArgs) Handles btnFW_OwnFiles.Click
CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "GlobalIndexer")
CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "fileFLOW")
CheckFolder(CURRENT_FOLDERWATCH, "DEFAULT")
End Sub
@@ -521,4 +524,17 @@ Public Class frmConfig_Basic
' Navigate to a URL.
Process.Start("https://digitaldata.works/support")
End Sub
Private Sub Label10_Click(sender As Object, e As EventArgs) Handles Label10.Click
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If cmbDesign.SelectedIndex <> -1 Then
UserLookAndFeel.Default.SetSkinStyle(cmbDesign.Text)
CONFIG.Config.MyFormsDesign = cmbDesign.Text
CONFIG.Save()
End If
End Sub
End Class

View File

@@ -97,6 +97,7 @@ Partial Class frmIndex
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewer1)
Me.SplitContainer1.TabStop = False
'
'pnlIndex
'
@@ -235,7 +236,7 @@ Partial Class frmIndex
resources.ApplyResources(Me.btnOK, "btnOK")
Me.btnOK.Appearance.Font = CType(resources.GetObject("btnOK.Appearance.Font"), System.Drawing.Font)
Me.btnOK.Appearance.Options.UseFont = True
Me.btnOK.ImageOptions.SvgImage = CType(resources.GetObject("btnOK.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnOK.ImageOptions.Image = CType(resources.GetObject("btnOK.ImageOptions.Image"), System.Drawing.Image)
Me.btnOK.Name = "btnOK"
'
'ComboboxDoctype
@@ -243,6 +244,8 @@ Partial Class frmIndex
resources.ApplyResources(Me.ComboboxDoctype, "ComboboxDoctype")
Me.ComboboxDoctype.MenuManager = Me.RibbonControl1
Me.ComboboxDoctype.Name = "ComboboxDoctype"
Me.ComboboxDoctype.Properties.Appearance.Font = CType(resources.GetObject("ComboboxDoctype.Properties.Appearance.Font"), System.Drawing.Font)
Me.ComboboxDoctype.Properties.Appearance.Options.UseFont = True
SerializableAppearanceObject1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
SerializableAppearanceObject1.Options.UseBackColor = True
Me.ComboboxDoctype.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ComboboxDoctype.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines), resources.GetString("ComboboxDoctype.Properties.Buttons1"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons2"), Integer), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons3"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons4"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons5"), Boolean), EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, resources.GetString("ComboboxDoctype.Properties.Buttons6"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons7"), Object), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons8"), DevExpress.Utils.SuperToolTip), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons9"), DevExpress.Utils.ToolTipAnchor))})
@@ -274,6 +277,7 @@ Partial Class frmIndex
resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1")
Me.DocumentViewer1.FileLoaded = False
Me.DocumentViewer1.Name = "DocumentViewer1"
Me.DocumentViewer1.TabStop = False
'
'BarToggleSwitchItem1
'
@@ -370,7 +374,7 @@ Partial Class frmIndex
Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.IconOptions.Image = Global.Global_Indexer.My.Resources.Resources.file
Me.IconOptions.Image = Global.Global_Indexer.My.Resources.Resources.DD_fileFLOW_ICON
Me.Name = "frmIndex"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1

View File

@@ -123,7 +123,7 @@
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 158</value>
<value>0, 147</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="pnlIndex.AutoScroll" type="System.Boolean, mscorlib">
@@ -133,13 +133,13 @@
<value>Fill</value>
</data>
<data name="pnlIndex.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 30</value>
<value>0, 32</value>
</data>
<data name="pnlIndex.Size" type="System.Drawing.Size, System.Drawing">
<value>636, 433</value>
<value>636, 441</value>
</data>
<data name="pnlIndex.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
<value>2</value>
</data>
<data name="pnlIndex.Visible" type="System.Boolean, mscorlib">
<value>False</value>
@@ -311,7 +311,7 @@
<value>Start</value>
</data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1076, 158</value>
<value>1076, 147</value>
</data>
<data name="labelFilePath.Caption" xml:space="preserve">
<value>labelFilePath</value>
@@ -385,10 +385,10 @@
</value>
</data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 677</value>
<value>0, 676</value>
</data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>1076, 22</value>
<value>1076, 23</value>
</data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value>
@@ -421,10 +421,10 @@
<value>Multi-Indexing - Alle nachfolgenden Dateien (0) identisch indexieren</value>
</data>
<data name="checkMultiindex.Size" type="System.Drawing.Size, System.Drawing">
<value>441, 18</value>
<value>441, 19</value>
</data>
<data name="checkMultiindex.TabIndex" type="System.Int32, mscorlib">
<value>12</value>
<value>3</value>
</data>
<data name="&gt;&gt;checkMultiindex.Name" xml:space="preserve">
<value>checkMultiindex</value>
@@ -444,21 +444,28 @@
<data name="btnOK.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 11.25pt, style=Bold</value>
</data>
<data name="btnOK.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="btnOK.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEQCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFycm93NFJpZ2h0Ij4NCiAgICA8cG9seWdvbiBwb2lu
dHM9IjE4LDYgMTIuMyw2IDIwLjMsMTQgNCwxNCA0LDE4IDIwLjMsMTggMTIuMywyNiAxOCwyNiAyOCwx
NiAgIiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAARdEVYdFRpdGxlAFBsYXk7U3RhcnQ7XWFAegAAA/pJ
REFUWEfFln1QVFUchjXjmkw26R+W6X81fcwYojaxaoEps/KxJo3rR9mYaBI4mlqOTSjJsLK4JAiIuK4f
6+KCkQKrQhgzrZmCsHy51oiRIK5m6DhZNs40zdjb755uTOecS4Mwa8/MO8N97jnnvfdcdu8OAfC/Rl8G
EalLFEwGEalLFEwGEalLFEwGEalLFEzyDLV/+XrFjuPxY7XjQSF1iYJJnmH2E3NA+XlnVfy7prefe0jz
A0LqEgWTPCE7vzChvssNx9crUFht8uYfjXtaO3ffSF2iYJJH2XE8Djd/8+PK7SYc9m0CHd/N98Suf98a
8bA2pt9IXaJgkkfJ88Si504L/Nf3ofNWNZqulMPhTcb2ytjm7M+M4dq4fiF1iYJJHiWnfDau/9qI5kAB
y4WeUgRun4Wn2QI698e2I8YtG3dFPqKN/0+kLlEwyaNkf27E1V/OwBfI59J+4wj8P1Zh91crYSszXrSW
REdqc/pE6hIFkzxKVmk0um7VorF7u5TWqw5cvFGBYy020Lh7me5ZRWmOqMe0uRJSlyiY5FG2HJyJc9dc
qOuyof5yjm7U8xd6arDfuxqW4pmBDNdr8dp8DqlLFEzyKOnOGfB1F+Lo+WU43ZmFus5s3Zy9nAv/tWJU
t+Xg04qF2Lw/qjTV/uoYbR2G1CUKJnmUtD2RVLANZS0LUN62BN7vN+P0JVufaewuQvtPlSiqWQaae5PW
6P3ykrpEwSSP8rH9FZzssKC0eZ4WMzzn34O3IwOnfsjqzTeXttJHdDc9Djdcp9aC5t1bXzDNSWsM+3up
AV7AhsJpqG1PhduXwKXE9wYOty5B1bdr6AK2oiXgRLXfStu/COtyDd+ZU14w0fxHKYO7gA/yDFSyDq6G
OVJKfGZ6LMvhOZeC9DIjFUfcSdwY/knoyBD12Y+gqN+WQ9WFVKQuUTDJo6zJeRmVbclw1sdxOdT0Jipa
k2A7ZgKN+TMpY3Ll1JjxL9Ic9a5DKNKLS+oSBZM8yirbS/QPuBR762JYXA0J7Nh+ch42HIhCSubkjoQV
z5pp7OOU4RR1y3vv+t9IXaJgkkdJsU6Bu3Eh9pyZjQP1c1HcYEbqwRlIzpxy960PJ1hHPzHiSRoXSuG2
Ww+pSxRM8ihJlklw1iVQ5sJSPgurCgx4JzWsxhAzbhKdH0nR3W49pC5RMMmjLE8PR15tNNY6pmPppond
8YnPLCY/iqK+gPrcbj2kLlEwyaMkpoVRcdjv81c/nztmfOg4cv3abj2kLlEwyROy+KMJJyJinjLQ3+pL
RqEM+GeZ1CUKJnnULVY/z/e93XpIXaJgkkctVO94UMX/IHWJgskgInWJgskgInWJ4kFHVz64YMhfkU05
On2zdlYAAAAASUVORK5CYII=
</value>
</data>
<data name="btnOK.Location" type="System.Drawing.Point, System.Drawing">
@@ -468,7 +475,7 @@
<value>183, 44</value>
</data>
<data name="btnOK.TabIndex" type="System.Int32, mscorlib">
<value>11</value>
<value>4</value>
</data>
<data name="btnOK.Text" xml:space="preserve">
<value>Datei verarbeiten</value>
@@ -489,7 +496,7 @@
<value>Bottom</value>
</data>
<data name="Panel2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 463</value>
<value>0, 473</value>
</data>
<data name="Panel2.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>2, 3, 2, 3</value>
@@ -518,6 +525,9 @@
<data name="ComboboxDoctype.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="ComboboxDoctype.Properties.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<assembly alias="DevExpress.Utils.v21.2" name="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="ComboboxDoctype.Properties.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v21.2">
<value>Combo</value>
@@ -562,10 +572,10 @@
<value>0</value>
</data>
<data name="ComboboxDoctype.Size" type="System.Drawing.Size, System.Drawing">
<value>636, 30</value>
<value>636, 32</value>
</data>
<data name="ComboboxDoctype.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
<value>1</value>
</data>
<data name="&gt;&gt;ComboboxDoctype.Name" xml:space="preserve">
<value>ComboboxDoctype</value>
@@ -601,7 +611,7 @@
<value>3, 4, 3, 4</value>
</data>
<data name="DocumentViewer1.Size" type="System.Drawing.Size, System.Drawing">
<value>436, 519</value>
<value>436, 529</value>
</data>
<data name="DocumentViewer1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -610,7 +620,7 @@
<value>DocumentViewer1</value>
</data>
<data name="&gt;&gt;DocumentViewer1.Type" xml:space="preserve">
<value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.8.0.0, Culture=neutral, PublicKeyToken=null</value>
<value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.9.8.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;DocumentViewer1.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
@@ -631,13 +641,13 @@
<value>1</value>
</data>
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
<value>1076, 519</value>
<value>1076, 529</value>
</data>
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
<value>636</value>
</data>
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
<value>0</value>
</data>
<data name="&gt;&gt;SplitContainer1.Name" xml:space="preserve">
<value>SplitContainer1</value>
@@ -673,28 +683,28 @@
<value>BarButtonItem2</value>
</data>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>134, 17</value>
<value>17, 17</value>
</metadata>
<metadata name="VWDDINDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>244, 17</value>
<value>127, 17</value>
</metadata>
<metadata name="VWDDINDEX_MANTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>479, 17</value>
<value>358, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>708, 17</value>
<value>581, 17</value>
</metadata>
<metadata name="VWINDEX_AUTOMBindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>881, 17</value>
<value>751, 17</value>
</metadata>
<metadata name="VWINDEX_AUTOMTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
<value>985, 17</value>
</metadata>
<metadata name="PdfBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>244, 56</value>
<value>17, 54</value>
</metadata>
<metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>509, 56</value>
<value>165, 54</value>
</metadata>
<data name="RibbonPage2.Text" xml:space="preserve">
<value>RibbonPage2</value>

View File

@@ -2,17 +2,17 @@
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.Security.AccessControl
Imports System.Security.Principal
Imports System.DirectoryServices
'Imports System.Security.Principal
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Language
Imports DigitalData.Controls.LookupGrid
Imports DigitalData.GUIs.GlobalIndexer
Imports DevExpress.XtraEditors.Controls
Imports Limilabs.Mail
Imports Limilabs.Mail.Headers
Imports DevExpress.XtraEditors
Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Base
'Imports DevExpress.DataAccess.Native.Json
'Imports GdPicture.Internal.MSOfficeBinary.translator.Spreadsheet.XlsFileFormat.Records
Public Class frmIndex
#Region "+++++ Variablen ++++++"
@@ -49,6 +49,7 @@ Public Class frmIndex
Private ReadOnly _Logger As Logger
Private ReadOnly _FormHelper As FormHelper
Private ReadOnly _PostProcessing As ClassPostprocessing
#End Region
@@ -79,12 +80,16 @@ Public Class frmIndex
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
_Logger = LOGCONFIG.GetLogger()
_Logger.Debug("frmIndex Logger initialized ...")
_FormHelper = New FormHelper(LOGCONFIG, Me)
_Logger.Debug("frmIndex FormHelper initialized ...")
_PostProcessing = New ClassPostprocessing(LOGCONFIG)
_Logger.Debug("frmIndex ClassPostprocessing initialized ...")
Localizer.Active = New LookupGridLocalizer()
_Logger.Debug("frmIndex LookupGridLocalizer initialized ...")
End Sub
Public Sub CloseViewer()
@@ -151,7 +156,7 @@ Public Class frmIndex
End Sub
Sub addLabel(indexname As String, hinweis As String, ylbl As Integer, anz As String)
Dim lbl As New Label With {
Dim lbl As New Windows.Forms.Label With {
.Name = "lbl" & indexname,
.AutoSize = True,
.Text = hinweis,
@@ -317,10 +322,8 @@ Public Class frmIndex
Dim oErgebnis
'Welcher Provider?
If vProvider.ToLower = "oracle" Then
'oErgebnis = ClassDatabase.OracleExecute_Scalar(SQLCommand, oConnectionString)
LOGGER.Warn("Oracle Database Queries are not supported")
Else 'im Moment nur SQL-Server
oErgebnis = DATABASE_ECM.GetScalarValueWithConnection(SQLCommand, oConnectionString)
End If
@@ -524,7 +527,7 @@ Public Class frmIndex
Dim DTNB As DataTable = DATABASE_ECM.GetDatatable("SELECT * FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & idxid & " AND VARIANT = 'ONLY FILE/FOLDER' ORDER BY SEQUENCE")
If DTNB Is Nothing = False Then
If DTNB.Rows.Count > 0 Then
value_post = ClassPostprocessing.Get_Nachbearbeitung_Wert(wert_in, DTNB)
value_post = _PostProcessing.Get_Nachbearbeitung_Wert(wert_in, DTNB)
DR.Item("Indexwert") = wert_in
DR.Item("Indexwert_File") = value_post
End If
@@ -534,7 +537,7 @@ Public Class frmIndex
DTNB = DATABASE_ECM.GetDatatable("SELECT * FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & idxid & " AND VARIANT = 'FILE AND INDEX' ORDER BY SEQUENCE")
If DTNB Is Nothing = False Then
If DTNB.Rows.Count > 0 Then
value_post = ClassPostprocessing.Get_Nachbearbeitung_Wert(wert_in, DTNB)
value_post = _PostProcessing.Get_Nachbearbeitung_Wert(wert_in, DTNB)
DR.Item("Indexwert") = value_post
End If
End If
@@ -551,7 +554,6 @@ Public Class frmIndex
Try
_Logger.Debug("#### Name_Generieren ####")
Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES WHERE GUID = 1"
Dim oFilesystem As New DigitalData.Modules.Filesystem.File(LOGCONFIG)
Dim DT1 As DataTable = DATABASE_ECM.GetDatatable(sql)
For Each row As DataRow In DT1.Rows
FILE_DELIMITER = row.Item("FILE_DELIMITER")
@@ -571,7 +573,7 @@ Public Class frmIndex
CURR_WORKFILE_EXTENSION = extension
oRAWZielordner = WINDREAM.GetNormalizedPath(DT.Rows(0).Item("ZIEL_PFAD"), True)
oRAWZielordner = Path.Combine(WINDREAM_BASEPATH, oRAWZielordner)
oRAWZielordner = WINDREAM_BASEPATH & oRAWZielordner
'####
' Regulären Ausdruck zum Auslesen der Indexe definieren
@@ -725,7 +727,7 @@ Public Class frmIndex
End Select
Next
CURRENT_NEWFILENAME = oFilesystem.GetCleanFilename(NewFileString)
CURRENT_NEWFILENAME = FILESYSTEM.GetCleanFilename(NewFileString)
'CURRENT_NEWFILENAME = ClassFilehandle.CleanFilename(NewFileString, "")
CURRENT_NEWFILENAME = Path.Combine(oRAWZielordner, CURRENT_NEWFILENAME)
@@ -790,22 +792,25 @@ Public Class frmIndex
' den Typ des Zielindexes auslesen
Dim oIndexType As Integer = WINDREAM.GetIndexType(indexname)
_Logger.Debug($"oIndexType [{oIndexType}]...")
If oIndexType < WINDREAM.WMObjectVariableValueTypeVector Then
_Logger.Debug($"Indexing oIndexType < WINDREAM.WMObjectVariableValueTypeVector...")
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, idxvalue, CURR_DOKART_OBJECTTYPE)
Else
If oIndexType = 0 Then
MsgBox("Could not get the windream-indextype. Check Your Configuration", MsgBoxStyle.Information, "Attention")
Return False
End If
If oIndexType > 4095 Then
_Logger.Debug($"Indexing Vektor - oIndexType [{oIndexType}] ...")
Dim oSplitArray = Split(idxvalue, ClassConstants.VECTORSEPARATOR)
Dim oListofString As New List(Of String)
If oSplitArray.Count = 0 Then
oListofString.Add(idxvalue)
Else
For Each oStr In oSplitArray
oListofString.Add(oStr)
Next
End If
'If oSplitArray.Length <= 1 Then
' indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, idxvalue, CURR_DOKART_OBJECTTYPE)
'Else
For Each oStr In oSplitArray
oListofString.Add(oStr)
Next
indexierung_erfolgreich = WINDREAM.SetFileIndexLoS(CURRENT_NEWFILENAME, indexname, oListofString, CURR_DOKART_OBJECTTYPE)
'End If
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, oListofString, CURR_DOKART_OBJECTTYPE)
Else
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, idxvalue, CURR_DOKART_OBJECTTYPE)
End If
'indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, idxvalue)
@@ -829,33 +834,57 @@ Public Class frmIndex
'Automatische Indexe Indexieren
Dim DTAut As DataTable = MyDataset.VWDDINDEX_AUTOM
If DTAut.Rows.Count > 0 Then
_Logger.Debug(" #### Es gibt automatische Atrribute - Anzahl: " & DTAut.Rows.Count.ToString & " #####")
Dim Count As Integer = 0
For Each row As DataRow In DTAut.Rows
Dim indexiert = CBool(row.Item("Indexiert"))
Dim Indexvalue = row.Item("Indexwert").ToString
Dim indexname = row.Item("INDEXNAME").ToString
If indexiert = True And Indexvalue <> "" Then
If Indexvalue <> "EMPTY_OI" Then
_Logger.Info("Auto Indexname: " & indexname.ToString)
_Logger.Info("Indexvalue: " & Indexvalue.ToString)
Dim oIsIndexed = CBool(row.Item("Indexiert"))
Dim oIndexValue = row.Item("Indexwert").ToString
Dim oIndexName = row.Item("INDEXNAME").ToString
Dim oOverwrite As Boolean = row.ItemEx("VKT_OVERWRITE", False)
Dim oPreventMultipleValues As Boolean = row.ItemEx("VKT_PREVENT_MULTIPLE_VALUES", False)
If oIsIndexed = True And oIndexValue <> "" Then
If oIndexValue <> "EMPTY_OI" Then
_Logger.Info("Auto Indexname: " & oIndexName.ToString)
_Logger.Info("Indexvalue: " & oIndexValue.ToString)
Count += 1
' den Typ des Zielindexes auslesen
Dim indexType As Integer = WINDREAM.GetIndexType(indexname)
Dim indexType As Integer = WINDREAM.GetIndexType(oIndexName)
_Logger.Debug("WMIndexType: " & indexType.ToString)
If indexType > 4095 Then
_Logger.Debug("Es Handelt sich um einen VektorIndex...")
Dim oExistingItems = WINDREAM.GetIndexValue(CURRENT_NEWFILENAME, oIndexName)
If indexType < WINDREAM.WMObjectVariableValueTypeVector Then
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, Indexvalue, CURR_DOKART_OBJECTTYPE)
Else
Dim oSplitArray = Split(Indexvalue, ClassConstants.VECTORSEPARATOR)
Dim oSplitArray = Split(oIndexValue, ClassConstants.VECTORSEPARATOR)
Dim oListofString As New List(Of String)
If oSplitArray.Count = 0 Then
oListofString.Add(Indexvalue)
If oSplitArray.Length = 0 Then
_Logger.Debug("oSplitArray.Length = 0")
oListofString.Add(oIndexValue)
Else
_Logger.Debug("oSplitArray is > 0 ...")
For Each oStr In oSplitArray
_Logger.Debug("oSplitArray - oStr: {0}", oStr)
oListofString.Add(oStr)
Next
End If
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, oListofString, CURR_DOKART_OBJECTTYPE)
'If oSplitArray.Length <= 1 Then
' indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE)
'Else
If oOverwrite = False And oExistingItems.Count > 0 Then
_Logger.Debug("oOverwrite = False and WMObject already contains [{0}] values in attribute,Values will be concatted", oExistingItems.Count)
oListofString = oExistingItems.Concat(oListofString).ToList()
End If
If oPreventMultipleValues = True Then
_Logger.Debug("Preventing multiple values in Vektor")
oListofString = oListofString.Distinct().ToList()
End If
indexierung_erfolgreich = WINDREAM.SetFileIndexLoS(CURRENT_NEWFILENAME, oIndexName, oListofString, CURR_DOKART_OBJECTTYPE)
'End If
Else
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE)
End If
'indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, Indexvalue, CURR_DOKART_OBJECTTYPE)
@@ -931,7 +960,14 @@ Public Class frmIndex
If pIndexAttachment = False Then
LOGGER.Debug("Indexing Email File: [{0}]", CURRENT_NEWFILENAME)
Dim oMsgFilePath As String = Path.Combine(WINDREAM_BASEPATH, CURRENT_NEWFILENAME)
' This cannot use Path.Combine, otherwise the WINDREAM_BASEPATH will be swallowed... lol
'Dim oMsgFilePath As String = Path.Combine(WINDREAM_BASEPATH, CURRENT_NEWFILENAME)
Dim oMsgFilePath As String = CURRENT_NEWFILENAME
If CURRENT_NEWFILENAME.StartsWith(WINDREAM_BASEPATH) = False Then
oMsgFilePath = WINDREAM_BASEPATH & oMsgFilePath
End If
Dim oMail As IMail = EMAIL.Load_Email(oMsgFilePath)
Dim oMessageId As String = oMail.MessageID
@@ -1387,7 +1423,7 @@ Public Class frmIndex
End If
Dim oStreamSuccessful = WINDREAM.NewFileStream(CURRENT_WORKFILE, CURRENT_NEWFILENAME, CURR_DOKART_OBJECTTYPE)
Dim oTempPath As String = Path.Combine(WINDREAM_BASEPATH, CURRENT_NEWFILENAME)
Dim oTempPath As String = WINDREAM_BASEPATH & CURRENT_NEWFILENAME
_Logger.Debug("Checks for file [{0}]", oTempPath)
_Logger.Debug("File streamed to Windream: {0}", oStreamSuccessful)
@@ -1567,8 +1603,6 @@ Public Class frmIndex
checkItemDeleteSource.Enabled = True
checkItemDeleteSource.Checked = CONFIG.Config.DeleteOriginalFile
VIEWER_LICENSE = DATABASE_ECM.GetScalarValue("SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'")
DocumentViewer1.Init(LOGCONFIG, VIEWER_LICENSE)
If DropType Is Nothing Then
@@ -1716,6 +1750,7 @@ Public Class frmIndex
_Logger.Info("Setting Last Saved DocType: {0}", CURRENT_LASTDOKART)
ComboboxDoctype.EditValue = oFoundDocType
ComboboxDoctype.SelectNextControl(ComboboxDoctype, forward:=True, tabStopOnly:=True, nested:=True, wrap:=False)
End If
End If
@@ -1740,12 +1775,18 @@ Public Class frmIndex
If oFoundDocType IsNot Nothing Then
_Logger.Debug("DocType found: [{0}]", oFoundDocType)
ComboboxDoctype.EditValue = oFoundDocType
ComboboxDoctype.SelectNextControl(ComboboxDoctype, forward:=True, tabStopOnly:=True, nested:=True, wrap:=False)
Exit For
End If
End If
Next
End If
If ComboboxDoctype.EditValue Is Nothing Then
ComboboxDoctype.Select()
End If
Catch ex As Exception
ShowErrorMessage(ex, "Form Shown")
End Try
@@ -1896,7 +1937,7 @@ Public Class frmIndex
Dim AddNewItems As Boolean = oRow.Item("VKT_ADD_ITEM")
Dim PreventDuplicates As Boolean = oRow.Item("VKT_PREVENT_MULTIPLE_VALUES")
Dim oControlName As String = oRow.Item("NAME")
Dim oConnectionId = Utils.NotNull(oRow.Item("CONNECTION_ID"), 0)
Dim oConnectionId = oRow.ItemEx("CONNECTION_ID", 0)
Dim oSQLSuggestion = oRow.Item("SUGGESTION")
Dim oSQLResult = oRow.Item("SQL_RESULT")
@@ -2009,7 +2050,7 @@ Public Class frmIndex
End Function
Private Sub PrepareDependingControl(Control As Control)
If TypeOf Control Is Label Then
If TypeOf Control Is Windows.Forms.Label Then
Exit Sub
End If
@@ -2023,9 +2064,9 @@ Public Class frmIndex
LOGGER.Debug("Found [{0}] depending controls for [{1}]", oDatatable.Rows.Count, Control.Name)
For Each oRow As DataRow In oDatatable.Rows
Dim oControlName As String = Utils.NotNull(oRow.Item("NAME"), "")
Dim oConnectionId As Integer = Utils.NotNull(oRow.Item("CONNECTION_ID"), -1)
Dim oControlSql As String = Utils.NotNull(oRow.Item("SQL_RESULT"), "")
Dim oControlName As String = oRow.ItemEx("NAME", "")
Dim oConnectionId As Integer = oRow.ItemEx("CONNECTION_ID", -1)
Dim oControlSql As String = oRow.ItemEx("SQL_RESULT", "")
If oConnectionId = -1 Or oControlSql = String.Empty Then
LOGGER.Warn("Missing SQL Query or ConnectionId for Control [{0}]! Continuing.", oControlName)
@@ -2052,12 +2093,11 @@ Public Class frmIndex
End If
Dim oConnectionString = DATABASE_ECM.Get_ConnectionStringforID(SqlConnectionId)
'Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SqlCommand, oConnectionString)
Dim oDatatable As DataTable = DATABASE_ECM.GetDatatable(SqlCommand)
Dim oDatatable As DataTable = DATABASE_ECM.GetDatatableWithConnection(SqlCommand, oConnectionString)
Dim oFoundControl As Control = Nothing
For Each oControl As Control In pnlIndex.Controls
If TypeOf oControl Is Label Then
If TypeOf oControl Is Windows.Forms.Label Then
Continue For
End If
@@ -2081,7 +2121,7 @@ Public Class frmIndex
End If
Select Case oFoundControl.GetType.Name
Case GetType(DevExpress.XtraEditors.TextEdit).Name
Case GetType(TextEdit).Name
If oDatatable.Rows.Count > 0 Then
Dim oFirstRow As DataRow = oDatatable.Rows.Item(0)
@@ -2089,7 +2129,7 @@ Public Class frmIndex
Dim oValue = oFirstRow.Item(0).ToString()
LOGGER.Debug("Setting Value for TextEdit [{0}]: [{1}]", oFoundControl.Name, oValue)
DirectCast(oFoundControl, DevExpress.XtraEditors.TextEdit).Text = oValue
DirectCast(oFoundControl, TextEdit).Text = oValue
End If
End If
Case GetType(LookupControl3).Name
@@ -2128,11 +2168,17 @@ Public Class frmIndex
Dim oCreationDate As Date = oFileInfo.CreationTime
oResult = oCreationDate.ToShortDateString
Case "$FileCreatedWho".ToUpper
Dim oFileSecurity As FileSecurity = File.GetAccessControl(FileName)
Dim oSecurityId As IdentityReference = oFileSecurity.GetOwner(GetType(SecurityIdentifier))
Dim oNTAccount As IdentityReference = oSecurityId.Translate(GetType(NTAccount))
Dim oOwner As String = oNTAccount.ToString()
oResult = oOwner
'Dim oFileSecurity As FileSecurity = File.GetAccessControl(FileName)
' Dim oSecurityId As IdentityReference = oFileSecurity.GetOwner(GetType(SecurityIdentifier))
'Dim oNTAccount As IdentityReference = oSecurityId.Translate(GetType(NTAccount))
'Dim oOwner As String = oNTAccount.ToString()
Dim fileInfo As FileInfo = New FileInfo(FileName)
Dim fileSecurity As FileSecurity = fileInfo.GetAccessControl()
' Ersteller auslesen
Dim oOwner As System.Security.Principal.NTAccount = DirectCast(fileSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), System.Security.Principal.NTAccount)
oResult = oOwner.Value
Case "$DateDDMMYYY".ToUpper
oResult = System.DateTime.Now.ToShortDateString
Case "$Username".ToUpper
@@ -2168,21 +2214,22 @@ Public Class frmIndex
If oDatatable.Rows.Count = 0 Then
Return True
End If
Dim oIndexName As String
' 1. Schritt: Einfach-Indexe und Platzhalter ersetzen
For Each oAutoIndexRow As DataRow In oDatatable
_Logger.Info("Working on AutomaticIndex: " & oAutoIndexRow.Item("INDEXNAME") & "...")
Dim oSqlResult As String = Utils.NotNull(oAutoIndexRow.Item("SQL_RESULT"), "")
Dim oSqlActive As Boolean = Utils.NotNull(oAutoIndexRow.Item("SQL_ACTIVE"), False)
Dim oSqlConnectionId As Integer = Utils.NotNull(oAutoIndexRow.Item("CONNECTION_ID"), -1)
Dim oSqlProvider As String = Utils.NotNull(oAutoIndexRow.Item("SQL_PROVIDER"), "")
For Each oRow As DataRow In oDatatable
oIndexName = oRow.Item("INDEXNAME")
_Logger.Info("Working on AutomaticIndex: " & oRow.Item("INDEXNAME") & "...")
Dim oSqlResult As String = oRow.ItemEx("SQL_RESULT", "")
Dim oSqlActive As Boolean = oRow.ItemEx("SQL_ACTIVE", False)
Dim oSqlConnectionId As Integer = oRow.ItemEx("CONNECTION_ID", -1)
Dim oSqlProvider As String = oRow.ItemEx("SQL_PROVIDER", "")
Dim oEndResult As New List(Of String)
' Wenn kein SQL Befehl vorhanden oder aktiv ist,
' versuchen wir, die Spalte VALUE zu ersetzen
If oSqlResult = String.Empty Or oSqlActive = 0 Then
Dim oPlaceholderResult As String
Dim oValue As String = Utils.NotNull(oAutoIndexRow.Item("VALUE"), "")
Dim oValue As String = oRow.ItemEx("VALUE", "")
oPlaceholderResult = GetPlaceholderValue(oValue, CURRENT_WORKFILE, USER_SHORTNAME)
@@ -2190,8 +2237,8 @@ Public Class frmIndex
oValue = oPlaceholderResult
End If
oAutoIndexRow.Item("Indexiert") = True
oAutoIndexRow.Item("Indexwert") = oValue
oRow.Item("Indexiert") = True
oRow.Item("Indexwert") = oValue
Continue For
End If
@@ -2240,38 +2287,56 @@ Public Class frmIndex
' 2. Schritt: Vektorfelder ersetzen
Dim oVectorMatches As MatchCollection = oRegex.Matches(oSqlResult)
If oVectorMatches.Count > 0 Then
_Logger.Info(" There are " & oVectorMatches.Count & " matches for vectors!")
Dim oIsFirstMatch = True
For Each oVectorMatch As Match In oVectorMatches
Dim oIndexValue As String = StripPlaceholder(oVectorMatch.Value)
Dim oOptionalIndex = False
Dim oManualIndexResult As String = Nothing
oOptionalIndex = DATABASE_ECM.GetScalarValue($"SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = {CURRENT_DOKART_ID} AND UPPER(NAME) = UPPER('{oIndexValue}')")
oManualIndexResult = GetManIndex_Value(oIndexValue, "IDX_AUTO", oOptionalIndex)
Dim oVectorIndexValues = oManualIndexResult.Split(ClassConstants.VECTORSEPARATOR).ToList()
For Each oVectorIndexValue In oVectorIndexValues
Dim oTempSql = oSqlResult.Replace(oVectorMatch.Value, oVectorIndexValue)
Dim oResult = GetAutomaticIndexSQLValue(oTempSql, oSqlConnectionId, oSqlProvider)
oEndResult.Add(oResult)
Next
' Verhindert, dass die Schleife mehrmals durchlaufen wird
If oIsFirstMatch Then
Exit For
If oVectorMatches.Count > 0 Or oIndexName.Contains("Vektor") Then
Dim oResult = GetAutomaticIndexSQLValue(oSqlResult, oSqlConnectionId, oSqlProvider)
Dim oConnectionString As String
oConnectionString = DATABASE_ECM.Get_ConnectionStringforID(oSqlConnectionId)
Try
Dim oResultDT As DataTable = DATABASE_ECM.GetDatatableWithConnection(oSqlResult, oConnectionString)
If Not IsNothing(oResultDT) Then
_Logger.Info("We got [" & oResultDT.Rows.Count & "] result(s) for the vector-field!")
For Each oResultRow As DataRow In oResultDT.Rows
oEndResult.Add(oResultRow.Item(0))
Next
End If
oAutoIndexRow.Item("Indexiert") = True
oAutoIndexRow.Item("Indexwert") = String.Join(ClassConstants.VECTORSEPARATOR, oEndResult.ToArray)
Next
If oEndResult.Count > 0 Then
oRow.Item("Indexiert") = True
oRow.Item("Indexwert") = String.Join(ClassConstants.VECTORSEPARATOR, oEndResult.ToArray)
End If
Catch ex As Exception
ShowErrorMessage(ex, $"FillIndexe_Autom - Vektorfield [{oIndexName}] ")
End Try
'Dim oIsFirstMatch = True
'D
'For Each oVectorMatch As Match In oVectorMatches
' Dim oIndexValue As String = StripPlaceholder(oVectorMatch.Value)
' Dim oOptionalIndex = False
' Dim oManualIndexResult As String = Nothing
' oOptionalIndex = DATABASE_ECM.GetScalarValue($"SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = {CURRENT_DOKART_ID} AND UPPER(NAME) = UPPER('{oIndexValue}')")
' oManualIndexResult = GetManIndex_Value(oIndexValue, "IDX_AUTO", oOptionalIndex)
' Dim oVectorIndexValues = oManualIndexResult.Split(ClassConstants.VECTORSEPARATOR).ToList()
' For Each oVectorIndexValue In oVectorIndexValues
' Dim oTempSql = oSqlResult.Replace(oVectorMatch.Value, oVectorIndexValue)
' Dim oResult = GetAutomaticIndexSQLValue(oTempSql, oSqlConnectionId, oSqlProvider)
' oEndResult.Add(oResult)
' Next
' ' Verhindert, dass die Schleife mehrmals durchlaufen wird
' If oIsFirstMatch Then
' Exit For
' End If
' oRow.Item("Indexiert") = True
' oRow.Item("Indexwert") = String.Join(ClassConstants.VECTORSEPARATOR, oEndResult.ToArray)
'Next
Else
Dim oResult = GetAutomaticIndexSQLValue(oSqlResult, oSqlConnectionId, oSqlProvider)
_Logger.Info("Got a simple SQLResult: " & oResult.ToString)
oAutoIndexRow.Item("Indexiert") = True
oAutoIndexRow.Item("Indexwert") = oResult
oRow.Item("Indexiert") = True
oRow.Item("Indexwert") = oResult
End If
Next
@@ -2451,6 +2516,7 @@ Public Class frmIndex
Private Function Move_File2_Target()
Dim oError As Boolean
Try
CURRENT_DOC_ID = 0
Dim oSQL As String = "SELECT FOLDER_FOR_INDEX FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKART_ID
Dim oFolderForIndex = DATABASE_ECM.GetScalarValue(oSQL)
If Not IsDBNull(oFolderForIndex) Then
@@ -2471,8 +2537,18 @@ Public Class frmIndex
oExportSuccessful = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE)
End If
If oExportSuccessful = True Then
'Kein Fehler in Export2windream
oError = False
Dim ofilename = Path.GetFileName(CURRENT_NEWFILENAME)
Dim odwDocID As Int64
If WM_DB_SERVER <> "" Then
oSQL = $"select max(dwdocid) from {WM_DB_SERVER}.dbo.BaseAttributes where szLongName = '{ofilename}'"
Dim oDocID = DATABASE_ECM.GetScalarValue(oSQL)
If Not IsNothing(oDocID) Then
CURRENT_DOC_ID = oDocID
End If
End If
'Kein Fehler in Export2windream
oError = False
If Write_Indizes() = True Then
'Kein Fehler in Setzen der windream-Indizes
Dim Insert_String As String
@@ -2541,8 +2617,7 @@ Public Class frmIndex
Private Function CreateFolderForIndex(DynamicFolderConfig As String)
Try
Dim oRootFolder As String = Path.GetDirectoryName(CURRENT_NEWFILENAME)
Dim oFilesystem As New DigitalData.Modules.Filesystem.File(LOGCONFIG)
'Dim oFilesystem As New Filesystem(LOGCONFIG)
If DynamicFolderConfig <> String.Empty Then
'######
@@ -2570,7 +2645,7 @@ Public Class frmIndex
oManIndexValue = CDate(oManIndexValue).ToString("yyyyMMdd")
End If
oManIndexValue = oFilesystem.GetCleanPath(oManIndexValue)
oManIndexValue = FILESYSTEM.GetCleanPath(oManIndexValue)
'oManIndexValue = ClassFilehandle.CleanFilename(oManIndexValue, "")
DynamicFolderConfig = DynamicFolderConfig.Replace(oMatch.ToString, oManIndexValue)
@@ -2592,7 +2667,7 @@ Public Class frmIndex
_Logger.Info("Ergebnis/Wert für neuen Ordner: '" & oAutoIndexName & "'")
If Not oAutoIndexValue = String.Empty Then
oAutoIndexValue = oFilesystem.GetCleanPath(oAutoIndexValue)
oAutoIndexValue = FILESYSTEM.GetCleanPath(oAutoIndexValue)
'oAutoIndexValue = ClassFilehandle.CleanFilename(oAutoIndexValue, "")
If oAutoIndexValue = "EMPTY_OI" Then
DynamicFolderConfig = DynamicFolderConfig.Replace(oMatch.ToString, "")
@@ -2797,11 +2872,11 @@ Public Class frmIndex
Dim DTFiles2Work As DataTable = DATABASE_ECM.GetDatatable("SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
If DTFiles2Work IsNot Nothing Then
Dim err = False
For Each filerow As DataRow In DTFiles2Work.Rows
CURRENT_WORKFILE_GUID = filerow.Item("GUID")
CURRENT_WORKFILE = filerow.Item("FILENAME2WORK")
CURRENT_WORKFILE_HASH = Utils.NotNull(filerow.Item("FILE_HASH"), "")
DropType = filerow.Item("HANDLE_TYPE")
For Each oRow As DataRow In DTFiles2Work.Rows
CURRENT_WORKFILE_GUID = oRow.Item("GUID")
CURRENT_WORKFILE = oRow.Item("FILENAME2WORK")
CURRENT_WORKFILE_HASH = oRow.ItemEx("FILE_HASH", "")
DropType = oRow.Item("HANDLE_TYPE")
If WORK_FILE() = False Then
err = True
@@ -2907,4 +2982,11 @@ Public Class frmIndex
MsgBox(ex.Message)
End Try
End Sub
Private Sub ComboboxDoctype_KeyUp(sender As Object, e As KeyEventArgs) Handles ComboboxDoctype.KeyUp
If e.KeyCode = Keys.F2 Then
Dim oCombo As SearchLookUpEdit = sender
oCombo.ShowPopup()
End If
End Sub
End Class

View File

@@ -189,7 +189,7 @@
<value>143, 16</value>
</data>
<data name="lblnewlicenses.Text" xml:space="preserve">
<value>GlobalIndexer Licenses:</value>
<value>fileFLOW Licenses:</value>
</data>
<data name="lblAktuelleLizenzen.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>

View File

@@ -163,7 +163,7 @@
<value>9</value>
</data>
<data name="lblnewlicenses.Text" xml:space="preserve">
<value>Anzahl GlobalIndexer Lizenzen:</value>
<value>Anzahl fileFLOW Lizenzen:</value>
</data>
<data name="lblReadKey.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>

View File

@@ -1,5 +1,30 @@
Imports Oracle.ManagedDataAccess.Client
Imports DigitalData.Modules.Logging
Imports Oracle.ManagedDataAccess.Client
Public Class frmSQLSuggestion
Private _Logger As Logger
Private _PostProcessing As ClassPostprocessing
Private Sub frmSQLSuggestion_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
_Logger = LOGCONFIG.GetLogger()
_PostProcessing = New ClassPostprocessing(LOGCONFIG)
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.
Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_CONNECTIONTableAdapter.Fill(Me.MyDataset.TBDD_CONNECTION)
Dim DT As DataTable = DATABASE_ECM.GetDatatable("SELECT * FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN)
If DT.Rows.Count = 1 Then
Me.cmbConnection.SelectedValue = DT.Rows(0).Item("CONNECTION_ID")
SQL_ERGEBNISTextBox.Text = DT.Rows(0).Item("SQL_RESULT")
SQL_UEBERPRUEFUNGTextBox.Text = DT.Rows(0).Item("SQL_CHECK")
End If
lblSave.Visible = False
Catch ex As Exception
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Open Form:")
End Try
End Sub
Private Sub btnVorschlag_Click(sender As Object, e As EventArgs) Handles btnVorschlag.Click
TestSQL(cmbConnection.SelectedValue, SQL_ERGEBNISTextBox.Text)
End Sub
@@ -88,28 +113,13 @@ Public Class frmSQLSuggestion
End If
Catch ex As Exception
LOGGER.Info(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
LOGGER.Error(ex)
_Logger.Info(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:")
End Try
End Sub
Private Sub frmSQLSuggestion_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.
Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_CONNECTIONTableAdapter.Fill(Me.MyDataset.TBDD_CONNECTION)
Dim DT As DataTable = DATABASE_ECM.GetDatatable("SELECT * FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN)
If DT.Rows.Count = 1 Then
Me.cmbConnection.SelectedValue = DT.Rows(0).Item("CONNECTION_ID")
SQL_ERGEBNISTextBox.Text = DT.Rows(0).Item("SQL_RESULT")
SQL_UEBERPRUEFUNGTextBox.Text = DT.Rows(0).Item("SQL_CHECK")
End If
lblSave.Visible = False
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Open Form:")
End Try
End Sub
Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Me.Validate()
@@ -131,10 +141,10 @@ Public Class frmSQLSuggestion
Dim origConnection = DATABASE_ECM.GetScalarValue("SELECT CONNECTION_ID FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN)
Dim insresultstring = SQL_ERGEBNISTextBox.Text.Replace("'", "''")
Dim inscheckstring = SQL_UEBERPRUEFUNGTextBox.Text.Replace("'", "''")
If insresultstring <> origresultstring Or _
If insresultstring <> origresultstring Or
inscheckstring <> origcheckstring Then
Dim cmd As String
cmd = "UPDATE TBDD_INDEX_MAN SET CONNECTION_ID = " & cmbConnection.SelectedValue & ",SQL_RESULT = '" & insresultstring & "',SQL_CHECK = '" & inscheckstring & "',CHANGED_WHO = '" & _
cmd = "UPDATE TBDD_INDEX_MAN SET CONNECTION_ID = " & cmbConnection.SelectedValue & ",SQL_RESULT = '" & insresultstring & "',SQL_CHECK = '" & inscheckstring & "',CHANGED_WHO = '" &
Environment.UserName & "' WHERE GUID = " & CURRENT_INDEXMAN
If DATABASE_ECM.ExecuteNonQuery(cmd) = True Then
If USER_LANGUAGE = "de-DE" Then
@@ -157,6 +167,7 @@ Public Class frmSQLSuggestion
End If
End If
Catch ex As Exception
_Logger.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Save SQl IndexMan:")
End Try
End Sub
@@ -166,7 +177,7 @@ Public Class frmSQLSuggestion
Dim DTNB As DataTable = DATABASE_ECM.GetDatatable("SELECT * FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & CURRENT_INDEXMAN & " ORDER BY SEQUENCE")
If DTNB Is Nothing = False Then
If DTNB.Rows.Count > 0 Then
Dim value As String = ClassPostprocessing.Get_Nachbearbeitung_Wert(txtTest_idxMan.Text, DTNB)
Dim value As String = _PostProcessing.Get_Nachbearbeitung_Wert(txtTest_idxMan.Text, DTNB)
MsgBox("Der Rückgabewert - nach Durchlaufen von (" & DTNB.Rows.Count.ToString & ") Nachbearbeitungsfunktionen lautet: '" & value & "'", MsgBoxStyle.Exclamation)
If USER_LANGUAGE = "de-DE" Then

View File

@@ -97,7 +97,7 @@ Partial Class frmSplash
'
'PictureBox1
'
Me.PictureBox1.Image = Global.Global_Indexer.My.Resources.Resources.FileFlow_Boot
Me.PictureBox1.Image = Global.Global_Indexer.My.Resources.Resources.DD_fileFLOW_BOOT
Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(797, 201)

View File

@@ -27,7 +27,7 @@ Public NotInheritable Class frmSplash
Dim RunCount = 0
For Each p As Process In Process.GetProcesses
If p.ProcessName.Contains("lobal_Indexe") Then
If p.ProcessName.Contains("asyFLOW") Then
RunCount += 1
End If
Next

View File

@@ -257,7 +257,7 @@ Partial Class frmStart
Me.Controls.Add(Me.barDockControlTop)
Me.FormBorderEffect = DevExpress.XtraEditors.FormBorderEffect.Glow
Me.IconOptions.Icon = CType(resources.GetObject("frmStart.IconOptions.Icon"), System.Drawing.Icon)
Me.IconOptions.Image = Global.Global_Indexer.My.Resources.Resources.file
Me.IconOptions.Image = Global.Global_Indexer.My.Resources.Resources.DD_fileFLOW_ICON
Me.KeyPreview = True
Me.MaximizeBox = False
Me.Name = "frmStart"

View File

@@ -129,289 +129,53 @@
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="NotifyIcon1.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAQEAAAAEAIAAoQgAAFgAAACgAAABAAAAAgAAAAAEAIAAAAAAAAEAAABILAAASCwAAAAAAAAAA
AAD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AAAAAAEAAAACAAAAAwAAAAQAAAAFAAAABQAAAAQAAAAFAAAABAAAAAQAAAADAAAAAgAA
AAH///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AAAAAAEAAAAEAAAABQAAAAL///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAAAwAAAAUAAAADAAAAAf///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAAAwAAAAT///8A////AP///wD///8AAAAABgAAACEAAAA8AAAAUgAA
AF8AAABsAAAAcgAAAGUAAABbAAAASQAAADEAAAAYAAAAAv///wD///8A////AP///wAAAAAEAAAAA///
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wAAAAAEAAAAAv///wD///8AAAAABwAAAD4AAAB9AAAAtQAA
AN0AAAD3AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA8AAAANYAAACtAAAAdwAA
ADoAAAAH////AP///wAAAAABAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAMAAAAC////AP///wAAAAAzAAAAkQAA
AN4AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP4AAAD8AAAA+wAAAPsAAAD7AAAA+wAAAPwAAAD9AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA3QAAAJYAAAA8////AP///wAAAAAEAAAAAv///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAX///8A////AAAA
AEEAAAC5AAAA/wAAAP8AAAD/AAAA/gAAAPwAAAD6AAAA+QAAAPoAAAD7AAAA/gAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/gAAAPoAAAD5AAAA+QAAAPkAAAD7AAAA/gAAAP8AAAD/AAAA/wAAAMcAAABF////AP//
/wAAAAAD////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAgAA
AAL///8AAAAAIAAAAKwAAAD/AAAA/wAAAP4AAAD3AAAA/AAAAP8AAAD9AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD7AAAA/QAAAP8AAAD/AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAP4AAAD9AAAA+wAA
AP4AAAD/AAAA/wAAAIgAAAAE////AAAAAAP///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8AAAAABP///wD///8AAAAAZgAAAPQAAAD/AAAA/gAAAPgAAAD/AAAA/wAAAP8AAAD8AAAA/wAA
ANgAAACXAAAAeAAAAGUAAABKAAAAJwAAAC8AAAAfAAAAsQAAAP8AAADTAAAAbAAAAJkAAACvAAAA1gAA
AP8AAAD+AAAA/wAAAP8AAAD/AAAA+wAAAP4AAAD/AAAAzwAAABD///8AAAAABP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAABP///wAAAAAEAAAApAAAAP8AAAD/AAAA+gAAAPsAAAD/AAAA/wAA
AKMAAADQAAAA/wAAAP8AAAA5////AP///wD///8A////AP///wD///8A////AAAAALsAAAD/AAAApv//
/wD///8A////AP///wAAAAC+AAAA/wAAAPwAAAD/AAAA/QAAAP4AAAD+AAAA+QAAAP8AAADB////AP//
/wAAAAAC////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8AAAAABP///wAAAAAVAAAAzAAAAP8AAAD8AAAA/AAA
AP8AAAD/AAAAwQAAAC////8AAAAA1AAAAP8AAADS////AAAAAAIAAAAEAAAABAAAAAMAAAAD////AAAA
AA0AAADiAAAA/wAAAJT///8AAAAABgAAAAf///8AAAAAXQAAAP8AAAD8AAAA/gAAAP8AAAD/AAAA/AAA
AP8AAAD6AAAA/wAAALH///8A////AAAAAAH///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAA////wAAAAAhAAAA3gAA
AP8AAAD6AAAA/QAAAP8AAAD3AAAAaP///wD///8AAAAAOgAAAP8AAAD/AAAAkP///wAAAAAE////AP//
/wD///8AAAAAAf///wAAAAAMAAAA5gAAAP8AAACA////AAAAAAQAAAAC////AAAAABsAAADvAAAA/wAA
AP4AAACxAAAA8QAAAP8AAAD8AAAA/wAAAPsAAAD/AAAAcv///wAAAAAF////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAv//
/wAAAAAQAAAA4QAAAP8AAAD6AAAA/gAAAP0AAAD/AAAA2QAAAGIAAAA2////AAAAAHUAAAD/AAAA/wAA
AFT///8AAAAABwAAAAIAAAABAAAAAQAAAAL///8AAAAAEAAAAOcAAAD/AAAAcv///wAAAAAE////AAAA
AAL///8AAAAAtQAAAP8AAAD/AAAAfQAAABoAAADfAAAA/wAAAPwAAAD+AAAA/wAAAPkAAAAm////AAAA
AAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AAAAAAT///8AAAAAjgAAAP8AAAD5AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AM0AAADhAAAA/wAAAPIAAAAQ////AP///wD///8A////AP///wAAAAAC////AAAAACgAAAD2AAAA/wAA
AGn///8AAAAACAAAAAQAAAAJ////AAAAAHkAAAD/AAAA/wAAAMf///8AAAAACQAAAN8AAAD/AAAA/QAA
APsAAAD/AAAAtf///wAAAAAB////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AAAAAAT///8AAAAAPwAAAP8AAAD/AAAA/gAAAP4AAAD/AAAAbAAA
ADgAAACpAAAA7QAAAP8AAAD/AAAA/wAAAP8AAAD5AAAAnwAAAGMAAAA4AAAAHAAAAAkAAAAF////AP//
/wAAAAAwAAAA/wAAAP8AAABU////AP///wD///8A////AP///wAAAAApAAAA/wAAAP8AAADrAAAAKgAA
AGEAAADpAAAA/wAAAP0AAAD/AAAA/AAAAP8AAABb////AAAAAAT///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAB////AAAAAMYAAAD/AAAA/AAA
APsAAAD/AAAAjP///wD///8A////AAAAABoAAABnAAAAyAAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/wAA
AO4AAADcAAAA1QAAAMQAAACuAAAAugAAAP8AAAD/AAAAqAAAAGsAAAB1AAAAdAAAAG4AAABfAAAAZAAA
APAAAAD/AAAA/gAAAPEAAAD/AAAA/wAAAP0AAAD/AAAA/gAAAPwAAAD/AAAAyP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAE////AAAA
AE8AAAD/AAAA/QAAAPsAAAD/AAAAyP///wD///8AAAAABQAAAAP///8A////AAAAAFIAAAD/AAAA/gAA
ANIAAADgAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/QAAAP8AAAD/AAAA9wAAAP8AAAD+AAAA/gAA
AP8AAAA8////AAAAAAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wAAAADJAAAA/wAAAPsAAAD/AAAA/wAAADr///8AAAAABP///wD///8AAAAABv//
/wAAAACJAAAA/wAAAP0AAAAvAAAABQAAAEgAAAB1AAAAqgAAANoAAADvAAAA/QAAAP8AAAD/AAAA/gAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAC2AAAAOAAA
AFAAAAD/AAAA/gAAAPsAAAD/AAAAnP///wAAAAAE////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAABP///wAAAABWAAAA/wAAAP0AAAD7AAAA/wAAAKT///8AAAAABP//
/wD///8A////AAAAAAH///8AAAAAtgAAAP8AAADrAAAAGP///wD///8A////AP///wAAAAAGAAAAGwAA
ADUAAABLAAAAwAAAAP8AAAD/AAAAvQAAALEAAADDAAAAzgAAANMAAADbAAAA2QAAAOcAAAD/AAAA/wAA
AOEAAAA1////AP///wD///8AAAAAxwAAAP8AAAD6AAAA/wAAAOIAAAAK////AAAAAAH///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAP///8AAAAAtgAAAP8AAAD7AAAA/wAA
AP8AAAA6////AAAAAAP///8A////AAAAAAH///8AAAAACQAAAN0AAAD/AAAA0P///wAAAAABAAAABAAA
AAUAAAAD////AP///wD///8A////AAAAAJAAAAD/AAAA+AAAABr///8A////AP///wD///8AAAAACf//
/wAAAABDAAAA/wAAAP8AAADN////AP///wAAAAAJ////AAAAAGMAAAD/AAAA+wAAAP0AAAD/AAAAS///
/wAAAAAE////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAH///8AAAAACQAA
AOAAAAD/AAAA+gAAAP8AAADB////AAAAAAH///8A////AP///wAAAAAC////AAAAACUAAAD2AAAA/wAA
AKv///8AAAAAA////wD///8A////AAAAAAEAAAACAAAABv///wAAAACsAAAA/wAAAOQAAAAR////AAAA
AAL///8A////AP///wD///8AAAAAIwAAAPcAAAD/AAAA3QAAAAz///8AAAAAA////wAAAAAYAAAA7wAA
AP8AAAD6AAAA/wAAAJz///8AAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wAAAAAD////AAAAADMAAAD/AAAA/wAAAPsAAAD/AAAAX////wAAAAAE////AP///wD///8AAAAAA///
/wAAAABEAAAA/wAAAP8AAACD////AAAAAAX///8A////AP///wD///8A////AAAAAAL///8AAAAAvAAA
AP8AAADTAAAAA////wAAAAABAAAAAQAAAAEAAAAD////AAAAABwAAADyAAAA/wAAANsAAAAI////AAAA
AAIAAAAC////AAAAALMAAAD/AAAA+QAAAP8AAADVAAAAAf///wAAAAAB////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAABP///wAAAABeAAAA/wAAAPoAAAD/AAAA7AAAABf///8AAAAAAv//
/wD///8A////AAAAAAT///8AAAAAYQAAAP8AAAD/AAAAX////wAAAAAHAAAAAgAAAAMAAAADAAAAAwAA
AAMAAAADAAAAAQAAAMsAAAD/AAAAyP///wAAAAACAAAAAf///wD///8AAAAAAv///wAAAAAVAAAA6QAA
AP8AAADbAAAACf///wAAAAABAAAABP///wAAAAB1AAAA/wAAAPoAAAD/AAAA+AAAACP///8AAAAAAv//
/wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAX///8AAAAAfgAAAP8AAAD6AAAA/wAA
APgAAAAp////AAAAAAYAAAAEAAAAAwAAAAIAAAAE////AAAAAHIAAAD/AAAA/wAAADv///8A////AP//
/wD///8A////AP///wD///8A////AP///wAAAADZAAAA/wAAALn///8A////AAAAAAIAAAADAAAABAAA
AAX///8AAAAAFgAAAOkAAAD/AAAA0gAAAAX///8AAAAAAQAAAAP///8AAAAASAAAAP8AAAD9AAAA/QAA
AP8AAABP////AAAAAAT///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAE////AAAA
AKMAAAD/AAAA+AAAAP8AAACq////AP///wD///8A////AP///wD///8AAAAAAgAAAAEAAACOAAAA/wAA
APsAAABRAAAAJQAAADkAAAA3AAAAQwAAAEQAAABDAAAARAAAAEEAAABNAAAA6wAAAP8AAAC5AAAADAAA
AAn///8A////AP///wD///8A////AAAAABEAAADoAAAA/wAAAMz///8A////AAAAAAQAAAAG////AAAA
AC0AAAD/AAAA/wAAAPsAAAD/AAAAfP///wAAAAAF////AP///wD///8A////AP///wD///8A////AP//
/wD///8AAAAAAv///wAAAAC4AAAA/wAAAPoAAAD/AAAATAAAABQAAABLAAAAaQAAAIcAAACgAAAAuQAA
ANAAAADkAAAA+wAAAP8AAAD/AAAA+gAAAPwAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA+gAAAOwAAADaAAAAxAAAAKUAAACCAAAAXQAAAC4AAAAmAAAA6QAAAP8AAADVAAAADP//
/wD///8A////AP///wAAAAAFAAAAygAAAP8AAAD4AAAA/wAAAKP///8AAAAABP///wD///8A////AP//
/wD///8A////AP///wD///8A////AAAAAAH///8AAAAAvgAAAP8AAAD9AAAA/gAAAOEAAAD1AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA6wAA
APsAAAD/AAAA+gAAANsAAADGAAAAmgAAAFQAAAAO////AAAAAKUAAAD/AAAA+AAAAP8AAADC////AAAA
AAH///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAMkAAAD/AAAA/AAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAPIAAADpAAAA4AAAANQAAADxAAAA/wAAAP4AAAC3AAAAmQAA
AJMAAACKAAAAiwAAAIsAAACLAAAAjQAAAJEAAACgAAAA/QAAAP8AAADSAAAAuwAAAM4AAADcAAAA6wAA
APYAAAD/AAAA/wAAAP8AAAD/AAAA/QAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA4gAAAHUAAADAAAAA/wAA
APoAAAD/AAAA2P///wD///8AAAAAAf///wD///8A////AP///wD///8A////AP///wAAAAAB////AP//
/wAAAADYAAAA/wAAAPwAAAD/AAAA4QAAAKcAAAB3AAAATgAAADIAAAAeAAAAEAAAAAz///8AAAAAogAA
AP8AAADwAAAAEf///wD///8A////AP///wD///8A////AP///wD///8AAAAAKgAAAP8AAAD/AAAAVf//
/wAAAAADAAAABwAAABMAAAAlAAAAOQAAAEkAAABxAAAA9AAAAP8AAADrAAAArAAAAKoAAAC4AAAA+wAA
AP8AAAD/AAAA/wAAAP8AAAD9AAAA/wAAANkAAAAB////AAAAAAH///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAAywAAAP8AAAD8AAAA/wAAADX///8A////AP///wD///8A////AP//
/wD///8A////AAAAAJ0AAAD/AAAA6wAAABz///8AAAAABgAAAAQAAAAEAAAABAAAAAQAAAAI////AAAA
AE8AAAD/AAAA/wAAAFf///8AAAAABP///wD///8A////AP///wD///8AAAAABQAAAOcAAAD/AAAAvf//
/wD///8A////AAAAAC0AAACUAAAA8AAAAP8AAAD9AAAA/QAAAP8AAADaAAAAAv///wAAAAAB////AP//
/wD///8A////AP///wD///8A////AP///wAAAAAD////AAAAAKwAAAD/AAAA+wAAAP8AAAA/////AAAA
AAcAAAADAAAAAwAAAAIAAAABAAAABP///wAAAACSAAAA/wAAAOwAAAAZ////AAAAAAL///8A////AP//
/wD///8AAAAABP///wAAAABfAAAA/wAAAP8AAABH////AAAAAAQAAAABAAAAAQAAAAIAAAAF////AAAA
ABgAAADoAAAA/wAAAML///8AAAAAAwAAAAP///8A////AAAAABUAAADMAAAA/wAAAPoAAAD/AAAA2QAA
AAH///8AAAAAAf///wD///8A////AP///wD///8A////AP///wD///8AAAAABP///wAAAACUAAAA/wAA
APcAAAD/AAAAbP///wAAAAAE////AP///wD///8A////AAAAAAP///8AAAAAhAAAAP8AAADsAAAAGv//
/wAAAAAC////AP///wD///8A////AAAAAAT///8AAAAAcQAAAP8AAAD/AAAAPP///wAAAAAD////AP//
/wD///8AAAAAAv///wAAAAAbAAAA7wAAAP8AAAC9////AAAAAAEAAAABAAAAAwAAAAb///8AAAAArAAA
AP8AAAD5AAAA/wAAANb///8A////AAAAAAH///8A////AP///wD///8A////AP///wD///8A////AAAA
AAT///8AAAAAbQAAAP8AAAD4AAAA/wAAAKv///8AAAAAAv///wD///8A////AP///wAAAAAE////AAAA
AHMAAAD/AAAA9AAAACH///8AAAAAAv///wD///8A////AP///wAAAAAE////AAAAAIEAAAD/AAAA+gAA
ACz///8AAAAAAv///wD///8A////AAAAAAL///8AAAAAHwAAAPMAAAD/AAAAsv///wAAAAAC////AAAA
AAH///8A////AAAAAMcAAAD/AAAA+QAAAP8AAADI////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wAAAAAD////AAAAACYAAAD6AAAA/gAAAP8AAADeAAAABf///wAAAAAB////AP//
/wD///8AAAAABP///wAAAABgAAAA/wAAAPwAAAAx////AAAAAAP///8A////AP///wD///8AAAAABP//
/wAAAACPAAAA/wAAAPMAAAAc////AAAAAAL///8A////AP///wAAAAAD////AAAAACoAAAD3AAAA/wAA
AKH///8AAAAAA////wAAAAAB////AAAAAAoAAADgAAAA/wAAAPkAAAD/AAAAtf///wAAAAAC////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAxgAAAP8AAAD7AAAA/wAA
AE3///8AAAAAA////wD///8A////AAAAAAP///8AAAAASQAAAP8AAAD/AAAARf///wAAAAAEAAAAAQAA
AAEAAAACAAAAAgAAAAb///8AAAAAnAAAAP8AAADoAAAAFf///wAAAAAFAAAAAwAAAAMAAAABAAAABP//
/wAAAAA6AAAA/QAAAP8AAACM////AAAAAAP///8AAAAAAv///wAAAAAkAAAA+AAAAP8AAAD6AAAA/wAA
AJr///8AAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAF////AAAA
AGEAAAD/AAAA9wAAAP8AAAC7////AAAAAAL///8A////AP///wAAAAAD////AAAAADIAAAD/AAAA/wAA
AFz///8AAAAABf///wD///8A////AP///wD///8A////AAAAAKEAAAD/AAAA1f///wD///8A////AP//
/wD///8A////AAAAAAX///8AAAAAUQAAAP8AAAD/AAAAc////wAAAAAE////AAAAAAP///8AAAAASwAA
AP8AAAD9AAAA+wAAAP8AAAB1////AAAAAAX///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8AAAAAAf///wAAAAAIAAAA3AAAAP8AAAD8AAAA/wAAAEj///8AAAAABP///wD///8AAAAABP//
/wAAAAAXAAAA6gAAAP8AAABt////AP///wD///8AAAAADAAAABgAAAAiAAAAMAAAADMAAADEAAAA/wAA
ANsAAABPAAAAUgAAAEgAAAA7AAAAJwAAABD///8A////AAAAAGYAAAD/AAAA/wAAAFn///8AAAAAA///
/wAAAAAE////AAAAAIAAAAD/AAAA+gAAAP0AAAD/AAAASP///wAAAAAE////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wAAAAAF////AAAAAGIAAAD/AAAA+AAAAP8AAADYAAAAAf//
/wAAAAAFAAAAA////wD///8AAAAACQAAAN0AAAD/AAAAzAAAAKAAAADEAAAA1QAAAOEAAADsAAAA9wAA
AP0AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAPoAAADnAAAAygAAAH0AAAC0AAAA/wAA
AP8AAAAv////AAAAAAcAAAAB////AP///wAAAADHAAAA/wAAAPsAAAD/AAAA8gAAABv///8AAAAAAv//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAH///8AAAAAwQAA
AP8AAAD2AAAA/wAAAJP///8A////AP///wAAAAAlAAAAhQAAANYAAAD8AAAA/gAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAAU////wD///8AAAAAA////wAAAAAwAAAA/wAAAP8AAAD7AAAA/wAA
AMX///8AAAAAAf///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wAAAAAD////AAAAACIAAADwAAAA/wAAAPsAAAD/AAAAaAAAACMAAACnAAAA9QAAAP8AAAD/AAAA/wAA
AP8AAAD9AAAA/wAAAP8AAAD/AAAA9wAAAPAAAADqAAAA4gAAANgAAAD6AAAA/wAAAOwAAADEAAAAxgAA
AMwAAADdAAAA7wAAAP8AAAD/AAAA/wAAAP0AAAD/AAAA/QAAAP8AAADBAAAATf///wD///8AAAAAhwAA
AP8AAAD7AAAA/AAAAP8AAAB9////AAAAAAX///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AAAAAAX///8AAAAAUQAAAP8AAAD9AAAA/wAAAPwAAAD3AAAA/wAA
AP8AAAD/AAAA9wAAAN4AAAD8AAAA/wAAAH0AAAA4AAAAMQAAACUAAAAdAAAAFgAAAAYAAAAXAAAA7QAA
AP8AAACZ////AAAAAAH///8AAAAABwAAABkAAAA4AAAAXwAAALsAAAD/AAAA/gAAAP8AAAD/AAAA/wAA
AP8AAAC/AAAAOAAAANAAAAD/AAAA/AAAAP8AAAD+AAAAKv///wAAAAAD////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAABP///wAAAACCAAAA/wAA
APoAAAD/AAAA/wAAAOkAAAC8AAAAdwAAACIAAAATAAAA4gAAAP8AAABN////AP///wD///8A////AP//
/wD///8AAAAAHgAAAPMAAAD/AAAAgv///wAAAAAE////AP///wD///8A////AP///wAAAAB2AAAA/wAA
APoAAADOAAAA+gAAAP8AAAD/AAAA/wAAAP8AAAD9AAAA/wAAAPoAAAD/AAAAr////wAAAAAC////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAA
AAL///8AAAAACQAAAOIAAAD/AAAA+QAAAP8AAADVAAAABP///wD///8A////AAAAALEAAAD/AAAAkf//
/wAAAAAHAAAAAgAAAAIAAAAE////AAAAAC4AAAD7AAAA/wAAAGv///8AAAAABQAAAAEAAAABAAAAAgAA
AAP///8AAAAAyQAAAP8AAADkAAAADAAAACgAAACbAAAA+AAAAP0AAAD/AAAA/wAAAP0AAAD/AAAA9wAA
ACb///8AAAAAA////wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAABP///wAAAABJAAAA/wAAAP4AAAD6AAAA/wAAALEAAAAFAAAABv//
/wAAAAByAAAA/wAAAMX///8A////AP///wD///8AAAAAA////wAAAAA8AAAA/wAAAP8AAABV////AAAA
AAT///8A////AAAAAAT///8AAAAAOQAAAP4AAAD/AAAAmv///wD///8A////AAAAAE0AAAD/AAAA/gAA
AP4AAAD8AAAA/wAAAGT///8AAAAABf///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAD////AAAAAIgAAAD/AAAA+wAA
APoAAAD/AAAAqv///wD///8AAAAALgAAAP8AAAD4AAAAIP///wAAAAAC////AAAAAAP///8AAAAASwAA
AP8AAAD/AAAAQf///wAAAAAD////AP///wAAAAAE////AAAAAKQAAAD/AAAA/wAAADf///8A////AAAA
ACcAAADJAAAA/wAAAP0AAAD6AAAA/wAAAKD///8AAAAAAv///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAf//
/wD///8AAAAAlAAAAP8AAAD9AAAA+wAAAP8AAAB7////AP///wAAAADIAAAA/wAAAF////8AAAAABf//
/wAAAAAE////AAAAAFsAAAD/AAAA/gAAADL///8AAAAAA////wAAAAAD////AAAAACYAAAD3AAAA/wAA
ALb///8A////AAAAAEAAAADzAAAA/wAAAPwAAAD7AAAA/wAAAKP///8A////AAAAAAH///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wAAAAAC////AP///wAAAACFAAAA/wAAAP8AAAD5AAAA/wAAAIT///8AAAAAagAA
AP8AAACs////AAAAAAP///8AAAAABP///wAAAABkAAAA/wAAAPYAAAAj////AAAAAAL///8AAAAAA///
/wAAAAClAAAA/wAAAPgAAAAcAAAAGwAAAKUAAAD/AAAA/wAAAPkAAAD+AAAA/wAAAKz///8A////AAAA
AAL///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAIAAAAB////AAAAAGQAAAD7AAAA/wAA
APoAAAD/AAAApwAAACkAAADvAAAA9wAAABf///8AAAAABAAAAAX///8AAAAAYwAAAP8AAADxAAAAGv//
/wAAAAAFAAAACP///wAAAABZAAAA/wAAAP8AAACXAAAAbwAAAPsAAAD/AAAA/wAAAPoAAAD/AAAA/wAA
AIb///8A////AAAAAAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAQAA
AAP///8AAAAAJgAAALYAAAD/AAAA/wAAAP8AAADYAAAA3AAAAP8AAABj////AP///wAAAAAD////AAAA
AGYAAAD/AAAA5gAAAAL///8A////AP///wAAAAAnAAAA+AAAAP8AAAD4AAAA5QAAAP8AAAD/AAAA+wAA
APoAAAD/AAAA/wAAAF////8A////AAAAAAL///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAABP///wD///8AAAAAYAAAAOwAAAD/AAAA/wAAAP8AAAD/AAAA2gAA
AFkAAAArAAAAA////wAAAABUAAAA/wAAAOoAAABZAAAATwAAAE8AAABeAAAA2wAAAP8AAAD8AAAA/wAA
AP8AAAD8AAAA/QAAAPsAAAD/AAAA8gAAAET///8AAAAABAAAAAH///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAADAAAAAv///wAAAAAWAAAAogAA
AP8AAAD/AAAA/QAAAP8AAAD/AAAA/AAAAMoAAACvAAAAwQAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD8AAAA/wAAAP0AAAD7AAAA+wAAAPsAAAD/AAAA4AAAACb///8AAAAABf///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wAAAAAF////AP///wAAAABFAAAAxwAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD7AAAA/AAA
APoAAAD6AAAA+gAAAPoAAAD8AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAxwAAABb///8AAAAABf//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AAAAAAIAAAAD////AP///wAAAAA7AAAAngAAANIAAADxAAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD6AAAA5gAAANQAAACYAAAATwAA
AAH///8AAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAQAAAAB////AP//
/wD///8AAAAAGwAAADgAAABCAAAAUQAAAGwAAAByAAAAagAAAGAAAABZAAAASwAAAEQAAABAAAAAJgAA
AA////8A////AP///wD///8AAAAAA////wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AAAAAAMAAAAE////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AAAAAAQAAAAEAAAAAf///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAEAAAACAAAAAwAAAAQAAAAEAAAABQAA
AAQAAAAFAAAABQAAAAQAAAAEAAAABAAAAAQAAAADAAAAAQAAAAH///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A/////////////////////////////////////////////////////////+AA///////+H/8P
//////ngAPP/////5gAADP////+YAAADP////2AAAADf///8gAAAAC////sAAAAAF///9AAfx4Ab///o
AiCEgA3//9AMLoSABf//oAQghUAC//+gAD6EQgL//0AAAYfAAX//QOAAAAAB//6BmAAAAAC//4FoAAAA
AL/9Auh4AADgX/0C0IeHoaBf+gXQuIXgoF/6BdC+hCCQL/oF0IAJoJAv+gQQ/4wgkC/6D8AAA+GQL/oA
AAAAAPAv+gAAAAAACC/+AAAAAAAAN/YAEP8IAAAX/g/wgQvhwBf6CBC9CCEwF/oL0L0LoQg3+gvQvQuh
WD/6BdC9C6FQL/8F0IEIIVAv/QXQvx+hUC/9AtDgAGFQL/6BMAAAATAv/0HAAAABoF//QAAAAABgX/+g
AAAUAABf/9AAfhfAAL//0BxCEEAAv//oBHoWhwF///QMKhaGAv//9gYqFQwG///7AioVAA3///yAEhIA
G////kAaHAA3////sAIAAE/////IAAAAv/////YAAAF/////+YAAAv/////+cAA9//////+f/+P/////
/+AAH/////////////////////////////////////////////8=
AAABAAEAAAAAAAEAIADUCgAAFgAAAIlQTkcNChoKAAAADUlIRFIAAAEAAAABAAgGAAAAXHKoZgAACptJ
REFUeNrt3U9o3vUBx/FPUhXEbjZjCjpc4mhksoNpDlI8rJlMBDdGYOAhFwvCDmOwHrzv8bSLB8u8TBi0
B3PYqfS6g0+HiJel6Ukk4PqAjOGQVdxph2WH51d92uZv88vz+/N9vSAgCm3yTT5vf8/fzGxvb6eN1heX
TyVZSrKSZGHiY76VnzCMjZLcnPgYJtlc29q41cZPdqYtAagGv1oNfsXQ6WEYhtXHlbYEodEAVKM/X308
52eEgtxI8nbTMWgkAOuLyyvV6F/zcwC5nOTS2tbGsNcBWF9cPp9kEJf3sJNRksHa1salXgXA8KGdITjW
AKwvLi9lfDvnnO8pHNq1JBfWtjY2OxWA6s69QZLf+h7CkV3M+IrgVusDUN3Bdyku96FOoyTn676jcLbm
8Q+SvG/8ULv5JO9XG6tNLVcA1SX/lbitD9NwLclqHTcJjnwFUN3Rt2n8MDXnkmxW2zuSI10BVJ/AMMmj
vicwdV8mWTnKowT3fQVg/NC4R5MMj3IlcF8BMH7oRwQOHQDjh/5E4FABMH7oVwQOfCdg9VDfZjzGD202
SrJ00IcID3MFcMX4ofXmq60eyIECUD37yOP80A3nDvqMwX1vAlTP7X/fmULn/GS/1w7sGQC3+6HT9r0/
YL+bAAPjh86arza8q12vAKqHE647Q+i8M7s9XXivK4C3nRv0wq5b3jEA1Xv4udcf+uFctemDBSD73G4A
OmdwoABUpXDHH/TL/E5XATtdAQycFfTSYM8AVE/68X9/6Kf5auM7ByDjX9cF9NcdG//6eQDVs/7+7Xyg
9+ZuPztw8gpg1blAEb7e+mQALjgXKMLXW5/Z3t52+Q/lmVvb2rh1+wpg1XlAUVaTb24CrDgPKMqKAEDh
AZh57/SZU3H7H0o0N5tkyTlAkZZm4/IfSrUym2TBOUCRFgQABAAoNQBe/gtlmp91BlAuAQABAAQAEABA
AAABAAQAEABAAAABAAQAEABAAAABAAQAEABAAAABAAQAEABAAAABAAQAEABAAAABAAQAEABAABr3iz8l
Cy85h2l59tXxmSMArRj/yceSh+ecxTSdfEwEBKAl40cEBMD4aSgCr7zjHATA+It16vvJ2TecgwAYf7F+
8GMREADjFwEREADjFwEEwPhFAAEwfhFAAIxfBBAA4xcBBMD4RQABMH4REACMXwQEwPiNXwQEwPgRAQEw
fkRAAIwfERAA40cEBMD4EQEBMH5EQACMHxEQAONHBATA+BEBATB+REAAjB8READjRwQEwPgRAQEwfurw
xZYICECLxr/9v+TjPxvmtHx+fXzmIiAAjY8/Sf6xaZTT9vcPmvl7+xaBXgSgyfH/51/JtYFBTttHb43P
XgQKD0DT47/6ujE25errIlB0AIwfESg0AMaPCBQaAONHBAoNgPEjAoUGwPgRgUIDYPyIQKEBMH5EoNAA
9Hn8J59MHj9T7kgXXhp/iEBzTvzyO08MjL+Z8f/sD8npF5OvvkhufVre+F/4TfLU88f79X9yNXn6p8lD
j0z/a5ybTx75XvLZhwJg/DuM/8SDSWaOfwRtHX9mpvP1i0DHAlDM+G8rKAJ3jH+KX78IdCQAxY2/oAjs
OH4REIDix19ABPYcvwgIQPHj73EEDjR+ESg3AMbf3wgcavwiUF4AjL+/Ebiv8YtAOQEw/v5G4EjjF4H+
B8D4+xuBWsYvAv0NgPH3NwK1jl8E+hcA4+9vBI5l/CJwrKb+YqDPP27nD2+rxz8xghd+c7wvoGnl+Kf4
9Tf58/n4s9P/O6d+BfDZh+PSzc1P/4t96JFx4T+52sHxT4ygbVcCUxn/FL7+s2+MX8XXhKZedt7Iy4E/
eiv59K/NHPTJx8Y3Qzo5/okRnP31+O8uavwTX3/dVwIljr+xAPQpAt/9UXLigQa+cSfG4WkyAo2MfyIC
c08bf2cD0JcI3PxL8uE7Sban/zWceLC5CDQ6/ox/bq6/a/ydDoAIdDMCbRj/R28Zfy8CIALdioDx92f8
rQmACHQjAsbfr/G3KgAi0O4IGH//xt+6AIhAOyNg/P0cfysD0IYI/PyPImD8/R9/awPQdAS+/UTy4u9F
wPj7Pf6k5b8XoMmnDZ98vJ4XZ9z6dPy01aeen/6QZk8kp19ORh8k//3K+I2/YwFoOgJ1vUKraxEw/jLG
34kAiMB0I2D85Yy/MwEQgelEwPjLGn+nAiACxxsB4y9v/J0LgAgcTwSMv8zxdzIAIlBvBJ48a/yljr+z
ARCB+iIwf9b4Sx1/pwMgAvVEwPjLHX/nAyAC3WT8AtCrCDzwreSffxOBaY7/zK+SZxp6d+S+jD9p8WsB
DqvJ1w788JV6/pwmXzvQpfEnyTMvG78AtCQCM7PJs6+KwLTGv/DSlN+Fuafj710AmoxAnfoWgTrHnyQP
zxm/AIhAkeNvQl/H39sAiIDxG3/hARAB4zf+wgMgAsZv/IUHQASM3/gLD4AIGL/xFx4AETB+4y88ACJg
/MZfeABEwPiNv/AAiIDxG3/hARAB4y99/MUHQASMv3TFB0AEjF8AEAHjFwAREAHjFwAREAHjFwAREAHj
FwARKDYCxi8AIlBoBIxfACg0AsYvABQaAeMXAAqNgPELAIVGwPgFgEIjYPzlesAR3F8EkuZ+MWVdEUiS
uaeT6+8avwBQZARudvz7YPxH4ybAESPQ9ZsDxl82VwA1RADj76qZ906f6ekvowb24yYACAAgAIAAAAIA
CAAgAIAAAAIACAAgAIAAAAIACAAgAIAAAAIACAAgAIAAAAIACAAgAIAAAAIACAAgAIAAAAIAHCEAI8cA
RRrNJrnpHKBINwUABAAoNQBD5wBFGs4m2XQOUKTN2bWtjVvxSACUZrS2tXHr9vMAhs4DijJMvnkikABA
wQG44jygKFe+DkB1P8ANZwJFuFFt/o7XAlxyLlCEt2//gwBAea7cE4DqkuCys4Feu3z78v+OAFQuOR/o
tTs2PrO9vX3Hf11fXL6ZZN45Qe+M1rY2Fib/xU5vCDJwTtBL92z7niuAxFUA9NA9//dPdn9LsIHzgl7Z
cdM7XgEkyfri8jDJOecGnXdtbWtjZaf/sNebgl5wbtALu2551wCsbW1sJrno7KDTLlZbPlwAKoN4rwDo
qlH2uT9vzwBUzxg67xyhk85PPuvv0AGoIjBM8qazhE55s9runnZ9FOBuHhWAztj1Xv+7HeZXg63G/QHQ
dqNqqwdy4ABUtyVWk3zpjKGVvkyyut/t/vsKQBWBzSQrIgCtHP/KXg/5HTkAIgD9Gf99BUAEoB/jv+8A
iAB0f/xHCsBdEfDoAEzX6KjjP3IAJiKwlOSa7wlMxbUkS0cdf3KIJwIdxPri8iDJ73x/4Ni8uba1Majr
D6s1AFUEVjJ+40HvKAT1GWX83P5hnX/obN2fZfUJLsVLiaEuFzO+5B/W/QfXfgUwaX1xeSnj30LiNQRw
eNeSXKjjtn4jAZgIwfmMX5fsZgHsb5RksLa1cem4/6KpBEAIoF3DbyQAEyFYyfiNRl7zPYdcTnLpOG7j
tzIAEyE4lfErDC8kec7PAQW5kfH9Y1cO8+q9XgVglxisVB9uJtAnoyTD6qPR0bcyALsEYamKwcLEhzDQ
9qHfnPgYJtlsy+Dv9n+29FSLeRSemgAAAABJRU5ErkJggg==
</value>
</data>
<data name="NotifyIcon1.Text" xml:space="preserve">
@@ -472,48 +236,6 @@
<metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>625, 56</value>
</metadata>
<data name="labelFolderwatch.Caption" xml:space="preserve">
<value>FolderWatch aktiv</value>
</data>
<data name="BarSubItem1.Caption" xml:space="preserve">
<value>Konfiguration</value>
</data>
<data name="BarSubItem1.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAhdEVYdFRpdGxlAEFwcGx5O09LO0NoZWNrO0JhcnM7
UmliYm9uO2RjyGgAAADESURBVDhPpZPRDYQgEEQtxUL4tiwT/88qLMZ2TK4Abt9GzMCtmMt9vAjLzAQW
HFJKLZOxGrtxnDCmxlql18lovIy3kW9gDQ3aKoDCZkSmCLQeUgJIjYQ98HgA5+ptW1lkjGcigOao6I4l
54xeaysFOqzFCDcHATsFrkmLuk2fi3lu1o6vgFNYQnpm8IDqCGJ4MoMfoW3iXIwPZvAmRtfoIXybunJd
I0QPqWeG6yHBaPz1lEsIqb1XyRoaN4MGFH74ndPwASbJh+jVDWBmAAAAAElFTkSuQmCC
</value>
</data>
<data name="BarSubItem1.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAhdEVYdFRpdGxlAEFwcGx5O09LO0NoZWNrO0JhcnM7
UmliYm9uO2RjyGgAAAGcSURBVFhHxZcxcsIwEEU5AVWO4z4dZ8gBcgZm6LhNWsrcIh0dV6B19nm0Hln5
sleG4OINRvq7+7FXktn1fb8pcvCVjBdd1y2xNw7G2bgYV+Oe4Jox5tCgVTlGWgy8GZ/Gt9EHQUsMsSpn
2MC78WWoIhGIJcef3BEDH8aPoRK3QA5yTfIvGSDgZqiEayDXxMScAW7ZM355CTnHx1EzQNM88syXIPfQ
mDUDdK4KXMNJjAE1pAHWbstSm+OUcqo5auyVATYQFdDKUDzlVPNwcE1ugF1MiVsYi6ecSgNn1+RitlIl
jjIpnnIqHVxck4vZz5UYag3lqOLHQpNzdV0ewKGixDY9zNdMtBaHu2vzoFkDSVOaWFMcpIHqI3BN0rmJ
tcVBPoJqE7om0z5SHGQTzi3Do+sUzBf6JeQyXNqIpAnGC10EuRFFtuKJCb4X8xGqWzFEDqPBBJ/FeJTq
YQTR43ht8cXjGDZ9IXE2fSVzCHjGnSDHpDhEDAC37JFXNGLH254TNQA0DZ3b8raElpih4RQtBpz//Wu2
FXLwdfS7XxGwk2isBZLIAAAAAElFTkSuQmCC
</value>
</data>
<data name="buttonAdmin.Caption" xml:space="preserve">
<value>Administration</value>
</data>
<data name="BarButtonItem2.Caption" xml:space="preserve">
<value>User Basis Einstellungen</value>
</data>
<data name="BarButtonItem3.Caption" xml:space="preserve">
<value>Historie - Bereits indexierte Dateien</value>
</data>
<data name="BarButtonItem4.Caption" xml:space="preserve">
<value>Info</value>
</data>
<data name="Bar3.Text" xml:space="preserve">
<value>Statusleiste</value>
</data>
@@ -525,7 +247,7 @@
<value>0, 0</value>
</data>
<data name="barDockControlTop.Size" type="System.Drawing.Size, System.Drawing">
<value>294, 0</value>
<value>292, 0</value>
</data>
<data name="&gt;&gt;barDockControlTop.Name" xml:space="preserve">
<value>barDockControlTop</value>
@@ -543,10 +265,10 @@
<value>Bottom</value>
</data>
<data name="barDockControlBottom.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 136</value>
<value>0, 126</value>
</data>
<data name="barDockControlBottom.Size" type="System.Drawing.Size, System.Drawing">
<value>294, 25</value>
<value>292, 28</value>
</data>
<data name="&gt;&gt;barDockControlBottom.Name" xml:space="preserve">
<value>barDockControlBottom</value>
@@ -567,7 +289,7 @@
<value>0, 0</value>
</data>
<data name="barDockControlLeft.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 136</value>
<value>0, 126</value>
</data>
<data name="&gt;&gt;barDockControlLeft.Name" xml:space="preserve">
<value>barDockControlLeft</value>
@@ -585,10 +307,10 @@
<value>Right</value>
</data>
<data name="barDockControlRight.Location" type="System.Drawing.Point, System.Drawing">
<value>294, 0</value>
<value>292, 0</value>
</data>
<data name="barDockControlRight.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 136</value>
<value>0, 126</value>
</data>
<data name="&gt;&gt;barDockControlRight.Name" xml:space="preserve">
<value>barDockControlRight</value>
@@ -606,10 +328,10 @@
<value>True</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>203</value>
<value>230</value>
</metadata>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>294, 161</value>
<value>292, 154</value>
</data>
<data name="LabelControl1.Appearance.BackColor2" type="System.Drawing.Color, System.Drawing">
<value>Transparent</value>
@@ -634,7 +356,7 @@
<value>25, 20, 20, 20</value>
</data>
<data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>294, 136</value>
<value>292, 126</value>
</data>
<data name="LabelControl1.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
@@ -916,13 +638,13 @@ auszuwählen
</value>
</data>
<data name="$this.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>296, 193</value>
<value>308, 193</value>
</data>
<data name="$this.MinimumSize" type="System.Drawing.Size, System.Drawing">
<value>294, 161</value>
<value>308, 168</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>File Flow</value>
<value>fileFLOW</value>
</data>
<data name="&gt;&gt;TimerFolderWatch.Name" xml:space="preserve">
<value>TimerFolderWatch</value>
@@ -1050,4 +772,46 @@ auszuwählen
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="BarSubItem1.Caption" xml:space="preserve">
<value>Konfiguration</value>
</data>
<data name="BarSubItem1.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAhdEVYdFRpdGxlAEFwcGx5O09LO0NoZWNrO0JhcnM7
UmliYm9uO2RjyGgAAADESURBVDhPpZPRDYQgEEQtxUL4tiwT/88qLMZ2TK4Abt9GzMCtmMt9vAjLzAQW
HFJKLZOxGrtxnDCmxlql18lovIy3kW9gDQ3aKoDCZkSmCLQeUgJIjYQ98HgA5+ptW1lkjGcigOao6I4l
54xeaysFOqzFCDcHATsFrkmLuk2fi3lu1o6vgFNYQnpm8IDqCGJ4MoMfoW3iXIwPZvAmRtfoIXybunJd
I0QPqWeG6yHBaPz1lEsIqb1XyRoaN4MGFH74ndPwASbJh+jVDWBmAAAAAElFTkSuQmCC
</value>
</data>
<data name="BarSubItem1.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAhdEVYdFRpdGxlAEFwcGx5O09LO0NoZWNrO0JhcnM7
UmliYm9uO2RjyGgAAAGcSURBVFhHxZcxcsIwEEU5AVWO4z4dZ8gBcgZm6LhNWsrcIh0dV6B19nm0Hln5
sleG4OINRvq7+7FXktn1fb8pcvCVjBdd1y2xNw7G2bgYV+Oe4Jox5tCgVTlGWgy8GZ/Gt9EHQUsMsSpn
2MC78WWoIhGIJcef3BEDH8aPoRK3QA5yTfIvGSDgZqiEayDXxMScAW7ZM355CTnHx1EzQNM88syXIPfQ
mDUDdK4KXMNJjAE1pAHWbstSm+OUcqo5auyVATYQFdDKUDzlVPNwcE1ugF1MiVsYi6ecSgNn1+RitlIl
jjIpnnIqHVxck4vZz5UYag3lqOLHQpNzdV0ewKGixDY9zNdMtBaHu2vzoFkDSVOaWFMcpIHqI3BN0rmJ
tcVBPoJqE7om0z5SHGQTzi3Do+sUzBf6JeQyXNqIpAnGC10EuRFFtuKJCb4X8xGqWzFEDqPBBJ/FeJTq
YQTR43ht8cXjGDZ9IXE2fSVzCHjGnSDHpDhEDAC37JFXNGLH254TNQA0DZ3b8raElpih4RQtBpz//Wu2
FXLwdfS7XxGwk2isBZLIAAAAAElFTkSuQmCC
</value>
</data>
<data name="buttonAdmin.Caption" xml:space="preserve">
<value>Administration</value>
</data>
<data name="BarButtonItem2.Caption" xml:space="preserve">
<value>User Basis Einstellungen</value>
</data>
<data name="BarButtonItem3.Caption" xml:space="preserve">
<value>Historie - Bereits indexierte Dateien</value>
</data>
<data name="BarButtonItem4.Caption" xml:space="preserve">
<value>Info</value>
</data>
<data name="labelFolderwatch.Caption" xml:space="preserve">
<value>FolderWatch aktiv</value>
</data>
</root>

View File

@@ -1,13 +1,11 @@
Imports System.IO
Imports Microsoft.Office.Interop
Imports System.Text
Imports System.Globalization
Imports System.Threading
Imports System.Runtime.InteropServices
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.Windows
Imports DigitalData.Modules.License
Imports DigitalData.Modules.Base
Imports DigitalData.GUIs.Common
Imports DevExpress.LookAndFeel
Public Class frmStart
Public LicenseManager As LicenseManagerLegacy
@@ -45,11 +43,20 @@ Public Class frmStart
#Region "=== FORM EVENTS ==="
Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
Cursor = Cursors.WaitCursor
Try
IndexForm = New frmIndex()
FileDrop = New FileDrop(LOGCONFIG, "GLOBIX")
LOGGER.Debug("frmStart_Load ...")
Try
IndexForm = New frmIndex()
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn($"Error while initializing frmIndex: {ex.Message}")
End Try
LOGGER.Debug("Load frmIndex ready")
FileDrop = New FileDrop(LOGCONFIG, "fileFLOW")
LOGGER.Debug("Load FileDrop ready")
'Lizenz abgellaufen, überprüfen ob User Admin ist
If LICENSE_COUNT < USERCOUNT_LOGGED_IN Then
If USER_IS_ADMIN = True Then
@@ -92,11 +99,17 @@ Public Class frmStart
buttonAdmin.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
DATABASE_ECM.ExecuteNonQuery("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
LOGGER.Debug("Load almost ready, now Config ...")
If CONFIG.Config.MyFormsDesign <> "" Then
UserLookAndFeel.Default.SetSkinStyle(CONFIG.Config.MyFormsDesign)
End If
TopMost = True
Catch ex As Exception
MsgBox("Unexpected Error in Load-Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
LOGGER.Error(ex)
End Try
Cursor = Cursors.Default
End Sub
@@ -128,7 +141,7 @@ Public Class frmStart
Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
If START_INCOMPLETE = False Then
Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'fileFLOW'"
DATABASE_ECM.ExecuteNonQuery(Sql)
End If
ClassWindowLocation.SaveFormLocationSize(Me)
@@ -137,8 +150,10 @@ Public Class frmStart
End Try
Try
IndexForm.DisposeViewer()
IndexForm.Dispose()
If Not IsNothing(IndexForm) Then
IndexForm.DisposeViewer()
IndexForm.Dispose()
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
@@ -250,10 +265,10 @@ Public Class frmStart
End If
End If
For Each Filerow As DataRow In DTACTUAL_FILES.Rows
Dim oFileString As String = Filerow.Item("FILENAME2WORK")
Dim oFileGuid = Filerow.Item("GUID")
Dim oFileHash = Utils.NotNull(Filerow.Item("FILE_HASH"), "")
For Each oRow As DataRow In DTACTUAL_FILES.Rows
Dim oFileString As String = oRow.Item("FILENAME2WORK")
Dim oFileGuid = oRow.Item("GUID")
Dim oFileHash = oRow.ItemEx("FILE_HASH", "")
LOGGER.Info("Processing user file {0}", oFileString)
CURRENT_FILENAME = oFileString
@@ -504,19 +519,25 @@ Public Class frmStart
If FW_started = True Or CONFIG.Config.FolderWatchScanStarted = True Then
'Prüfen ob alle Files abgearbeitet wurden
Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%|FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
DTACTUAL_FILES = DATABASE_ECM.GetDatatable(sql)
Dim oSql = $"SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%|FW%' AND USER@WORK = '{Environment.UserName}'"
DTACTUAL_FILES = DATABASE_ECM.GetDatatable(oSql)
If DTACTUAL_FILES.Rows.Count > 0 Then
ABORT_INDEXING = False
' Dim fil As String
Me.TimerFolderWatch.Stop()
For Each row As DataRow In DTACTUAL_FILES.Rows
Dim FILEGUID = row.Item("GUID")
If LOGCONFIG.Debug Then
Clipboard.Clear()
Clipboard.SetText(oSql, TextDataFormat.Text)
'MsgBox("DEBUG - Check TBGI_FILES_USER if necessary. Command copied to Clipboard")
End If
For Each oRow As DataRow In DTACTUAL_FILES.Rows
Dim FILEGUID = oRow.Item("GUID")
If ABORT_INDEXING = True Then
Exit For
End If
Dim FileForWork As String = row.Item(1)
Dim FileForWork As String = oRow.Item("FILENAME2WORK")
LOGGER.Info(">> In Timer Folderwatch - File: " & FileForWork)
Dim fileInUse As Boolean = FILE_HANDLER.IsFileInUse(FileForWork)
Dim fileexists As Boolean = System.IO.File.Exists(FileForWork)
@@ -524,17 +545,17 @@ Public Class frmStart
If fileexists = True Then
CURRENT_FILENAME = FileForWork
CURRENT_WORKFILE = FileForWork
CURRENT_WORKFILE_GUID = row.Item("GUID")
CURRENT_WORKFILE_HASH = row.Item("FILE_HASH")
CURRENT_WORKFILE_GUID = oRow.Item("GUID")
CURRENT_WORKFILE_HASH = oRow.Item("FILE_HASH")
Open_IndexDialog()
Else
LOGGER.Info(">> File not existing - Row will be deleted!")
LOGGER.Info($">> File [{FileForWork}] not existing - row from TBGI_FILES_USER will be deleted!")
Dim del = String.Format("DELETE FROM TBGI_FILES_USER WHERE GUID = {0}", FILEGUID)
DATABASE_ECM.ExecuteNonQuery(del)
End If
Else
LOGGER.Info(">> file '" & row.Item(1) & "' could not be opened exclusively - fileInUse!")
LOGGER.Info(">> file '" & FileForWork & "' could not be opened exclusively - fileInUse!")
End If
Next
@@ -674,4 +695,8 @@ Public Class frmStart
Private Sub LabelControl1_DragLeave(sender As Object, e As EventArgs) Handles LabelControl1.DragLeave
'PictureEdit1.Visible = False
End Sub
Private Sub frmStart_GiveFeedback(sender As Object, e As GiveFeedbackEventArgs) Handles Me.GiveFeedback
End Sub
End Class

View File

@@ -1,4 +1,54 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="NLog" version="5.0.2" targetFramework="net462" />
<package id="BouncyCastle.Cryptography" version="2.5.0" targetFramework="net462" />
<package id="DigitalData.Controls.DocumentViewer" version="1.9.8" targetFramework="net462" />
<package id="DigitalData.GUIs.Common" version="2.6.2" targetFramework="net462" />
<package id="DigitalData.Modules.Base" version="1.3.8" targetFramework="net462" />
<package id="DigitalData.Modules.Config" version="1.3.0" targetFramework="net462" />
<package id="DigitalData.Modules.Database" version="2.3.5.4" targetFramework="net462" />
<package id="DigitalData.Modules.Encryption" version="1.3.1" targetFramework="net462" />
<package id="DigitalData.Modules.Logging" version="2.6.5" targetFramework="net462" />
<package id="DigitalData.Modules.Messaging" version="1.9.8" targetFramework="net462" />
<package id="DigitalData.Modules.Patterns" version="1.3.1" targetFramework="net462" />
<package id="DigitalData.Modules.Windows" version="1.5.1" targetFramework="net462" />
<package id="DocumentFormat.OpenXml" version="3.2.0" targetFramework="net462" />
<package id="DocumentFormat.OpenXml.Framework" version="3.2.0" targetFramework="net462" />
<package id="EntityFramework" version="6.4.4" targetFramework="net462" />
<package id="EntityFramework.Firebird" version="6.4.0" targetFramework="net462" />
<package id="FirebirdSql.Data.FirebirdClient" version="7.5.0" targetFramework="net462" />
<package id="GdPicture" version="14.3.3" targetFramework="net462" />
<package id="GdPicture.runtimes.windows" version="14.3.3" targetFramework="net462" />
<package id="Microsoft.AspNet.WebApi.Client" version="6.0.0" targetFramework="net462" />
<package id="Microsoft.Bcl.AsyncInterfaces" version="9.0.0" targetFramework="net462" />
<package id="Microsoft.Bcl.Cryptography" version="9.0.0" targetFramework="net462" />
<package id="Microsoft.CSharp" version="4.7.0" targetFramework="net462" />
<package id="Microsoft.Identity.Client" version="4.55.0" targetFramework="net462" />
<package id="Microsoft.IdentityModel.Abstractions" version="6.22.0" targetFramework="net462" />
<package id="Microsoft.VisualBasic" version="10.3.0" targetFramework="net462" />
<package id="Newtonsoft.Json" version="13.0.3" targetFramework="net462" />
<package id="Newtonsoft.Json.Bson" version="1.0.2" targetFramework="net462" />
<package id="NLog" version="5.0.5" targetFramework="net462" />
<package id="OpenMcdf" version="2.4.1" targetFramework="net462" />
<package id="protobuf-net" version="3.2.46" targetFramework="net462" />
<package id="protobuf-net.Core" version="3.2.46" targetFramework="net462" />
<package id="RtfPipe" version="2.0.7677.4303" targetFramework="net462" />
<package id="S22.Imap" version="3.6.0.0" targetFramework="net462" />
<package id="System.Buffers" version="4.6.0" targetFramework="net462" />
<package id="System.CodeDom" version="9.0.0" targetFramework="net462" />
<package id="System.Collections.Immutable" version="9.0.0" targetFramework="net462" />
<package id="System.Data.Odbc" version="6.0.1" targetFramework="net462" />
<package id="System.Formats.Asn1" version="9.0.0" targetFramework="net462" />
<package id="System.IO.Packaging" version="9.0.0" targetFramework="net462" />
<package id="System.IO.Pipelines" version="9.0.0" targetFramework="net462" />
<package id="System.Management" version="9.0.0" targetFramework="net462" />
<package id="System.Memory" version="4.6.0" targetFramework="net462" />
<package id="System.Numerics.Vectors" version="4.6.0" targetFramework="net462" />
<package id="System.Runtime.CompilerServices.Unsafe" version="6.1.0" targetFramework="net462" />
<package id="System.Runtime.InteropServices" version="4.0.20" targetFramework="net462" />
<package id="System.Runtime.InteropServices.RuntimeInformation" version="4.0.0" targetFramework="net462" />
<package id="System.Security.Cryptography.Pkcs" version="9.0.0" targetFramework="net462" />
<package id="System.Text.Encodings.Web" version="9.0.0" targetFramework="net462" />
<package id="System.Text.Json" version="9.0.0" targetFramework="net462" />
<package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net462" />
<package id="System.ValueTuple" version="4.5.0" targetFramework="net462" />
</packages>

View File

@@ -1,8 +1,8 @@
<?xml version="1.0" encoding="utf-8"?>
<Include>
<!-- TODO: Put your code here. -->
<?define ProgramName="FileFlow"?>
<?define ProductName="File Flow"?>
<?define ProgramName="fileFLOW"?>
<?define ProductName="fileFLOW"?>
<?define Manufacturer="Digital Data"?>
<?define Description="Beschreibung des Programms"?>
<?define Comments="Kommentar wie Copyright-Hinweis"?>

View File

@@ -18,7 +18,7 @@
<!-- Nicht entfernen! -->
<Media Id='1' Cabinet='Sample.cab' EmbedCab='yes' DiskPrompt='CD-ROM #1' />
<Property Id='DiskPrompt' Value="File Flow Install" />
<Property Id='DiskPrompt' Value="fileFLOW Install" />
<!-- UPGRADE -->
<!--
@@ -103,8 +103,7 @@
<!-- Die ApplicationIco -->
<Component Id="ApplicationIco" Guid="5C2EEA18-0718-41E9-A8C6-38D3C622921B">
<File Id="ApplicationIco" Name="DD_Icons_ICO_GLOBIX_128.ico" Source="DD_Icons_ICO_GLOBIX_128.ico" KeyPath="yes" />
<File Id="ApplicationIco2" Name="DD_Icons_ICO_GLOBIX_1.ico" Source="DD_Icons_ICO_GLOBIX_1.ico" KeyPath="no" />
<File Id="ApplicationIco" Name="DD_fileFLOW_ICON.ico" Source="DD_fileFLOW_ICON.ico" KeyPath="yes" />
</Component>
<!--Digital Data Bibliotheken-->
@@ -112,12 +111,9 @@
<File Id="Base" Name="DigitalData.Modules.Base.dll" Source="DigitalData.Modules.Base.dll" KeyPath="no" />
<File Id="Config" Name="DigitalData.Modules.Config.dll" Source="DigitalData.Modules.Config.dll" KeyPath="no" />
<File Id="Database" Name="DigitalData.Modules.Database.dll" Source="DigitalData.Modules.Database.dll" KeyPath="no" />
<File Id="Filesystem" Name="DigitalData.Modules.Filesystem.dll" Source="DigitalData.Modules.Filesystem.dll" KeyPath="no" />
<File Id="Language" Name="DigitalData.Modules.Language.dll" Source="DigitalData.Modules.Language.dll" KeyPath="no" />
<File Id="License" Name="DigitalData.Modules.License.dll" Source="DigitalData.Modules.License.dll" KeyPath="no" />
<File Id="Logging" Name="DigitalData.Modules.Logging.dll" Source="DigitalData.Modules.Logging.dll" KeyPath="yes" />
<File Id="Messaging" Name="DigitalData.Modules.Messaging.dll" Source="DigitalData.Modules.Messaging.dll" KeyPath="no" />
<File Id="Messaging.License" Name="MailLicense.xml" Source="MailLicense.xml" KeyPath="no" />
<File Id="Windows" Name="DigitalData.Modules.Windows.dll" Source="DigitalData.Modules.Windows.dll" KeyPath="no" />
<File Id="Windream" Name="DigitalData.Modules.Windream.dll" Source="DigitalData.Modules.Windream.dll" KeyPath="no" />
<File Id="DocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" Source="DigitalData.Controls.DocumentViewer.dll" KeyPath="no" />
@@ -126,20 +122,35 @@
<File Id="Patterns" Name="DigitalData.Modules.Patterns.dll" Source="DigitalData.Modules.Patterns.dll" KeyPath="no" />
<File Id="Common" Name="DigitalData.GUIs.Common.dll" Source="DigitalData.GUIs.Common.dll" KeyPath="no" />
<File Id="Encryption" Name="DigitalData.Modules.Encryption.dll" Source="DigitalData.Modules.Encryption.dll" KeyPath="no" />
</Component>
<Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">
<File Id="GdPicture.NET.14" Name="GdPicture.NET.14.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll" KeyPath="yes" />
<File Id="GdPicture.NET.14.filters" Name="GdPicture.NET.14.filters.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.filters.dll" />
<File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.image.gdimgplug.dll" />
<File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET.14.Imaging.Rendering.Skia.dll" />
<File Id="GdPicture.NET.14" Name="GdPicture.NET.14.dll" KeyPath="yes" />
<File Id="GdPicture.NET.14.filters" Name="GdPicture.NET.14.filters.dll" />
<File Id="GdPicture.NET.14.filters64" Name="GdPicture.NET.14.filters.64.dll" />
<File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" />
<File Id="GdPicture.NET.14.image64" Name="GdPicture.NET.14.image.gdimgplug.64.dll" />
<File Id="GdPicture.NET.14.Imaging.Rendering.Skia" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" />
<File Id="GdPicture.NET.14..Rendering.Skia.64" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
<File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.dll" />
<File Id="GdPicture.NET.14.Common" Name="GdPicture.NET.14.Common.dll" />
<File Id="GdPicture.NET.14.Imaging.Rendering" Name="GdPicture.NET.14.Imaging.Rendering.dll" />
<File Id="GdPicture.NET.14.Document" Name="GdPicture.NET.14.Document.dll" />
<File Id="GdPicture.NET.14.PDF" Name="GdPicture.NET.14.PDF.dll" />
<File Id="GdPicture.NET.14.Imaging.Formats" Name="GdPicture.NET.14.Imaging.Formats.dll" />
<File Id="GdPicture.NET.14.RTF" Name="GdPicture.NET.14.RTF.dll" />
<File Id="GdPicture.NET.14.OpenDocument" Name="GdPicture.NET.14.OpenDocument.dll" />
<File Id="GdPicture.NET.14.OpenXML" Name="GdPicture.NET.14.OpenXML.dll" />
<File Id="GdPicture.NET.14.Email" Name="GdPicture.NET.14.Email.dll" />
<File Id="GdPicture.NET.14.HTML" Name="GdPicture.NET.14.HTML.dll" />
</Component>
<!--Verschiedene Bibliotheken-->
<Component Id="MiscLibs" Guid="56bb39d9-101a-411d-8b11-5d4e3a602275">
<File Id="NLog" Name="NLog.dll" Source="NLog.dll" KeyPath="no" />
<File Id="Limilabs.Mail" Name="Mail.dll" Source="Mail.dll" KeyPath="no" />
<File Id="Limilabs.License" Name="MailLicense.xml" Source="MailLicense.xml" KeyPath="no" />
<File Id="InteropServices.RuntimeInformation" Name="System.Runtime.InteropServices.RuntimeInformation.dll" Source="System.Runtime.InteropServices.RuntimeInformation.dll" KeyPath="no" />
</Component>
<!--WINDREAM Bibliotheken-->
@@ -216,7 +227,7 @@
<Directory Id="resources.en" Name="en">
<Component Id="GlobalIndexer.Locales.en" Guid="d89b7f9b-337f-4784-8945-13de108e240f">
<File Id="FileFlow.resources.en" Name="FileFlow.resources.dll" Source="en\FileFlow.resources.dll"></File>
<File Id="LookupGrid.resources.en" Name="DigitalData.Controls.LookupGrid.resources.dll" Source="en\DigitalData.Controls.LookupGrid.resources.dll"></File>
<!--<File Id="LookupGrid.resources.en" Name="DigitalData.Controls.LookupGrid.resources.dll" Source="en\DigitalData.Controls.LookupGrid.resources.dll"></File>-->
</Component>
</Directory>

View File

@@ -44,7 +44,7 @@
</Target>
<Target Name="BeforeBuild">
<!-- Get the programs assembly version from the .exe file -->
<GetAssemblyIdentity AssemblyFiles="..\Global_Indexer\bin\$(Configuration)\FileFlow.exe">
<GetAssemblyIdentity AssemblyFiles="..\Global_Indexer\bin\$(Configuration)\fileFLOW.exe">
<Output TaskParameter="Assemblies" ItemName="AsmInfo" />
</GetAssemblyIdentity>
<!-- Store the assembly version number in ProductVersion preprocessor variable -->