Compare commits
8 Commits
5097c2d595
...
RibbonForm
| Author | SHA1 | Date | |
|---|---|---|---|
| 70329f2fea | |||
| e796ae91cb | |||
| e2619eb3ad | |||
| ed2de4614c | |||
| f92a5f03c9 | |||
|
04def7def2 | ||
|
|
3dfdb4377b | ||
|
|
3f69e71791 |
2
.gitignore
vendored
2
.gitignore
vendored
@@ -155,4 +155,4 @@ $RECYCLE.BIN/
|
||||
# Mac desktop service store files
|
||||
.DS_Store
|
||||
/app/.vs/DD-Record-Organizer/v15/Server/sqlite3
|
||||
/app/.vs/DD-Record-Organizer/v16/Server/sqlite3
|
||||
/app/.vs
|
||||
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
@@ -1,17 +1,17 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
# Visual Studio 15
|
||||
VisualStudioVersion = 15.0.26228.9
|
||||
# Visual Studio Version 16
|
||||
VisualStudioVersion = 16.0.29728.190
|
||||
MinimumVisualStudioVersion = 10.0.40219.1
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD-Record-Organizer", "DD-Record-Organizer\DD-Record-Organizer.vbproj", "{BDCC148B-4C84-4A48-80CF-4C56057294E0}"
|
||||
EndProject
|
||||
Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWiX", "SetupWiX\SetupWiX.wixproj", "{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "RecordOrganizer_RightManager", "RecordOrganizer_RightManager\RecordOrganizer_RightManager.vbproj", "{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERSION_CHECKER", "VERSION_CHECKER\VERSION_CHECKER.vbproj", "{BD9ADB52-06CA-401C-84C7-1D94BC3E07E7}"
|
||||
EndProject
|
||||
Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWiX_NoUpdater", "SetupWiX_NoUpdater\SetupWiX_NoUpdater.wixproj", "{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}"
|
||||
Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupVS19", "SetupVS19\SetupVS19.wixproj", "{7727A1A0-451F-4166-84B2-F1CD53B66692}"
|
||||
EndProject
|
||||
Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "Setup_NoUpdaterVS19", "Setup_NoUpdaterVS19\Setup_NoUpdaterVS19.wixproj", "{A7F7585A-C46A-4436-9F6E-17629325CE58}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
@@ -57,31 +57,6 @@ Global
|
||||
{BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU
|
||||
{BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU
|
||||
{BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|x86.ActiveCfg = Debug|Any CPU
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|Any CPU.ActiveCfg = Release|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|Mixed Platforms.Build.0 = Release|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|x86.ActiveCfg = Release|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|x86.Build.0 = Release|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Debug|Any CPU.ActiveCfg = Debug|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Debug|Mixed Platforms.Build.0 = Debug|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Debug|x86.Build.0 = Debug|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.DVD-5|Any CPU.ActiveCfg = Debug|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.DVD-5|Mixed Platforms.ActiveCfg = Debug|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.DVD-5|Mixed Platforms.Build.0 = Debug|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.DVD-5|x86.ActiveCfg = Debug|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.DVD-5|x86.Build.0 = Debug|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Release|Any CPU.ActiveCfg = Release|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Release|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Release|Mixed Platforms.Build.0 = Release|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Release|x86.ActiveCfg = Release|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.Release|x86.Build.0 = Release|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.SingleImage|Any CPU.ActiveCfg = Release|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.SingleImage|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.SingleImage|Mixed Platforms.Build.0 = Release|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.SingleImage|x86.ActiveCfg = Release|x86
|
||||
{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.SingleImage|x86.Build.0 = Release|x86
|
||||
{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|Any CPU.Build.0 = Release|Any CPU
|
||||
{F1C8A9DF-2452-4E3B-9C32-0C792F6ED2E6}.CD_ROM|Mixed Platforms.ActiveCfg = Release|Any CPU
|
||||
@@ -132,36 +107,67 @@ Global
|
||||
{BD9ADB52-06CA-401C-84C7-1D94BC3E07E7}.SingleImage|Mixed Platforms.ActiveCfg = Release|Any CPU
|
||||
{BD9ADB52-06CA-401C-84C7-1D94BC3E07E7}.SingleImage|Mixed Platforms.Build.0 = Release|Any CPU
|
||||
{BD9ADB52-06CA-401C-84C7-1D94BC3E07E7}.SingleImage|x86.ActiveCfg = Release|Any CPU
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.CD_ROM|Any CPU.ActiveCfg = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.CD_ROM|Any CPU.Build.0 = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.CD_ROM|Mixed Platforms.Build.0 = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.CD_ROM|x86.ActiveCfg = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.CD_ROM|x86.Build.0 = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.Debug|Any CPU.ActiveCfg = Debug|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.Debug|Mixed Platforms.Build.0 = Debug|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.Debug|x86.Build.0 = Debug|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.DVD-5|Any CPU.ActiveCfg = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.DVD-5|Any CPU.Build.0 = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.DVD-5|Mixed Platforms.ActiveCfg = Debug|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.DVD-5|Mixed Platforms.Build.0 = Debug|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.DVD-5|x86.ActiveCfg = Debug|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.DVD-5|x86.Build.0 = Debug|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.Release|Any CPU.ActiveCfg = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.Release|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.Release|Mixed Platforms.Build.0 = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.Release|x86.ActiveCfg = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.Release|x86.Build.0 = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.SingleImage|Any CPU.ActiveCfg = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.SingleImage|Any CPU.Build.0 = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.SingleImage|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.SingleImage|Mixed Platforms.Build.0 = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.SingleImage|x86.ActiveCfg = Release|x86
|
||||
{9E8B6445-8CA8-4B8A-8A04-4437A9970B7B}.SingleImage|x86.Build.0 = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.CD_ROM|Any CPU.ActiveCfg = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.CD_ROM|Any CPU.Build.0 = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.CD_ROM|Mixed Platforms.Build.0 = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.CD_ROM|x86.ActiveCfg = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.CD_ROM|x86.Build.0 = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.Debug|Any CPU.ActiveCfg = Debug|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.Debug|Mixed Platforms.Build.0 = Debug|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.Debug|x86.Build.0 = Debug|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.DVD-5|Any CPU.ActiveCfg = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.DVD-5|Any CPU.Build.0 = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.DVD-5|Mixed Platforms.ActiveCfg = Debug|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.DVD-5|Mixed Platforms.Build.0 = Debug|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.DVD-5|x86.ActiveCfg = Debug|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.DVD-5|x86.Build.0 = Debug|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.Release|Any CPU.ActiveCfg = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.Release|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.Release|Mixed Platforms.Build.0 = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.Release|x86.ActiveCfg = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.Release|x86.Build.0 = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.SingleImage|Any CPU.ActiveCfg = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.SingleImage|Any CPU.Build.0 = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.SingleImage|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.SingleImage|Mixed Platforms.Build.0 = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.SingleImage|x86.ActiveCfg = Release|x86
|
||||
{7727A1A0-451F-4166-84B2-F1CD53B66692}.SingleImage|x86.Build.0 = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.CD_ROM|Any CPU.ActiveCfg = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.CD_ROM|Any CPU.Build.0 = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.CD_ROM|Mixed Platforms.Build.0 = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.CD_ROM|x86.ActiveCfg = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.CD_ROM|x86.Build.0 = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.Debug|Any CPU.ActiveCfg = Debug|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.Debug|Mixed Platforms.Build.0 = Debug|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.Debug|x86.Build.0 = Debug|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.DVD-5|Any CPU.ActiveCfg = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.DVD-5|Any CPU.Build.0 = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.DVD-5|Mixed Platforms.ActiveCfg = Debug|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.DVD-5|Mixed Platforms.Build.0 = Debug|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.DVD-5|x86.ActiveCfg = Debug|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.DVD-5|x86.Build.0 = Debug|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.Release|Any CPU.ActiveCfg = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.Release|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.Release|Mixed Platforms.Build.0 = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.Release|x86.ActiveCfg = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.Release|x86.Build.0 = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.SingleImage|Any CPU.ActiveCfg = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.SingleImage|Any CPU.Build.0 = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.SingleImage|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.SingleImage|Mixed Platforms.Build.0 = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.SingleImage|x86.ActiveCfg = Release|x86
|
||||
{A7F7585A-C46A-4436-9F6E-17629325CE58}.SingleImage|x86.Build.0 = Release|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
GlobalSection(ExtensibilityGlobals) = postSolution
|
||||
SolutionGuid = {BFB9D2B3-CAD7-427D-8A0D-503795CD9608}
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
|
||||
@@ -9,12 +9,10 @@
|
||||
</sectionGroup>
|
||||
</configSections>
|
||||
<connectionStrings>
|
||||
<add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString"
|
||||
connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=ddd"
|
||||
providerName="System.Data.SqlClient" />
|
||||
<add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=ddd" providerName="System.Data.SqlClient"/>
|
||||
</connectionStrings>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2"/>
|
||||
</startup>
|
||||
<userSettings>
|
||||
<DD_Record_Organizer.My.MySettings>
|
||||
@@ -25,19 +23,19 @@
|
||||
<value>*.*</value>
|
||||
</setting>
|
||||
<setting name="WD_ENTITYIMP_IMPPATH" serializeAs="String">
|
||||
<value />
|
||||
<value/>
|
||||
</setting>
|
||||
<setting name="WD_ENTITYIMP_TARGETPATH" serializeAs="String">
|
||||
<value />
|
||||
<value/>
|
||||
</setting>
|
||||
<setting name="WD_ENTITYIMP_SAFETYPATH" serializeAs="String">
|
||||
<value />
|
||||
<value/>
|
||||
</setting>
|
||||
<setting name="WD_ENTITYIMP_OBJECTTYPE" serializeAs="String">
|
||||
<value />
|
||||
<value/>
|
||||
</setting>
|
||||
<setting name="WD_INDEXDOKART_SAVE" serializeAs="String">
|
||||
<value />
|
||||
<value/>
|
||||
</setting>
|
||||
<setting name="User_Calendar_isChild" serializeAs="String">
|
||||
<value>True</value>
|
||||
@@ -52,17 +50,20 @@
|
||||
<value>False</value>
|
||||
</setting>
|
||||
<setting name="TBPMO_RIGHT_GROUPDataGridView" serializeAs="String">
|
||||
<value />
|
||||
<value/>
|
||||
</setting>
|
||||
<setting name="frmRecordViewSplitter" serializeAs="String">
|
||||
<value>332</value>
|
||||
</setting>
|
||||
<setting name="TBPMO_RIGHT_USERDataGridView" serializeAs="String">
|
||||
<value />
|
||||
<value/>
|
||||
</setting>
|
||||
<setting name="UserDocIDIndexname" serializeAs="String">
|
||||
<value>Dokument-ID</value>
|
||||
</setting>
|
||||
<setting name="SaveDocGridlayout" serializeAs="String">
|
||||
<value>False</value>
|
||||
</setting>
|
||||
</DD_Record_Organizer.My.MySettings>
|
||||
</userSettings>
|
||||
<applicationSettings>
|
||||
|
||||
@@ -79,7 +79,7 @@ Public Class ClassBackgroundHelper
|
||||
End Using
|
||||
_grid.GridControl.BackgroundImage = _processedImage
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in GenerateBackgroundImage: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in GenerateBackgroundImage: " & ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -125,7 +125,7 @@ Public Class ClassBackgroundHelper
|
||||
End Select
|
||||
Return location
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in CalculateImageLocation: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in CalculateImageLocation: " & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
|
||||
|
||||
@@ -59,7 +59,7 @@
|
||||
Next
|
||||
Return False
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in Check_TreeViewLoaded: " & ex.Message, True)
|
||||
LOGGER.Warn("Error in Check_TreeViewLoaded: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
@@ -256,7 +256,7 @@ Public Class ClassControlBuilder
|
||||
Dim combo As CustomComboBox = sender
|
||||
combo.BackColor = Color.LemonChiffon
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected error in OnComboBoxFocus: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected error in OnComboBoxFocus: " & ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -265,7 +265,7 @@ Public Class ClassControlBuilder
|
||||
Dim combo As CustomComboBox = sender
|
||||
combo.BackColor = Color.White
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected error in OnComboBoxLostFocus: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected error in OnComboBoxLostFocus: " & ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -282,16 +282,16 @@ Public Class ClassControlBuilder
|
||||
End If
|
||||
For Each row As DataRow In TableResult.Rows
|
||||
Dim sqlcommand As String = row.Item("SQL_COMMAND_2")
|
||||
Dim msg = String.Format(" >> Working on enabling control {0} - SQL: {1}", CONTROL_ID.ToString, sqlcommand)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
|
||||
Dim msg = String.Format("Working on enabling control {0} - SQL: {1}", CONTROL_ID.ToString, sqlcommand)
|
||||
LOGGER.Debug(msg, False)
|
||||
If IsNothing(sqlcommand) Then
|
||||
Continue For
|
||||
End If
|
||||
|
||||
' Versuchen, die RecordId zu ersetzen, falls eine existiert
|
||||
sqlcommand = sqlcommand.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID)
|
||||
msg = String.Format(" >> sqlcommand-replaced1: {0}", sqlcommand)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
|
||||
msg = String.Format("sqlcommand-replaced1: {0}", sqlcommand)
|
||||
LOGGER.Debug(msg, False)
|
||||
' ControlId Platzhalter suchen und ersetzen
|
||||
Dim regex As New System.Text.RegularExpressions.Regex("(@(\d+)@)")
|
||||
Dim match As System.Text.RegularExpressions.Match = regex.Match(sqlcommand)
|
||||
@@ -306,7 +306,7 @@ Public Class ClassControlBuilder
|
||||
End Function).SingleOrDefault()
|
||||
' Wir ersetzen den platzhalter im sql command mit dem übergebenen wert
|
||||
sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: {0} for controlID {1}", sqlcommand, dependingControlId), False)
|
||||
LOGGER.Debug("" & String.Format("Executing SQL_COMMAND: {0} for controlID {1}", sqlcommand, dependingControlId), False)
|
||||
|
||||
' Jetzt wird das SQL Command ausgeführt, es MUSS einen Boolschen Wert zurückgeben, True, False, 0, 1
|
||||
Dim dt_result As DataTable = Nothing
|
||||
@@ -318,20 +318,20 @@ Public Class ClassControlBuilder
|
||||
Try
|
||||
enabled = CBool(dt_result.Rows(0).Item(0))
|
||||
Catch ex As Exception
|
||||
msg = String.Format(">> Could not convert value of tablecontent to boolean!! SQL {0} # tablecontent: {1}" & vbNewLine, sqlcommand, dependingControlId)
|
||||
ClassLogger.Add(msg)
|
||||
msg = String.Format("Could not convert value of tablecontent to boolean!! SQL {0} # tablecontent: {1}" & vbNewLine, sqlcommand, dependingControlId)
|
||||
LOGGER.Warn(msg)
|
||||
End Try
|
||||
|
||||
If enabled = False Then
|
||||
msg = String.Format(" >> Control {0} will be disabled." & vbNewLine, dependingControlId.ToString)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
|
||||
msg = String.Format("Control {0} will be disabled." & vbNewLine, dependingControlId.ToString)
|
||||
LOGGER.Debug(msg, False)
|
||||
Else
|
||||
msg = String.Format(" >> Control {0} will be enabled." & vbNewLine, dependingControlId.ToString)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
|
||||
msg = String.Format("Control {0} will be enabled." & vbNewLine, dependingControlId.ToString)
|
||||
LOGGER.Debug(msg, False)
|
||||
End If
|
||||
dependingControl.Enabled = enabled
|
||||
Else
|
||||
ClassLogger.Add(" >> Attention: RowCount for enabling control (" & dependingControlId.ToString & ") was '" & dt_result.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'", False)
|
||||
LOGGER.Warn("Attention: RowCount for enabling control (" & dependingControlId.ToString & ") was '" & dt_result.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'", False)
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -381,7 +381,7 @@ Public Class ClassControlBuilder
|
||||
|
||||
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> DependingControls - For Each row As DataRow In TableResult.Rows", False, False)
|
||||
LOGGER.Debug("DependingControls - For Each row As DataRow In TableResult.Rows", False, False)
|
||||
For Each row As DataRow In TableResult.Rows
|
||||
Dim sqlcommand As String = row.Item("SQL_COMMAND_1")
|
||||
|
||||
@@ -402,15 +402,15 @@ Public Class ClassControlBuilder
|
||||
If Not IsNothing(ctrlvalID) Then
|
||||
|
||||
If ClassControlCommandsUI.UpdateControlValue(CONTROL_ID, CURRENT_RECORD_ID, value.ToString, CURRENT_ENTITY_ID) = False Then
|
||||
ClassLogger.Add(String.Format(" >> ClassControlCommandsUI.UpdateControlValue (1) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value), False)
|
||||
LOGGER.Warn(String.Format("ClassControlCommandsUI.UpdateControlValue (1) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value), False)
|
||||
Else
|
||||
ControlsChanged.Remove(CONTROL_ID)
|
||||
End If
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> ctrlvalID is Nothing - Attention.....", False, False)
|
||||
LOGGER.Debug("ctrlvalID is Nothing - Attention.....", False, False)
|
||||
If CURRENT_RECORD_ID <> 0 Then
|
||||
If ClassControlCommandsUI.CreateControlProcedure(CONTROL_ID, CURRENT_RECORD_ID, value, CURRENT_ENTITY_ID) = 0 Then
|
||||
ClassLogger.Add(String.Format(" >> ClassControlCommandsUI.CreateControlProcedure (1) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value), False)
|
||||
LOGGER.Warn(String.Format("ClassControlCommandsUI.CreateControlProcedure (1) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value), False)
|
||||
Else
|
||||
ControlsChanged.Remove(CONTROL_ID)
|
||||
End If
|
||||
@@ -421,7 +421,7 @@ Public Class ClassControlBuilder
|
||||
' DependingControlId bezeichnet das Control, das die Abhängigkeit enthält
|
||||
Dim dependingControlId As Integer = row.Item("GUID")
|
||||
If dependingControlId > 0 Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> dependingControlId: " + dependingControlId.ToString, False, False)
|
||||
LOGGER.Debug("dependingControlId: " + dependingControlId.ToString, False, False)
|
||||
End If
|
||||
Dim panel As Panel = Me.MasterPanel
|
||||
'Dim panel As Panel = DirectCast(control.Parent, Panel)
|
||||
@@ -430,12 +430,12 @@ Public Class ClassControlBuilder
|
||||
Return DirectCast(c.Tag, ClassControlMetadata).Id = dependingControlId
|
||||
End Function).SingleOrDefault()
|
||||
If IsNothing(dependingControl) Then
|
||||
ClassLogger.Add(">> dependingControl is Nothing - Attention.....", True)
|
||||
LOGGER.Warn("dependingControl is Nothing - Attention.....")
|
||||
Continue For
|
||||
End If
|
||||
|
||||
sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId), False)
|
||||
LOGGER.Debug("" & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId), False)
|
||||
|
||||
Dim dt As DataTable = ClassDatabase.Return_Datatable(sqlcommand, True)
|
||||
Dim type = dependingControl.GetType().Name
|
||||
@@ -450,7 +450,7 @@ Public Class ClassControlBuilder
|
||||
dateValue = CStr(CDate(val)) 'Format(val, "dd-MM-yyyy"))
|
||||
Catch ex As Exception
|
||||
If val <> "" Then
|
||||
ClassLogger.Add("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & dependingControlId.ToString & "- Error: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & dependingControlId.ToString & "- Error: " & ex.Message)
|
||||
End If
|
||||
Continue For
|
||||
End Try
|
||||
@@ -463,35 +463,35 @@ Public Class ClassControlBuilder
|
||||
'Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", dateValue, USER_USERNAME, id)
|
||||
If ClassControlCommandsUI.UpdateControlValue(dependingControlId, CURRENT_RECORD_ID, dateValue, CURRENT_ENTITY_ID) = True Then
|
||||
ControlsChanged.Remove(dependingControlId)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue'", False) '" & upd)
|
||||
LOGGER.Debug("Value was not nothing - Updated the ControlValue'", False) '" & upd)
|
||||
Else
|
||||
ClassLogger.Add(" >> Check Update depending control (DateEdit) value as it was nothing and Update was not successful - Update-Command '", False) ' & upd & "'")
|
||||
LOGGER.Warn("Check Update depending control (DateEdit) value as it was nothing and Update was not successful - Update-Command '", False) ' & upd & "'")
|
||||
End If
|
||||
|
||||
Else
|
||||
If ClassControlCommandsUI.CreateControlProcedure(dependingControlId, CURRENT_RECORD_ID, dateValue, CURRENT_ENTITY_ID) = 1 Then
|
||||
ControlsChanged.Remove(dependingControlId)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue (DateEdit)!", False)
|
||||
LOGGER.Debug("Value was nothing - Inserted the ControlValue (DateEdit)!", False)
|
||||
Else
|
||||
ClassLogger.Add(String.Format(" >> ClassControlCommandsUI.InsertControlValue (DateEdit) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, dateValue), False)
|
||||
LOGGER.Warn(String.Format("ClassControlCommandsUI.InsertControlValue (DateEdit) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, dateValue), False)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in OnComboBoxValueChanged - TextBox: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in OnComboBoxValueChanged - TextBox: " & ex.Message)
|
||||
End Try
|
||||
Else
|
||||
ClassLogger.Add(" >> Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'")
|
||||
LOGGER.Warn("Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'")
|
||||
End If
|
||||
Case "CustomComboBox"
|
||||
ControlLoader.Combobox.SetDataSource(DirectCast(dependingControl, CustomComboBox), dt)
|
||||
Case "CheckedListBoxControl"
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> DependingControls - CheckedListBoxControl", False, False)
|
||||
LOGGER.Debug("DependingControls - CheckedListBoxControl", False, False)
|
||||
Dim checkedlistbox = DirectCast(dependingControl, DevExpress.XtraEditors.CheckedListBoxControl)
|
||||
If IsNothing(checkedlistbox) Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> checkedlistbox is Nothing - Attention.....", False, False)
|
||||
LOGGER.Debug("checkedlistbox is Nothing - Attention.....", False, False)
|
||||
End If
|
||||
ControlLoader.CheckedListBox.SetDataSource(checkedlistbox, dt)
|
||||
|
||||
@@ -511,7 +511,7 @@ Public Class ClassControlBuilder
|
||||
Try
|
||||
ControlLoader.Label.LoadValue(DirectCast(dependingControl, Label), 9999, 9999, dt.Rows(0).Item(0).ToString, True)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpectet Error in OnComboBoxValueChanged - Label: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpectet Error in OnComboBoxValueChanged - Label: " & ex.Message)
|
||||
End Try
|
||||
End If
|
||||
Case "TextBox"
|
||||
@@ -524,33 +524,33 @@ Public Class ClassControlBuilder
|
||||
|
||||
If Not IsNothing(id) Then
|
||||
If ClassControlCommandsUI.UpdateControlValue(dependingControlId, CURRENT_RECORD_ID, value1, CURRENT_ENTITY_ID) = True Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue'", False) '" & upd)
|
||||
LOGGER.Debug("Value was not nothing - Updated the ControlValue'", False) '" & upd)
|
||||
ControlsChanged.Remove(dependingControlId)
|
||||
Else
|
||||
ClassLogger.Add(String.Format(" >> ClassControlCommandsUI.UpdateControlValue (TextBox) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value1), False)
|
||||
LOGGER.Warn(String.Format("ClassControlCommandsUI.UpdateControlValue (TextBox) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value1), False)
|
||||
End If
|
||||
'Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", value1, USER_USERNAME, id)
|
||||
'If ClassDatabase.Execute_non_Query(upd) = True Then
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue '" & upd)
|
||||
' LOGGER.Debug("Value was not nothing - Updated the ControlValue '" & upd)
|
||||
'Else
|
||||
' ClassLogger.Add(" >> Check Update depending control value as it was nothing and Update was not successful - Update-Command '" & upd & "'")
|
||||
' Logger.Warn("Check Update depending control value as it was nothing and Update was not successful - Update-Command '" & upd & "'")
|
||||
'End If
|
||||
|
||||
Else
|
||||
If ClassControlCommandsUI.CreateControlProcedure(dependingControlId, CURRENT_RECORD_ID, value1, CURRENT_ENTITY_ID) = 1 Then
|
||||
ControlsChanged.Remove(dependingControlId)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue (TextBox)!", False)
|
||||
LOGGER.Debug("Value was nothing - Inserted the ControlValue (TextBox)!", False)
|
||||
Else
|
||||
ClassLogger.Add(String.Format(" >> ClassControlCommandsUI.InsertControlValue (TextBox) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value1), False)
|
||||
LOGGER.Warn(String.Format("ClassControlCommandsUI.InsertControlValue (TextBox) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value1), False)
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in OnComboBoxValueChanged - TextBox: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in OnComboBoxValueChanged - TextBox: " & ex.Message)
|
||||
End Try
|
||||
Else
|
||||
ClassLogger.Add(" >> Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'")
|
||||
LOGGER.Warn("Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'")
|
||||
End If
|
||||
Case "GridControl"
|
||||
Dim gridControl = DirectCast(dependingControl, DevExpress.XtraGrid.GridControl)
|
||||
@@ -920,7 +920,7 @@ Public Class ClassControlBuilder
|
||||
ControlLoader.DataGridViewCheckable.LoadValue(gridView.GridControl, values)
|
||||
IsCancelCheck = False
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in OnFilterChanged: " & ex.Message)
|
||||
LOGGER.Warn("Error in OnFilterChanged: " & ex.Message)
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
@@ -1956,7 +1956,7 @@ Public Class ClassControlBuilder
|
||||
|
||||
'End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected error in AutoCompleteComboKEyUp: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected error in AutoCompleteComboKEyUp: " & ex.Message)
|
||||
|
||||
End Try
|
||||
|
||||
@@ -2544,7 +2544,7 @@ Public Class ClassControlBuilder
|
||||
For Each Col As DataColumn In DT_ListBox.Columns
|
||||
colstring = colstring & ";" & Col.ColumnName
|
||||
Next
|
||||
ClassLogger.Add("Error in Binding CheckedListBox: " & ex.Message & " - Columns: " & colstring)
|
||||
LOGGER.Warn("Error in Binding CheckedListBox: " & ex.Message & " - Columns: " & colstring)
|
||||
control.DisplayMember = DT_ListBox.Columns(0).ColumnName
|
||||
End Try
|
||||
End If
|
||||
@@ -2574,7 +2574,7 @@ Public Class ClassControlBuilder
|
||||
Me.AddToPanel(control)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in AddCheckedListBox: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in AddCheckedListBox: " & ex.Message)
|
||||
MsgBox("Error in AddCheckedListBox: " + vbNewLine + ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@@ -106,7 +106,7 @@
|
||||
|
||||
SQL = $"INSERT INTO TBPMO_CONTROL (FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, COL_NAME, PARENT_CONTROL_ID, SQL_COMMAND_1) VALUES ({CURRENT_ENTITY_ID}, {CONTROL_TYPE_ID}, '', '{NAME}', '{NAME}', {PARENT_CONTROL_ID}, '')"
|
||||
|
||||
'If LogErrorsOnly = False Then ClassLogger.Add(SQL, True)
|
||||
'LOGGER.Debug(SQL)
|
||||
If ClassDatabase.Execute_non_Query(SQL) = True Then
|
||||
SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL"
|
||||
Dim GUID = ClassDatabase.Execute_Scalar(SQL)
|
||||
@@ -117,7 +117,7 @@
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in InsertControl: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in InsertControl: " & ex.Message)
|
||||
MsgBox("Unexpected Error in InsertControl:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
@@ -168,7 +168,7 @@
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in InsertControlScreen: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in InsertControlScreen: " & ex.Message)
|
||||
MsgBox("Unexpected Error in InsertControlScreen (Adding ViewProperties:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
@@ -193,7 +193,7 @@
|
||||
Throw New Exception()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in UpdateControlPosition: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in UpdateControlPosition: " & ex.Message)
|
||||
MsgBox("Unexpected Error in UpdateControlPosition:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
@@ -371,7 +371,7 @@
|
||||
Throw New Exception()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in UpdateControl: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in UpdateControl: " & ex.Message)
|
||||
MsgBox("Unexpected Error in UpdateControl:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
@@ -519,7 +519,7 @@
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in UpdateControlScreen: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in UpdateControlScreen: " & ex.Message)
|
||||
MsgBox("Unexpected Error in UpdateControlScreen:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
@@ -534,7 +534,7 @@
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Delete Control: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in Delete Control: " & ex.Message)
|
||||
MsgBox("Unexpected Error in Delete Control:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
@@ -554,7 +554,7 @@
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in DeleteControlScreen: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in DeleteControlScreen: " & ex.Message)
|
||||
MsgBox("Unexpected Error in DeleteControlScreen:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
@@ -570,7 +570,7 @@
|
||||
Throw New Exception()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in DeleteControlValues: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in DeleteControlValues: " & ex.Message)
|
||||
MsgBox("Unexpected Error in DeleteControlValues:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
@@ -346,7 +346,7 @@ Public Class ClassControlCommandsUI
|
||||
Function SaveRecord(RecordID As Integer, FormID As Integer, Optional foreignRecordID As Integer = 0) As String
|
||||
Try
|
||||
Dim ADDED_WHO As String = USER_USERNAME
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Update RecordID: " & RecordID, False)
|
||||
LOGGER.Debug("(SaveRecord) Update RecordID: " & RecordID, False)
|
||||
If UpdateAllControls(FormID, RecordID, _CtrlBuilder.AllControls) = True Then
|
||||
Return "Datensatz aktualisiert - " & Now
|
||||
Else
|
||||
@@ -513,7 +513,7 @@ Public Class ClassControlCommandsUI
|
||||
Console.WriteLine("Updating Control " + ctrl.Name)
|
||||
|
||||
Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id 'GetControlID_for_RecordID(ctrl.Name, RecordID)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> CONTROL_ID: " & CONTROL_ID, False)
|
||||
LOGGER.Debug("CONTROL_ID: " & CONTROL_ID, False)
|
||||
Dim CONTROL_VALUE As String = GetControlValue(ctrl)
|
||||
Dim controltype = ctrl.GetType.ToString
|
||||
If TypeOf ctrl Is PictureBox Then
|
||||
@@ -554,7 +554,7 @@ Public Class ClassControlCommandsUI
|
||||
'If CONTROL_ID = 995 Or CONTROL_ID = 996 Or CONTROL_ID = 997 Or CONTROL_ID = 810 Then
|
||||
' Console.WriteLine("sdasd")
|
||||
'End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE, False)
|
||||
LOGGER.Debug("InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE, False)
|
||||
If Not IsNothing(CONTROL_VALUE) Then
|
||||
If TypeOf ctrl Is CustomComboBox And CONTROL_VALUE = "" Then
|
||||
'Exit Sub - Zuviel des guten
|
||||
@@ -657,14 +657,14 @@ Public Class ClassControlCommandsUI
|
||||
|
||||
Dim type = ctrl.GetType().Name
|
||||
Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id ' GetControlID_for_RecordID(ctrl.Name, CURRENT_RECORD_ID)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> GetControlValue CONTROL_ID: " & CONTROL_ID, False)
|
||||
LOGGER.Debug("GetControlValue CONTROL_ID: " & CONTROL_ID, False)
|
||||
Dim CONTROL_VALUE As String = Nothing
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> type = " & type.ToString, False)
|
||||
LOGGER.Debug("type = " & type.ToString, False)
|
||||
Select Case type
|
||||
Case "TextBox"
|
||||
Return DirectCast(ctrl, TextBox).Text
|
||||
Case "CustomComboBox"
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Return Value: " & DirectCast(ctrl, CustomComboBox).Text, False)
|
||||
LOGGER.Debug("Return Value: " & DirectCast(ctrl, CustomComboBox).Text, False)
|
||||
Return DirectCast(ctrl, CustomComboBox).Text
|
||||
Case "CheckBox"
|
||||
Return DirectCast(ctrl, CheckBox).Checked.ToString()
|
||||
@@ -721,7 +721,7 @@ Public Class ClassControlCommandsUI
|
||||
If ClassDatabase.Execute_Scalar(SQL, True) = 1 Then
|
||||
SQL = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
|
||||
If ClassDatabase.Execute_non_Query(SQL) = True Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False)
|
||||
LOGGER.Debug("TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -749,14 +749,14 @@ Public Class ClassControlCommandsUI
|
||||
MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
If ClassRecordCommands.ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
|
||||
LOGGER.Debug("Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in CheckedListBoxGetControlValue: " & ex.Message, True)
|
||||
LOGGER.Warn("Error in CheckedListBoxGetControlValue: " & ex.Message)
|
||||
End Try
|
||||
|
||||
Next
|
||||
@@ -881,7 +881,7 @@ Public Class ClassControlCommandsUI
|
||||
Return Value
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Check_and_Format_Value: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Unexpected Error in Check_and_Format_Value: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in Check_and_Format_Value: " & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -915,7 +915,7 @@ Public Class ClassControlCommandsUI
|
||||
Catch ex As Exception
|
||||
Dim name = clsDatabase.Execute_Scalar("SELECT NAME FROM TBPMO_CONTROL WHERE GUID = " & ControlID, True)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CreateControlProcedure für Control: " & name)
|
||||
ClassLogger.Add("Error in CreateControlProcedure: " & ex.Message, True)
|
||||
LOGGER.Warn("Error in CreateControlProcedure: " & ex.Message, True)
|
||||
Return 0
|
||||
End Try
|
||||
End Function
|
||||
@@ -940,7 +940,7 @@ Public Class ClassControlCommandsUI
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in inserting Control-Value: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Unexpected Error in inserting Control-Value: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in inserting Control-Value: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -954,7 +954,7 @@ Public Class ClassControlCommandsUI
|
||||
Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}', CHANGE_STEP = {2} WHERE CONTROL_ID = {3} AND RECORD_ID = {4}",
|
||||
converted_value, CHANGED_WHO, CURRENT_CHANGE_STEP, ControlID, RecordID)
|
||||
If ControlID = 279 Or ControlID = 745 Then
|
||||
ClassLogger.Add(upd, False, False)
|
||||
LOGGER.Warn(upd)
|
||||
End If
|
||||
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
|
||||
If ClassDatabase.Execute_non_Query(upd) = True Then
|
||||
@@ -966,7 +966,7 @@ Public Class ClassControlCommandsUI
|
||||
Return ClassDatabase.Execute_non_Query(upd)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unerwarteter Fehler in UpdateControlValue: " & ex.Message, True)
|
||||
LOGGER.Warn("Unerwarteter Fehler in UpdateControlValue: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
@@ -39,7 +39,7 @@
|
||||
|
||||
Return AutoValue
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in LoadAutoValue: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in LoadAutoValue: " & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
|
||||
@@ -264,8 +264,8 @@
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in LoadValueMain:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Unexpected Error in LoadValueMain: " & ex.Message, True)
|
||||
ClassLogger.Add(String.Format("ControlID: {0}" & vbNewLine & "recordid: {1}" & vbNewLine & "parentRecordId: {2}" & vbNewLine & "value: {3}" & vbNewLine & "entity_ID: {4}" & vbNewLine & "VARIABLE_VALUE: {5}", ControlId, recordId, parentRecordId, value, entity_ID, VARIABLE_VALUE), False)
|
||||
LOGGER.Warn("Unexpected Error in LoadValueMain: " & ex.Message)
|
||||
LOGGER.Warn(String.Format("ControlID: {0}" & vbNewLine & "recordid: {1}" & vbNewLine & "parentRecordId: {2}" & vbNewLine & "value: {3}" & vbNewLine & "entity_ID: {4}" & vbNewLine & "VARIABLE_VALUE: {5}", ControlId, recordId, parentRecordId, value, entity_ID, VARIABLE_VALUE), False)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -281,7 +281,7 @@
|
||||
control.Checked = result
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in LoadValue1:" & vbNewLine & ex.Message)
|
||||
ClassLogger.Add("Unexpected Error in LoadValue1: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in LoadValue1: " & ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -297,7 +297,7 @@
|
||||
control.Checked = result
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in LoadValue2:" & vbNewLine & ex.Message)
|
||||
ClassLogger.Add("Unexpected Error in LoadValue2: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in LoadValue2: " & ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -368,7 +368,7 @@
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in LoadValue3:" & vbNewLine & ex.Message)
|
||||
ClassLogger.Add("Unexpected Error in LoadValue3: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in LoadValue3: " & ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -162,7 +162,7 @@ Public Class ClassControlValues
|
||||
sw.Done()
|
||||
|
||||
If controls.Count = 0 Then
|
||||
ClassLogger.Add("the control-Collection in LoadControlValuesNeu is empty!", True)
|
||||
LOGGER.Warn("the control-Collection in LoadControlValuesNeu is empty!")
|
||||
If (Not isGroupbox) Then
|
||||
ENTITY_RELOAD_AFT_CONTROL_LOAD = True
|
||||
End If
|
||||
@@ -205,7 +205,7 @@ Public Class ClassControlValues
|
||||
|
||||
sw.Done()
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in LoadControlValuesNeu: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in LoadControlValuesNeu: " & ex.Message)
|
||||
MsgBox("Error in LoadControlValuesNeu:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
@@ -223,7 +223,7 @@ Public Class ClassControlValues
|
||||
Return RESULT
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in GetControlValuesREC_CONTROL: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in GetControlValuesREC_CONTROL: " & ex.Message)
|
||||
MsgBox("Error in GetControlValuesREC_CONTROL:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return Nothing
|
||||
End Try
|
||||
@@ -276,8 +276,8 @@ Public Class ClassControlValues
|
||||
ControlLoader.Checkbox.LoadValue(checkbox, value)
|
||||
|
||||
Case GetType(RadioButton)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Sub LoadControlValueNeu - GetType(RadioButton) ", False)
|
||||
Dim radiobutton As RadioButton = DirectCast(control, RadioButton)
|
||||
LOGGER.Debug("Sub LoadControlValueNeu - GetType(RadioButton) ", False)
|
||||
Dim radiobutton As RadioButton = DirectCast(control, RadioButton)
|
||||
ControlLoader.RadioButton.LoadValue(radiobutton, value)
|
||||
|
||||
Case GetType(DevExpress.XtraEditors.DateEdit)
|
||||
@@ -305,12 +305,12 @@ Public Class ClassControlValues
|
||||
ControlLoader.DataGridViewCheckable.LoadValue(gridcontrol, values)
|
||||
Case Else
|
||||
If GetType(Control).ToString() <> "System.Windows.Forms.Control" Then
|
||||
ClassLogger.Add(" >> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False)
|
||||
End If
|
||||
LOGGER.Warn("Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False)
|
||||
End If
|
||||
|
||||
End Select
|
||||
'Catch ex As Exception
|
||||
' ClassLogger.Add("Unexpected Error in LoadControlValue: " & ex.Message, True)
|
||||
' Logger.Warn("Unexpected Error in LoadControlValue: " & ex.Message)
|
||||
' MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message)
|
||||
'End Try
|
||||
|
||||
@@ -322,7 +322,7 @@ Public Class ClassControlValues
|
||||
|
||||
If controls.Count = 0 Then
|
||||
'MsgBox("LoadControlValuesList: Control.ControlCollection is unexpected empty!", MsgBoxStyle.Exclamation)
|
||||
ClassLogger.Add("LoadControlValuesList: Control.ControlCollection is unexpected empty!")
|
||||
LOGGER.Warn("LoadControlValuesList: Control.ControlCollection is unexpected empty!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
@@ -380,7 +380,7 @@ Public Class ClassControlValues
|
||||
|
||||
sw.Done()
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in LoadControlValuesList: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in LoadControlValuesList: " & ex.Message)
|
||||
MsgBox("Unexpected Error in LoadControlValuesList:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
@@ -391,7 +391,7 @@ Public Class ClassControlValues
|
||||
Try
|
||||
If controls.Count = 0 Then
|
||||
'MsgBox("LoadControlValuesListWithPlaceholders: Control.ControlCollection is unexpected empty!", MsgBoxStyle.Exclamation)
|
||||
ClassLogger.Add("LoadControlValuesListWithPlaceholders: Control.ControlCollection is unexpected empty!")
|
||||
LOGGER.Warn("LoadControlValuesListWithPlaceholders: Control.ControlCollection is unexpected empty!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
@@ -428,7 +428,7 @@ Public Class ClassControlValues
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Getting Parent-Record cause PRecord was 0: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in Getting Parent-Record cause PRecord was 0: " & ex.Message)
|
||||
End Try
|
||||
End If
|
||||
|
||||
@@ -459,7 +459,7 @@ Public Class ClassControlValues
|
||||
Next
|
||||
sw.Done()
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in LoadControlValuesListWithPlaceholders: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in LoadControlValuesListWithPlaceholders: " & ex.Message)
|
||||
MsgBox("Unexpected Error in LoadControlValuesListWithPlaceholders:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
@@ -474,7 +474,7 @@ Public Class ClassControlValues
|
||||
Try
|
||||
If controls.Count = 0 Then
|
||||
'MsgBox("LoadControlValuesListWithPlaceholders: Control.ControlCollection is unexpected empty!", MsgBoxStyle.Exclamation)
|
||||
ClassLogger.Add("Enable_Depending_Controls: Control.ControlCollection is unexpected empty!")
|
||||
LOGGER.Warn("Enable_Depending_Controls: Control.ControlCollection is unexpected empty!")
|
||||
Exit Sub
|
||||
End If
|
||||
' Alle Controls finden, die Abhängigkeiten haben
|
||||
@@ -490,12 +490,12 @@ Public Class ClassControlValues
|
||||
|
||||
' Durchlaufe alle Controls, die eine Abhängigheit haben
|
||||
For Each row As DataRow In dt.Rows
|
||||
Dim msg = String.Format(" >> Working on Depending Control-ID: {0}", row.Item("GUID").ToString)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
|
||||
Dim msg = String.Format("Working on Depending Control-ID: {0}", row.Item("GUID").ToString)
|
||||
LOGGER.Debug(msg, False)
|
||||
Dim DependingControlId As Integer = row.Item("GUID")
|
||||
Dim DependingControlSQL As String = row.Item("SQL_COMMAND_2")
|
||||
msg = String.Format(" >> SQL: {0}", DependingControlSQL)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
|
||||
msg = String.Format("SQL: {0}", DependingControlSQL)
|
||||
LOGGER.Debug(msg, False)
|
||||
Dim DependingControl As Control = controls.OfType(Of Control)().Where(Function(c As Control)
|
||||
Return DirectCast(c.Tag, ClassControlMetadata).Id = DependingControlId
|
||||
End Function).SingleOrDefault()
|
||||
@@ -525,31 +525,31 @@ Public Class ClassControlValues
|
||||
' Jetzt lesen wir den Wert aus, der im SQL Command ersetzt werden soll
|
||||
Select Case otherControlType
|
||||
Case "CheckBox"
|
||||
msg = String.Format(" >> CheckBox-CtrlID: {0}", otherControlId)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
|
||||
msg = String.Format("CheckBox-CtrlID: {0}", otherControlId)
|
||||
LOGGER.Debug(msg, False)
|
||||
value = DirectCast(otherControl, CheckBox).Checked
|
||||
Case "TextBox"
|
||||
msg = String.Format(" >> TextBox-CtrlID: {0}", otherControlId)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
|
||||
msg = String.Format("TextBox-CtrlID: {0}", otherControlId)
|
||||
LOGGER.Debug(msg, False)
|
||||
value = DirectCast(otherControl, TextBox).Text
|
||||
Case "CustomComboBox"
|
||||
msg = String.Format(" >> CustomComboBox-CtrlID: {0}", otherControlId)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
|
||||
msg = String.Format("CustomComboBox-CtrlID: {0}", otherControlId)
|
||||
LOGGER.Debug(msg, False)
|
||||
value = DirectCast(otherControl, CustomComboBox).Text
|
||||
Case "DateEdit"
|
||||
msg = String.Format(" >> DateEdit-CtrlID: {0}", otherControlId)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
|
||||
msg = String.Format("DateEdit-CtrlID: {0}", otherControlId)
|
||||
LOGGER.Debug(msg, False)
|
||||
value = DirectCast(otherControl, DevExpress.XtraEditors.DateEdit).EditValue
|
||||
End Select
|
||||
|
||||
' Jetzt ersetzen wir den Platzhalter im SQL Command
|
||||
DependingControlSQL = regex.Replace(DependingControlSQL, value)
|
||||
msg = String.Format(" >> DependingControlSQL: {0}", DependingControlSQL)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
|
||||
msg = String.Format("DependingControlSQL: {0}", DependingControlSQL)
|
||||
LOGGER.Debug(msg, False)
|
||||
Dim enableDT As DataTable = ClassDatabase.Return_Datatable(DependingControlSQL)
|
||||
If IsNothing(enableDT) Then
|
||||
msg = String.Format(">> enableDT is nothing!! CHECK SQL {0}." & vbNewLine, DependingControlSQL)
|
||||
ClassLogger.Add(msg)
|
||||
msg = String.Format("enableDT is nothing!! CHECK SQL {0}." & vbNewLine, DependingControlSQL)
|
||||
LOGGER.Warn(msg)
|
||||
Continue For
|
||||
End If
|
||||
If enableDT.Rows.Count = 1 Then
|
||||
@@ -557,28 +557,28 @@ Public Class ClassControlValues
|
||||
Try
|
||||
enabled = CBool(enableDT.Rows(0).Item(0))
|
||||
Catch ex As Exception
|
||||
msg = String.Format(">> Could not convert value of tablecontent to boolean!! SQL {0} # tablecontent: {1}" & vbNewLine, DependingControlSQL, enableDT.Rows(0).Item(0).ToString)
|
||||
ClassLogger.Add(msg)
|
||||
msg = String.Format("Could not convert value of tablecontent to boolean!! SQL {0} # tablecontent: {1}" & vbNewLine, DependingControlSQL, enableDT.Rows(0).Item(0).ToString)
|
||||
LOGGER.Warn(msg)
|
||||
End Try
|
||||
|
||||
DependingControl.Enabled = enabled
|
||||
If enabled = False Then
|
||||
msg = String.Format(" >> Control {0} will be disabled." & vbNewLine, DependingControlId.ToString)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
|
||||
msg = String.Format("Control {0} will be disabled." & vbNewLine, DependingControlId.ToString)
|
||||
LOGGER.Debug(msg, False)
|
||||
Else
|
||||
msg = String.Format(" >> Control {0} will be enabled." & vbNewLine, DependingControlId.ToString)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
|
||||
msg = String.Format("Control {0} will be enabled." & vbNewLine, DependingControlId.ToString)
|
||||
LOGGER.Debug(msg, False)
|
||||
End If
|
||||
|
||||
Else
|
||||
ClassLogger.Add(" >> Attention in Enable_Depending_Controls: RowCount for enabling control was '" & enableDT.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & DependingControlSQL & "'")
|
||||
LOGGER.Warn("Attention in Enable_Depending_Controls: RowCount for enabling control was '" & enableDT.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & DependingControlSQL & "'")
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
sw.done
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Enable_Depending_Controls: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in Enable_Depending_Controls: " & ex.Message, True)
|
||||
MsgBox("Unexpected Error in Enable_Depending_Controls:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
@@ -591,7 +591,7 @@ Public Class ClassControlValues
|
||||
sqlCommand = sqlCommand.Replace("@PARENTRECORDID", parentRecordId)
|
||||
Return sqlCommand
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in ReplaceSqlCommandPlaceholders: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in ReplaceSqlCommandPlaceholders: " & ex.Message)
|
||||
MsgBox("Unexpected Error in ReplaceSqlCommandPlaceholders:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return sqlCommand
|
||||
End Try
|
||||
@@ -728,7 +728,7 @@ Public Class ClassControlValues
|
||||
Dim control As Control = controls.Find(controlName, False)(0)
|
||||
LoadDefaultValue(controlId, RecordID, Control, parentRecordID, EntityID, defaultValue)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in getting default value for control '" & controlName & " - " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in getting default value for control '" & controlName & " - " & ex.Message, True)
|
||||
End Try
|
||||
Next
|
||||
|
||||
@@ -884,7 +884,7 @@ Public Class ClassControlValues
|
||||
CURRENT_LAST_SQL = sql
|
||||
Return ClassDatabase.Execute_Scalar(sql)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in GetControlValueForControlID: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in GetControlValueForControlID: " & ex.Message)
|
||||
MsgBox("Error in GetControlValueForControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return Nothing
|
||||
End Try
|
||||
|
||||
@@ -21,7 +21,7 @@
|
||||
End If
|
||||
Return chk
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unhandled Exception in AddCheckBox: " & ex.Message, True)
|
||||
LOGGER.Warn("Unhandled Exception in AddCheckBox: " & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
|
||||
|
||||
@@ -39,7 +39,7 @@
|
||||
label = rowView.Item(1)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected error in OnDrawItem (datatable): " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected error in OnDrawItem (datatable): " & ex.Message)
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
@@ -31,7 +31,7 @@ Public Class ClassDOC_SEARCH
|
||||
OPTION4 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION4_CTRL")
|
||||
OPTION5 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION5_CTRL")
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> DT_RESULTLIST_SEL_VALUES.Rows.Count: " & DT_RESULTLIST_SEL_VALUES.Rows.Count, False)
|
||||
LOGGER.Debug("DT_RESULTLIST_SEL_VALUES.Rows.Count: " & DT_RESULTLIST_SEL_VALUES.Rows.Count, False)
|
||||
If DT_RESULTLIST_SEL_VALUES.Rows.Count = 0 Then
|
||||
VALUE_CONF1 = 0
|
||||
VALUE_CONF2 = 0
|
||||
@@ -209,7 +209,7 @@ Public Class ClassDOC_SEARCH
|
||||
"WHERE TR.FORM_ID = {1} AND TTEMP.USER_ID = {2} AND TRIGHTS.dwUserOrGroupID = {3}" & vbNewLine &
|
||||
"AND T.DocID IN ({6})", USER_LANGUAGE, ENTITY_ID, USER_GUID, USERID_FK_INT_ECM, OPTION1, OPTION2, sqlft)
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> SQL_DOC_SEARCH: " & SQL_DOC_SEARCH, False)
|
||||
LOGGER.Debug("SQL_DOC_SEARCH: " & SQL_DOC_SEARCH, False)
|
||||
If BG = True And CURRENT_SEARCH_TYPE = "ENTITY" Then
|
||||
If Not IsNothing(CURRENT_DT_DOC_ENTITY_SEARCH) Then
|
||||
Return CURRENT_DT_DOC_ENTITY_SEARCH
|
||||
@@ -230,7 +230,7 @@ Public Class ClassDOC_SEARCH
|
||||
|
||||
Return DTFILE_RESULT_ASYNC 'ClassDatabase.Return_Datatable(SQL_DOC_SEARCH, True)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in GET_DOCSEARCH_DATATABLE: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in GET_DOCSEARCH_DATATABLE: " & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -253,7 +253,7 @@ Public Class ClassDOC_SEARCH
|
||||
Dim DT_FILE_RESULT As DataTable = GET_DOCSEARCH_DATATABLE(BG)
|
||||
CURRENT_DOC_RESULTS = DT_FILE_RESULT
|
||||
If IsNothing(DT_FILE_RESULT) Then
|
||||
ClassLogger.Add(">> ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!", False)
|
||||
LOGGER.Warn("ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!", False)
|
||||
Return Nothing
|
||||
End If
|
||||
sw.Done()
|
||||
@@ -333,13 +333,13 @@ Public Class ClassDOC_SEARCH
|
||||
oDTGrid.Columns.Add(oColumn)
|
||||
ColCount += 1
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(String.Format("Unexpected Error in DTGrid.Columns.Add({0}) - CONSTR_DET_ID: {1} ", ColumnName, CURRENT_CONSTRUCTOR_DETAIL_ID) & ex.Message)
|
||||
LOGGER.Warn(String.Format("Unexpected Error in DTGrid.Columns.Add({0}) - CONSTR_DET_ID: {1} ", ColumnName, CURRENT_CONSTRUCTOR_DETAIL_ID) & ex.Message)
|
||||
End Try
|
||||
Next
|
||||
_step = "7.1"
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Construct Datatable: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in Construct Datatable: " & ex.Message)
|
||||
MsgBox("Unexpected Error in Construct Datatable for GridResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
sw.Done()
|
||||
@@ -411,9 +411,9 @@ Public Class ClassDOC_SEARCH
|
||||
Try
|
||||
rowvalue = FILE_ROW.Item(Colname)
|
||||
_step = "9.1 rowvalue for Colname [" & Colname & "]: [" & rowvalue.ToString & "]"
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> rowvalue for Colname [" & Colname & "]: [" & rowvalue.ToString & "]", False)
|
||||
LOGGER.Debug("rowvalue for Colname [" & Colname & "]: [" & rowvalue.ToString & "]", False)
|
||||
Catch ex As Exception
|
||||
If CURRENT_SEARCH_TYPE = "RECORD" Then ClassLogger.Add("Unexpected Error in GetVariableValue for Column '" & Colname & "'- Error: " & ex.Message)
|
||||
If CURRENT_SEARCH_TYPE = "RECORD" Then LOGGER.Warn("Unexpected Error in GetVariableValue for Column '" & Colname & "'- Error: " & ex.Message)
|
||||
If Colname.ToString.StartsWith("doct") Or Colname.ToString.StartsWith("Dokum") Then
|
||||
rowvalue = ""
|
||||
Else
|
||||
@@ -426,7 +426,7 @@ Public Class ClassDOC_SEARCH
|
||||
End If
|
||||
End Try
|
||||
_step = "9.2 now: NewRow.Item(i) = rowvalue.ToString..."
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("9.2 now: NewRow.Item(i) = rowvalue.ToString...", False)
|
||||
LOGGER.Debug("9.2 now: NewRow.Item(i) = rowvalue.ToString...", False)
|
||||
Try
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -435,21 +435,21 @@ Public Class ClassDOC_SEARCH
|
||||
|
||||
Try
|
||||
'If oDTGrid.Columns(i).DataType.ToString = "System.DateTime" And rowvalue = String.Empty Then
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add("rowvalue Is empty and Column is Datetime...", False)
|
||||
' LOGGER.Debug("rowvalue Is empty and Column is Datetime...", False)
|
||||
'Else
|
||||
oNewRow.Item(i) = rowvalue.ToString
|
||||
'End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in advising value to rowitem (oNewRow.Item(i) = rowvalue.ToString): " + ex.Message, False)
|
||||
ClassLogger.Add("Type of column: " + oDTGrid.Columns(i).DataType.ToString(), False)
|
||||
LOGGER.Warn("Error in advising value to rowitem (oNewRow.Item(i) = rowvalue.ToString): " + ex.Message, False)
|
||||
LOGGER.Warn("Type of column: " + oDTGrid.Columns(i).DataType.ToString(), False)
|
||||
End Try
|
||||
|
||||
i += 1
|
||||
Next
|
||||
oDTGrid.Rows.Add(oNewRow)
|
||||
' Catch ex As Exception
|
||||
' ClassLogger.Add("Unexpected Error in CreateRow for doc '" & filename & "- Error: " & ex.Message)
|
||||
' Logger.Warn("Unexpected Error in CreateRow for doc '" & filename & "- Error: " & ex.Message)
|
||||
' End Try
|
||||
Next
|
||||
_step = "10"
|
||||
@@ -459,7 +459,7 @@ Public Class ClassDOC_SEARCH
|
||||
sw.Done()
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Get_DOC_RESULTTABLE (Step " & _step & "): " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Unexpected Error in Get_DOC_RESULTTABLE (Step " & _step & "): " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in Get_DOC_RESULTTABLE (Step " & _step & "): " & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -496,7 +496,7 @@ Public Class ClassDOC_SEARCH
|
||||
MsgBox("No Record selected - Please select one!", MsgBoxStyle.Exclamation)
|
||||
Return False
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("#### SETTING RIGHTS FOR FILE ######", False)
|
||||
LOGGER.Debug("#### SETTING RIGHTS FOR FILE ######", False)
|
||||
If ClassWDRights.Init = True Then
|
||||
If ClassWDRights.Doc_Renew_Rights(RESULT_DOCID, RESULT_DOC_PATH, True) Then
|
||||
If ClassWDRights.MSG_RESULT <> "" Then
|
||||
@@ -573,7 +573,7 @@ Public Class ClassDOC_SEARCH
|
||||
End Select
|
||||
|
||||
Catch ex As Exception
|
||||
clsLogger.Add("Unexpected Error in Get_File_Rights: " & ex.Message, True)
|
||||
clsLogger.Add("Unexpected Error in Get_File_Rights: " & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
@@ -14,7 +14,7 @@ Public Class ClassDatabase
|
||||
SQLconnect.Close()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in DatabaseInit: " & ex.Message, True)
|
||||
LOGGER.Warn("Error in DatabaseInit: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -52,15 +52,15 @@ Public Class ClassDatabase
|
||||
Dim conn As New OdbcConnection("dsn=" & DTConnection.Rows(0).Item("SERVER") & ";uid=" & DTConnection.Rows(0).Item("USERNAME") & ";pwd=" + DTConnection.Rows(0).Item("PASSWORD"))
|
||||
connectionString = conn.ConnectionString
|
||||
Case Else
|
||||
ClassLogger.Add(" - ConnectionType nicht integriert", False)
|
||||
LOGGER.Warn("ConnectionType nicht integriert")
|
||||
MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!")
|
||||
End Select
|
||||
Else
|
||||
ClassLogger.Add(" No entry for Connection-ID: " & id.ToString, True)
|
||||
LOGGER.Warn(" No entry for Connection-ID: " & id.ToString)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Error in bei GetConnectionString - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Error in bei GetConnectionString - Fehler: " & vbNewLine & ex.Message)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetConnectionString:")
|
||||
End Try
|
||||
Return connectionString
|
||||
@@ -84,7 +84,7 @@ Public Class ClassDatabase
|
||||
SQLconnect.Open()
|
||||
SQLcommand = SQLconnect.CreateCommand
|
||||
SQLcommand.CommandText = Select_anweisung
|
||||
SQLcommand.CommandTimeout = 180
|
||||
SQLcommand.CommandTimeout = 360
|
||||
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
|
||||
Dim dt As DataTable = New DataTable()
|
||||
|
||||
@@ -96,9 +96,9 @@ Public Class ClassDatabase
|
||||
Return dt
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Return_Datatable: " & ex.Message & vbNewLine & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
|
||||
ClassHelper.InsertEssential_Log(CURRENT_RECORD_ID, "RECORD-ID", ex.Message & " - SQL: " & Select_anweisung)
|
||||
ClassLogger.Add("Error in Return_Datatable: " & ex.Message, True)
|
||||
ClassLogger.Add(">> SQL: " & Select_anweisung, False)
|
||||
' ClassHelper.InsertEssential_Log(CURRENT_RECORD_ID, "RECORD-ID", ex.Message & " - SQL: " & Select_anweisung)
|
||||
LOGGER.Warn("Error in Return_Datatable: " & ex.Message)
|
||||
LOGGER.Warn("SQL: " & Select_anweisung)
|
||||
If (ex.Message.Contains("Ungültiger Objektname") Or ex.Message.Contains("Invalid Object Name")) And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
|
||||
MsgBox("A database-object could not be found but synchronization of Proxyserver might be in action! So please try again in a few seconds/minutes!", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
@@ -136,7 +136,7 @@ Public Class ClassDatabase
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in MSSQL_ReturnDTWithConnection: " & vbNewLine & ex.Message & vbNewLine & vbNewLine & sql)
|
||||
LOGGER.Warn("Unexpected Error in MSSQL_ReturnDTWithConnection: " & vbNewLine & ex.Message & vbNewLine & vbNewLine & sql)
|
||||
MsgBox("Unexpected Error in MSSQL_ReturnDTWithConnection:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & sql, MsgBoxStyle.Critical)
|
||||
Return Nothing
|
||||
End Try
|
||||
@@ -164,8 +164,8 @@ Public Class ClassDatabase
|
||||
If userInput = True Then
|
||||
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
|
||||
End If
|
||||
ClassLogger.Add("Error in Return_Datatable_CS: " & ex.Message, True)
|
||||
ClassLogger.Add("#SQL: " & Select_anweisung, False)
|
||||
LOGGER.Warn("Error in Return_Datatable_CS: " & ex.Message)
|
||||
LOGGER.Warn("#SQL: " & Select_anweisung)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -199,8 +199,8 @@ Public Class ClassDatabase
|
||||
If userInput = True Then
|
||||
MsgBox("Error in Return_Datatable_Connection - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
|
||||
End If
|
||||
ClassLogger.Add("Error in Return_Datatable_Connection: " & ex.Message)
|
||||
ClassLogger.Add("#SQL: " & Select_anweisung)
|
||||
LOGGER.Warn("Error in Return_Datatable_Connection: " & ex.Message)
|
||||
LOGGER.Warn("#SQL: " & Select_anweisung)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -231,8 +231,8 @@ Public Class ClassDatabase
|
||||
'If Userinput = True Then
|
||||
' MsgBox("Error in Execute_non_Query: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
|
||||
'End If
|
||||
ClassLogger.Add("Error in Execute_non_Query: " & ex.Message)
|
||||
ClassLogger.Add("SQL: " & ExecuteCMD)
|
||||
LOGGER.Warn("Error in Execute_non_Query: " & ex.Message)
|
||||
LOGGER.Warn("SQL: " & ExecuteCMD)
|
||||
|
||||
Return False
|
||||
End Try
|
||||
@@ -266,8 +266,8 @@ Public Class ClassDatabase
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in Execute_non_Query_withConn: " & ex.Message, True)
|
||||
ClassLogger.Add("SQL: " & ExecuteCMD, False)
|
||||
LOGGER.Warn("Error in Execute_non_Query_withConn: " & ex.Message)
|
||||
LOGGER.Warn("SQL: " & ExecuteCMD)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -294,8 +294,8 @@ Public Class ClassDatabase
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in Execute_non_Query_withConnString: " & ex.Message, True)
|
||||
ClassLogger.Add("SQL: " & ExecuteCMD, False)
|
||||
LOGGER.Warn("Error in Execute_non_Query_withConnString: " & ex.Message)
|
||||
LOGGER.Warn("SQL: " & ExecuteCMD)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -318,8 +318,8 @@ Public Class ClassDatabase
|
||||
If Userinput = True Then
|
||||
MsgBox("Error in Execute_non_Query_Async: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
|
||||
End If
|
||||
ClassLogger.Add("Error in Execute_non_Query_Async: " & ex.Message, True)
|
||||
ClassLogger.Add("SQL: " & ExecuteCMD, False)
|
||||
LOGGER.Warn("Error in Execute_non_Query_Async: " & ex.Message)
|
||||
LOGGER.Warn("SQL: " & ExecuteCMD)
|
||||
Finally
|
||||
SQLcommand.Dispose()
|
||||
SQLconnect.Close()
|
||||
@@ -330,7 +330,7 @@ Public Class ClassDatabase
|
||||
Dim command As SqlClient.SqlCommand = CType(result.AsyncState, SqlClient.SqlCommand)
|
||||
Dim res = command.EndExecuteNonQuery(result)
|
||||
|
||||
ClassLogger.Add(String.Format("Finished executing Async database operation: {0}", command.CommandText), False)
|
||||
LOGGER.Warn(String.Format("Finished executing Async database operation: {0}", command.CommandText))
|
||||
End Sub
|
||||
|
||||
Public Shared Function Execute_Scalar(cmdscalar As String, Optional USE_PROXY As Boolean = False)
|
||||
@@ -364,8 +364,8 @@ Public Class ClassDatabase
|
||||
'If Userinput = True Then
|
||||
' MsgBox("Error in Execute_Scalar: " & ex.Message & vbNewLine & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
|
||||
'End If
|
||||
ClassLogger.Add("Error in Execute_Scalar: " & ex.Message, True)
|
||||
ClassLogger.Add("SQL: " & cmdscalar, False)
|
||||
LOGGER.Warn("Error in Execute_Scalar: " & ex.Message)
|
||||
LOGGER.Warn("SQL: " & cmdscalar)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -390,13 +390,13 @@ Public Class ClassDatabase
|
||||
Return result
|
||||
Else
|
||||
MsgBox("No Connection for ID: " & connectionId & " - ExecuteScalar: " & cmdscalar, MsgBoxStyle.Exclamation)
|
||||
ClassLogger.Add("No Connection for ID: " & connectionId & " - ExecuteScalar: " & cmdscalar)
|
||||
LOGGER.Warn("No Connection for ID: " & connectionId & " - ExecuteScalar: " & cmdscalar)
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in Execute_ScalarWithConnection: " & ex.Message, True)
|
||||
ClassLogger.Add("SQL: " & cmdscalar, False)
|
||||
LOGGER.Warn("Error in Execute_ScalarWithConnection: " & ex.Message)
|
||||
LOGGER.Warn("SQL: " & cmdscalar)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -417,8 +417,8 @@ Public Class ClassDatabase
|
||||
SQLconnect.Close()
|
||||
Return result
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in Execute_ScalarWithConnectionString: " & ex.Message, True)
|
||||
ClassLogger.Add("SQL: " & cmdscalar, False)
|
||||
LOGGER.Warn("Error in Execute_ScalarWithConnectionString: " & ex.Message)
|
||||
LOGGER.Warn("SQL: " & cmdscalar)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -438,8 +438,8 @@ Public Class ClassDatabase
|
||||
SQLconnect.Close()
|
||||
Return result
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in OracleExecute_Scalar: " & ex.Message, True)
|
||||
ClassLogger.Add("#SQL: " & cmdscalar, False)
|
||||
LOGGER.Warn("Error in OracleExecute_Scalar: " & ex.Message)
|
||||
LOGGER.Warn("#SQL: " & cmdscalar)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -460,8 +460,8 @@ Public Class ClassDatabase
|
||||
If userInput = True Then
|
||||
MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
|
||||
End If
|
||||
ClassLogger.Add("Error in OracleExecute_non_Query: " & ex.Message, True)
|
||||
ClassLogger.Add("#SQL: " & ExecuteCMD, False)
|
||||
LOGGER.Warn("Error in OracleExecute_non_Query: " & ex.Message)
|
||||
LOGGER.Warn("#SQL: " & ExecuteCMD)
|
||||
|
||||
Return False
|
||||
End Try
|
||||
@@ -485,8 +485,8 @@ Public Class ClassDatabase
|
||||
If userInput = True Then
|
||||
MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
|
||||
End If
|
||||
ClassLogger.Add("Error in Oracle_Return_Datatable: " & ex.Message, True)
|
||||
ClassLogger.Add("#SQL: " & Select_anweisung, False)
|
||||
LOGGER.Warn("Error in Oracle_Return_Datatable: " & ex.Message)
|
||||
LOGGER.Warn("#SQL: " & Select_anweisung)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
@@ -5,7 +5,7 @@ Public Class ClassDragDrop
|
||||
Public Shared files_dropped As String()
|
||||
Public Shared Function Drop_File(e As DragEventArgs)
|
||||
Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> In Drop_File....", False)
|
||||
LOGGER.Debug("In Drop_File....")
|
||||
files_dropped = Nothing
|
||||
|
||||
Dim sql As String = "DELETE FROM TBPMO_FILES_USER WHERE HANDLE_TYPE <> 'SCAN' AND UPPER(USER_WORK) = UPPER('" & USER_USERNAME & "')"
|
||||
@@ -13,14 +13,14 @@ Public Class ClassDragDrop
|
||||
|
||||
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Simple File Drop", False)
|
||||
LOGGER.Debug("Simple File Drop")
|
||||
Dim MyFiles() As String
|
||||
Dim i As Integer
|
||||
' Assign the files to an array.
|
||||
MyFiles = e.Data.GetData(DataFormats.FileDrop)
|
||||
' Loop through the array and add the files to the list.
|
||||
For i = 0 To MyFiles.Length - 1
|
||||
ClassLogger.Add(">> Simple FileDrop - File: " & MyFiles(i), False)
|
||||
LOGGER.Info("Simple FileDrop - File: " & MyFiles(i))
|
||||
ReDim Preserve files_dropped(i)
|
||||
files_dropped(i) = "@DROPFROMFSYSTEM@" & MyFiles(i)
|
||||
' ListBox1.Items.Add(MyFiles(i))
|
||||
@@ -60,7 +60,7 @@ Public Class ClassDragDrop
|
||||
'// get the actual raw file into memory
|
||||
Dim msInput As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), IO.MemoryStream) 'This returns nothing for an Email
|
||||
If msInput Is Nothing = False Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Drag of Outlook Attachment", False)
|
||||
LOGGER.Debug("Drag of Outlook Attachment")
|
||||
'// allocate enough bytes to hold the raw date
|
||||
Dim aryFileBytes(CType(msInput.Length, Int32)) As Byte
|
||||
'// set starting position at first byte and read in the raw data
|
||||
@@ -79,17 +79,17 @@ Public Class ClassDragDrop
|
||||
If (finTemp.Exists = True) Then
|
||||
ReDim Preserve files_dropped(0)
|
||||
files_dropped(0) = "@OUTLOOK_ATTACHMENT@" & strOutFile
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Drop an Attachment - File: " & strOutFile, False)
|
||||
LOGGER.Debug("Drop an Attachment - File: " & strOutFile)
|
||||
Return True
|
||||
Else
|
||||
ClassLogger.Add(">> Attachment File from Outlook could not be created", False)
|
||||
LOGGER.Warn("Attachment File from Outlook could not be created")
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(">> No simple drag and drop.", True, False)
|
||||
LOGGER.Warn("No simple drag and drop.", True)
|
||||
For Each fmt As String In e.Data.GetFormats()
|
||||
' Output format name and type
|
||||
ClassLogger.Add(">> e.Data is: " & fmt + " (" +
|
||||
e.Data.GetData(fmt).ToString() + ")", True, False)
|
||||
LOGGER.Warn("e.Data is: " & fmt + " (" +
|
||||
e.Data.GetData(fmt).ToString() + ")", True)
|
||||
Next
|
||||
|
||||
End If
|
||||
@@ -102,7 +102,7 @@ Public Class ClassDragDrop
|
||||
MsgBox("Unexpected error in Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For")
|
||||
Return False
|
||||
End Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Drop of msg", False)
|
||||
LOGGER.Debug("Drop of msg")
|
||||
'supports a drop of a Outlook message
|
||||
Dim myobj As Object
|
||||
For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
|
||||
@@ -123,7 +123,7 @@ Public Class ClassDragDrop
|
||||
strFile = strFile.Replace("!", "")
|
||||
strFile = strFile.Replace("%", "")
|
||||
strFile = strFile.Replace("$", "")
|
||||
ClassLogger.Add(">> Drop of msg - File:" & strFile, False)
|
||||
LOGGER.Info("Drop of msg - File:" & strFile)
|
||||
Try
|
||||
myobj.SaveAs(strFile)
|
||||
Catch ex As Exception
|
||||
@@ -156,22 +156,22 @@ Public Class ClassDragDrop
|
||||
My.Settings.WD_INDEXDOKART_SAVE = ""
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
e.Effect = DragDropEffects.All
|
||||
If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... SimpleFileDrop", False)
|
||||
LOGGER.Debug("DragEnter ... SimpleFileDrop")
|
||||
'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... SimpleFileDrop")
|
||||
ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
|
||||
e.Effect = DragDropEffects.Copy
|
||||
'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... Attachment from Outlook")
|
||||
If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Attachment from Outlook", False)
|
||||
LOGGER.Debug("DragEnter ... Attachment from Outlook")
|
||||
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
|
||||
'handle a message dragged from Outlook
|
||||
e.Effect = DragDropEffects.Copy
|
||||
'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... OutlookMessage")
|
||||
If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... OutlookMessage", False)
|
||||
LOGGER.Debug("DragEnter ... OutlookMessage")
|
||||
Else
|
||||
'otherwise, do not handle
|
||||
e.Effect = DragDropEffects.Copy
|
||||
'frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Other FileFormat")
|
||||
If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Other FileFormat", False)
|
||||
LOGGER.Debug("DragEnter ... Other FileFormat")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
|
||||
@@ -63,17 +63,11 @@ Public Class ClassEmail
|
||||
"<br>>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " & _
|
||||
My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
|
||||
' create and add the attachment(s) */
|
||||
Dim logfile = ClassLogger.logDateiname
|
||||
If logfile Is Nothing Then
|
||||
MsgBox("Logging was not initiated", MsgBoxStyle.Exclamation)
|
||||
Return False
|
||||
End If
|
||||
|
||||
If logfile.Contains("\\") Then
|
||||
logfile = logfile.Replace("\\", "\")
|
||||
End If
|
||||
If IO.File.Exists(logfile) Then
|
||||
Dim Attachment As Attachment = New Attachment(logfile)
|
||||
|
||||
|
||||
If IO.File.Exists(LOGCONFIG.LogFile) Then
|
||||
Dim Attachment As Attachment = New Attachment(LOGCONFIG.LogFile)
|
||||
message.Attachments.Add(Attachment)
|
||||
End If
|
||||
|
||||
@@ -93,7 +87,7 @@ Public Class ClassEmail
|
||||
'*Send the message */
|
||||
emailClient.Send(message)
|
||||
|
||||
'ClassLogger.Add(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
|
||||
'Logger.Warn("Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
|
||||
Next
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
|
||||
@@ -20,7 +20,7 @@
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Set_InWork: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in Set_InWork: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -37,7 +37,7 @@
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Set_Displayname: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in Set_Displayname: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -45,11 +45,11 @@
|
||||
Try
|
||||
Dim sql = String.Format("SELECT * FROM TBPMO_INDEX_MAN WHERE ACTIVE = 1 AND ENTITY_ID = (SELECT CASE REDUNDANT_ENTITY WHEN 0 THEN GUID ELSE REDUNDANT_ENTITY END AS ENTITY_ID FROM TBPMO_FORM WHERE GUID = {0}) AND DOCTYPE_ID = {1}", CURRENT_ENTITY_ID, CURRENT_DOKARTID)
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> GET_DATATABLE_INDICES_PMO: " & sql, False)
|
||||
LOGGER.Debug("GET_DATATABLE_INDICES_PMO: " & sql, False)
|
||||
CURRENT_TBPMO_INDEX_MAN = DT
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in GET_DATATABLE_INDICES_PMO: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in GET_DATATABLE_INDICES_PMO: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -68,7 +68,7 @@
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in SET_DOCID_INDICES: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in SET_DOCID_INDICES: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -77,7 +77,7 @@
|
||||
Dim delete As String = String.Format("DELETE FROM TBPMO_DOC_INDICES WHERE DocID = {0}", DocID)
|
||||
Return ClassDatabase.Execute_non_Query(delete)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Update_Doc_Indices: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in Update_Doc_Indices: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -94,7 +94,7 @@
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(String.Format("Unexpected Error in Delete_ResultFile: ({0},{1},{2})", RESULT_DOC_ID, RECORD_ID, DELETE_FILE) & ex.Message)
|
||||
LOGGER.Warn(String.Format("Unexpected Error in Delete_ResultFile: ({0},{1},{2})", RESULT_DOC_ID, RECORD_ID, DELETE_FILE) & ex.Message)
|
||||
MsgBox("Unexpected Error in Delete ResultFile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
@@ -102,7 +102,7 @@
|
||||
Public Shared Function CheckWrite_IndexeMan(grbxControls As GroupBox)
|
||||
'#### Zuerst manuelle Werte indexieren ####
|
||||
Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >>In CheckWrite_IndexeMan", False)
|
||||
LOGGER.Debug(" >>In CheckWrite_IndexeMan", False)
|
||||
Dim result As Boolean = False
|
||||
For Each ctrl As Control In grbxControls.Controls
|
||||
' ' MsgBox(ctrl.Name)
|
||||
@@ -125,7 +125,7 @@
|
||||
End If
|
||||
Else
|
||||
'If Indexwert_checkValueDB(Replace(box.Name, "txt", ""), box.Text) = False Then
|
||||
' ClassLogger.Add(" - Der eingegebene Wert wurde nicht in der Datenbank gefunden", False)
|
||||
' Logger.Warn(" - Der eingegebene Wert wurde nicht in der Datenbank gefunden", False)
|
||||
' MsgBox("Der eingegebene Wert wurde nicht in der Datenbank gefunden!", MsgBoxStyle.Exclamation, "Fehlerhafte Indexierung:")
|
||||
' box.Focus()
|
||||
' Return False
|
||||
@@ -145,10 +145,10 @@
|
||||
For Each row As DataRow In CURRENT_TBPMO_INDEX_MAN.Rows
|
||||
If row.Item("GUID") = btn.Tag Then
|
||||
If Not IsDBNull(row.Item("MAN_VALUE")) Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> we got a value for folder...", False)
|
||||
LOGGER.Debug("we got a value for folder...", False)
|
||||
result = True
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> value for folder is missing...", False)
|
||||
LOGGER.Debug("value for folder is missing...", False)
|
||||
MsgBox("Please choose a folder!", MsgBoxStyle.Exclamation, "Missing input:")
|
||||
Return False
|
||||
End If
|
||||
@@ -157,7 +157,7 @@
|
||||
|
||||
Next
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> value for folder is OPTIONAL...", False)
|
||||
LOGGER.Debug("value for folder is OPTIONAL...", False)
|
||||
SET_CURRENT_TBPMO_INDEX_MAN_VALUE(btn.Tag, "")
|
||||
result = True
|
||||
End If
|
||||
@@ -198,7 +198,7 @@
|
||||
result = True
|
||||
End If
|
||||
If ctrl.Name.StartsWith("lbl") = False And result = False Then
|
||||
ClassLogger.Add("Die Überprüfung der manuellen Indices ist fehlerhaft. Bitte informieren Sie den Systembetreuer", True)
|
||||
LOGGER.Warn("Die Überprüfung der manuellen Indices ist fehlerhaft. Bitte informieren Sie den Systembetreuer", True)
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
@@ -207,7 +207,7 @@
|
||||
Return True
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Unvorhergesehener Fehler in CheckWrite_IndexeMan - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Unvorhergesehener Fehler in CheckWrite_IndexeMan - Fehler: " & vbNewLine & ex.Message)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Unexpected error in CheckWrite_IndexeMan:")
|
||||
Return False
|
||||
End Try
|
||||
@@ -222,7 +222,7 @@
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Unvorhergesehener Fehler in SET_CURRENT_TBPMO_INDEX_MAN_VALUE - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Unvorhergesehener Fehler in SET_CURRENT_TBPMO_INDEX_MAN_VALUE - Fehler: " & vbNewLine & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
@@ -15,7 +15,7 @@ Public Class ClassFolderWatcher
|
||||
FWSCAN_started = False
|
||||
'FolderWatch neu instanzieren
|
||||
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
|
||||
ClassLogger.Add(" >> FolderWatchScan neu instanziert", False)
|
||||
LOGGER.Warn("FolderWatchScan neu instanziert")
|
||||
FolderWatcher_SCAN.IncludeSubdirectories = CURRENT_SCAN_FOLDERWATCH_SD
|
||||
FolderWatcher_SCAN.EnableRaisingEvents = True
|
||||
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
|
||||
@@ -36,7 +36,7 @@ Public Class ClassFolderWatcher
|
||||
End If
|
||||
If FolderWatcher_SCAN Is Nothing Then
|
||||
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
|
||||
ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
|
||||
LOGGER.Info("FolderWatch Scan Gestartet")
|
||||
FolderWatcher_SCAN.IncludeSubdirectories = CURRENT_SCAN_FOLDERWATCH_SD
|
||||
FolderWatcher_SCAN.EnableRaisingEvents = True
|
||||
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
|
||||
@@ -48,7 +48,7 @@ Public Class ClassFolderWatcher
|
||||
' Dim watcher As New FileSystemWatcher()
|
||||
' watcher.Path = CURRENT_FOLDERWATCH
|
||||
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
|
||||
ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
|
||||
LOGGER.Info("FolderWatch Scan Gestartet")
|
||||
FolderWatcher_SCAN.IncludeSubdirectories = CURRENT_SCAN_FOLDERWATCH_SD
|
||||
FolderWatcher_SCAN.EnableRaisingEvents = True
|
||||
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
|
||||
@@ -59,7 +59,7 @@ Public Class ClassFolderWatcher
|
||||
'Gestartet also Stoppen
|
||||
FolderWatcher_SCAN.EnableRaisingEvents = False
|
||||
FWSCAN_started = False
|
||||
ClassLogger.Add(" >> FolderWatch Scan gestoppt", False)
|
||||
LOGGER.Info("FolderWatch Scan gestoppt")
|
||||
SaveMySettingsValue("FWSCAN_started", "False", "ConfigMain")
|
||||
Return 0
|
||||
End If
|
||||
@@ -85,7 +85,7 @@ Public Class ClassFolderWatcher
|
||||
handleType = "SCAN"
|
||||
End If
|
||||
'Die Datei übergeben
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> OnCreated-File:" & e.FullPath, False)
|
||||
LOGGER.Debug("OnCreated-File:" & e.FullPath)
|
||||
If FileExistsinDropTable(CURRENT_FILENAME) = False Then
|
||||
Insert_USER_File(e.FullPath, handleType)
|
||||
Else
|
||||
|
||||
@@ -83,7 +83,7 @@ Public Class ClassGridFormatter
|
||||
clonedDT.Load(DT.CreateDataReader)
|
||||
Return clonedDT
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in FormatDatatable: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in FormatDatatable: " & ex.Message)
|
||||
Return DT
|
||||
End Try
|
||||
End Function
|
||||
@@ -153,7 +153,7 @@ Public Class ClassGridFormatter
|
||||
Dim list As New List(Of String)
|
||||
' Alle Currency Felder für aktuelle Ansicht heraussuchen
|
||||
Dim sql As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 2 AND FORMAT_TYPE = 'Currency' AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId
|
||||
Dim dt As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID = 2 AND FORMAT_TYPE = 'Currency' AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "") 'ClassDatabase.Return_Datatable(sql, True)
|
||||
Dim dt As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID = 2 AND FORMAT_TYPE = 'Currency' AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "")
|
||||
|
||||
For Each row As DataRow In dt.Rows
|
||||
list.Add(row.Item("COL_NAME"))
|
||||
@@ -161,7 +161,7 @@ Public Class ClassGridFormatter
|
||||
|
||||
Return list
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in GetCurrencyColumns: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in GetCurrencyColumns: " & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -171,7 +171,7 @@ Public Class ClassGridFormatter
|
||||
Dim listcheck As New List(Of String)
|
||||
' Alle Checkboxen für aktuelle Ansicht heraussuchen
|
||||
' Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId
|
||||
Dim dtcheck As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID in (10,11) AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "") ' ClassDatabase.Return_Datatable(sqlcheck, True)
|
||||
Dim dtcheck As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID in (10,11) AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "")
|
||||
'Liste von allen Spaltentiteln mit Checkbox erstellen
|
||||
If dtcheck.Rows.Count > 0 Then
|
||||
For Each row As DataRow In dtcheck.Rows
|
||||
@@ -181,7 +181,7 @@ Public Class ClassGridFormatter
|
||||
listcheck.Add("files?")
|
||||
Return listcheck
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in GetCheckboxColumns: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in GetCheckboxColumns: " & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -190,7 +190,7 @@ Public Class ClassGridFormatter
|
||||
Dim listdate As New List(Of String)
|
||||
' Alle Checkboxen für aktuelle Ansicht heraussuchen
|
||||
' Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 4 AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId
|
||||
Dim dtdate As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID = 4 AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "") 'ClassDatabase.Return_Datatable(sqlcheck, True)
|
||||
Dim dtdate As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID = 4 AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "")
|
||||
|
||||
'Liste von allen Spaltentiteln mit Checkbox erstellen
|
||||
If dtdate.Rows.Count > 0 Then
|
||||
@@ -200,7 +200,7 @@ Public Class ClassGridFormatter
|
||||
End If
|
||||
Return listdate
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in GetCheckboxColumns: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in GetCheckboxColumns: " & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -248,7 +248,7 @@ End Class
|
||||
' tbltemp.Load(Primary_DT.CreateDataReader)
|
||||
' Return tbltemp
|
||||
' Catch ex As Exception
|
||||
' ClassLogger.Add(">> Attention: Format_GridColumns - Could not load converted datatable: " & ex.Message, False)
|
||||
' Logger.Warn("Attention: Format_GridColumns - Could not load converted datatable: " & ex.Message)
|
||||
' 'Tabelle wird ohne Datekonvertierung geladen
|
||||
' Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "Load_Entity_Data_Only")
|
||||
' Dim primaryKey(1) As DataColumn
|
||||
@@ -258,7 +258,7 @@ End Class
|
||||
' End Try
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Unexpected Error in Format_GridColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
' ClassLogger.Add("Error in Format_GridColumns: " & ex.Message, True)
|
||||
' Logger.Warn("Error in Format_GridColumns: " & ex.Message)
|
||||
' Return Nothing
|
||||
' End Try
|
||||
|
||||
|
||||
@@ -18,7 +18,7 @@ Public Class ClassHelper
|
||||
ochanged = True
|
||||
End If
|
||||
End If
|
||||
If LogErrorsOnly = False And ochanged = True Then ClassLogger.Add(" >> WMpath is: " & WMpath, False)
|
||||
LOGGER.Debug("WMpath is: " & WMpath)
|
||||
Return WMpath
|
||||
Catch ex As Exception
|
||||
Return WMpath
|
||||
@@ -53,7 +53,7 @@ Public Class ClassHelper
|
||||
Dim result = dt.ToString(format, CultureInfo.InvariantCulture)
|
||||
Return result
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error while converting value '" & input & "' to date....." & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error while converting value '" & input & "' to date....." & ex.Message)
|
||||
Return input
|
||||
End Try
|
||||
|
||||
@@ -79,7 +79,7 @@ Public Class ClassHelper
|
||||
Dim result = dt.ToString("yyyy-MM-dd", Nothing)
|
||||
Return result
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error while converting value '" & input & "' to date(Convert_to_Database_Date)....." & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error while converting value '" & input & "' to date(Convert_to_Database_Date)....." & ex.Message)
|
||||
Return input
|
||||
End Try
|
||||
|
||||
@@ -110,7 +110,7 @@ Public Class ClassHelper
|
||||
Try
|
||||
FileOpen(fs, filename, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("File " & filename & " inuse or not able to open - message: " & ex.Message, True)
|
||||
LOGGER.Warn("File " & filename & " inuse or not able to open - message: " & ex.Message)
|
||||
inuse = True
|
||||
Finally
|
||||
FileClose(fs)
|
||||
@@ -141,17 +141,11 @@ Public Class ClassHelper
|
||||
End If
|
||||
Return _NewFileString & extension
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Error in versioning file - error: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Error in versioning file - error: " & vbNewLine & ex.Message)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in versioning file:")
|
||||
Return ""
|
||||
End Try
|
||||
End Function
|
||||
'' <summary>
|
||||
''' Ersetzt alle nicht zulässigen Zeichen im angegebenen Dateinamen
|
||||
''' </summary>
|
||||
''' <param name="sFilename">Dateiname ohne Pfadangabe</param>
|
||||
''' <param name="sChar">Ersatzzeichen für alle unzulässigen Zeichen
|
||||
''' im Dateinamen</param>
|
||||
Public Shared Function CleanFilename(ByVal sFilename As String,
|
||||
Optional ByVal REPLACEChar As String = "") As String
|
||||
|
||||
@@ -187,11 +181,11 @@ Public Class ClassHelper
|
||||
Else
|
||||
MSGBOX_Handler("ERROR", "", "Sorry, but the docpath for doc-id: " & DocID & " is nothing!")
|
||||
Return False
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> RESULT_DOC_PATH IS NOTHING")
|
||||
LOGGER.Debug("RESULT_DOC_PATH IS NOTHING")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in File_open:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Error in File_open: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True)
|
||||
LOGGER.Warn("Error in File_open: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -201,11 +195,11 @@ Public Class ClassHelper
|
||||
Dim _path = Path.GetDirectoryName(RESULT_DOC_PATH)
|
||||
FOLDER_OPEN(_path, DocID)
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> RESULT_DOC_PATH IS NOTHING")
|
||||
LOGGER.Debug("RESULT_DOC_PATH IS NOTHING")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Open_Folder:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Error in Open_Folder: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True)
|
||||
LOGGER.Warn("Error in Open_Folder: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID)
|
||||
End Try
|
||||
End Sub
|
||||
Public Shared Sub OPEN_DOCVIEW(Doc_Path As String, DocID As Integer)
|
||||
@@ -220,7 +214,7 @@ Public Class ClassHelper
|
||||
CURRENT_DOCVIEW = DocView
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in DocView Open:" & vbNewLine & ex.Message & vbNewLine & Doc_Path & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Error in DocView Open: " & ex.Message & vbNewLine & " - Path: " & Doc_Path & " - DocID: " & DocID, True)
|
||||
LOGGER.Warn("Error in DocView Open: " & ex.Message & vbNewLine & " - Path: " & Doc_Path & " - DocID: " & DocID)
|
||||
File_SYSOPEN(Doc_Path, DocID)
|
||||
End Try
|
||||
End Sub
|
||||
@@ -238,7 +232,7 @@ Public Class ClassHelper
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Error in File_SYSOPEN: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True)
|
||||
LOGGER.Warn("Error in File_SYSOPEN: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -256,7 +250,7 @@ Public Class ClassHelper
|
||||
oMyProcess.Start()
|
||||
Dim ProcID = oMyProcess.GetCurrentProcess.Id
|
||||
oExtension = Path.GetExtension(BW_DocPath).ToLower
|
||||
If LogErrorsOnly = False Then ClassLogger.Add($"Checking oExtension [{oExtension}]...", False)
|
||||
LOGGER.Debug($"Checking oExtension [{oExtension}]...")
|
||||
If FILE_FORMATS_CHANGE_DURING_EDIT.Contains(oExtension) Then
|
||||
oSql = $"SELECT dwVersionID FROM VWPMO_DOC_SEARCH WHERE DocID = {BW_DocID}"
|
||||
Dim odwVersionId = clsDatabase.Execute_Scalar(oSql, False)
|
||||
@@ -267,23 +261,23 @@ Public Class ClassHelper
|
||||
|
||||
'oMyProcess.WaitForExit()
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in Process1.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID, True)
|
||||
LOGGER.Warn("Error in Process1.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in Process.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID, True)
|
||||
LOGGER.Warn("Error in Process.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
|
||||
Try
|
||||
Process.Start(BW_DocPath)
|
||||
Catch ex1 As Exception
|
||||
ClassLogger.Add("Error in Process.Start(1): " & ex1.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID, True)
|
||||
LOGGER.Warn("Error in Process.Start(1): " & ex1.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
|
||||
End Try
|
||||
End Try
|
||||
End Sub
|
||||
Private Shared Sub FOLDER_OPEN(PATH As Object, DocID As String)
|
||||
Try
|
||||
If PATH <> Nothing Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> in FOLDER_OPEN(" & PATH & ")", False)
|
||||
LOGGER.Debug("in FOLDER_OPEN(" & PATH & ")")
|
||||
If System.IO.Directory.Exists(PATH) = True Then
|
||||
Process.Start(PATH)
|
||||
Else
|
||||
@@ -292,7 +286,7 @@ Public Class ClassHelper
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in FOLDER_OPEN:" & vbNewLine & ex.Message & vbNewLine & PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Error in FOLDER_OPEN: " & ex.Message & vbNewLine & " - Path: " & PATH & " - DocID: " & DocID, True)
|
||||
LOGGER.Warn("Error in FOLDER_OPEN: " & ex.Message & vbNewLine & " - Path: " & PATH & " - DocID: " & DocID)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -307,7 +301,7 @@ Public Class ClassHelper
|
||||
Dim result = clsDatabase.Execute_non_Query(insert, False)
|
||||
Return result
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in InsertEssential_Log: " & ex.Message, True, False)
|
||||
LOGGER.Warn("Unexpected Error in InsertEssential_Log: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -324,10 +318,10 @@ Public Class ClassHelper
|
||||
Else
|
||||
ClassProxy.PRPROXY_RECORD_DEL(SELECTED_RECORD_ID, CURRENT_ENTITY_ID)
|
||||
End If
|
||||
|
||||
LOGGER.Info($"Deleted Record [{SELECTED_RECORD_ID}] Result was [{result}]: ")
|
||||
Return result
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in DeleteRecord: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in DeleteRecord: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -338,7 +332,7 @@ Public Class ClassHelper
|
||||
End If
|
||||
If type = "ERROR" Then
|
||||
MessageBox.Show(msg, Caption, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
ElseIf type = "INFO" Then
|
||||
MessageBox.Show(msg, Caption, MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||||
End If
|
||||
@@ -354,10 +348,10 @@ Public Class ClassHelper
|
||||
sql = sql.Replace("@ENTITY_ID", ENTITY_ID)
|
||||
sql = sql.Replace("@USERNAME", USER_USERNAME)
|
||||
sql = sql.Replace("@USER_NAME", USER_USERNAME)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> RIGHT_ONLY_READ_RECORD_DOC SQL: (When true then disable) '" & sql & "'", False)
|
||||
LOGGER.Debug("RIGHT_ONLY_READ_RECORD_DOC SQL: (When true then disable) '" & sql & "'")
|
||||
Return CBool(ClassDatabase.Execute_Scalar(sql, True))
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> SQL_RIGHT_READ_AND_VIEW_ONLY: " & sql)
|
||||
LOGGER.Warn("SQL_RIGHT_READ_AND_VIEW_ONLY: " & sql)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -373,10 +367,10 @@ Public Class ClassHelper
|
||||
sql = sql.Replace("@ENTITY_ID", ENTITY_ID)
|
||||
sql = sql.Replace("@USERNAME", USER_USERNAME)
|
||||
sql = sql.Replace("@USER_NAME", USER_USERNAME)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> RIGHT_ONLY_READ_COC SQL: (When true then disable) '" & sql & "'", False)
|
||||
LOGGER.Debug("RIGHT_ONLY_READ_COC SQL: (When true then disable) '" & sql & "'")
|
||||
Return CBool(ClassDatabase.Execute_Scalar(sql, True))
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> RIGHT_WINDREAM_FORBIDDEN: " & sql)
|
||||
LOGGER.Warn("RIGHT_WINDREAM_FORBIDDEN: " & sql)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -405,7 +399,7 @@ Public Class ClassHelper
|
||||
result = wrapper.DecryptData(ciphertext)
|
||||
Return result
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("The ciphertext for Method'" & MethodName & "' could not be decrypted", False)
|
||||
LOGGER.Warn("The ciphertext for Method'" & MethodName & "' could not be decrypted")
|
||||
Return ""
|
||||
End Try
|
||||
End Function
|
||||
@@ -419,7 +413,7 @@ Public Class ClassHelper
|
||||
'Dim filteredData = BaseDatatable.Select(expression).CopyToDataTable()
|
||||
Return filteredData
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("unexpected error in FILTER_DATATABLE: " & ex.Message)
|
||||
LOGGER.Warn("unexpected error in FILTER_DATATABLE: " & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
|
||||
|
||||
@@ -42,7 +42,7 @@ Public Class ClassImport_Windream
|
||||
idxvalue = idxvalue.ToString.Replace("@Dokart", Dokart)
|
||||
End Select
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & idxvalue.ToString, False)
|
||||
LOGGER.Debug("Indexvalue: " & idxvalue.ToString)
|
||||
Count += 1
|
||||
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
|
||||
If indexierung_erfolgreich = False Then
|
||||
@@ -62,7 +62,7 @@ Public Class ClassImport_Windream
|
||||
' If dt.Rows.Count = 1 Then
|
||||
' Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
|
||||
' Dim idxvalue = CURRENT_ENTITY_ID
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & idxvalue.ToString, False)
|
||||
' LOGGER.Debug("Entity-ID: " & idxvalue.ToString)
|
||||
' indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
|
||||
' If indexierung_erfolgreich = False Then
|
||||
' err = True
|
||||
@@ -71,7 +71,7 @@ Public Class ClassImport_Windream
|
||||
' End If
|
||||
' indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
|
||||
' idxvalue = CURRENT_PARENT_ENTITY_ID
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False)
|
||||
' LOGGER.Debug("Parent-ID: " & idxvalue.ToString)
|
||||
' indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
|
||||
' If indexierung_erfolgreich = False Then
|
||||
' err = True
|
||||
@@ -135,7 +135,7 @@ Public Class ClassImport_Windream
|
||||
oROOTWM_FOLDER = ""
|
||||
End Try
|
||||
If oROOTWM_FOLDER <> String.Empty Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add($">> oROOTWM_FOLDER '{oROOTWM_FOLDER}' will be used", False)
|
||||
LOGGER.Debug($"oROOTWM_FOLDER '{oROOTWM_FOLDER}' will be used")
|
||||
oWMTARGET_FOLDER = oROOTWM_FOLDER
|
||||
End If
|
||||
|
||||
@@ -143,11 +143,11 @@ Public Class ClassImport_Windream
|
||||
If Not IsDBNull(oDYNAMIC_FOLDER) Then
|
||||
If oDYNAMIC_FOLDER <> String.Empty Then
|
||||
If CREATE_FOLDER_INDEX(oDYNAMIC_FOLDER, DocTypeID) = True And CURRENT_VARIABLE_FOLDER <> "" Then
|
||||
If LogErrorsOnly = False Then
|
||||
ClassLogger.Add(" >> After CREATE_FOLDER_INDEX - oWMTARGET_FOLDER: " & oWMTARGET_FOLDER, False)
|
||||
ClassLogger.Add(" >> After CREATE_FOLDER_INDEX - CURRENT_VARIABLE_FOLDER: " & CURRENT_VARIABLE_FOLDER, False)
|
||||
End If
|
||||
If oWMTARGET_FOLDER <> CURRENT_VARIABLE_FOLDER Then
|
||||
|
||||
LOGGER.Debug("After CREATE_FOLDER_INDEX - oWMTARGET_FOLDER: " & oWMTARGET_FOLDER)
|
||||
LOGGER.Debug("After CREATE_FOLDER_INDEX - CURRENT_VARIABLE_FOLDER: " & CURRENT_VARIABLE_FOLDER)
|
||||
|
||||
If oWMTARGET_FOLDER <> CURRENT_VARIABLE_FOLDER Then
|
||||
oWMTARGET_FOLDER = oWMTARGET_FOLDER & "\" & CURRENT_VARIABLE_FOLDER.Replace(oWMTARGET_FOLDER, "")
|
||||
Else
|
||||
oWMTARGET_FOLDER = CURRENT_VARIABLE_FOLDER
|
||||
@@ -161,10 +161,10 @@ Public Class ClassImport_Windream
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If LogErrorsOnly = False Then
|
||||
ClassLogger.Add(" >> oWMTARGET_FOLDER: " & oWMTARGET_FOLDER, False)
|
||||
ClassLogger.Add(" >> CURRENT_SUBFOLDER: " & CURRENT_SUBFOLDER, False)
|
||||
End If
|
||||
|
||||
LOGGER.Debug("oWMTARGET_FOLDER: " & oWMTARGET_FOLDER)
|
||||
LOGGER.Debug("CURRENT_SUBFOLDER: " & CURRENT_SUBFOLDER)
|
||||
|
||||
|
||||
'Untsserordner ja oder nein
|
||||
If CURRENT_CHECK_SUBFOLDER = True And CURRENT_SUBFOLDER <> "" Then
|
||||
@@ -172,7 +172,7 @@ Public Class ClassImport_Windream
|
||||
End If
|
||||
oWMTARGET_FOLDER = oWMTARGET_FOLDER.Replace("\\", "\")
|
||||
If oWMTARGET_FOLDER.Contains("/") Then
|
||||
ClassLogger.Add(String.Format(">> Targetpath contains /-sign. / will be replaced with _"))
|
||||
LOGGER.Info(String.Format("Targetpath contains /-sign. / will be replaced with _"))
|
||||
oWMTARGET_FOLDER = oWMTARGET_FOLDER.Replace("/", "_")
|
||||
End If
|
||||
|
||||
@@ -180,7 +180,7 @@ Public Class ClassImport_Windream
|
||||
Try
|
||||
Select Case clsWD_GET.WD_PATH_EXISTS(oWMTARGET_FOLDER.Substring(2))
|
||||
Case False
|
||||
ClassLogger.Add(String.Format(">> Targetpath ({0}) is not existing or result of WD_PATH_EXISTS was false.", oWMTARGET_FOLDER.Substring(2)), False)
|
||||
LOGGER.Info(String.Format("Targetpath ({0}) is not existing or result of WD_PATH_EXISTS was false.", oWMTARGET_FOLDER.Substring(2)))
|
||||
Dim split() As String = oWMTARGET_FOLDER.Split("\")
|
||||
Dim Path_Combined As String = ""
|
||||
For Each s As String In split
|
||||
@@ -194,18 +194,18 @@ Public Class ClassImport_Windream
|
||||
|
||||
Select Case clsWD_GET.WD_PATH_EXISTS(temppath)
|
||||
Case False
|
||||
If LogErrorsOnly = False Then
|
||||
ClassLogger.Add(" >> Trying to create folder-part: " & temppath, False)
|
||||
End If
|
||||
|
||||
LOGGER.Debug("Trying to create folder-part: " & temppath)
|
||||
|
||||
clsWindream.MY_WDSESSION.GetNewWMObjectFS(2, temppath, 0) 'WMEntityFolder,WMObjectEditModeNoEdit)
|
||||
Case -10
|
||||
ClassLogger.Add(">> WD_PATH_EXISTS returned -10 for: " & temppath, False)
|
||||
LOGGER.Warn("WD_PATH_EXISTS returned -10 for: " & temppath)
|
||||
Return False
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
If Not ex.Message.Contains("Filename exists!") Then
|
||||
ClassLogger.Add(String.Format(">> Could not create folder-part: {0} - Complete path is: ({1})", temppath, oWMTARGET_FOLDER.Substring(2)))
|
||||
ClassLogger.Add(String.Format(">> ErrorMessage: {0}: ", ex.Message))
|
||||
LOGGER.Warn(String.Format("Could not create folder-part: {0} - Complete path is: ({1})", temppath, oWMTARGET_FOLDER.Substring(2)))
|
||||
LOGGER.Warn(String.Format("ErrorMessage: {0}: ", ex.Message))
|
||||
Return False
|
||||
End If
|
||||
End Try
|
||||
@@ -217,7 +217,7 @@ Public Class ClassImport_Windream
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
If Not ex.Message.Contains("Filename exists!") Then
|
||||
ClassLogger.Add(String.Format(">> Could not create folder ({0}): " & ex.Message, oWMTARGET_FOLDER.Substring(2)), False)
|
||||
LOGGER.Warn(String.Format("Could not create folder ({0}): " & ex.Message, oWMTARGET_FOLDER.Substring(2)))
|
||||
Return False
|
||||
End If
|
||||
End Try
|
||||
@@ -227,15 +227,15 @@ Public Class ClassImport_Windream
|
||||
'Namenkonvention laden
|
||||
'Dim NameConv = ClassDatabase.Execute_Scalar("SELECT TOP 1 NAME_CONVENTION FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID, True)
|
||||
If IsDBNull(oNAME_CONVENTION) Then
|
||||
ClassLogger.Add(">> Achtung: Namenskonvention is DBNull", False)
|
||||
LOGGER.Warn("Achtung: Namenskonvention is DBNull")
|
||||
oNAME_CONVENTION = Path.GetFileNameWithoutExtension(CURRENT_FILENAME)
|
||||
ElseIf oNAME_CONVENTION = String.Empty Then
|
||||
ClassLogger.Add(">> Achtung: Namenskonvention is String empty", False)
|
||||
LOGGER.Warn("Achtung: Namenskonvention is String empty")
|
||||
oNAME_CONVENTION = Path.GetFileNameWithoutExtension(CURRENT_FILENAME)
|
||||
End If
|
||||
'schonmal den gesamten Pfad laden
|
||||
Dim oNewWM_Filename As String = oWMTARGET_FOLDER & "\" & oNAME_CONVENTION
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> oNewWM_Filename: " & oNewWM_Filename, False)
|
||||
LOGGER.Debug("oNewWM_Filename: " & oNewWM_Filename)
|
||||
|
||||
' einen Regulären Ausdruck laden
|
||||
Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
|
||||
@@ -245,7 +245,7 @@ Public Class ClassImport_Windream
|
||||
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
|
||||
For Each element As System.Text.RegularExpressions.Match In elemente
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> element in RegeX: " & element.Value, False)
|
||||
LOGGER.Debug("element in RegeX: " & element.Value)
|
||||
Select Case element.Value.Substring(2, 1).ToUpper
|
||||
'Nur automatische Indizes auswerten
|
||||
Case "A"
|
||||
@@ -269,7 +269,7 @@ Public Class ClassImport_Windream
|
||||
If IsNumeric(INDEX_ID) Then
|
||||
Dim sql_AUTOindexresult = ClassDatabase.Execute_Scalar("SELECT SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE GUID = " & INDEX_ID, True)
|
||||
If IsNothing(sql_AUTOindexresult) Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> unexpected: sql_AUTOindexresult is nothing!!", False)
|
||||
LOGGER.Debug("unexpected: sql_AUTOindexresult is nothing!!")
|
||||
value = ""
|
||||
Else
|
||||
If IsDBNull(sql_AUTOindexresult) Then
|
||||
@@ -278,8 +278,8 @@ Public Class ClassImport_Windream
|
||||
sql_AUTOindexresult = sql_AUTOindexresult.ToString.ToUpper.Replace("@RECORD-ID", CURRENT_RECORD_ID)
|
||||
Dim AUTOindexresult = ClassDatabase.Execute_Scalar(sql_AUTOindexresult, True)
|
||||
If IsNothing(AUTOindexresult) Then
|
||||
ClassLogger.Add(">> ATTENTION: unexpected: AUTOindexresult is nothing!!", False)
|
||||
ClassLogger.Add(">> " & sql_AUTOindexresult, False)
|
||||
LOGGER.Warn("ATTENTION: unexpected: AUTOindexresult is nothing!!")
|
||||
LOGGER.Warn("" & sql_AUTOindexresult)
|
||||
value = ""
|
||||
Else
|
||||
If IsDBNull(AUTOindexresult) Then
|
||||
@@ -292,16 +292,16 @@ Public Class ClassImport_Windream
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(">> INDEX_ID is not numeric: " & INDEX_ID.ToString & "- APattern: " & APattern, False)
|
||||
LOGGER.Warn("INDEX_ID is not numeric: " & INDEX_ID.ToString & "- APattern: " & APattern)
|
||||
value = ""
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(">> split.Length <> 2 - APattern: " & APattern, False)
|
||||
LOGGER.Warn("split.Length <> 2 - APattern: " & APattern)
|
||||
value = ""
|
||||
End If
|
||||
|
||||
ElseIf APattern.Contains("#") Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> element [" & APattern & "] filled with Record-Data...: ", False)
|
||||
LOGGER.Debug("element [" & APattern & "] filled with Record-Data...: ")
|
||||
Dim split() As String = APattern.Split("#")
|
||||
If split.Length = 2 Then
|
||||
Dim CONTROL_ID = split(1)
|
||||
@@ -316,24 +316,24 @@ Public Class ClassImport_Windream
|
||||
lblsql = lblsql.ToString.ToUpper.Replace("@RECORD-ID", CURRENT_RECORD_ID)
|
||||
lblsql = lblsql.ToString.ToUpper.Replace("@ENTITY-ID", CURRENT_ENTITY_ID)
|
||||
lblsql = lblsql.ToString.ToUpper.Replace("@ENTITY_ID", CURRENT_ENTITY_ID)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> variable sql will be used for convention", False)
|
||||
LOGGER.Debug("variable sql will be used for convention")
|
||||
Dim result = ClassDatabase.Execute_ScalarWithConnection(DTtype.Rows(0).Item(2), lblsql)
|
||||
If Not IsNothing(result) Then
|
||||
value = result.ToString
|
||||
Else
|
||||
ClassLogger.Add(">> variable sqlresult is nothing - " & lblsql, False)
|
||||
LOGGER.Warn("variable sqlresult is nothing - " & lblsql)
|
||||
value = ""
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(">> NameConvention should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.", False)
|
||||
ClassLogger.Add(">> SQL-Command: " & CURRENT_LAST_SQL)
|
||||
LOGGER.Warn("NameConvention should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.")
|
||||
LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
|
||||
value = ""
|
||||
End If
|
||||
|
||||
Else
|
||||
If IsDBNull(CONTROLVALUE) Then
|
||||
ClassLogger.Add(">> NameConvention should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.", False)
|
||||
ClassLogger.Add(">> SQL-Command: " & CURRENT_LAST_SQL)
|
||||
LOGGER.Warn("NameConvention should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.")
|
||||
LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
|
||||
value = ""
|
||||
Else
|
||||
Dim sql1 = "SELECT * FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID = (SELECT TOP 1 GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID & ")"
|
||||
@@ -378,7 +378,7 @@ Public Class ClassImport_Windream
|
||||
If value <> String.Empty Then
|
||||
oNewWM_Filename = oNewWM_Filename.Replace(element.Value, value)
|
||||
_NewFileString = oNewWM_Filename
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Actual NEWFILESTRING: " & _NewFileString, False)
|
||||
LOGGER.Debug("Actual NEWFILESTRING: " & _NewFileString)
|
||||
' sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString
|
||||
AnzahlIndexe += 1
|
||||
' sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'"
|
||||
@@ -444,7 +444,7 @@ Public Class ClassImport_Windream
|
||||
msg = "In nameconvention an element was defined which could not be replaced." & vbNewLine & "elementname: " & element.Value.ToUpper
|
||||
End If
|
||||
|
||||
ClassLogger.Add(msg)
|
||||
LOGGER.Warn(msg)
|
||||
MsgBox(msg, MsgBoxStyle.Exclamation, "Error in Name Convention:")
|
||||
End Select
|
||||
Next
|
||||
@@ -452,11 +452,11 @@ Public Class ClassImport_Windream
|
||||
'ungültige Zeichen entfernen
|
||||
oNewWM_Filename = ClassHelper.CleanFilename(oNewWM_Filename, "")
|
||||
If oNewWM_Filename.Contains("/") Then
|
||||
ClassLogger.Add(String.Format(">> DATEINAME contains /-sign. / will be replaced with _"))
|
||||
LOGGER.Info(String.Format("DATEINAME contains /-sign. / will be replaced with _"))
|
||||
oNewWM_Filename = oNewWM_Filename.Replace("/", "_")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Error in Versioning file - Error: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Error in Versioning file - Error: " & vbNewLine & ex.Message)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Versioning file:")
|
||||
err = True
|
||||
End Try
|
||||
@@ -477,7 +477,7 @@ Public Class ClassImport_Windream
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Unexpected Error in FileName-Creating: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Unexpected Error in FileName-Creating: " & vbNewLine & ex.Message)
|
||||
MsgBox(" - Unexpected Error in FileName-Creating: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
@@ -497,9 +497,9 @@ Public Class ClassImport_Windream
|
||||
'####
|
||||
' alle Vorkommen innerhalb des Ordnerstrings durchlaufen
|
||||
For Each element As System.Text.RegularExpressions.Match In elemente
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Elementname in FolderString: '" & element.ToString & "'", False)
|
||||
LOGGER.Debug("Elementname in FolderString: '" & element.ToString & "'")
|
||||
Dim EL_SUBSTRING = element.Value.Substring(2, 1).ToUpper
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> EL_SUBSTRING is: '" & EL_SUBSTRING & "'", False)
|
||||
LOGGER.Debug("EL_SUBSTRING is: '" & EL_SUBSTRING & "'")
|
||||
Select Case EL_SUBSTRING
|
||||
'Manueller Indexwert
|
||||
Case "A"
|
||||
@@ -511,11 +511,11 @@ Public Class ClassImport_Windream
|
||||
Dim sql = "SELECT SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE GUID = " & INDEX_ID
|
||||
Dim sql_command = ClassDatabase.Execute_Scalar(sql)
|
||||
If IsNothing(sql_command) Then
|
||||
ClassLogger.Add(" >> unexpected: SQL_RESULT is nothing!!", False)
|
||||
ClassLogger.Add(" >> " & sql, False)
|
||||
LOGGER.Warn("unexpected: SQL_RESULT is nothing!!")
|
||||
LOGGER.Warn("" & sql)
|
||||
Else
|
||||
If IsDBNull(sql_command) Then
|
||||
ClassLogger.Add(" >> unexpected: sql_command is DBNULL!!", False)
|
||||
LOGGER.Warn("unexpected: sql_command is DBNULL!!")
|
||||
Else
|
||||
sql_command = sql_command.ToString.ToUpper.Replace("@RECORD-ID", CURRENT_RECORD_ID)
|
||||
sql_command = sql_command.ToString.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID)
|
||||
@@ -523,13 +523,13 @@ Public Class ClassImport_Windream
|
||||
sql_command = sql_command.ToString.ToUpper.Replace("@ENTITY_ID", CURRENT_ENTITY_ID)
|
||||
Dim AUTOindexresult = ClassDatabase.Execute_Scalar(sql_command, True)
|
||||
If IsNothing(AUTOindexresult) Then
|
||||
ClassLogger.Add(">> unexpected: AUTOindexresult is nothing!!", False)
|
||||
ClassLogger.Add(">> " & sql_command, False)
|
||||
LOGGER.Warn("unexpected: AUTOindexresult is nothing!!")
|
||||
LOGGER.Warn("" & sql_command)
|
||||
Else
|
||||
If IsDBNull(AUTOindexresult) Then
|
||||
ClassLogger.Add(">> unexpected: AUTOindexresult is DBNULL - " & sql_command, False)
|
||||
LOGGER.Warn("unexpected: AUTOindexresult is DBNULL - " & sql_command)
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> AUTOindexresult is: '" & AUTOindexresult & "'", False)
|
||||
LOGGER.Debug("AUTOindexresult is: '" & AUTOindexresult & "'")
|
||||
FolderConvention = FolderConvention.Replace(element.ToString, AUTOindexresult)
|
||||
End If
|
||||
End If
|
||||
@@ -537,32 +537,32 @@ Public Class ClassImport_Windream
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(">> INDEX_ID is not numeric: " & INDEX_ID.ToString & "- APattern: " & element.Value, False)
|
||||
LOGGER.Warn("INDEX_ID is not numeric: " & INDEX_ID.ToString & "- APattern: " & element.Value)
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(">> split.Length <> 2 - APattern: " & element.Value, False)
|
||||
LOGGER.Warn("split.Length <> 2 - APattern: " & element.Value)
|
||||
End If
|
||||
|
||||
Case "M"
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Working on manual value......'", False)
|
||||
LOGGER.Debug("Working on manual value......'")
|
||||
Dim split() As String = element.Value.Substring(3, element.Value.Length - 4).Split("#")
|
||||
If split.Length = 2 Then
|
||||
'Die GUID des AutoIndex auslesen
|
||||
Dim INDEX_ID = split(1)
|
||||
If IsNumeric(INDEX_ID) Then
|
||||
If element.Value.ToUpper.Contains("FOLDERSELECT") Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> FOLDERSELECT......'", False)
|
||||
LOGGER.Debug("FOLDERSELECT......'")
|
||||
For Each row As DataRow In CURRENT_TBPMO_INDEX_MAN.Rows
|
||||
If row.Item("GUID") = INDEX_ID Then
|
||||
Dim manvalue = row.Item("MAN_VALUE")
|
||||
If manvalue <> String.Empty Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> folder value is: '" & manvalue & "'", False)
|
||||
LOGGER.Debug("folder value is: '" & manvalue & "'")
|
||||
CURRENT_VARIABLE_FOLDER_OVERRIDE = True
|
||||
CURRENT_VARIABLE_FOLDER = manvalue
|
||||
Return True
|
||||
|
||||
Else
|
||||
ClassLogger.Add(">> Attention: manvalue (from Input indexing is empty!!", False)
|
||||
LOGGER.Warn("Attention: manvalue (from Input indexing is empty!!")
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
@@ -573,21 +573,21 @@ Public Class ClassImport_Windream
|
||||
If row.Item("GUID") = INDEX_ID Then
|
||||
Dim manvalue = row.Item("MAN_VALUE")
|
||||
If manvalue <> String.Empty Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> manvalue is: '" & manvalue & "'", False)
|
||||
LOGGER.Debug("manvalue is: '" & manvalue & "'")
|
||||
FolderConvention = FolderConvention.Replace(element.ToString, manvalue)
|
||||
FolderConvention = FolderConvention.Replace("\\", "")
|
||||
Else
|
||||
ClassLogger.Add(">> Attention: manvalue (from Input indexing is empty!!", False)
|
||||
LOGGER.Warn("Attention: manvalue (from Input indexing is empty!!")
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(">> INDEX_ID is not numeric: " & INDEX_ID.ToString & "- APattern: " & element.Value, False)
|
||||
LOGGER.Warn("INDEX_ID is not numeric: " & INDEX_ID.ToString & "- APattern: " & element.Value)
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(">> split.Length <> 2 - APattern: " & element.Value, False)
|
||||
LOGGER.Warn("split.Length <> 2 - APattern: " & element.Value)
|
||||
End If
|
||||
|
||||
|
||||
@@ -596,7 +596,7 @@ Public Class ClassImport_Windream
|
||||
Dim split() As String = elmt
|
||||
If split.Length = 2 Then
|
||||
Dim VARTYPE = split(0)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> VARTYPE is: '" & VARTYPE & "'", False)
|
||||
LOGGER.Debug("VARTYPE is: '" & VARTYPE & "'")
|
||||
Select Case VARTYPE
|
||||
Case "ARDoctype"
|
||||
FolderConvention = FolderConvention.Replace(element.ToString, CURRENT_DOKARTSTRING)
|
||||
@@ -646,22 +646,22 @@ Public Class ClassImport_Windream
|
||||
lblsql = lblsql.ToString.ToUpper.Replace("@RECORD-ID", CURRENT_RECORD_ID)
|
||||
lblsql = lblsql.ToString.ToUpper.Replace("@ENTITY-ID", CURRENT_ENTITY_ID)
|
||||
lblsql = lblsql.ToString.ToUpper.Replace("@ENTITY_ID", CURRENT_ENTITY_ID)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> variable sql will be used for convention", False)
|
||||
LOGGER.Debug("variable sql will be used for convention")
|
||||
Dim result = ClassDatabase.Execute_ScalarWithConnection(DTtype.Rows(0).Item(2), lblsql)
|
||||
If Not IsNothing(result) Then
|
||||
FolderConvention = FolderConvention.Replace(element.ToString, result.ToString)
|
||||
Else
|
||||
ClassLogger.Add(">> variable sqlresult is nothing - " & lblsql, False)
|
||||
LOGGER.Warn("variable sqlresult is nothing - " & lblsql)
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(">> Variable folder should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.", False)
|
||||
ClassLogger.Add(">> SQL-Command: " & checktype)
|
||||
LOGGER.Warn("Variable folder should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.")
|
||||
LOGGER.Warn("SQL-Command: " & checktype)
|
||||
End If
|
||||
|
||||
Else
|
||||
If IsDBNull(CONTROLVALUE) Then
|
||||
ClassLogger.Add(">> Variable folder should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.", False)
|
||||
ClassLogger.Add(">> SQL-Command: " & CURRENT_LAST_SQL)
|
||||
LOGGER.Warn("Variable folder should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.")
|
||||
LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
|
||||
Else
|
||||
Dim sql1 = "SELECT * FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID = (SELECT TOP 1 GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID & ")"
|
||||
Dim DT_FORMAT As DataTable = ClassDatabase.Return_Datatable(sql1, True)
|
||||
@@ -697,17 +697,17 @@ Public Class ClassImport_Windream
|
||||
|
||||
|
||||
Case Else
|
||||
ClassLogger.Add(" -Undefined pattern found in folderconvention" & vbNewLine & "Elementname: " & element.Value.ToUpper)
|
||||
LOGGER.Warn(" -Undefined pattern found in folderconvention" & vbNewLine & "Elementname: " & element.Value.ToUpper)
|
||||
MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:")
|
||||
End Select
|
||||
If LogErrorsOnly = False Then ClassLogger.Add($" >> FolderConvention so far is: '{FolderConvention}'", False)
|
||||
LOGGER.Debug($"FolderConvention so far is: '{FolderConvention}'")
|
||||
Next
|
||||
CURRENT_VARIABLE_FOLDER = FolderConvention
|
||||
Return True
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in CreateFolderforIndex-Method:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add(" >> Fehler in CrFolderForIndex: " & ex.Message, True)
|
||||
LOGGER.Warn("Fehler in CrFolderForIndex: " & ex.Message, True)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -735,7 +735,7 @@ Public Class ClassImport_Windream
|
||||
CURRENT_NEWFILENAME = _NewFileString & extension
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Error in versioning file - error: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Error in versioning file - error: " & vbNewLine & ex.Message)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in versioning file:")
|
||||
Return False
|
||||
End Try
|
||||
|
||||
@@ -1,13 +1,34 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports DD_LIB_Standards
|
||||
Imports DigitalData.Modules.Logging
|
||||
|
||||
Public Class ClassInit
|
||||
Public Sub New()
|
||||
End Sub
|
||||
|
||||
Public Sub InitLogger()
|
||||
ClassLogger.Init("", USER_USERNAME)
|
||||
clsLogger.LOGFILE_PATH = ClassLogger.logDateiname
|
||||
LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing,
|
||||
My.Application.Info.CompanyName,
|
||||
"ADDI")
|
||||
LOGGER = LOGCONFIG.GetLogger()
|
||||
|
||||
LOGGER.Info("## ADDI started - {0}", Now)
|
||||
Try
|
||||
Dim directory As New IO.DirectoryInfo(Application.LocalUserAppDataPath & "\Log")
|
||||
|
||||
For Each file As IO.FileInfo In directory.GetFiles
|
||||
If (Now - file.CreationTime).Days > 29 Then
|
||||
file.Delete()
|
||||
Else
|
||||
Exit For
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Shared Function InitDatabase()
|
||||
@@ -124,7 +145,7 @@ Public Class ClassInit
|
||||
CURRENT_TBPMO_FORM_VIEW = ClassDatabase.Return_Datatable(sql, True)
|
||||
sql = String.Format("select T.*, T1.HEADER_CAPTION,T1.TYPE_ID ,T1.ENTITY_ID,T1.LANGUAGE from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID")
|
||||
CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql, True)
|
||||
clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
|
||||
clsCURRENT.LOG_ERRORS_ONLY = DEBUG
|
||||
|
||||
sql = String.Format("select* from TBPMO_FILE_FORMATS_CHANGE")
|
||||
Dim oDTFF_CHANGE As DataTable = ClassDatabase.Return_Datatable(sql, True)
|
||||
@@ -145,7 +166,7 @@ Public Class ClassInit
|
||||
"And T.ACTIVE = 1 And T1.USER_ID = {0}", USER_GUID)
|
||||
CURRENT_TBPMO_CONN_SWITCH = ClassDatabase.Return_Datatable(sql)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Init_CONN_SWITCH: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in Init_CONN_SWITCH: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@@ -160,11 +181,11 @@ Public Class ClassInit
|
||||
|
||||
Dim sql = String.Format("SELECT T.*, T1.IS_ADMIN FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
|
||||
WHERE (LOWER(USERNAME) = LOWER('{0}')) AND T2.SHORT_NAME = 'ADDI'", USER_USERNAME)
|
||||
ClassLogger.Add(">> Login at: " & Now.ToString, False)
|
||||
ClassLogger.Add(">> Username: " & USER_USERNAME, False)
|
||||
LOGGER.Info("Login at: " & Now.ToString)
|
||||
LOGGER.Info("Username: " & USER_USERNAME)
|
||||
Dim USER_DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
|
||||
If USER_DT.Rows.Count = 0 Then
|
||||
ClassLogger.Add(" - User '" & USER_USERNAME & "' not listed in Useradminsitration!", False)
|
||||
LOGGER.Warn(" - User '" & USER_USERNAME & "' not listed in Useradminsitration!")
|
||||
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
||||
'Me.Close()
|
||||
Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
|
||||
@@ -184,7 +205,7 @@ WHERE (LOWER(USERNAME) = LOWER('{0}')) AND T2.SHORT_NAME = 'ADDI'", USER_USERNAM
|
||||
|
||||
|
||||
If Right_RO = False Then
|
||||
ClassLogger.Add("User '" & USER_USERNAME & "' not authorized for using Record-Organizer!")
|
||||
LOGGER.Warn("User '" & USER_USERNAME & "' not authorized for using Record-Organizer!")
|
||||
'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
||||
Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
|
||||
|
||||
@@ -249,18 +270,18 @@ WHERE (LOWER(USERNAME) = LOWER('{0}')) AND T2.SHORT_NAME = 'ADDI'", USER_USERNAM
|
||||
End If
|
||||
Try
|
||||
If clsWindream.Create_Session = False Then
|
||||
ClassLogger.Add("Could not create the login for windream - No session created!")
|
||||
LOGGER.Warn("Could not create the login for windream - No session created!")
|
||||
ClassHelper.MSGBOX_Handler("ERROR", "windream-login Error:", "Could not create the login/session!", "ADDI will start anyway but be aware that searching and importing won't be possible!")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in clswindream.Init: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in clswindream.Init: " & ex.Message)
|
||||
MsgBox("Unexpected Error in Creating windream-Session: " & ex.Message & vbNewLine & "Please inform Your sysadmin!", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Record-Organizer') AND CLIENT_ID = {0}", CLIENT_SELECTED)
|
||||
Dim anzahl = ClassDatabase.Execute_Scalar(sql, False)
|
||||
USERS_LOGGED_IN = CInt(anzahl)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> User# logged in: " & anzahl.ToString, False)
|
||||
LOGGER.Debug("User# logged in: " & anzahl.ToString)
|
||||
'####
|
||||
|
||||
If LICENSE_COUNT < USERS_LOGGED_IN And LICENSE_EXPIRED = False Then
|
||||
@@ -271,12 +292,12 @@ WHERE (LOWER(USERNAME) = LOWER('{0}')) AND T2.SHORT_NAME = 'ADDI'", USER_USERNAM
|
||||
"Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!")
|
||||
End If
|
||||
MsgBox(msg, MsgBoxStyle.Exclamation)
|
||||
ClassLogger.Add(" >> The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False)
|
||||
LOGGER.Warn("The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ")
|
||||
If USER_IS_ADMIN = False Then
|
||||
'Anmeldung wieder herausnehmen
|
||||
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'"
|
||||
ClassDatabase.Execute_non_Query(sql)
|
||||
ClassLogger.Add(" - logged out the user", False)
|
||||
LOGGER.Warn(" - logged out the user")
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
@@ -292,7 +313,7 @@ WHERE (LOWER(USERNAME) = LOWER('{0}')) AND T2.SHORT_NAME = 'ADDI'", USER_USERNAM
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Init_Folderwatch: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in Init_Folderwatch: " & ex.Message, True)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
@@ -305,7 +326,7 @@ WHERE (LOWER(USERNAME) = LOWER('{0}')) AND T2.SHORT_NAME = 'ADDI'", USER_USERNAM
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in InitUserLogin: " & ex.Message)
|
||||
MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
@@ -41,9 +41,9 @@ Public Class ClassWindowLocation
|
||||
If x = 5000 Then
|
||||
Select Case Prefix
|
||||
Case "frmTool_FormDesigner"
|
||||
ClassLogger.Add(">> frmTool_FormDesigner - Maximize Eigenschaft Form wird nicht gesetzt.", False)
|
||||
LOGGER.Info("frmTool_FormDesigner - Maximize Eigenschaft Form wird nicht gesetzt.")
|
||||
Case "frmTool_ControlProperties"
|
||||
ClassLogger.Add(">> frmTool_ControlProperties - Maximize Eigenschaft Form wird nicht gesetzt.", False)
|
||||
LOGGER.Info("frmTool_ControlProperties - Maximize Eigenschaft Form wird nicht gesetzt.")
|
||||
Case Else
|
||||
form.WindowState = FormWindowState.Maximized
|
||||
End Select
|
||||
@@ -64,7 +64,7 @@ Public Class ClassWindowLocation
|
||||
|
||||
Next
|
||||
Catch notFoundEx As System.IO.FileNotFoundException
|
||||
ClassLogger.Add("Window Position & Size added for Screen " & ScreenID & ", Form " & FormID)
|
||||
LOGGER.Warn("Window Position & Size added for Screen " & ScreenID & ", Form " & FormID)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error while loading Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
@@ -103,7 +103,7 @@ Public Class ClassWindowLocation
|
||||
|
||||
layout.Save(settings)
|
||||
Catch notFoundEx As System.IO.FileNotFoundException
|
||||
ClassLogger.Add("Window Position & Size added for Screen " & ScreenID & ", Form " & FormID)
|
||||
LOGGER.Warn("Window Position & Size added for Screen " & ScreenID & ", Form " & FormID)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error while saving Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
@@ -7,7 +7,7 @@ Public Class ClassLicence
|
||||
Try
|
||||
|
||||
Dim todayDate As Date = New Date(Now.Year, Now.Month, Now.Day)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> todayDate: " & todayDate.ToString, False)
|
||||
LOGGER.Debug("todayDate: " & todayDate.ToString)
|
||||
_lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
|
||||
Dim sql As String = String.Format("SELECT LICENSE_PMO FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
|
||||
|
||||
@@ -30,19 +30,19 @@ Public Class ClassLicence
|
||||
Dim LICENSE_FILE_DATE As Date
|
||||
Try
|
||||
LICENSE_FILE_DATE = New Date(LicDATEsplit(0), LicDATEsplit(1), LicDATEsplit(2))
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> LICENSE_FILE_DATE: " & LICENSE_FILE_DATE.ToString, False)
|
||||
LOGGER.Debug("LICENSE_FILE_DATE: " & LICENSE_FILE_DATE.ToString)
|
||||
Try
|
||||
Try
|
||||
LICENSE_DATE = CDate(LICENSE_FILE_DATE)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Could not read LICENSE_DATE2: " & ex.Message, False)
|
||||
LOGGER.Warn("Could not read LICENSE_DATE2: " & ex.Message)
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Could not read LICENSE_DATE1: " & ex.Message, False)
|
||||
LOGGER.Warn("Could not read LICENSE_DATE1: " & ex.Message)
|
||||
End Try
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Could not read LICENSE_DATE3: " & ex.Message, False)
|
||||
LOGGER.Warn("Could not read LICENSE_DATE3: " & ex.Message)
|
||||
LICENSE_FILE_DATE = New Date(Now.Year, Now.Month, Now.Day)
|
||||
End Try
|
||||
|
||||
@@ -59,7 +59,7 @@ Public Class ClassLicence
|
||||
DT_LICENSE_ADDONS = ClassDatabase.Return_Datatable(sql)
|
||||
For Each license_Row As DataRow In DT_LICENSE_ADDONS.Rows
|
||||
Dim expired As Boolean = False
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> AddOnName: " & license_Row.Item("NAME"), False)
|
||||
LOGGER.Debug("AddOnName: " & license_Row.Item("NAME"))
|
||||
Dim result = ClassHelper.DecryptString(license_Row.Item("VALID_DATE"), license_Row.Item("NAME"))
|
||||
If result <> "" Then
|
||||
Dim datesplit() = result.ToString.Split("-")
|
||||
@@ -94,7 +94,7 @@ Public Class ClassLicence
|
||||
Try
|
||||
LICENSE_DOSSIER_COUNT = split(2)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Could not read License for LICENSE_DOSSIER_COUNT: " & ex.Message, False)
|
||||
LOGGER.Warn("Could not read License for LICENSE_DOSSIER_COUNT: " & ex.Message)
|
||||
LICENSE_DOSSIER_COUNT = 0
|
||||
End Try
|
||||
|
||||
|
||||
@@ -1,200 +0,0 @@
|
||||
Imports System.IO
|
||||
Imports DD_LIB_Standards
|
||||
Public Class ClassLogger
|
||||
Public Shared DateiSpeicherort As String = Nothing
|
||||
Public Shared DateiPrefix As String = ""
|
||||
Public Shared Datei As IO.File = Nothing
|
||||
Public Shared logDateiname As String = ""
|
||||
Private Shared StreamWriter As IO.StreamWriter = Nothing
|
||||
Private Shared HasInformedAboutError As Boolean = False
|
||||
' eine Art Konstruktor
|
||||
Public Shared Sub Init(ByVal speicherort As String, Optional ByVal prefix As String = "", Optional ByVal appendFile As Boolean = True)
|
||||
' initialisiert den Speicherort
|
||||
ClassLogger.SetSpeicherort()
|
||||
'wenn ein Prfix gesetzt wurde
|
||||
If Not prefix = "" Then
|
||||
'initialisiert das Prefix
|
||||
ClassLogger.SetPrefix(prefix)
|
||||
End If
|
||||
Dim str As String = ClassLogger.DateiSpeicherort & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
|
||||
Dim anz As Integer = 1
|
||||
Do While File.Exists(str)
|
||||
Dim info As New FileInfo(str)
|
||||
Dim length As Long = info.Length
|
||||
If length > 5000000 Then
|
||||
str = IO.Path.GetDirectoryName(str)
|
||||
str = str & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & "(" & anz.ToString & ").txt"
|
||||
anz = anz + 1
|
||||
Else
|
||||
Exit Do
|
||||
End If
|
||||
Loop
|
||||
ClassLogger.logDateiname = str
|
||||
If Not appendFile Then
|
||||
' der Versuch die Datei zu löschen
|
||||
My.Computer.FileSystem.WriteAllText(ClassLogger.logDateiname, String.Empty, False)
|
||||
End If
|
||||
' testen ob sich die Datei öffnen und beschreiben lässt
|
||||
'ClassNILogger.CheckIsLogWritable()
|
||||
End Sub
|
||||
|
||||
' legt den Speicherort fest
|
||||
Public Shared Sub SetSpeicherort()
|
||||
Dim f As New IO.DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data\RecordOrganizer\Log"))
|
||||
If IO.Directory.Exists(f.ToString) = False Then
|
||||
IO.Directory.CreateDirectory(f.ToString)
|
||||
End If
|
||||
ClassLogger.DateiSpeicherort = f.ToString
|
||||
End Sub
|
||||
|
||||
' legt das Prefix für den Dateinamen fest
|
||||
Public Shared Sub SetPrefix(ByVal prefix As String)
|
||||
ClassLogger.DateiPrefix = prefix
|
||||
End Sub
|
||||
|
||||
Public Shared Sub Add(ByVal information As String, Optional ByVal ACHTUNG As Boolean = True, Optional ByVal Essential As Boolean = True)
|
||||
If ClassLogger.OpenFile Then
|
||||
Try
|
||||
If ACHTUNG Then
|
||||
ClassLogger.StreamWriter.WriteLine(String.Format("{0}: #ATTENTION# : {1}", Now.ToString, information))
|
||||
If clsDatabase.DB_DEFAULT_INITIALIZED = True And USER_GUID > 0 And Essential = True Then
|
||||
ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", information)
|
||||
Else
|
||||
ClassLogger.StreamWriter.WriteLine(String.Format("{0},{1},{2}", clsDatabase.DB_DEFAULT_INITIALIZED.ToString, USER_GUID.ToString, Essential.ToString))
|
||||
End If
|
||||
Else
|
||||
ClassLogger.StreamWriter.WriteLine(String.Format("{0}: {1}", Now.ToString, information))
|
||||
End If
|
||||
ClassLogger.CloseFile()
|
||||
Catch e As Exception
|
||||
ClassLogger.ShowErrorMessage()
|
||||
End Try
|
||||
Else
|
||||
ClassLogger.ShowErrorMessage()
|
||||
End If
|
||||
End Sub
|
||||
'Public Shared Sub Add(ByVal ex As Exception)
|
||||
' If ClassLogger.OpenFile Then
|
||||
' Try
|
||||
' ClassLogger.StreamWriter.WriteLine("##### Exception (" & System.DateTime.Now & ")")
|
||||
' ClassLogger.StreamWriter.WriteLine("##### Error: " & ex.Message & " Source [" & ex.Source & "]")
|
||||
' ClassLogger.CloseFile()
|
||||
' Catch e As Exception
|
||||
' ClassLogger.ShowErrorMessage()
|
||||
' End Try
|
||||
' Else
|
||||
' ClassLogger.ShowErrorMessage()
|
||||
' End If
|
||||
'End Sub
|
||||
' öffnet eine Datei zum Schreiben
|
||||
Private Shared Function OpenFile()
|
||||
Try
|
||||
' wenn ein Speicherort festgelegt wurde
|
||||
If Not ClassLogger.DateiSpeicherort = Nothing Then
|
||||
' den Dateienamen definieren
|
||||
Dim dateiname As String = ClassLogger.logDateiname
|
||||
' Datei anlegen wenn noch nicht vorhanden
|
||||
My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True)
|
||||
' die Datei zum Schreiben öffnen
|
||||
ClassLogger.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8)
|
||||
End If
|
||||
' wenn die Datei erfolgreich geöffnet wurde
|
||||
If ClassLogger.StreamWriter IsNot Nothing Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
' öffnet eine Datei zum Schreiben
|
||||
Private Shared Function OpenFile(ByVal DateiSpeicherort As String, ByVal DateiPrefix As String)
|
||||
|
||||
Try
|
||||
|
||||
' wenn ein Speicherort festgelegt wurde
|
||||
If Not DateiSpeicherort = Nothing And ClassLogger.CheckIsLogWritable() Then
|
||||
|
||||
' den Dateienamen definieren
|
||||
Dim dateiname As String = ClassLogger.logDateiname
|
||||
' Datei anlegen wenn noch nicht vorhanden
|
||||
My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True)
|
||||
|
||||
' die Datei zum Schreiben öffnen
|
||||
ClassLogger.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8)
|
||||
End If
|
||||
|
||||
' wenn die Datei erfolgreich geöffnet wurde
|
||||
If ClassLogger.StreamWriter IsNot Nothing Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
' schliesst die geöffnete Datei
|
||||
Private Shared Sub CloseFile()
|
||||
|
||||
' wenn eine Datei geöffnet ist
|
||||
If ClassLogger.StreamWriter IsNot Nothing Then
|
||||
' die Datei schliessen
|
||||
ClassLogger.StreamWriter.Close()
|
||||
ClassLogger.StreamWriter = Nothing
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Public Shared Function CheckIsLogWritable()
|
||||
|
||||
If ClassLogger.OpenFile Then
|
||||
Try
|
||||
ClassLogger.CloseFile()
|
||||
Catch e As Exception
|
||||
ClassLogger.ShowErrorMessage()
|
||||
Return False
|
||||
End Try
|
||||
Else
|
||||
ClassLogger.ShowErrorMessage()
|
||||
Return False
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function CheckIsLogWritable(ByVal vDateiSpeicherort As String, ByVal vDateiPrefix As String)
|
||||
|
||||
If ClassLogger.OpenFile(vDateiSpeicherort, vDateiPrefix) Then
|
||||
Try
|
||||
ClassLogger.CloseFile()
|
||||
Catch e As Exception
|
||||
ClassLogger.ShowErrorMessage()
|
||||
Return False
|
||||
End Try
|
||||
Else
|
||||
ClassLogger.ShowErrorMessage()
|
||||
Return False
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Private Shared Sub ShowErrorMessage()
|
||||
If Not ClassLogger.HasInformedAboutError Then
|
||||
MsgBox("Please make sure You can access the logpath and are able to write to the file. This may be due to security privileges or storage place in the drive." & _
|
||||
vbNewLine & vbNewLine & "A logfile won't be written from now on." & vbNewLine & vbNewLine & "You won't be informed about further logdetails from now on.", _
|
||||
MsgBoxStyle.Information, "Error opening Logfile")
|
||||
ClassLogger.HasInformedAboutError = True
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -13,7 +13,7 @@
|
||||
Return foundRowsLevel0(i)(COL_NAME)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Unvorhergesehener Fehler in Return_CURRENT_TBPMO_INDEX_MAN_VALUE - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Unvorhergesehener Fehler in Return_CURRENT_TBPMO_INDEX_MAN_VALUE - Fehler: " & vbNewLine & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
@@ -32,7 +32,7 @@ Public Class ClassNodeNavigation
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CreateNodeProcedure: ")
|
||||
ClassLogger.Add("Error in CreateNodeProcedure: " & ex.Message, True)
|
||||
LOGGER.Warn("Error in CreateNodeProcedure: " & ex.Message)
|
||||
Return 0
|
||||
End Try
|
||||
End Function
|
||||
@@ -96,14 +96,14 @@ Public Class ClassNodeNavigation
|
||||
Dim NODE_ID
|
||||
Dim NODE_CONFIG_ID
|
||||
Dim staticListItems = myTreeNode.Tag.Split("#")
|
||||
If LogErrorsOnly = False Then ClassLogger.Add($"SUB CNCID.myTreeNode.Tag [{myTreeNode.Tag.ToString}]", False)
|
||||
LOGGER.Debug($"SUB CNCID.myTreeNode.Tag [{myTreeNode.Tag.ToString}]", False)
|
||||
If staticListItems(0).Contains("NODE-TYPE") Or staticListItems(0).Contains("CONFIG_NODE") Then
|
||||
' NODE_ID = staticListItems(0).ToString.Replace("NODE-TYPE-", "")
|
||||
NODE_ID = Return_NODEID_forTag(myTreeNode.Tag)
|
||||
NODE_CONFIG_ID = Return_NODE_CONFIG_ID_forTag(myTreeNode.Tag)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add($"SUB CNCID.Checking nodeconfig on NODE_ID [{NODE_ID.ToString}] and NODE_CONFIG_ID [{NODE_CONFIG_ID.ToString}]", False)
|
||||
LOGGER.Debug($"SUB CNCID.Checking nodeconfig on NODE_ID [{NODE_ID.ToString}] and NODE_CONFIG_ID [{NODE_CONFIG_ID.ToString}]", False)
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add($"Attention no NODE-TYPE in staticListItems(0) [{staticListItems(0).ToString}]", False)
|
||||
LOGGER.Debug($"Attention no NODE-TYPE in staticListItems(0) [{staticListItems(0).ToString}]", False)
|
||||
End If
|
||||
If NODE_CONFIGURABLE_NODES_DT.Rows.Count > 0 And IsNumeric(NODE_ID) Then
|
||||
'Prüfen ob es für dieses Level einen konfigurierbaren Knoten gibt
|
||||
@@ -127,25 +127,25 @@ Public Class ClassNodeNavigation
|
||||
|
||||
|
||||
If Not IsNothing(ID) Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add($"SUB CNCID.We have a NODE_CONFIGURABLE_ID [{ID.ToString}]!!", False)
|
||||
LOGGER.Debug($"SUB CNCID.We have a NODE_CONFIGURABLE_ID [{ID.ToString}]!!", False)
|
||||
ClassNodeNavigation.NODE_CONFIGURABLE_ID = ID
|
||||
CURRENT_NODE_CONFIGURABLE_ID = ID
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add($"SUB CNCID.NODE_CONFIGURABLE_ID is nothing!!", False)
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add("CURRENT_NODE_CONFIGURABLE_ID would be nothing...", False)
|
||||
LOGGER.Debug($"SUB CNCID.NODE_CONFIGURABLE_ID is nothing!!", False)
|
||||
' LOGGER.Debug("CURRENT_NODE_CONFIGURABLE_ID would be nothing...", False)
|
||||
CURRENT_NODE_CONFIGURABLE_ID = 0
|
||||
End If
|
||||
Else
|
||||
If IsNumeric(NODE_ID) = False Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("SUB CNCID.NODE_ID is not numeric", False)
|
||||
LOGGER.Debug("SUB CNCID.NODE_ID is not numeric", False)
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("SUB CNCID.NO NODE_CONFIGURABLE_NODES_DT", False)
|
||||
LOGGER.Debug("SUB CNCID.NO NODE_CONFIGURABLE_NODES_DT", False)
|
||||
End If
|
||||
|
||||
CURRENT_NODE_CONFIGURABLE_ID = 0
|
||||
End If
|
||||
Catch ex As Exception
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("SUB CNCID.CURRENT_NODE_CONFIGURABLE_ID would be nothing(1)...", False)
|
||||
LOGGER.Debug("SUB CNCID.CURRENT_NODE_CONFIGURABLE_ID would be nothing(1)...", False)
|
||||
ClassNodeNavigation.NODE_CONFIGURABLE_ID = 0
|
||||
CURRENT_NODE_CONFIGURABLE_ID = 0
|
||||
End Try
|
||||
@@ -166,7 +166,7 @@ Public Class ClassNodeNavigation
|
||||
End If
|
||||
Return TagString
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in CreateNODE_TAG (NodeNavigation): " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in CreateNODE_TAG (NodeNavigation): " & ex.Message)
|
||||
MsgBox("Error in CreateNODE_TAG (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
TagString = "ERROR NODETAG_CREATION"
|
||||
Return TagString
|
||||
@@ -220,7 +220,7 @@ Public Class ClassNodeNavigation
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Formatting NodeColor (CreateTreViewNodes): " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in Formatting NodeColor (CreateTreViewNodes): " & ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
@@ -232,7 +232,7 @@ Public Class ClassNodeNavigation
|
||||
sw.Done()
|
||||
Return mytrv
|
||||
Catch ex As System.Exception
|
||||
ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodes (NodeNavigation-CreateTreViewNodes): " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in CreateTreeViewNodes (NodeNavigation-CreateTreViewNodes): " & ex.Message)
|
||||
MsgBox("Error in CreateTreeViewNodes (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return Nothing
|
||||
End Try
|
||||
@@ -290,7 +290,7 @@ Public Class ClassNodeNavigation
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Formatting NodeColor (Subnodes): " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in Formatting NodeColor (Subnodes): " & ex.Message)
|
||||
End Try
|
||||
CheckSubNodes(DT_TREEVIEW_NODES, SUB_NODE_ROW(i)("GUID"), TREEVIEW_IMAGELIST, SUB_NODE, SUB_NODE_ROW(i)("EXPAND_NODE"))
|
||||
'Add the node
|
||||
@@ -317,7 +317,7 @@ Public Class ClassNodeNavigation
|
||||
Next
|
||||
Return Nothing
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in FindNode (NodeNavigation): " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in FindNode (NodeNavigation): " & ex.Message)
|
||||
MsgBox("Error in FindNode (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return Nothing
|
||||
End Try
|
||||
@@ -333,7 +333,7 @@ Public Class ClassNodeNavigation
|
||||
Dim staticListItems = NodeString.Split("#")
|
||||
Return staticListItems(1)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Return_ENTITY_FOR_TAG ('" & NodeString & "'): " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in Return_ENTITY_FOR_TAG ('" & NodeString & "'): " & ex.Message)
|
||||
Return 0
|
||||
End Try
|
||||
End If
|
||||
@@ -356,7 +356,7 @@ Public Class ClassNodeNavigation
|
||||
End If
|
||||
Catch ex As Exception
|
||||
sw.Done()
|
||||
ClassLogger.Add("Unexpected Error in Return_RECORD_forTag ('" & NodeString & "'): " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in Return_RECORD_forTag ('" & NodeString & "'): " & ex.Message)
|
||||
Return 0
|
||||
End Try
|
||||
Else
|
||||
|
||||
@@ -41,7 +41,7 @@ Public Class ClassOfficeTemplate
|
||||
' word.Visible = (True) 'Word sichtbar
|
||||
|
||||
For Each cc In doc.ContentControls
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Office-Pattern: " & cc.Tag, False)
|
||||
LOGGER.Debug("Office-Pattern: " & cc.Tag, False)
|
||||
For Each patternrow As System.Data.DataRow In DT_PATTERNS.Rows
|
||||
If patternrow.Item("NAME_PATTERN").ToString.ToUpper = cc.Tag.ToString.ToUpper Then
|
||||
If Not IsDBNull(patternrow.Item("FIXED_VALUE")) Then
|
||||
@@ -53,20 +53,20 @@ Public Class ClassOfficeTemplate
|
||||
Dim Control_ID = fvalue '.Replace("@CONTROLID:", "")
|
||||
Try
|
||||
If CInt(Control_ID) Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Get Value for Control-ID: " & Control_ID.ToString, False)
|
||||
LOGGER.Debug("Get Value for Control-ID: " & Control_ID.ToString, False)
|
||||
Dim value_akt = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID)
|
||||
If Not IsNothing(value_akt) Then
|
||||
cc.Range.Text = value_akt.ToString
|
||||
Else
|
||||
ClassLogger.Add("Für Control-ID '" & Control_ID & "' konnte kein Wert gelesen werden!", True)
|
||||
LOGGER.Warn("Für Control-ID '" & Control_ID & "' konnte kein Wert gelesen werden!")
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unerwarteter Fehler beim Auslesen eines Control-Wertes in Pattern-For: " & ex.Message, True)
|
||||
LOGGER.Warn("Unerwarteter Fehler beim Auslesen eines Control-Wertes in Pattern-For: " & ex.Message)
|
||||
End Try
|
||||
'End If
|
||||
'Else
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Pattern wird mit festem Wert '" & patternrow.Item("FIXED_VALUE") & "' gefüllt!", False)
|
||||
' LOGGER.Debug("Pattern wird mit festem Wert '" & patternrow.Item("FIXED_VALUE") & "' gefüllt!", False)
|
||||
' cc.Range.Text = patternrow.Item("FIXED_VALUE").ToString
|
||||
'End If
|
||||
End If
|
||||
@@ -108,7 +108,7 @@ Public Class ClassOfficeTemplate
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in Open_Word_Template: " & ex.Message, True)
|
||||
LOGGER.Warn("Error in Open_Word_Template: " & ex.Message)
|
||||
MsgBox("Unexpected Error in Open_Word_Template:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
@@ -33,7 +33,7 @@ Public Class ClassPosGrid
|
||||
Try
|
||||
DT = ClassDatabase.Return_Datatable(sqlCommand)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in FormatComboColumn: " & ex.Message)
|
||||
LOGGER.Warn("Error in FormatComboColumn: " & ex.Message)
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
|
||||
@@ -31,7 +31,7 @@ Public Class ClassRecordCommands
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CreateRecordProcedure: ")
|
||||
ClassLogger.Add("Error in CreateRecordProcedure: " & ex.Message, True)
|
||||
LOGGER.Warn("Error in CreateRecordProcedure: " & ex.Message)
|
||||
ClassHelper.InsertEssential_Log(formId, "ENTITY-ID", "ENTITY-ID: " & formId & ": " & ex.Message)
|
||||
Return 0
|
||||
End Try
|
||||
@@ -48,7 +48,7 @@ Public Class ClassRecordCommands
|
||||
|
||||
Public Shared Function ConnectRecord(PARENT_RECORD As Integer, LINK_RECORD As Integer, Optional Comment As String = "")
|
||||
Dim SQL = "INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT,ADDED_WHO) VALUES (" & PARENT_RECORD & "," & LINK_RECORD & ",'" & Comment & "','" & USER_USERNAME & "')"
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> ConnectRecord SQL: " & SQL, False)
|
||||
LOGGER.Debug("ConnectRecord SQL: " & SQL, False)
|
||||
Return ClassDatabase.Execute_non_Query(SQL)
|
||||
End Function
|
||||
Public Shared Function CHECK_RECORD_FINAL(RecordId As Integer, IsInsert As Boolean)
|
||||
|
||||
@@ -69,15 +69,15 @@
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If LogErrorsOnly = False Then
|
||||
ClassLogger.Add(" >> RIGHT_EDIT_R: " & RIGHT_EDIT_R.ToString, False)
|
||||
ClassLogger.Add(" >> RIGHT_ADD_R: " & RIGHT_ADD_R.ToString, False)
|
||||
ClassLogger.Add(" >> RIGHT_DELETE_R: " & RIGHT_DELETE_R.ToString, False)
|
||||
ClassLogger.Add(" >> RIGHT_ADD_DOC: " & RIGHT_ADD_DOC.ToString, False)
|
||||
ClassLogger.Add(" >> RIGHT_VIEW_DOC: " & RIGHT_VIEW_DOC.ToString, False)
|
||||
ClassLogger.Add(" >> RIGHT_DELETE_DOC: " & RIGHT_DELETE_DOC.ToString, False)
|
||||
ClassLogger.Add(" >> RIGHT_READ_ONLY_DOC: " & RIGHT_READ_ONLY_DOC.ToString, False)
|
||||
End If
|
||||
|
||||
LOGGER.Debug("RIGHT_EDIT_R: " & RIGHT_EDIT_R.ToString)
|
||||
LOGGER.Debug("RIGHT_ADD_R: " & RIGHT_ADD_R.ToString)
|
||||
LOGGER.Debug("RIGHT_DELETE_R: " & RIGHT_DELETE_R.ToString)
|
||||
LOGGER.Debug("RIGHT_ADD_DOC: " & RIGHT_ADD_DOC.ToString)
|
||||
LOGGER.Debug("RIGHT_VIEW_DOC: " & RIGHT_VIEW_DOC.ToString)
|
||||
LOGGER.Debug("RIGHT_DELETE_DOC: " & RIGHT_DELETE_DOC.ToString)
|
||||
LOGGER.Debug("RIGHT_READ_ONLY_DOC: " & RIGHT_READ_ONLY_DOC.ToString)
|
||||
|
||||
sw.Done()
|
||||
Catch ex As Exception
|
||||
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Check_Set_Rights", ex.Message, ex.StackTrace)
|
||||
|
||||
@@ -4,20 +4,20 @@ Public Class ClassSAP
|
||||
Public Shared SAP_CONNECTION As New R3Connection()
|
||||
Public Shared Function ConnectionInit(Host As String, SysNumber As String, Username As String, PW As String, Client As String, Lang As String)
|
||||
Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("", False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP Connect started:", False)
|
||||
LOGGER.Debug("", False)
|
||||
LOGGER.Debug("SAP Connect started:", False)
|
||||
SAPConnectionString = String.Format("USER={0} LANG={1} CLIENT={2} SYSNR={3} ASHOST={4} PASSWD={5}", Username, Lang, Client, SysNumber, Host, PW)
|
||||
Dim con As New R3Connection()
|
||||
ERPConnect.LIC.SetLic("W86DWC992C")
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP Connectionstring: " & SAPConnectionString, False)
|
||||
LOGGER.Debug("SAP Connectionstring: " & SAPConnectionString, False)
|
||||
con.Open(SAPConnectionString)
|
||||
SAP_CONNECTION.Open(SAPConnectionString)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP-Connection created!", False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("", False)
|
||||
LOGGER.Debug("SAP-Connection created!", False)
|
||||
LOGGER.Debug("", False)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in SAP ConnectionInit: " & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Error in SAP ConnectionInit: " & ex.Message, True)
|
||||
LOGGER.Warn("Error in SAP ConnectionInit: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -25,29 +25,29 @@ Public Class ClassSAP
|
||||
Try
|
||||
Dim RESULT_TABLE As DataTable = New DataTable
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Get data from FuBa-Function", False)
|
||||
LOGGER.Debug("Get data from FuBa-Function", False)
|
||||
Dim func As RFCFunction
|
||||
Try
|
||||
func = SAP_CONNECTION.CreateFunction(FuBaName)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> func.Execute", False)
|
||||
LOGGER.Debug("func.Execute", False)
|
||||
func.Execute()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> function was executed", False)
|
||||
LOGGER.Debug("function was executed", False)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Create SAP Function: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in Create SAP Function: " & ex.Message, False)
|
||||
MsgBox("Error in Create SAP Function: " & ex.Message, MsgBoxStyle.Critical)
|
||||
Return Nothing
|
||||
End Try
|
||||
Dim FUNCT_ROW_COUNT As Integer = 1
|
||||
Dim RowMaskresult As String = ""
|
||||
Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Checking FunctionExecute", False)
|
||||
LOGGER.Debug("Checking FunctionExecute", False)
|
||||
'Den ersten Wert ausgeben lassen um die Spalten zu splitten
|
||||
|
||||
For Each row As RFCStructure In func.Tables("T_INDEX").Rows
|
||||
Try
|
||||
If row.Item(1).ToString.Contains(SplitCharacter) Then
|
||||
RowMaskresult = row.Item(1).ToString
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> RowMask result: " & RowMaskresult, False)
|
||||
LOGGER.Debug("RowMask result: " & RowMaskresult, False)
|
||||
FUNCT_ROW_COUNT = 2
|
||||
End If
|
||||
Catch ex As Exception
|
||||
@@ -56,7 +56,7 @@ Public Class ClassSAP
|
||||
If FUNCT_ROW_COUNT = 2 Then Exit For
|
||||
Next
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Checking FunctionExecute: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in Checking FunctionExecute: " & ex.Message, False)
|
||||
MsgBox("Error in Checking FunctionExecute: " & ex.Message, MsgBoxStyle.Critical)
|
||||
SAP_CONNECTION.Close()
|
||||
Return Nothing
|
||||
@@ -65,18 +65,18 @@ Public Class ClassSAP
|
||||
Dim ColCount As Integer
|
||||
If SplitCharacter <> "" And RowMaskresult.Contains(SplitCharacter) Then
|
||||
Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Define Datatable with SplitCharacter method", False)
|
||||
LOGGER.Debug("Define Datatable with SplitCharacter method", False)
|
||||
Dim split() = RowMaskresult.Split(SplitCharacter)
|
||||
If split.Length > 0 Then
|
||||
ColCount = split.Length - 1
|
||||
CURRENT_COL_COUNT = ColCount
|
||||
If LogErrorsOnly = False Then
|
||||
ClassLogger.Add(" >> ColCount: " & ColCount.ToString, False)
|
||||
ClassLogger.Add(" >> Split-Results: ", False)
|
||||
|
||||
LOGGER.Debug("ColCount: " & ColCount.ToString, False)
|
||||
LOGGER.Debug("Split-Results: ", False)
|
||||
For Each s As String In split
|
||||
ClassLogger.Add(" # " & s, False)
|
||||
LOGGER.Debug(" # " & s, False)
|
||||
Next
|
||||
End If
|
||||
|
||||
For x = 0 To ColCount
|
||||
' Declare DataColumn and DataRow variables.
|
||||
Dim column As DataColumn
|
||||
@@ -86,14 +86,14 @@ Public Class ClassSAP
|
||||
column.ColumnName = "Column " & x.ToString
|
||||
RESULT_TABLE.Columns.Add(column)
|
||||
Next
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Datatable Columns after Split created", False)
|
||||
LOGGER.Debug("Datatable Columns after Split created", False)
|
||||
' Create new DataRow objects and add to DataTable.
|
||||
'Jetzt die Zeilen der Function durchlaufen
|
||||
For Each row As RFCStructure In func.Tables("T_INDEX").Rows
|
||||
Dim new_row As DataRow
|
||||
If RowLimit <> 0 Then
|
||||
If RowLimit = FUNCT_ROW_COUNT Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> RowCount limited to" & RowLimit.ToString & " rows. Exit SAP Function", False)
|
||||
LOGGER.Debug("RowCount limited to" & RowLimit.ToString & " rows. Exit SAP Function", False)
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
@@ -110,13 +110,13 @@ Public Class ClassSAP
|
||||
RESULT_TABLE.Rows.Add(new_row)
|
||||
End If
|
||||
Next
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> RowCount FuBa: " & RESULT_TABLE.Rows.Count.ToString, False)
|
||||
LOGGER.Debug("RowCount FuBa: " & RESULT_TABLE.Rows.Count.ToString, False)
|
||||
Return RESULT_TABLE
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Create Datatable with split-method: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in Create Datatable with split-method: " & ex.Message, False)
|
||||
MsgBox("Unexpected Error in Create Datatable with split-method: " & ex.Message, MsgBoxStyle.Critical)
|
||||
SAP_CONNECTION.Close()
|
||||
Return Nothing
|
||||
@@ -125,7 +125,7 @@ Public Class ClassSAP
|
||||
Return Nothing
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Function FuBa_ReturnDatatable Seperated: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in Function FuBa_ReturnDatatable Seperated: " & ex.Message, False)
|
||||
MsgBox("Unexpected Error in Function FuBa_ReturnDatatable Seperated: " & ex.Message, MsgBoxStyle.Critical)
|
||||
Return Nothing
|
||||
End Try
|
||||
@@ -133,7 +133,7 @@ Public Class ClassSAP
|
||||
Public Shared Function Return_Datatable_for_Table(tablename As String, where_clause As String, Optional RowLimit As Integer = 0)
|
||||
Try
|
||||
Dim RESULT_TABLE As DataTable = New DataTable
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Get data from SAP Table", False)
|
||||
LOGGER.Debug("Get data from SAP Table", False)
|
||||
Dim table As New ERPConnect.Utils.ReadTable(SAP_CONNECTION)
|
||||
'Dim cWhereClause = "SAP_OBJECT EQ '<ObjectType>' AND AR_DATE GE '<AR_DATE>'"
|
||||
'Dim sSearchDate1 = "20160101"
|
||||
@@ -146,21 +146,21 @@ Public Class ClassSAP
|
||||
If RowLimit <> 0 Then
|
||||
table.RowCount = RowLimit
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >>Table.Run executing.....", False)
|
||||
LOGGER.Debug(" >>Table.Run executing.....", False)
|
||||
table.Run()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >>Table.Run executed", False)
|
||||
LOGGER.Debug(" >>Table.Run executed", False)
|
||||
RESULT_TABLE = table.Result
|
||||
SAP_CONNECTION.Close()
|
||||
Return RESULT_TABLE
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in SAP Table Result: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in SAP Table Result: " & ex.Message, False)
|
||||
MsgBox("Unexpected Error in SAP Table Result: " & ex.Message, MsgBoxStyle.Critical)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
Public Shared Function LINK_ARC_OBJECT(table As String, barcode As String, contrep As String, docid As String, ardate As String, doctype As String)
|
||||
Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> CREATE_ARC_OBJECT", False)
|
||||
LOGGER.Debug("CREATE_ARC_OBJECT", False)
|
||||
Dim sapfunc As RFCFunction = SAP_CONNECTION.CreateFunction("BAPI_BARCODE_SENDLIST")
|
||||
|
||||
'Create and fill the frist row
|
||||
@@ -185,14 +185,14 @@ Public Class ClassSAP
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in SAP Table Result: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in SAP Table Result: " & ex.Message, False)
|
||||
MsgBox("Unexpected Error in CREATE_ARC_OBJECT: " & ex.Message, MsgBoxStyle.Critical)
|
||||
Return ex.Message
|
||||
End Try
|
||||
End Function
|
||||
Public Shared Function INSERT_ARCHIVE_OBJECT(ARCHIV_ID As String, ARC_DOC_ID As String, AR_OBJECT As String, OBJECT_ID As String, SAP_OBJECT As String, DOC_TYPE As String, table As String)
|
||||
Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> INSERT_ARCHIVE_OBJECT", False)
|
||||
LOGGER.Debug("INSERT_ARCHIVE_OBJECT", False)
|
||||
Dim sapfunc As RFCFunction = SAP_CONNECTION.CreateFunction("ARCHIV_CONNECTION_INSERT")
|
||||
|
||||
'Create and fill the frist row
|
||||
@@ -222,7 +222,7 @@ Public Class ClassSAP
|
||||
Return ""
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in INSERT_ARCHIVE_OBJECT: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in INSERT_ARCHIVE_OBJECT: " & ex.Message, False)
|
||||
MsgBox("Unexpected Error in INSERT_ARCHIVE_OBJECT: " & ex.Message, MsgBoxStyle.Critical)
|
||||
Return ex.Message
|
||||
End Try
|
||||
|
||||
@@ -47,14 +47,14 @@ Public Class ClassUpdate
|
||||
ALL_USERS = DT_UPDATE.Rows(0).Item("ALL_USERS")
|
||||
sql = String.Format("SELECT * FROM TBDD_VERSION_ITEMS WHERE UPDATE_ID = {0} AND [INFO1] IS NOT NULL ORDER BY GUID", UPDATE_ID)
|
||||
DT_UPDATE_ITEMS = clsDatabase.Return_Datatable(sql)
|
||||
ClassLogger.Add(String.Format("{0} items need to be updated!", DT_UPDATE_ITEMS.Rows.Count.ToString), False)
|
||||
LOGGER.Info(String.Format("{0} items need to be updated!", DT_UPDATE_ITEMS.Rows.Count.ToString))
|
||||
Else
|
||||
ClassLogger.Add(">> No Updates Configured!", False)
|
||||
LOGGER.Info("No Updates Configured!")
|
||||
End If
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in ClassUpdate - Init: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in ClassUpdate - Init: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
@@ -73,12 +73,12 @@ Public Class ClassUpdate
|
||||
End If
|
||||
Next
|
||||
If RecExe_found = False Then
|
||||
ClassLogger.Add("Could not find the path for RecordOrganizer", True)
|
||||
LOGGER.Warn("Could not find the path for RecordOrganizer")
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in InitInstallPath: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in InitInstallPath: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -101,7 +101,7 @@ Public Class ClassUpdate
|
||||
End If
|
||||
Next
|
||||
Catch excpt As System.Exception
|
||||
ClassLogger.Add("Unexpected Error in DirSearch: " & excpt.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in DirSearch: " & excpt.Message)
|
||||
MY_INSTALL_PATH = ""
|
||||
End Try
|
||||
End Sub
|
||||
@@ -112,7 +112,7 @@ Public Class ClassUpdate
|
||||
sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", USER_USERNAME)
|
||||
Dim USER_DT As DataTable = clsDatabase.Return_Datatable(sql, True)
|
||||
If USER_DT.Rows.Count = 0 Then
|
||||
ClassLogger.Add(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
|
||||
LOGGER.Warn(" - User '" & USER_USERNAME & "' not listed in Useradministration!")
|
||||
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
||||
'Me.Close()
|
||||
Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
|
||||
@@ -139,7 +139,7 @@ Public Class ClassUpdate
|
||||
Return True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in InitUser_Update_Spec: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in InitUser_Update_Spec: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
@@ -185,7 +185,7 @@ Public Class ClassUpdate
|
||||
'If FORCE_UPDATE = False Then
|
||||
|
||||
' If VERSIONS_FOR_FORCE_UPDATE.Contains(VERSION_USER) Then
|
||||
' ClassLogger.Add(String.Format("VersionChecker: ForceUpdate for User as Version '{0}' is used!", VERSION_USER), False)
|
||||
' Logger.Warn(String.Format("VersionChecker: ForceUpdate for User as Version '{0}' is used!", VERSION_USER), False)
|
||||
' ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("VersionChecker: ForceUpdate for User as Version '{0}' is used!", VERSION_USER))
|
||||
' FORCE_UPDATE = True
|
||||
' End If
|
||||
@@ -195,7 +195,7 @@ Public Class ClassUpdate
|
||||
' If ALL_USERS = False Then
|
||||
' sql = String.Format("SELECT COUNT(GUID) FROM TBDD_VERSION_USER_UPDATE WHERE USER_ID = {0} AND UPDATE_ID = {1}", USER_GUID, UPDATE_ID)
|
||||
' If clsDatabase.Execute_Scalar(sql) = 0 Then
|
||||
' ClassLogger.Add(String.Format("VersionChecker: User is not part of update-group - UPDATE-ID: {0}", UPDATE_ID), False)
|
||||
' Logger.Warn(String.Format("VersionChecker: User is not part of update-group - UPDATE-ID: {0}", UPDATE_ID), False)
|
||||
' ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("VersionChecker: User is not part of update-group - UPDATE-ID: {0}", UPDATE_ID))
|
||||
' Exit Sub
|
||||
' End If
|
||||
@@ -220,7 +220,7 @@ Public Class ClassUpdate
|
||||
|
||||
Dim error_while_copying = False
|
||||
For Each Upd_item As DataRow In DT_UPDATE_ITEMS.Rows
|
||||
ClassLogger.Add(String.Format("...working on item {0}: ", Upd_item.Item("ITEM_INFO")), False)
|
||||
LOGGER.Info(String.Format("...working on item {0}: ", Upd_item.Item("ITEM_INFO")))
|
||||
|
||||
If Upd_item.Item("ITEM_INFO") = "VERSION_CHECKER.exe" Then
|
||||
KEEP_TEMPPATH = Upd_item.Item("BIT3")
|
||||
@@ -249,8 +249,8 @@ Public Class ClassUpdate
|
||||
End If
|
||||
End If
|
||||
targetfile = targetfile.ToString.Replace("//", "/")
|
||||
ClassLogger.Add(String.Format("...replacing targetfile '{0}': ", targetfile), False)
|
||||
Try
|
||||
LOGGER.Info(String.Format("...replacing targetfile '{0}': ", targetfile))
|
||||
Try
|
||||
' Replace the file.
|
||||
If File.Exists(targetfile) Then
|
||||
If File_Rename(targetfile, BackUpOfFileToReplace) = True Then
|
||||
@@ -258,7 +258,7 @@ Public Class ClassUpdate
|
||||
If KEEP_TEMPPATH Then
|
||||
If CopyFile(sourcefile, targetfile) = True Then
|
||||
File_Delete(BackUpOfFileToReplace)
|
||||
ClassLogger.Add(String.Format("...targetfile '{0}' was copied! ", targetfile), False)
|
||||
LOGGER.Warn(String.Format("...targetfile '{0}' was copied! ", targetfile), False)
|
||||
Dim updinfo
|
||||
If USER_INFO1 <> "" Then
|
||||
updinfo = USER_INFO1 & ";" & Upd_item.Item("INFO1") & "V" & Upd_item.Item("INFO2")
|
||||
@@ -271,7 +271,7 @@ Public Class ClassUpdate
|
||||
Else
|
||||
If MoveFile(sourcefile, targetfile) = True Then
|
||||
File_Delete(BackUpOfFileToReplace)
|
||||
ClassLogger.Add(String.Format("...targetfile '{0}' was replaced! ", targetfile), False)
|
||||
LOGGER.Info(String.Format("...targetfile '{0}' was replaced! ", targetfile))
|
||||
Dim updinfo
|
||||
If USER_INFO1 <> "" Then
|
||||
updinfo = USER_INFO1 & ";" & Upd_item.Item("INFO1") & "V" & Upd_item.Item("INFO2")
|
||||
@@ -281,7 +281,7 @@ Public Class ClassUpdate
|
||||
Dim _Sql = String.Format("Update TBDD_VERSION_USER_UPDATE_PATH SET INFO1 = '{2}' WHERE USER_ID = {0} AND UPPER(MODULE_NAME) = UPPER('{1}')", USER_GUID, "Record-Organizer", updinfo)
|
||||
clsDatabase.Execute_non_Query(_Sql)
|
||||
Else
|
||||
ClassLogger.Add(String.Format("MoveFile was not successfull! BackupFile will be activated!"))
|
||||
LOGGER.Warn(String.Format("MoveFile was not successfull! BackupFile will be activated!"))
|
||||
'Verschieben hat nicht geklappt also die Backupdatei wieder umbenennen!
|
||||
File_Rename(BackUpOfFileToReplace, targetfile)
|
||||
End If
|
||||
@@ -296,15 +296,15 @@ Public Class ClassUpdate
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(String.Format("Error while copying file {0} to {1}: " & ex.Message, sourcefile, targetfile))
|
||||
error_while_replacing = True
|
||||
LOGGER.Warn(String.Format("Error while copying file {0} to {1}: " & ex.Message, sourcefile, targetfile))
|
||||
error_while_replacing = True
|
||||
UPDATE_ERROR = True
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(String.Format("Unexpected Error in Replace_Files: {0}", ex.Message))
|
||||
LOGGER.Warn(String.Format("Unexpected Error in Replace_Files: {0}", ex.Message))
|
||||
UPDATE_ERROR = True
|
||||
End Try
|
||||
End If
|
||||
@@ -318,20 +318,20 @@ Public Class ClassUpdate
|
||||
'Delete the tempfolder and all data
|
||||
System.IO.Directory.Delete(FOLDER_TEMP, True)
|
||||
Else
|
||||
ClassLogger.Add(String.Format("TEMP FOLDER SHALL BE KEPT..."), False)
|
||||
LOGGER.Info(String.Format("TEMP FOLDER SHALL BE KEPT..."), False)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
'Else
|
||||
' ClassLogger.Add(String.Format("The temporaryFolder could not be created!"))
|
||||
' Logger.Warn(String.Format("The temporaryFolder could not be created!"))
|
||||
'End If
|
||||
Else
|
||||
ClassLogger.Add(String.Format("The Updatepath '{0}'is not accessible or does not exist", MyServer_UpdatePath))
|
||||
LOGGER.Warn(String.Format("The Updatepath '{0}'is not accessible or does not exist", MyServer_UpdatePath))
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(String.Format("NO ACTION: the Updatepath is empty"))
|
||||
LOGGER.Warn(String.Format("NO ACTION: the Updatepath is empty"))
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -343,7 +343,7 @@ Public Class ClassUpdate
|
||||
End If
|
||||
FOLDER_TEMP = folder
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(String.Format("Error while Creating tempfolder: " & ex.Message))
|
||||
LOGGER.Warn(String.Format("Error while Creating tempfolder: " & ex.Message))
|
||||
End Try
|
||||
|
||||
End Function
|
||||
@@ -359,7 +359,7 @@ Public Class ClassUpdate
|
||||
Rename(targetfile, Renamefilestring)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(String.Format("ClassUpdate - Unexpected Error in File_Rename: " & "OldPath '{0}'" & "NewPath '{1}'" & "ERROR: {2}", targetfile, Renamefilestring, ex.Message))
|
||||
LOGGER.Warn(String.Format("ClassUpdate - Unexpected Error in File_Rename: " & "OldPath '{0}'" & "NewPath '{1}'" & "ERROR: {2}", targetfile, Renamefilestring, ex.Message))
|
||||
UPDATE_ERROR = True
|
||||
Return False
|
||||
End Try
|
||||
@@ -369,7 +369,7 @@ Public Class ClassUpdate
|
||||
File.Delete(deletefile)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(String.Format("Unexpected Error in File_Delete: " & vbNewLine & "deletefile '{0}'" & vbNewLine & "ERROR: {2}", deletefile, ex.Message))
|
||||
LOGGER.Warn(String.Format("Unexpected Error in File_Delete: " & vbNewLine & "deletefile '{0}'" & vbNewLine & "ERROR: {2}", deletefile, ex.Message))
|
||||
UPDATE_ERROR = True
|
||||
Return False
|
||||
End Try
|
||||
@@ -379,7 +379,7 @@ Public Class ClassUpdate
|
||||
File.Move(sourcefile, targetfile)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(String.Format("Unexpected Error in MoveFile: sourcefile '{0}', targetfile '{1}' - ERROR: {2}", sourcefile, targetfile, ex.Message))
|
||||
LOGGER.Warn(String.Format("Unexpected Error in MoveFile: sourcefile '{0}', targetfile '{1}' - ERROR: {2}", sourcefile, targetfile, ex.Message))
|
||||
UPDATE_ERROR = True
|
||||
Return False
|
||||
End Try
|
||||
@@ -389,7 +389,7 @@ Public Class ClassUpdate
|
||||
File.Copy(sourcefile, destfile, True)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(String.Format("Unexpected Error in CopyFile: sourcefile '{0}', destfile '{1}' - ERROR: {2}", sourcefile, destfile, ex.Message))
|
||||
LOGGER.Warn(String.Format("Unexpected Error in CopyFile: sourcefile '{0}', destfile '{1}' - ERROR: {2}", sourcefile, destfile, ex.Message))
|
||||
UPDATE_ERROR = True
|
||||
Return False
|
||||
End Try
|
||||
|
||||
@@ -6,7 +6,7 @@
|
||||
SQL = $"DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = {USER_GUID} AND MODULE = 'Record-Organizer'"
|
||||
ClassDatabase.Execute_non_Query(sql)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error while logging out user: " & ex.Message)
|
||||
LOGGER.Warn("Error while logging out user: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -37,13 +37,13 @@ Public Class ClassWDRights
|
||||
Public Shared Function Init()
|
||||
Try
|
||||
MSG_RESULT = ""
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Init ClassWDRights started - " & Now & " ..."), False)
|
||||
LOGGER.Debug(String.Format("Init ClassWDRights started - " & Now & " ..."))
|
||||
Dim DT_KONFIG As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_SERVICE_RIGHT_CONFIG WHERE GUID = 1")
|
||||
AD_DOMAIN = DT_KONFIG.Rows(0).Item("AD_DOMAIN")
|
||||
AD_USER = DT_KONFIG.Rows(0).Item("AD_USER")
|
||||
WD_RIGHT_ADMIN = DT_KONFIG.Rows(0).Item("WD_RIGHT")
|
||||
If clsDatabase.DB_PROXY_INITIALIZED = True And ClassProxy.MyLinkedServer <> String.Empty Then
|
||||
ClassLogger.Add("User configured a proxy: " & ClassProxy.MyLinkedServer, False)
|
||||
LOGGER.Info("User configured a proxy: " & ClassProxy.MyLinkedServer)
|
||||
AD_SERVER = ClassProxy.MyLinkedServer
|
||||
Else
|
||||
AD_SERVER = DT_KONFIG.Rows(0).Item("AD_SERVER")
|
||||
@@ -55,25 +55,21 @@ Public Class ClassWDRights
|
||||
Try
|
||||
PWplainText = wrapper.DecryptData(DT_KONFIG.Rows(0).Item("AD_USER_PW"))
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("The Userpassword could not be decrypted", False)
|
||||
LOGGER.Warn("The Userpassword could not be decrypted")
|
||||
PWplainText = ""
|
||||
End Try
|
||||
AD_USER_PW = PWplainText
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> ClassWDRights Init'ed - AD_DOMAIN: '{0}', AD_USER: '{1}', AD_SERVER: '{2}'", AD_DOMAIN, AD_USER, AD_SERVER), False)
|
||||
LOGGER.Debug(String.Format("ClassWDRights Init'ed - AD_DOMAIN: '{0}', AD_USER: '{1}', AD_SERVER: '{2}'", AD_DOMAIN, AD_USER, AD_SERVER))
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in ClassRights Init: " & vbNewLine & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in ClassRights Init: " & vbNewLine & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
'''Renews all rights of the passed doc-file
|
||||
''' </summary>
|
||||
''' <returns>Returns Boolean True when successfull</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function Doc_Renew_Rights(doc_id As Integer, docpath As String, deleterights As Boolean) As Boolean
|
||||
Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Working on rights for file: {0}", docpath), False)
|
||||
LOGGER.Debug(String.Format("Working on rights for file: {0}", docpath))
|
||||
Dim DT_USER_RIGHT As DataTable
|
||||
Dim DT_GROUP_RIGHT As DataTable
|
||||
Dim oSession
|
||||
@@ -86,31 +82,31 @@ Public Class ClassWDRights
|
||||
oSession = GetWMSessionAsUser(AD_DOMAIN, AD_SERVER, AD_USER, AD_USER_PW)
|
||||
Catch ex As Exception
|
||||
Dim msg = "Error in Doc_Renew_Rights-GetWMSessionAsUser : " & ex.Message
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
If Not IsNothing(oSession) Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Session created.", False)
|
||||
LOGGER.Debug("Session created.")
|
||||
Dim sql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0}) where USER_OR_GROUP = 'USER'", doc_id)
|
||||
DT_USER_RIGHT = clsDatabase.Return_Datatable(sql)
|
||||
sql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0}) where USER_OR_GROUP = 'GROUP'", doc_id)
|
||||
DT_GROUP_RIGHT = clsDatabase.Return_Datatable(sql)
|
||||
If IsNothing(DT_USER_RIGHT) Then
|
||||
Dim msg = "Error while receiving rights for DocID"
|
||||
clsLogger.Add(msg, True)
|
||||
clsLogger.Add(msg)
|
||||
Return False
|
||||
Else
|
||||
If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >> Amount of Userrights: {0}", DT_USER_RIGHT.Rows.Count), False)
|
||||
LOGGER.Debug(String.Format("Amount of Userrights: {0}", DT_USER_RIGHT.Rows.Count))
|
||||
End If
|
||||
If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >> Amount of Grouprights: {0}", DT_GROUP_RIGHT.Rows.Count), False)
|
||||
LOGGER.Debug(String.Format("Amount of Grouprights: {0}", DT_GROUP_RIGHT.Rows.Count))
|
||||
Try
|
||||
'Object definieren
|
||||
oWMObject = oSession.GetWMObjectByPath(0, docpath.Substring(2))
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Object created.", False)
|
||||
LOGGER.Debug("Object created.")
|
||||
Catch ex As Exception
|
||||
Dim msg = "Error GetWMObjectByPath: (FDSR) " & docpath.Substring(2) & vbNewLine & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
Return False
|
||||
End Try
|
||||
Dim lret
|
||||
@@ -119,31 +115,31 @@ Public Class ClassWDRights
|
||||
lret = oWMObject.LockRights()
|
||||
Catch ex As Exception
|
||||
Dim msg = "Error while locking file" & ex.Message
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Object locked.", False)
|
||||
LOGGER.Debug("Object locked.")
|
||||
If CBool(lret) = False Then
|
||||
Dim msg = "Error in setting lock .LockRights - Err.Number: " & Err.Number & vbCrLf & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
Return False
|
||||
End If
|
||||
|
||||
' Rechteträger-Liste holen
|
||||
Dim AccessRights
|
||||
AccessRights = oWMObject.GetWMObjectRelationByName(REL_Document_AccessRight)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> AccessRights created.", False)
|
||||
LOGGER.Debug("AccessRights created.")
|
||||
'Bei Fehler in Rechteauswertung
|
||||
If Err.Number <> 0 Then
|
||||
Dim msg = "Error in setting REL_Document_AccessRight - Err.Number: " & Err.Number & vbCrLf & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
Return False
|
||||
End If
|
||||
'############################# Rechte löschen ################################################################################
|
||||
'#############################################################################################################################
|
||||
If deleterights = True Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> rights for document will now be deleted.", False)
|
||||
LOGGER.Debug("rights for document will now be deleted.")
|
||||
'Erst einmal alle anderen Rechte löschen
|
||||
Dim i As Integer = 1
|
||||
' und nun jeden Rechteträger verarbeiten
|
||||
@@ -153,7 +149,7 @@ Public Class ClassWDRights
|
||||
UserGroupRelation = aRightRelation.GetWMObjectRelationByName(REL_AccessRight_UserOrGroup)
|
||||
If Err.Number <> 0 Then
|
||||
Dim msg = "Error in setting REL_AccessRight_UserOrGroup - Err.Number: " & Err.Number & vbCrLf & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
Return False
|
||||
End If
|
||||
|
||||
@@ -166,10 +162,10 @@ Public Class ClassWDRights
|
||||
Else
|
||||
_msg = "Right for User: '" & UserOrGroup.aName & "'"""
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> [{0}] will now be deleted.", _msg), False)
|
||||
LOGGER.Debug(String.Format("[{0}] will now be deleted.", _msg))
|
||||
If Err.Number <> 0 Then
|
||||
Dim msg = "Error in setting UserGroupRelation - Err.Number: " & Err.Number & vbCrLf & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
Return False
|
||||
End If
|
||||
|
||||
@@ -179,14 +175,14 @@ Public Class ClassWDRights
|
||||
AccessRights.Delete2(UserOrGroup, WMAccessRightAllRights)
|
||||
Catch ex As Exception
|
||||
Dim msg = "Error in AccessRights.Delete2 (Doc_RenewRights) Doc-ID: " & doc_id & " - UserGroup: " & UserOrGroup.aName & " - ErrorMsg: " & ex.Message
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
Continue For
|
||||
End Try
|
||||
i += 1
|
||||
_msg = _msg.Replace(" '", "")
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> {0} was deleted.", _msg), False)
|
||||
LOGGER.Debug(String.Format("{0} was deleted.", _msg))
|
||||
Next
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> All rights for doc were deleted....", False)
|
||||
LOGGER.Debug("All rights for doc were deleted....")
|
||||
End If
|
||||
|
||||
Err.Clear()
|
||||
@@ -200,24 +196,24 @@ Public Class ClassWDRights
|
||||
Try
|
||||
StringUserRight = AD_DOMAIN & "\" & User_Row.Item("USR_NAME")
|
||||
fileright = User_Row.Item("USR_RIGHT")
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Working on right for user-right: {0}-{1}", StringUserRight, fileright), False)
|
||||
LOGGER.Debug(String.Format("Working on right for user-right: {0}-{1}", StringUserRight, fileright))
|
||||
Try
|
||||
' User holen
|
||||
oUSer = oSession.GetWMObjectByName(WMEntityUser, StringUserRight)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> got oUSer...", False)
|
||||
LOGGER.Debug("got oUSer...")
|
||||
Catch ex As Exception
|
||||
Dim msg = String.Format(">> Could not create windream-Usersession for user '{0}' - check whether user is part of windream-group!", StringUserRight)
|
||||
ClassLogger.Add(msg, False)
|
||||
Dim msg = String.Format("Could not create windream-Usersession for user '{0}' - check whether user is part of windream-group!", StringUserRight)
|
||||
LOGGER.Warn(msg)
|
||||
MSG_RESULT &= msg & vbNewLine
|
||||
Continue For
|
||||
End Try
|
||||
If Not IsNothing(oUSer) Then
|
||||
Try
|
||||
AccessRights.Insert2(oUSer, fileright) 'WMAccessRightAllRights)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Right was set...", False)
|
||||
LOGGER.Debug("Right was set...")
|
||||
Catch ex As Exception
|
||||
Dim msg = String.Format(">> Could not set right for user {0} - AccessRights.Insert2: {1}", StringUserRight, ex.Message)
|
||||
ClassLogger.Add(msg, True)
|
||||
Dim msg = String.Format("Could not set right for user {0} - AccessRights.Insert2: {1}", StringUserRight, ex.Message)
|
||||
LOGGER.Warn(msg)
|
||||
Continue For
|
||||
End Try
|
||||
End If
|
||||
@@ -237,7 +233,7 @@ Public Class ClassWDRights
|
||||
_right = "READ WRITE"
|
||||
End Select
|
||||
MSG_RESULT &= String.Format("Error while working on RightChange:" & vbNewLine & "Fileright: {0}" & vbNewLine & "User: {1} " & vbNewLine & "File: {2}", _right, StringUserRight, docpath) & vbNewLine
|
||||
ClassLogger.Add(ex.Message)
|
||||
LOGGER.Warn(ex.Message)
|
||||
End Try
|
||||
Next
|
||||
|
||||
@@ -250,25 +246,25 @@ Public Class ClassWDRights
|
||||
Try
|
||||
StringGroupRight = AD_DOMAIN & "\" & Group_Row.Item("USR_NAME")
|
||||
fileright = Group_Row.Item("USR_RIGHT")
|
||||
If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >> Working on right for group-right: {0}-{1}", StringGroupRight, fileright), False)
|
||||
LOGGER.Debug(String.Format("Working on right for group-right: {0}-{1}", StringGroupRight, fileright))
|
||||
Try
|
||||
' User holen
|
||||
_oGroup = oSession.GetWMObjectByName(WMEntityGroups, StringGroupRight)
|
||||
|
||||
If LogErrorsOnly = False Then clsLogger.Add(" >> got Group...", False)
|
||||
LOGGER.Debug("got Group...")
|
||||
Catch ex As Exception
|
||||
Dim msg = String.Format(">> Could not create windream-Usersession for group '{0}' - check whether group exists in windream!", StringGroupRight)
|
||||
clsLogger.Add(msg, False)
|
||||
Dim msg = String.Format("Could not create windream-Usersession for group '{0}' - check whether group exists in windream!", StringGroupRight)
|
||||
clsLogger.Add(msg)
|
||||
MSG_RESULT &= msg & vbNewLine
|
||||
Continue For
|
||||
End Try
|
||||
If Not IsNothing(_oGroup) Then
|
||||
Try
|
||||
AccessRights.Insert2(_oGroup, fileright) 'WMAccessRightAllRights)
|
||||
If LogErrorsOnly = False Then clsLogger.Add(" >> Right was set...", False)
|
||||
LOGGER.Debug("Right was set...")
|
||||
Catch ex As Exception
|
||||
Dim msg = String.Format(">> Could not set right for docID: {0} group {1} - AccessRights.Insert2: {2}", doc_id, StringGroupRight, ex.Message)
|
||||
clsLogger.Add(msg, True)
|
||||
Dim msg = String.Format("Could not set right for docID: {0} group {1} - AccessRights.Insert2: {2}", doc_id, StringGroupRight, ex.Message)
|
||||
clsLogger.Add(msg)
|
||||
Continue For
|
||||
End Try
|
||||
End If
|
||||
@@ -295,13 +291,13 @@ Public Class ClassWDRights
|
||||
Try
|
||||
'Speichern nicht vergessen
|
||||
oWMObject.Save()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Doc was saved...", False)
|
||||
LOGGER.Debug("Doc was saved...")
|
||||
Catch ex As Exception
|
||||
Dim msg = String.Format("Error at Object2Change.Save - DocID ({0}): {1}", doc_id, ex.Message)
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
If oWMObject.aLocked = True Then
|
||||
oWMObject.unlock()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Doc unlocked after error!", False)
|
||||
LOGGER.Debug("Doc unlocked after error!")
|
||||
End If
|
||||
Return False
|
||||
End Try
|
||||
@@ -310,10 +306,10 @@ Public Class ClassWDRights
|
||||
If oWMObject.aLocked = True Then
|
||||
Try
|
||||
oWMObject.unlock()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Doc was unlocked...", False)
|
||||
LOGGER.Debug("Doc was unlocked...")
|
||||
Catch ex As Exception
|
||||
Dim msg = "Fehler bei Unlock - Error: " & ex.Message
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
Return False
|
||||
End Try
|
||||
End If
|
||||
@@ -322,13 +318,13 @@ Public Class ClassWDRights
|
||||
Return True
|
||||
Else
|
||||
Dim msg = "ERROR : no session could be created (3)!"
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(String.Format("Unexpected Error while Doc_Renew_Rightss DocID: {0}", doc_id), True)
|
||||
LOGGER.Warn(String.Format("Unexpected Error while Doc_Renew_Rightss DocID: {0}", doc_id))
|
||||
Dim msg = "ErrorMessage: " & vbNewLine & ex.Message
|
||||
ClassLogger.Add(msg, False)
|
||||
LOGGER.Warn(msg)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -346,7 +342,7 @@ Public Class ClassWDRights
|
||||
aConnect.ModuleId = 9
|
||||
If Err.Number <> 0 Then
|
||||
Dim msg = "Error in CreateObject (aConnect) - Err.Number: " & Err.Number & vbNewLine & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
|
||||
SessionAsUser = Nothing
|
||||
Return SessionAsUser
|
||||
@@ -355,7 +351,7 @@ Public Class ClassWDRights
|
||||
aUserId = CreateObject("WMOTool.WMUserIdentity")
|
||||
If Err.Number <> 0 Then
|
||||
Dim msg = "Error in CreateObject('WMOTool.WMUserIdentity') - Err.Number: " & Err.Number & vbNewLine & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
SessionAsUser = Nothing
|
||||
Return SessionAsUser
|
||||
End If
|
||||
@@ -370,7 +366,7 @@ Public Class ClassWDRights
|
||||
|
||||
If Err.Number <> 0 Then
|
||||
Dim msg = "Error in Connect.Login(aUserId) - Err.Number: " & Err.Number & vbNewLine & Err.Description
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
SessionAsUser = Nothing
|
||||
Return SessionAsUser
|
||||
Else
|
||||
@@ -383,7 +379,7 @@ Public Class ClassWDRights
|
||||
Catch ex As Exception
|
||||
Dim msg = "Unexpected Error in DDLibraries-GetWMSessionAsUser: " & ex.Message & vbNewLine & _
|
||||
String.Format("Domain: {0}, ServerName: {1}, UserName: {2}, Password: {3},", Domain, ServerName, UserName, Password)
|
||||
ClassLogger.Add(msg, True)
|
||||
LOGGER.Warn(msg)
|
||||
Return Nothing
|
||||
End Try
|
||||
|
||||
|
||||
@@ -41,7 +41,7 @@ Public Class ClassWindreamDocGrid
|
||||
DT_RESULTFILES = table
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Initting TableResult Docs: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in Initting TableResult Docs: " & ex.Message)
|
||||
DT_RESULTFILES = Nothing
|
||||
Return False
|
||||
End Try
|
||||
@@ -66,6 +66,23 @@ Public Class ClassWindreamDocGrid
|
||||
newRow("DOC_ID") = 0
|
||||
SELECTED_DOC_ID = 0
|
||||
End Try
|
||||
|
||||
Try
|
||||
newRow("INWORK") = False
|
||||
SELECTED_INWORK = False
|
||||
Dim oSQL = "Select IN_WORK,IN_WORK_USER FROM TBPMO_DOCRESULT_LIST where DocID = " + SELECTED_DOC_ID
|
||||
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQL)
|
||||
If Not IsNothing(oDT) Then
|
||||
If oDT.Rows.Count = 1 Then
|
||||
newRow("INWORK") = CBool(oDT.Rows(0).Item("IN_WORK"))
|
||||
SELECTED_INWORK = CBool(oDT.Rows(0).Item("IN_WORK"))
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
newRow("INWORK") = False
|
||||
SELECTED_INWORK = False
|
||||
End Try
|
||||
|
||||
Try
|
||||
SELECTED_DOC_RIGHT = gridView.GetRowCellValue(row, "ACCESS_RIGHT")
|
||||
newRow("ACCESS_RIGHT") = gridView.GetRowCellValue(row, SELECTED_DOC_RIGHT)
|
||||
@@ -83,13 +100,7 @@ Public Class ClassWindreamDocGrid
|
||||
Catch ex As Exception
|
||||
newRow("OBJECTTYPE") = ""
|
||||
End Try
|
||||
Try
|
||||
newRow("INWORK") = gridView.GetRowCellValue(row, "in work?")
|
||||
SELECTED_INWORK = gridView.GetRowCellValue(row, "in work?")
|
||||
Catch ex As Exception
|
||||
newRow("INWORK") = False
|
||||
SELECTED_INWORK = False
|
||||
End Try
|
||||
|
||||
Try
|
||||
Dim dpn = gridView.GetRowCellValue(row, "Displayname")
|
||||
If IsDBNull(dpn) Or IsNothing(dpn) Then
|
||||
@@ -134,13 +145,7 @@ Public Class ClassWindreamDocGrid
|
||||
Catch ex As Exception
|
||||
newRow("OBJECTTYPE") = ""
|
||||
End Try
|
||||
Try
|
||||
newRow("INWORK") = gridView.GetFocusedRowCellValue(gridView.Columns("in work?"))
|
||||
SELECTED_INWORK = gridView.GetFocusedRowCellValue(gridView.Columns("in work?"))
|
||||
Catch ex As Exception
|
||||
newRow("INWORK") = False
|
||||
SELECTED_INWORK = False
|
||||
End Try
|
||||
|
||||
Try
|
||||
Dim dpn = gridView.GetFocusedRowCellValue(gridView.Columns("Displayname"))
|
||||
If IsDBNull(dpn) Or IsNothing(dpn) Then
|
||||
@@ -229,7 +234,7 @@ Public Class ClassWindreamDocGrid
|
||||
Try
|
||||
value = ClassDatabase.Execute_Scalar(String.Format("SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = {0} AND DocID = {1} AND RECORD_ID = {2}", configId, docId, RECORD_ID))
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(String.Format(">> Attention: Could not get Value from TBPMO_DOC_VALUES for ConfigId[{0}], DocId[{1}]: ", configId, docId) & ex.Message, False)
|
||||
LOGGER.Warn(String.Format("Attention: Could not get Value from TBPMO_DOC_VALUES for ConfigId[{0}], DocId[{1}]: ", configId, docId) & ex.Message)
|
||||
End Try
|
||||
|
||||
row.Item(colName) = value
|
||||
@@ -237,16 +242,16 @@ Public Class ClassWindreamDocGrid
|
||||
Next
|
||||
Next
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Attention: Could not load values from TBPMO_DOC_VALUES: " & ex.Message, False)
|
||||
LOGGER.Warn("Attention: Could not load values from TBPMO_DOC_VALUES: " & ex.Message)
|
||||
End Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Values loaded...", False)
|
||||
LOGGER.Debug("Values loaded...")
|
||||
Try
|
||||
' Tabellen zum DataSet hinzufügen
|
||||
ds.Tables.Add(DT_RESULT)
|
||||
ds.Tables.Add(DT_DETAILS)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> tables added to ds.Tables...", False)
|
||||
LOGGER.Debug("tables added to ds.Tables...")
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Attention: Could not Add tables to ds.Tables: " & ex.Message, False)
|
||||
LOGGER.Warn("Attention: Could not Add tables to ds.Tables: " & ex.Message)
|
||||
End Try
|
||||
|
||||
Try
|
||||
@@ -264,9 +269,9 @@ Public Class ClassWindreamDocGrid
|
||||
' Parameter `createConstraints` auf false setzen, um erstellung eines unsinnigen
|
||||
' `foreignKeyConstraints` zu verhindern
|
||||
ds.Relations.Add("docIdDetails", parentColumn, childColumn, False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> relationdocIdDetails created...", False)
|
||||
LOGGER.Debug("relationdocIdDetails created...")
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Could not set master-detail Relation DocSearch: " & ex.Message, False)
|
||||
LOGGER.Warn("Could not set master-detail Relation DocSearch: " & ex.Message)
|
||||
End Try
|
||||
|
||||
Dim gridControl As GridControl = gridView.GridControl
|
||||
@@ -291,7 +296,7 @@ Public Class ClassWindreamDocGrid
|
||||
gridControl.LevelTree.Nodes.Add("docIdDetails", grvwDetail)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in FillColumns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add(">> Attention: Could not load converted datatable DocSearch: " & ex.Message, False)
|
||||
LOGGER.Warn("Attention: Could not load converted datatable DocSearch: " & ex.Message)
|
||||
End Try
|
||||
|
||||
AddHandler gridView.MasterRowExpanded, AddressOf gridView_MasterRowExpanded
|
||||
@@ -416,7 +421,6 @@ Public Class ClassWindreamDocGrid
|
||||
Dim item As New WindreamDocGridComboboxItem()
|
||||
item.ConfigID = matchingRow.Item("CONFIG_ID")
|
||||
item.Value = matchingRow.Item("VALUE")
|
||||
|
||||
dropdown.Items.Add(item)
|
||||
Next
|
||||
|
||||
@@ -430,7 +434,7 @@ Public Class ClassWindreamDocGrid
|
||||
e.Column.OptionsColumn.AllowEdit = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in detailView_CustomRowCellEdit: " & ex.Message, False)
|
||||
LOGGER.Warn("Error in detailView_CustomRowCellEdit: " & ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -470,7 +474,7 @@ Public Class ClassWindreamDocGrid
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected error in gridView_CustomColumnDisplayText: " & ex.Message, False, False)
|
||||
LOGGER.Warn("Unexpected error in gridView_CustomColumnDisplayText: " & ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -522,7 +526,7 @@ Public Class ClassWindreamDocGrid
|
||||
End If
|
||||
AddHandler detailView.CustomRowCellEdit, AddressOf detailView_CustomRowCellEdit
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected error in gridView_MasterRowExpanded: " & ex.Message, False, False)
|
||||
LOGGER.Warn("Unexpected error in gridView_MasterRowExpanded: " & ex.Message)
|
||||
MsgBox("Unexpected error in gridView_MasterRowExpanded: " & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
|
||||
@@ -11,7 +11,7 @@
|
||||
<AssemblyName>DD-Record-Organizer</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
|
||||
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
|
||||
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
@@ -81,21 +81,18 @@
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Charts.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Map.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Office.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Pdf.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Pdf.v19.2.Drawing, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
@@ -111,26 +108,21 @@
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Sparkline.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraCharts.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraCharts.v19.2.Wizard, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
@@ -143,7 +135,6 @@
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraMap.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
@@ -172,6 +163,9 @@
|
||||
<Reference Include="DevExpress.XtraWizard.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="DigitalData.Modules.Logging">
|
||||
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DLLLicenseManager">
|
||||
<HintPath>..\..\lib\DLLLicenseManager.dll</HintPath>
|
||||
</Reference>
|
||||
@@ -197,6 +191,7 @@
|
||||
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
|
||||
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.CSharp" />
|
||||
<Reference Include="Microsoft.Office.Interop.Outlook, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||
@@ -205,6 +200,9 @@
|
||||
<Reference Include="Microsoft.Office.Interop.Word, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
|
||||
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||
</Reference>
|
||||
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NLog.4.7.10\lib\net45\NLog.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Oracle.ManagedDataAccess, Version=4.121.1.0, Culture=neutral, PublicKeyToken=89b483f429c47342, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\3rdparty\lib\Oracle Managed Data Access\Oracle.ManagedDataAccess.dll</HintPath>
|
||||
@@ -212,14 +210,18 @@
|
||||
</Reference>
|
||||
<Reference Include="PresentationCore" />
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Configuration" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.DirectoryServices" />
|
||||
<Reference Include="System.DirectoryServices.AccountManagement" />
|
||||
<Reference Include="System.DirectoryServices.Protocols" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.IO.Compression" />
|
||||
<Reference Include="System.Runtime.Remoting" />
|
||||
<Reference Include="System.Runtime.Serialization" />
|
||||
<Reference Include="System.ServiceModel" />
|
||||
<Reference Include="System.Transactions" />
|
||||
<Reference Include="System.Web" />
|
||||
<Reference Include="System.Web.Services" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
@@ -503,7 +505,6 @@
|
||||
<Compile Include="ClassImport_Windream.vb" />
|
||||
<Compile Include="ClassInit.vb" />
|
||||
<Compile Include="ClassLayout.vb" />
|
||||
<Compile Include="ClassLogger.vb" />
|
||||
<Compile Include="ClassDatabase.vb" />
|
||||
<Compile Include="ClassControlBuilder.vb" />
|
||||
<Compile Include="ClassControlProperties.vb" />
|
||||
@@ -757,6 +758,7 @@
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
<DesignTime>True</DesignTime>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
@@ -1241,6 +1243,7 @@
|
||||
<None Include="App.config" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="packages.config" />
|
||||
<None Include="Resources\database_go.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
@@ -1476,6 +1479,7 @@
|
||||
<None Include="Resources\brick.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\folder_Open_16xMD.png" />
|
||||
<None Include="Resources\error.png" />
|
||||
<None Include="Resources\error.ico" />
|
||||
<None Include="Resources\Error_red_21x20.png" />
|
||||
|
||||
8768
app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb
generated
8768
app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -270,7 +270,7 @@ FROM TBPMO_FORM_VIEW where FORM_ID = @FORMID and SCREEN_ID = 1</Comma
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.TBPMO_RECORD" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [TBPMO_RECORD] WHERE (([GUID] = @Original_GUID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<CommandText>DELETE FROM [TBPMO_RECORD] WHERE ([GUID] = @Original_GUID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
@@ -306,7 +306,7 @@ WHERE (GUID = @RECORD_ID)</CommandText>
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [TBPMO_RECORD] SET [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
<CommandText>UPDATE [TBPMO_RECORD] SET [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
SELECT GUID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD WHERE (GUID = @GUID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
@@ -393,7 +393,7 @@ ORDER BY DOKUMENTTYPE</CommandText>
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.TBPMO_WD_FVIEW_DT_INDEX" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [TBPMO_WD_FVIEW_DT_INDEX] WHERE (([GUID] = @Original_GUID) AND ([FW_DOCTYPE_ID] = @Original_FW_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ([INDEX_VALUE] = @Original_INDEX_VALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<CommandText>DELETE FROM [TBPMO_WD_FVIEW_DT_INDEX] WHERE ([GUID] = @Original_GUID) AND ([FW_DOCTYPE_ID] = @Original_FW_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ([INDEX_VALUE] = @Original_INDEX_VALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_FW_DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="FW_DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
@@ -435,7 +435,7 @@ WHERE (FW_DOCTYPE_ID = @ID)</CommandText>
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [TBPMO_WD_FVIEW_DT_INDEX] SET [FW_DOCTYPE_ID] = @FW_DOCTYPE_ID, [INDEXNAME] = @INDEXNAME, [INDEX_VALUE] = @INDEX_VALUE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([FW_DOCTYPE_ID] = @Original_FW_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ([INDEX_VALUE] = @Original_INDEX_VALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
<CommandText>UPDATE [TBPMO_WD_FVIEW_DT_INDEX] SET [FW_DOCTYPE_ID] = @FW_DOCTYPE_ID, [INDEXNAME] = @INDEXNAME, [INDEX_VALUE] = @INDEX_VALUE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([FW_DOCTYPE_ID] = @Original_FW_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ([INDEX_VALUE] = @Original_INDEX_VALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
SELECT GUID, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_FVIEW_DT_INDEX WHERE (GUID = @GUID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@FW_DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="FW_DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
@@ -663,7 +663,7 @@ FROM VWPMO_GUI_ENTITY</CommandText>
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_WORKFLOW" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [TBPMO_WORKFLOW] WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Original_TITLE) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<CommandText>DELETE FROM [TBPMO_WORKFLOW] WHERE ([GUID] = @Original_GUID) AND ([TITLE] = @Original_TITLE) AND (@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
@@ -890,7 +890,7 @@ FROM TBDD_EINGANGSARTEN</CommandText>
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [TBDD_EINGANGSARTEN] SET [BEZEICHNUNG] = @BEZEICHNUNG, [BESCHREIBUNG] = @BESCHREIBUNG, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEANDERTWER] = @GEANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Original_GUID) AND ([BEZEICHNUNG] = @Original_BEZEICHNUNG) AND ((@IsNull_BESCHREIBUNG = 1 AND [BESCHREIBUNG] IS NULL) OR ([BESCHREIBUNG] = @Original_BESCHREIBUNG)) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ([ERSTELLTWANN] = @Original_ERSTELLTWANN) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));
|
||||
<CommandText>UPDATE [TBDD_EINGANGSARTEN] SET [BEZEICHNUNG] = @BEZEICHNUNG, [BESCHREIBUNG] = @BESCHREIBUNG, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEANDERTWER] = @GEANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE ([GUID] = @Original_GUID) AND ([BEZEICHNUNG] = @Original_BEZEICHNUNG) AND (@IsNull_BESCHREIBUNG = 1 AND [BESCHREIBUNG] IS NULL) OR ([BESCHREIBUNG] = @Original_BESCHREIBUNG)) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ([ERSTELLTWANN] = @Original_ERSTELLTWANN) AND (@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = @Original_GEANDERTWER)) AND (@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));
|
||||
SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = @GUID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
@@ -1271,7 +1271,7 @@ SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHE
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_FORM_TYPE" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [TBPMO_FORM_TYPE] WHERE (([GUID] = @Original_GUID) AND ([FORM_TYPE] = @Original_FORM_TYPE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<CommandText>DELETE FROM [TBPMO_FORM_TYPE] WHERE ([GUID] = @Original_GUID) AND ([FORM_TYPE] = @Original_FORM_TYPE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_FORM_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FORM_TYPE" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
@@ -2018,7 +2018,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_W
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBDD_CONNECTION" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [TBDD_CONNECTION] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATABASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<CommandText>DELETE FROM [TBDD_CONNECTION] WHERE ([GUID] = @Original_GUID) AND (@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND (@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND (@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND (@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATABASE] = @Original_DATABASE)) AND (@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND (@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND (@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int16" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="SmallInt" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_DESCRIPTION" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="DESCRIPTION" SourceColumnNullMapping="true" SourceVersion="Original" />
|
||||
@@ -2074,7 +2074,7 @@ FROM TBDD_CONNECTION</CommandText>
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [TBDD_CONNECTION] SET [DESCRIPTION] = @DESCRIPTION, [SQL_PROVIDER] = @SQL_PROVIDER, [SERVER] = @SERVER, [DATABASE] = @DATABASE, [USERNAME] = @USERNAME, [PASSWORD] = @PASSWORD, [COMMENT] = @COMMENT, [AKTIVE] = @AKTIVE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATABASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
<CommandText>UPDATE [TBDD_CONNECTION] SET [DESCRIPTION] = @DESCRIPTION, [SQL_PROVIDER] = @SQL_PROVIDER, [SERVER] = @SERVER, [DATABASE] = @DATABASE, [USERNAME] = @USERNAME, [PASSWORD] = @PASSWORD, [COMMENT] = @COMMENT, [AKTIVE] = @AKTIVE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND (@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND (@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND (@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND (@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATABASE] = @Original_DATABASE)) AND (@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND (@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND (@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
SELECT GUID, DESCRIPTION, SQL_PROVIDER, SERVER, [DATABASE], USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_CONNECTION WHERE (GUID = @GUID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
@@ -2517,7 +2517,7 @@ VALUES (@NAME_PATTERN,@ADDED_WHO,@TEMPLATE_ENT_ID)</CommandText>
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_LANGUAGE_OBJECT" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [TBPMO_LANGUAGE_OBJECT] WHERE (([GUID] = @Original_GUID) AND ([LANGUAGE_TYPE] = @Original_LANGUAGE_TYPE) AND ([SCREEN_ID] = @Original_SCREEN_ID) AND ([PMO_OBJECT_NAME] = @Original_PMO_OBJECT_NAME) AND ([CAPTION] = @Original_CAPTION) AND ((@IsNull_HINT = 1 AND [HINT] IS NULL) OR ([HINT] = @Original_HINT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<CommandText>DELETE FROM [TBPMO_LANGUAGE_OBJECT] WHERE ([GUID] = @Original_GUID) AND ([LANGUAGE_TYPE] = @Original_LANGUAGE_TYPE) AND ([SCREEN_ID] = @Original_SCREEN_ID) AND ([PMO_OBJECT_NAME] = @Original_PMO_OBJECT_NAME) AND ([CAPTION] = @Original_CAPTION) AND (@IsNull_HINT = 1 AND [HINT] IS NULL) OR ([HINT] = @Original_HINT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_LANGUAGE_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="LANGUAGE_TYPE" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
@@ -2562,7 +2562,7 @@ FROM TBPMO_LANGUAGE_OBJECT</CommandText>
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [TBPMO_LANGUAGE_OBJECT] SET [LANGUAGE_TYPE] = @LANGUAGE_TYPE, [SCREEN_ID] = @SCREEN_ID, [PMO_OBJECT_NAME] = @PMO_OBJECT_NAME, [CAPTION] = @CAPTION, [HINT] = @HINT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([LANGUAGE_TYPE] = @Original_LANGUAGE_TYPE) AND ([SCREEN_ID] = @Original_SCREEN_ID) AND ([PMO_OBJECT_NAME] = @Original_PMO_OBJECT_NAME) AND ([CAPTION] = @Original_CAPTION) AND ((@IsNull_HINT = 1 AND [HINT] IS NULL) OR ([HINT] = @Original_HINT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
<CommandText>UPDATE [TBPMO_LANGUAGE_OBJECT] SET [LANGUAGE_TYPE] = @LANGUAGE_TYPE, [SCREEN_ID] = @SCREEN_ID, [PMO_OBJECT_NAME] = @PMO_OBJECT_NAME, [CAPTION] = @CAPTION, [HINT] = @HINT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([LANGUAGE_TYPE] = @Original_LANGUAGE_TYPE) AND ([SCREEN_ID] = @Original_SCREEN_ID) AND ([PMO_OBJECT_NAME] = @Original_PMO_OBJECT_NAME) AND ([CAPTION] = @Original_CAPTION) AND (@IsNull_HINT = 1 AND [HINT] IS NULL) OR ([HINT] = @Original_HINT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
SELECT GUID, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_LANGUAGE_OBJECT WHERE (GUID = @GUID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@LANGUAGE_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="LANGUAGE_TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
@@ -3220,7 +3220,7 @@ FROM TBPMO_STRUCTURE_NODES_CONFIGURATION where GUID = @GUID</CommandT
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_WORKFLOW_TASK_HISTORY" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [TBPMO_WORKFLOW_TASK_HISTORY] WHERE (([GUID] = @Original_GUID))</CommandText>
|
||||
<CommandText>DELETE FROM [TBPMO_WORKFLOW_TASK_HISTORY] WHERE ([GUID] = @Original_GUID))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
</Parameters>
|
||||
@@ -3236,7 +3236,7 @@ FROM TBPMO_STRUCTURE_NODES_CONFIGURATION where GUID = @GUID</CommandT
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [TBPMO_WORKFLOW_TASK_HISTORY] SET [STATE_DESC] = @STATE_DESC, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO WHERE (([GUID] = @Original_GUID));
|
||||
<CommandText>UPDATE [TBPMO_WORKFLOW_TASK_HISTORY] SET [STATE_DESC] = @STATE_DESC, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO WHERE ([GUID] = @Original_GUID));
|
||||
SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHERE (GUID = @GUID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STATE_DESC" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STATE_DESC" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
@@ -3287,7 +3287,7 @@ FROM VWPMO_RIGHTS_2B_WORKED</CommandText>
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBPMO_RIGHT_USER" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [TBPMO_RIGHT_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([EDIT_REC] = @Original_EDIT_REC) AND ([ADD_REC] = @Original_ADD_REC) AND ([DELETE_REC] = @Original_DELETE_REC) AND ([ADD_DOC] = @Original_ADD_DOC) AND ([READ_ONLY_DOC] = @Original_READ_ONLY_DOC) AND ([DELETE_DOC] = @Original_DELETE_DOC) AND ([FILES_VISIBLE] = @Original_FILES_VISIBLE) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<CommandText>DELETE FROM [TBPMO_RIGHT_USER] WHERE ([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([EDIT_REC] = @Original_EDIT_REC) AND ([ADD_REC] = @Original_ADD_REC) AND ([DELETE_REC] = @Original_DELETE_REC) AND ([ADD_DOC] = @Original_ADD_DOC) AND ([READ_ONLY_DOC] = @Original_READ_ONLY_DOC) AND ([DELETE_DOC] = @Original_DELETE_DOC) AND ([FILES_VISIBLE] = @Original_FILES_VISIBLE) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_USER_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="USER_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
@@ -3334,7 +3334,7 @@ FROM TBPMO_RIGHT_USER</CommandText>
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [TBPMO_RIGHT_USER] SET [USER_ID] = @USER_ID, [ENTITY_ID] = @ENTITY_ID, [EDIT_REC] = @EDIT_REC, [ADD_REC] = @ADD_REC, [DELETE_REC] = @DELETE_REC, [ADD_DOC] = @ADD_DOC, [READ_ONLY_DOC] = @READ_ONLY_DOC, [DELETE_DOC] = @DELETE_DOC, [FILES_VISIBLE] = @FILES_VISIBLE, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([EDIT_REC] = @Original_EDIT_REC) AND ([ADD_REC] = @Original_ADD_REC) AND ([DELETE_REC] = @Original_DELETE_REC) AND ([ADD_DOC] = @Original_ADD_DOC) AND ([READ_ONLY_DOC] = @Original_READ_ONLY_DOC) AND ([DELETE_DOC] = @Original_DELETE_DOC) AND ([FILES_VISIBLE] = @Original_FILES_VISIBLE) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
<CommandText>UPDATE [TBPMO_RIGHT_USER] SET [USER_ID] = @USER_ID, [ENTITY_ID] = @ENTITY_ID, [EDIT_REC] = @EDIT_REC, [ADD_REC] = @ADD_REC, [DELETE_REC] = @DELETE_REC, [ADD_DOC] = @ADD_DOC, [READ_ONLY_DOC] = @READ_ONLY_DOC, [DELETE_DOC] = @DELETE_DOC, [FILES_VISIBLE] = @FILES_VISIBLE, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([EDIT_REC] = @Original_EDIT_REC) AND ([ADD_REC] = @Original_ADD_REC) AND ([DELETE_REC] = @Original_DELETE_REC) AND ([ADD_DOC] = @Original_ADD_DOC) AND ([READ_ONLY_DOC] = @Original_READ_ONLY_DOC) AND ([DELETE_DOC] = @Original_DELETE_DOC) AND ([FILES_VISIBLE] = @Original_FILES_VISIBLE) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
SELECT GUID, USER_ID, ENTITY_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ONLY_DOC, DELETE_DOC, FILES_VISIBLE, ADDED_WHEN, CHANGED_WHEN FROM TBPMO_RIGHT_USER WHERE (GUID = @GUID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@USER_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="USER_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
@@ -3424,7 +3424,7 @@ ORDER BY GUID DESC</CommandText>
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBPMO_APPOINTMENTS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [TBPMO_APPOINTMENTS] WHERE (([UniqueID] = @Original_UniqueID) AND ((@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND ((@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND ((@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND ((@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND ((@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND ((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND ((@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND ((@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)))</CommandText>
|
||||
<CommandText>DELETE FROM [TBPMO_APPOINTMENTS] WHERE ([UniqueID] = @Original_UniqueID) AND (@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND (@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND (@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND (@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND (@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND (@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND (@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND (@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND (@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_UniqueID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="UniqueID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_Type" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="Type" SourceColumnNullMapping="true" SourceVersion="Original" />
|
||||
@@ -3482,7 +3482,7 @@ FROM TBPMO_APPOINTMENTS AS T INNER JOIN
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [TBPMO_APPOINTMENTS] SET [Type] = @Type, [StartDate] = @StartDate, [EndDate] = @EndDate, [AllDay] = @AllDay, [Subject] = @Subject, [Location] = @Location, [Description] = @Description, [Status] = @Status, [Label] = @Label, [ResourceID] = @ResourceID, [ResourceIDs] = @ResourceIDs, [ReminderInfo] = @ReminderInfo, [RecurrenceInfo] = @RecurrenceInfo, [CustomField1] = @CustomField1, [CustomField2] = @CustomField2 WHERE (([UniqueID] = @Original_UniqueID) AND ((@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND ((@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND ((@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND ((@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND ((@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND ((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND ((@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND ((@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)));
|
||||
<CommandText>UPDATE [TBPMO_APPOINTMENTS] SET [Type] = @Type, [StartDate] = @StartDate, [EndDate] = @EndDate, [AllDay] = @AllDay, [Subject] = @Subject, [Location] = @Location, [Description] = @Description, [Status] = @Status, [Label] = @Label, [ResourceID] = @ResourceID, [ResourceIDs] = @ResourceIDs, [ReminderInfo] = @ReminderInfo, [RecurrenceInfo] = @RecurrenceInfo, [CustomField1] = @CustomField1, [CustomField2] = @CustomField2 WHERE ([UniqueID] = @Original_UniqueID) AND (@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND (@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND (@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND (@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND (@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND (@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND (@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND (@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND (@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)));
|
||||
SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, RecurrenceInfo, CustomField1, CustomField2 FROM TBPMO_APPOINTMENTS WHERE (UniqueID = @UniqueID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Type" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="Type" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -12,7 +12,7 @@
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.TBPMO_APPOINTMENTS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [TBPMO_APPOINTMENTS] WHERE (([UniqueID] = @Original_UniqueID) AND ((@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND ((@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND ((@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND ((@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND ((@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND ((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND ((@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND ((@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)))</CommandText>
|
||||
<CommandText>DELETE FROM [TBPMO_APPOINTMENTS] WHERE ([UniqueID] = @Original_UniqueID) AND (@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND (@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND (@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND (@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND (@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND (@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND (@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND (@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND (@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_UniqueID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="UniqueID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_Type" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="Type" SourceColumnNullMapping="true" SourceVersion="Original" />
|
||||
@@ -68,7 +68,7 @@ FROM TBPMO_APPOINTMENTS</CommandText>
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [TBPMO_APPOINTMENTS] SET [Type] = @Type, [StartDate] = @StartDate, [EndDate] = @EndDate, [AllDay] = @AllDay, [Subject] = @Subject, [Location] = @Location, [Description] = @Description, [Status] = @Status, [Label] = @Label, [ResourceID] = @ResourceID, [ResourceIDs] = @ResourceIDs, [ReminderInfo] = @ReminderInfo, [RecurrenceInfo] = @RecurrenceInfo, [CustomField1] = @CustomField1, [CustomField2] = @CustomField2 WHERE (([UniqueID] = @Original_UniqueID) AND ((@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND ((@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND ((@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND ((@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND ((@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND ((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND ((@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND ((@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)));
|
||||
<CommandText>UPDATE [TBPMO_APPOINTMENTS] SET [Type] = @Type, [StartDate] = @StartDate, [EndDate] = @EndDate, [AllDay] = @AllDay, [Subject] = @Subject, [Location] = @Location, [Description] = @Description, [Status] = @Status, [Label] = @Label, [ResourceID] = @ResourceID, [ResourceIDs] = @ResourceIDs, [ReminderInfo] = @ReminderInfo, [RecurrenceInfo] = @RecurrenceInfo, [CustomField1] = @CustomField1, [CustomField2] = @CustomField2 WHERE ([UniqueID] = @Original_UniqueID) AND (@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND (@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND (@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND (@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND (@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND (@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND (@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND (@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND (@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)));
|
||||
SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, RecurrenceInfo, CustomField1, CustomField2 FROM TBPMO_APPOINTMENTS WHERE (UniqueID = @UniqueID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Type" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="Type" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
@@ -136,7 +136,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.TBPMO_RESOURCES" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [dbo].[TBPMO_RESOURCES] WHERE (([UniqueID] = @Original_UniqueID) AND ([ResourceID] = @Original_ResourceID) AND ((@IsNull_ResourceName = 1 AND [ResourceName] IS NULL) OR ([ResourceName] = @Original_ResourceName)) AND ((@IsNull_Color = 1 AND [Color] IS NULL) OR ([Color] = @Original_Color)))</CommandText>
|
||||
<CommandText>DELETE FROM [dbo].[TBPMO_RESOURCES] WHERE ([UniqueID] = @Original_UniqueID) AND ([ResourceID] = @Original_ResourceID) AND (@IsNull_ResourceName = 1 AND [ResourceName] IS NULL) OR ([ResourceName] = @Original_ResourceName)) AND (@IsNull_Color = 1 AND [Color] IS NULL) OR ([Color] = @Original_Color)))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_UniqueID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="UniqueID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_ResourceID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ResourceID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
@@ -168,7 +168,7 @@ SELECT UniqueID, ResourceID, ResourceName, Color, Image, CustomField1 FROM TBPMO
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [dbo].[TBPMO_RESOURCES] SET [ResourceID] = @ResourceID, [ResourceName] = @ResourceName, [Color] = @Color, [Image] = @Image, [CustomField1] = @CustomField1 WHERE (([UniqueID] = @Original_UniqueID) AND ([ResourceID] = @Original_ResourceID) AND ((@IsNull_ResourceName = 1 AND [ResourceName] IS NULL) OR ([ResourceName] = @Original_ResourceName)) AND ((@IsNull_Color = 1 AND [Color] IS NULL) OR ([Color] = @Original_Color)));
|
||||
<CommandText>UPDATE [dbo].[TBPMO_RESOURCES] SET [ResourceID] = @ResourceID, [ResourceName] = @ResourceName, [Color] = @Color, [Image] = @Image, [CustomField1] = @CustomField1 WHERE ([UniqueID] = @Original_UniqueID) AND ([ResourceID] = @Original_ResourceID) AND (@IsNull_ResourceName = 1 AND [ResourceName] IS NULL) OR ([ResourceName] = @Original_ResourceName)) AND (@IsNull_Color = 1 AND [Color] IS NULL) OR ([Color] = @Original_Color)));
|
||||
SELECT UniqueID, ResourceID, ResourceName, Color, Image, CustomField1 FROM TBPMO_RESOURCES WHERE (UniqueID = @UniqueID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@ResourceID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ResourceID" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -12,7 +12,7 @@
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_MENU_FORM" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [dbo].[TBPMO_MENU_FORM] WHERE (([GUID] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<CommandText>DELETE FROM [dbo].[TBPMO_MENU_FORM] WHERE ([GUID] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND (@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_MENU_ENTRY" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="MENU_ENTRY" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
@@ -51,7 +51,7 @@ SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [dbo].[TBPMO_MENU_FORM] SET [MENU_ENTRY] = @MENU_ENTRY, [ICON_PATH] = @ICON_PATH, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
<CommandText>UPDATE [dbo].[TBPMO_MENU_FORM] SET [MENU_ENTRY] = @MENU_ENTRY, [ICON_PATH] = @ICON_PATH, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND (@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_MENU_FORM WHERE (GUID = @GUID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@MENU_ENTRY" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="MENU_ENTRY" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
@@ -95,7 +95,7 @@ SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_MENU_FORM_ENTRIES" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [dbo].[TBPMO_MENU_FORM_ENTRIES] WHERE (([GUID] = @Original_GUID) AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<CommandText>DELETE FROM [dbo].[TBPMO_MENU_FORM_ENTRIES] WHERE ([GUID] = @Original_GUID) AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AND (@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_MENU_FORM_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="MENU_FORM_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
@@ -138,7 +138,7 @@ SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO,
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [dbo].[TBPMO_MENU_FORM_ENTRIES] SET [MENU_FORM_ID] = @MENU_FORM_ID, [FORM_ID] = @FORM_ID, [ICON_PATH] = @ICON_PATH, [MENU_ENTRY] = @MENU_ENTRY, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
<CommandText>UPDATE [dbo].[TBPMO_MENU_FORM_ENTRIES] SET [MENU_FORM_ID] = @MENU_FORM_ID, [FORM_ID] = @FORM_ID, [ICON_PATH] = @ICON_PATH, [MENU_ENTRY] = @MENU_ENTRY, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AND (@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_MENU_FORM_ENTRIES WHERE (GUID = @GUID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@MENU_FORM_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="MENU_FORM_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
|
||||
2784
app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb
generated
2784
app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -477,7 +477,7 @@ WHERE (T2.GUID = @ENTITY_ID)</CommandText>
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBPMO_DOCSEARCH_RESULTLIST_CONFIG" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] WHERE (([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Original_CONFIG_COLUMNS) AND ([SEQUENCE] = @Original_SEQUENCE))</CommandText>
|
||||
<CommandText>DELETE FROM [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] WHERE ([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Original_CONFIG_COLUMNS) AND ([SEQUENCE] = @Original_SEQUENCE))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_ENTITY_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ENTITY_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
@@ -531,7 +531,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] SET [ENTITY_ID] = @ENTITY_ID, [LANGUAGE] = @LANGUAGE, [COLUMN_VIEW] = @COLUMN_VIEW, [HEADER_CAPTION] = @HEADER_CAPTION, [WIDTH] = @WIDTH, [TYPE_ID] = @TYPE_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [VISIBLE] = @VISIBLE, [EDITABLE] = @EDITABLE, [CONFIG_COLUMNS] = @CONFIG_COLUMNS, [SEQUENCE] = @SEQUENCE WHERE (([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Original_CONFIG_COLUMNS) AND ([SEQUENCE] = @Original_SEQUENCE));
|
||||
<CommandText>UPDATE [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] SET [ENTITY_ID] = @ENTITY_ID, [LANGUAGE] = @LANGUAGE, [COLUMN_VIEW] = @COLUMN_VIEW, [HEADER_CAPTION] = @HEADER_CAPTION, [WIDTH] = @WIDTH, [TYPE_ID] = @TYPE_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [VISIBLE] = @VISIBLE, [EDITABLE] = @EDITABLE, [CONFIG_COLUMNS] = @CONFIG_COLUMNS, [SEQUENCE] = @SEQUENCE WHERE ([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Original_CONFIG_COLUMNS) AND ([SEQUENCE] = @Original_SEQUENCE));
|
||||
SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMNS, SEQUENCE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = @GUID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@ENTITY_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ENTITY_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
@@ -650,7 +650,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBPMO_LOG_ESSENTIALS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [TBPMO_LOG_ESSENTIALS] WHERE (([GUID] = @Original_GUID))</CommandText>
|
||||
<CommandText>DELETE FROM [TBPMO_LOG_ESSENTIALS] WHERE ([GUID] = @Original_GUID))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
</Parameters>
|
||||
@@ -679,7 +679,7 @@ ORDER BY GUID DESC</CommandText>
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [TBPMO_LOG_ESSENTIALS] SET [REFERENCE_KEY] = @REFERENCE_KEY, [REFERENCE_STRING] = @REFERENCE_STRING, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Original_GUID));
|
||||
<CommandText>UPDATE [TBPMO_LOG_ESSENTIALS] SET [REFERENCE_KEY] = @REFERENCE_KEY, [REFERENCE_STRING] = @REFERENCE_STRING, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE ([GUID] = @Original_GUID));
|
||||
SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBPMO_LOG_ESSENTIALS WHERE (GUID = @GUID) ORDER BY GUID DESC</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@REFERENCE_KEY" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="REFERENCE_KEY" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
@@ -710,7 +710,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBPMO_DOCRESULT_DROPDOWN_ITEMS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [TBPMO_DOCRESULT_DROPDOWN_ITEMS] WHERE (([GUID] = @Original_GUID) AND ([CONFIG_ID] = @Original_CONFIG_ID) AND ([VALUE] = @Original_VALUE) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([DEFAULT] = @Original_DEFAULT) AND ([COLOR] = @Original_COLOR) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<CommandText>DELETE FROM [TBPMO_DOCRESULT_DROPDOWN_ITEMS] WHERE ([GUID] = @Original_GUID) AND ([CONFIG_ID] = @Original_CONFIG_ID) AND ([VALUE] = @Original_VALUE) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([DEFAULT] = @Original_DEFAULT) AND ([COLOR] = @Original_COLOR) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_CONFIG_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CONFIG_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
@@ -757,7 +757,7 @@ WHERE (CONFIG_ID = @CONFIG_ID)</CommandText>
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [TBPMO_DOCRESULT_DROPDOWN_ITEMS] SET [CONFIG_ID] = @CONFIG_ID, [VALUE] = @VALUE, [SEQUENCE] = @SEQUENCE, [DEFAULT] = @DEFAULT, [COLOR] = @COLOR, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([CONFIG_ID] = @Original_CONFIG_ID) AND ([VALUE] = @Original_VALUE) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([DEFAULT] = @Original_DEFAULT) AND ([COLOR] = @Original_COLOR) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
<CommandText>UPDATE [TBPMO_DOCRESULT_DROPDOWN_ITEMS] SET [CONFIG_ID] = @CONFIG_ID, [VALUE] = @VALUE, [SEQUENCE] = @SEQUENCE, [DEFAULT] = @DEFAULT, [COLOR] = @COLOR, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([CONFIG_ID] = @Original_CONFIG_ID) AND ([VALUE] = @Original_VALUE) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([DEFAULT] = @Original_DEFAULT) AND ([COLOR] = @Original_COLOR) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE (GUID = @GUID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@CONFIG_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CONFIG_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
@@ -807,7 +807,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN
|
||||
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBDD_GROUPS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
|
||||
<DeleteCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>DELETE FROM [TBDD_GROUPS] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ECM_FK_ID] = @Original_ECM_FK_ID) AND ([AD_SYNC] = @Original_AD_SYNC) AND ([INTERNAL] = @Original_INTERNAL) AND ([ACTIVE] = @Original_ACTIVE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<CommandText>DELETE FROM [TBDD_GROUPS] WHERE ([GUID] = @Original_GUID) AND (@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ECM_FK_ID] = @Original_ECM_FK_ID) AND ([AD_SYNC] = @Original_AD_SYNC) AND ([INTERNAL] = @Original_INTERNAL) AND ([ACTIVE] = @Original_ACTIVE) AND (@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND (@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_NAME" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="true" SourceVersion="Original" />
|
||||
@@ -856,7 +856,7 @@ FROM TBDD_GROUPS</CommandText>
|
||||
</SelectCommand>
|
||||
<UpdateCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>UPDATE [TBDD_GROUPS] SET [NAME] = @NAME, [ECM_FK_ID] = @ECM_FK_ID, [AD_SYNC] = @AD_SYNC, [INTERNAL] = @INTERNAL, [ACTIVE] = @ACTIVE, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ECM_FK_ID] = @Original_ECM_FK_ID) AND ([AD_SYNC] = @Original_AD_SYNC) AND ([INTERNAL] = @Original_INTERNAL) AND ([ACTIVE] = @Original_ACTIVE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
<CommandText>UPDATE [TBDD_GROUPS] SET [NAME] = @NAME, [ECM_FK_ID] = @ECM_FK_ID, [AD_SYNC] = @AD_SYNC, [INTERNAL] = @INTERNAL, [ACTIVE] = @ACTIVE, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND (@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ECM_FK_ID] = @Original_ECM_FK_ID) AND ([AD_SYNC] = @Original_AD_SYNC) AND ([INTERNAL] = @Original_INTERNAL) AND ([ACTIVE] = @Original_ACTIVE) AND (@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND (@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
|
||||
SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS WHERE (GUID = @GUID)</CommandText>
|
||||
<Parameters>
|
||||
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
|
||||
|
||||
@@ -154,7 +154,7 @@ Module ModuleHelperMethods
|
||||
If ID > 0 Then
|
||||
Return ID
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> es konnte keine ID für name geholt werden: " & SQL, False)
|
||||
LOGGER.Debug("es konnte keine ID für name geholt werden: " & SQL, False)
|
||||
Return -1
|
||||
End If
|
||||
Catch ex As Exception
|
||||
@@ -302,7 +302,7 @@ Module ModuleHelperMethods
|
||||
frm.MdiParent = MAIN_FORM
|
||||
frm.Show()
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in OpenFormConstructor: " & ex.Message)
|
||||
LOGGER.Warn("Error in OpenFormConstructor: " & ex.Message)
|
||||
MsgBox("Error in OpenFormConstructor: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
@@ -465,7 +465,7 @@ Module ModuleHelperMethods
|
||||
Dim EntitySQL As String
|
||||
|
||||
If GRID_TYPE = frmConstructor_Main.GridType.Grid Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
|
||||
LOGGER.Debug("GridType = Grid", False)
|
||||
EntitySQL = "SELECT T.* FROM " & ViewName & " T"
|
||||
If IS_GEOData = True Then
|
||||
|
||||
@@ -486,7 +486,7 @@ Module ModuleHelperMethods
|
||||
End If
|
||||
' GridControlMain.MainView = grvwGrid
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Quick-View is configured", False)
|
||||
LOGGER.Debug("Quick-View is configured", False)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -509,13 +509,13 @@ Module ModuleHelperMethods
|
||||
CURRENT_ENTITYSQL_WHERE = ""
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in Get Entity SQL for User: " & vbNewLine & ex.Message, True)
|
||||
LOGGER.Warn("Error in Get Entity SQL for User: " & vbNewLine & ex.Message)
|
||||
MsgBox("Error in Get Entity SQL for User: " & vbNewLine & ex.Message)
|
||||
End Try
|
||||
|
||||
Return EntitySQL
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in Get_Grid_Sql: " & vbNewLine & ex.Message, True)
|
||||
LOGGER.Warn("Error in Get_Grid_Sql: " & vbNewLine & ex.Message)
|
||||
MsgBox("Error in Get_Grid_Sql: " & vbNewLine & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
@@ -532,7 +532,7 @@ Module ModuleHelperMethods
|
||||
End Sub
|
||||
|
||||
Public Function Done() As Long
|
||||
If LogErrorsOnly = True Then Return 0
|
||||
If DEBUG = True Then Return 0
|
||||
stopwatch.Stop()
|
||||
Dim ts As TimeSpan = stopwatch.Elapsed
|
||||
|
||||
@@ -547,7 +547,7 @@ Module ModuleHelperMethods
|
||||
If timespan_ <> "00:00.00" Then
|
||||
Dim message = String.Format("{0} || {1}", timespan_, label)
|
||||
Console.WriteLine(message)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(message, False)
|
||||
LOGGER.Debug(message, False)
|
||||
End If
|
||||
Return stopwatch.ElapsedMilliseconds
|
||||
End Function
|
||||
|
||||
@@ -2,6 +2,7 @@
|
||||
Imports System.Xml
|
||||
Imports DD_LIB_Standards
|
||||
Imports DevExpress.LookAndFeel
|
||||
Imports DigitalData.Modules.Logging
|
||||
|
||||
Module ModuleMySettings
|
||||
Public PATH_FileExclusions As String = Path.Combine(Application.UserAppDataPath(), "FileExclusions.xml")
|
||||
@@ -10,7 +11,7 @@ Module ModuleMySettings
|
||||
Public MyConnectionString As String = ""
|
||||
Public MyFormsDesign As String = ""
|
||||
|
||||
Public LogErrorsOnly As Boolean = True
|
||||
Public DEBUG As Boolean = False
|
||||
Public Sett_TaskOverviewKeepInFront As Boolean = True
|
||||
Public Task_Popup_minutes As Integer = 2
|
||||
Public Sett_ConstructorStart As Integer
|
||||
@@ -51,7 +52,8 @@ Module ModuleMySettings
|
||||
'Public USER_CLIENTS_COMMA_SEPERATED As String
|
||||
Public FWSCAN_started As Boolean = False
|
||||
|
||||
|
||||
Public LOGCONFIG As LogConfig
|
||||
Public LOGGER As Logger
|
||||
|
||||
Dim rowresult As String = ""
|
||||
Public Function LoadFileExclusion()
|
||||
@@ -112,10 +114,10 @@ Module ModuleMySettings
|
||||
Dim DT As DataTable
|
||||
'if file doesn't exist, create the file with its default xml table
|
||||
If Not File.Exists(ConfigPath) Then
|
||||
ClassLogger.Add(">> ConfigFile was created in: " & ConfigPath, False)
|
||||
LOGGER.Info("ConfigFile was created in: " & ConfigPath)
|
||||
DT = CreateConfigTable()
|
||||
DT.WriteXml(ConfigPath)
|
||||
ClassLogger.Add(">> Defaultvalues were saved.", False)
|
||||
LOGGER.Info("Defaultvalues were saved.")
|
||||
End If
|
||||
DT = GetTablefromXML(ConfigPath)
|
||||
If DT Is Nothing Then
|
||||
@@ -141,7 +143,7 @@ Module ModuleMySettings
|
||||
PWplainText = wrapper.DecryptData(csb.Password)
|
||||
connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("- the Password '" & csb.Password & "' could not be decrypted", False)
|
||||
LOGGER.Warn("- the Password '" & csb.Password & "' could not be decrypted")
|
||||
connstring = ""
|
||||
End Try
|
||||
|
||||
@@ -170,7 +172,7 @@ Module ModuleMySettings
|
||||
PWplainText = wrapper.DecryptData(csb.Password)
|
||||
connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("- the Password '" & csb.Password & "' could not be decrypted", False)
|
||||
LOGGER.Warn("- the Password '" & csb.Password & "' could not be decrypted")
|
||||
connstring = ""
|
||||
End Try
|
||||
|
||||
@@ -186,8 +188,8 @@ Module ModuleMySettings
|
||||
Case "MyLinkedServer"
|
||||
ClassProxy.MyLinkedServer = Row.Item("Value")
|
||||
Case "LogErrorsOnly"
|
||||
LogErrorsOnly = CBool(Row.Item("Value"))
|
||||
clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
|
||||
DEBUG = CBool(Row.Item("Value"))
|
||||
clsCURRENT.LOG_ERRORS_ONLY = DEBUG
|
||||
Case "Sett_TaskOverviewKeepInFront"
|
||||
Sett_TaskOverviewKeepInFront = CBool(Row.Item("Value"))
|
||||
Case "WD_IndexDeleteDocs"
|
||||
@@ -287,7 +289,7 @@ Module ModuleMySettings
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Error in LoadMyConfig: " & ex.Message, True)
|
||||
LOGGER.Warn("Error in LoadMyConfig: " & ex.Message, True)
|
||||
Return False
|
||||
End Try
|
||||
Return True
|
||||
@@ -300,8 +302,8 @@ Module ModuleMySettings
|
||||
Return DS.Tables(0)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in GetTablefromXML" & vbNewLine & ex.Message & vbNewLine & "ConfigPath: " & vbNewLine & path, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Error in GetTablefromXML: " & ex.Message, True)
|
||||
ClassLogger.Add(">> ConfigPath: " & ConfigPath, False)
|
||||
LOGGER.Warn("Error in GetTablefromXML: " & ex.Message, True)
|
||||
LOGGER.Warn("ConfigPath: " & ConfigPath)
|
||||
Return Nothing
|
||||
End Try
|
||||
|
||||
@@ -385,7 +387,7 @@ Module ModuleMySettings
|
||||
|
||||
|
||||
table.AcceptChanges()
|
||||
ClassLogger.Add(">> CreateConfigTable su...", False)
|
||||
LOGGER.Info("CreateConfigTable su...")
|
||||
Return table
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in CreateConfigTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
|
||||
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("2.5.0.6")>
|
||||
<Assembly: AssemblyVersion("2.7.0.0")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
|
||||
<Assembly: NeutralResourcesLanguageAttribute("")>
|
||||
@@ -718,4 +718,7 @@
|
||||
<data name="NetworkPipes_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\NetworkPipes_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="folder_Open_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\folder_Open_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -15,7 +15,7 @@ Option Explicit On
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.8.1.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
@@ -266,6 +266,18 @@ Namespace My
|
||||
Me("UserDocIDIndexname") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
|
||||
Public Property SaveDocGridlayout() As Boolean
|
||||
Get
|
||||
Return CType(Me("SaveDocGridlayout"),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me("SaveDocGridlayout") = value
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
|
||||
@@ -58,5 +58,8 @@
|
||||
<Setting Name="UserDocIDIndexname" Type="System.String" Scope="User">
|
||||
<Value Profile="(Default)">Dokument-ID</Value>
|
||||
</Setting>
|
||||
<Setting Name="SaveDocGridlayout" Type="System.Boolean" Scope="User">
|
||||
<Value Profile="(Default)">False</Value>
|
||||
</Setting>
|
||||
</Settings>
|
||||
</SettingsFile>
|
||||
BIN
app/DD-Record-Organizer/Resources/folder_Open_16xMD.png
Normal file
BIN
app/DD-Record-Organizer/Resources/folder_Open_16xMD.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 287 B |
@@ -22,7 +22,7 @@ Namespace My.Resources
|
||||
'''<summary>
|
||||
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Class ControlProperties
|
||||
|
||||
@@ -63,7 +63,7 @@ Public Class frmChooseParentRecord
|
||||
Try
|
||||
ColorRow = Color.FromName(rowCellValue)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> RowBackColor '" & rowCellValue & "'could not be converted from name!", False)
|
||||
LOGGER.Warn("RowBackColor '" & rowCellValue & "'could not be converted from name!")
|
||||
Exit Sub
|
||||
End Try
|
||||
'Dim c As Color = DirectCast(rowCellValue, Color)
|
||||
@@ -71,7 +71,7 @@ Public Class frmChooseParentRecord
|
||||
e.HighPriority = True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in RowStyle: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in RowStyle: " & ex.Message)
|
||||
End Try
|
||||
End If
|
||||
|
||||
|
||||
24
app/DD-Record-Organizer/frmConfig_Basic.Designer.vb
generated
24
app/DD-Record-Organizer/frmConfig_Basic.Designer.vb
generated
@@ -22,8 +22,8 @@ Partial Class frmConfig_Basic
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic))
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.lblLinkedServer = New System.Windows.Forms.Label()
|
||||
@@ -44,6 +44,7 @@ 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.CheckBoxGridDocResult_BestFitColumns = New System.Windows.Forms.CheckBox()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
@@ -83,7 +84,6 @@ Partial Class frmConfig_Basic
|
||||
Me.btncheckWDFolderexists = New System.Windows.Forms.Button()
|
||||
Me.txtwdFolder = New System.Windows.Forms.TextBox()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.CheckBoxGridDocResult_BestFitColumns = New System.Windows.Forms.CheckBox()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
Me.TabPage2.SuspendLayout()
|
||||
@@ -246,6 +246,12 @@ Partial Class frmConfig_Basic
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBoxGridDocResult_BestFitColumns
|
||||
'
|
||||
resources.ApplyResources(Me.CheckBoxGridDocResult_BestFitColumns, "CheckBoxGridDocResult_BestFitColumns")
|
||||
Me.CheckBoxGridDocResult_BestFitColumns.Name = "CheckBoxGridDocResult_BestFitColumns"
|
||||
Me.CheckBoxGridDocResult_BestFitColumns.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.Image = Global.DD_Record_Organizer.My.Resources.Resources.email_go
|
||||
@@ -356,14 +362,14 @@ Partial Class frmConfig_Basic
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_go
|
||||
Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_Open_16xLG
|
||||
resources.ApplyResources(Me.Button1, "Button1")
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnApplicationFolder
|
||||
'
|
||||
Me.btnApplicationFolder.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_go
|
||||
Me.btnApplicationFolder.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_Open_16xLG
|
||||
resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder")
|
||||
Me.btnApplicationFolder.Name = "btnApplicationFolder"
|
||||
Me.btnApplicationFolder.UseVisualStyleBackColor = True
|
||||
@@ -401,8 +407,8 @@ Partial Class frmConfig_Basic
|
||||
'
|
||||
'DataGridView1
|
||||
'
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
|
||||
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
|
||||
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
resources.ApplyResources(Me.DataGridView1, "DataGridView1")
|
||||
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.DataGridView1.Name = "DataGridView1"
|
||||
@@ -513,12 +519,6 @@ Partial Class frmConfig_Basic
|
||||
resources.ApplyResources(Me.Label12, "Label12")
|
||||
Me.Label12.Name = "Label12"
|
||||
'
|
||||
'CheckBoxGridDocResult_BestFitColumns
|
||||
'
|
||||
resources.ApplyResources(Me.CheckBoxGridDocResult_BestFitColumns, "CheckBoxGridDocResult_BestFitColumns")
|
||||
Me.CheckBoxGridDocResult_BestFitColumns.Name = "CheckBoxGridDocResult_BestFitColumns"
|
||||
Me.CheckBoxGridDocResult_BestFitColumns.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmConfig_Basic
|
||||
'
|
||||
resources.ApplyResources(Me, "$this")
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -2,6 +2,8 @@
|
||||
Imports System.Globalization
|
||||
Imports DevExpress.LookAndFeel
|
||||
Imports DD_LIB_Standards
|
||||
Imports System.IO
|
||||
|
||||
Public Class frmConfig_Basic
|
||||
Private _Helper As New ClassHelper
|
||||
Dim formloaded As Boolean = False
|
||||
@@ -139,7 +141,7 @@ Public Class frmConfig_Basic
|
||||
End Try
|
||||
|
||||
Me.txtActualConnection.Text = constr
|
||||
chkLogErrorsOnly.Checked = LogErrorsOnly
|
||||
chkLogErrorsOnly.Checked = DEBUG
|
||||
'txtwdSearch_Count.Text = WDResultListCount.ToString
|
||||
txtTask_Popup.Text = Task_Popup_minutes.ToString
|
||||
CheckBoxGridDocResult_BestFitColumns.Checked = GridDocResult_BestFitColumns
|
||||
@@ -181,13 +183,15 @@ Public Class frmConfig_Basic
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Process.Start(ClassLogger.DateiSpeicherort)
|
||||
Process.Start(LOGCONFIG.LogDirectory)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
|
||||
LogErrorsOnly = chkLogErrorsOnly.Checked
|
||||
SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly, "ConfigMain")
|
||||
clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
|
||||
DEBUG = chkLogErrorsOnly.Checked
|
||||
SaveMySettingsValue("LogErrorsOnly", DEBUG, "ConfigMain")
|
||||
clsCURRENT.LOG_ERRORS_ONLY = DEBUG
|
||||
LOGCONFIG.Debug = DEBUG
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -273,8 +277,8 @@ Public Class frmConfig_Basic
|
||||
System.IO.Directory.CreateDirectory(mypath)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" >> Fehler beim Erstellen des Folderwatchordners: " & mypath, False)
|
||||
ClassLogger.Add(" >> " & ex.Message, False)
|
||||
LOGGER.Warn("Fehler beim Erstellen des Folderwatchordners: " & mypath)
|
||||
LOGGER.Warn("" & ex.Message)
|
||||
MsgBox("Error in creating Hotfolder: " & mypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
@@ -307,7 +307,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
|
||||
' view = SQL_SELECT_EBENE1TextBox.Text.ToUpper.Replace("SELECT * FROM ", "")
|
||||
' view = view.Trim
|
||||
' Dim Sql = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & view & "')"
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> " & Sql, False)
|
||||
' LOGGER.Debug("" & Sql, False)
|
||||
' Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
|
||||
' If DT IsNot Nothing Then
|
||||
' COLUMN_NAME1ComboBox.Items.Clear()
|
||||
|
||||
@@ -39,6 +39,7 @@ Partial Class frmConstructor_Main
|
||||
Me.AuswertungAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.tsmiFilesearch = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.tsmiNodedownSearch = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.EntitätsweiteSucheToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.ToolStripSeparator24 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.tsmiNodeRename = New System.Windows.Forms.ToolStripMenuItem()
|
||||
@@ -167,6 +168,7 @@ Partial Class frmConstructor_Main
|
||||
Me.docCM_Open = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.OrdnerÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.docCM_Copy = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ExportNachExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.docCMEntityWideSearch = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator20 = New System.Windows.Forms.ToolStripSeparator()
|
||||
@@ -235,6 +237,7 @@ Partial Class frmConstructor_Main
|
||||
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainerMain.SuspendLayout()
|
||||
CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -349,13 +352,12 @@ Partial Class frmConstructor_Main
|
||||
'
|
||||
'AuswertungAnzeigenToolStripMenuItem
|
||||
'
|
||||
Me.AuswertungAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.Reports_collapsed_12995_32x
|
||||
Me.AuswertungAnzeigenToolStripMenuItem.Name = "AuswertungAnzeigenToolStripMenuItem"
|
||||
resources.ApplyResources(Me.AuswertungAnzeigenToolStripMenuItem, "AuswertungAnzeigenToolStripMenuItem")
|
||||
'
|
||||
'tsmiFilesearch
|
||||
'
|
||||
Me.tsmiFilesearch.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiNodedownSearch})
|
||||
Me.tsmiFilesearch.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiNodedownSearch, Me.EntitätsweiteSucheToolStripMenuItem})
|
||||
resources.ApplyResources(Me.tsmiFilesearch, "tsmiFilesearch")
|
||||
Me.tsmiFilesearch.Name = "tsmiFilesearch"
|
||||
'
|
||||
@@ -365,6 +367,11 @@ Partial Class frmConstructor_Main
|
||||
Me.tsmiNodedownSearch.Name = "tsmiNodedownSearch"
|
||||
resources.ApplyResources(Me.tsmiNodedownSearch, "tsmiNodedownSearch")
|
||||
'
|
||||
'EntitätsweiteSucheToolStripMenuItem
|
||||
'
|
||||
Me.EntitätsweiteSucheToolStripMenuItem.Name = "EntitätsweiteSucheToolStripMenuItem"
|
||||
resources.ApplyResources(Me.EntitätsweiteSucheToolStripMenuItem, "EntitätsweiteSucheToolStripMenuItem")
|
||||
'
|
||||
'ToolStripSeparator12
|
||||
'
|
||||
Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
|
||||
@@ -385,9 +392,9 @@ Partial Class frmConstructor_Main
|
||||
'tstxtRenameNode
|
||||
'
|
||||
Me.tstxtRenameNode.BackColor = System.Drawing.SystemColors.Control
|
||||
resources.ApplyResources(Me.tstxtRenameNode, "tstxtRenameNode")
|
||||
Me.tstxtRenameNode.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
Me.tstxtRenameNode.Name = "tstxtRenameNode"
|
||||
resources.ApplyResources(Me.tstxtRenameNode, "tstxtRenameNode")
|
||||
'
|
||||
'tsmiNodeNew
|
||||
'
|
||||
@@ -403,8 +410,8 @@ Partial Class frmConstructor_Main
|
||||
'tsmINewText
|
||||
'
|
||||
Me.tsmINewText.BackColor = System.Drawing.Color.Yellow
|
||||
resources.ApplyResources(Me.tsmINewText, "tsmINewText")
|
||||
Me.tsmINewText.Name = "tsmINewText"
|
||||
resources.ApplyResources(Me.tsmINewText, "tsmINewText")
|
||||
'
|
||||
'ToolStripSeparator15
|
||||
'
|
||||
@@ -1235,7 +1242,7 @@ Partial Class frmConstructor_Main
|
||||
'ContextMenuStripResultFiles
|
||||
'
|
||||
Me.ContextMenuStripResultFiles.ImageScalingSize = New System.Drawing.Size(20, 20)
|
||||
Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.docCM_Open, Me.OrdnerÖffnenToolStripMenuItem, Me.docCM_Copy, Me.ToolStripSeparator10, Me.docCMEntityWideSearch, Me.ToolStripSeparator20, Me.docCM_InWork, Me.docCM_linkRecord, Me.docCM_Showlinks, Me.docCM_RenameMain, Me.ToolStripSeparator22, Me.WindreamToolStripMenuItem, Me.ToolStripSeparator7, Me.docCM_CheckRights, Me.docCM_GetRights, Me.ToolStripSeparator8, Me.docCM_RemoveLink, Me.docCM_DeleteFile, Me.ToolStripSeparator9, Me.docCM_showGridSearch, Me.ToolStripSeparator16, Me.docCM_PropertiesFile, Me.ToolStripSeparator25, Me.ToolStripMenuItem1, Me.docCM_ResetView})
|
||||
Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.docCM_Open, Me.OrdnerÖffnenToolStripMenuItem, Me.docCM_Copy, Me.ExportNachExcelToolStripMenuItem, Me.ToolStripSeparator10, Me.docCMEntityWideSearch, Me.ToolStripSeparator20, Me.docCM_InWork, Me.docCM_linkRecord, Me.docCM_Showlinks, Me.docCM_RenameMain, Me.ToolStripSeparator22, Me.WindreamToolStripMenuItem, Me.ToolStripSeparator7, Me.docCM_CheckRights, Me.docCM_GetRights, Me.ToolStripSeparator8, Me.docCM_RemoveLink, Me.docCM_DeleteFile, Me.ToolStripSeparator9, Me.docCM_showGridSearch, Me.ToolStripSeparator16, Me.docCM_PropertiesFile, Me.ToolStripSeparator25, Me.ToolStripMenuItem1, Me.docCM_ResetView})
|
||||
Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
|
||||
resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles")
|
||||
'
|
||||
@@ -1255,6 +1262,12 @@ Partial Class frmConstructor_Main
|
||||
Me.docCM_Copy.Name = "docCM_Copy"
|
||||
resources.ApplyResources(Me.docCM_Copy, "docCM_Copy")
|
||||
'
|
||||
'ExportNachExcelToolStripMenuItem
|
||||
'
|
||||
Me.ExportNachExcelToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.Excel_25ixel
|
||||
Me.ExportNachExcelToolStripMenuItem.Name = "ExportNachExcelToolStripMenuItem"
|
||||
resources.ApplyResources(Me.ExportNachExcelToolStripMenuItem, "ExportNachExcelToolStripMenuItem")
|
||||
'
|
||||
'ToolStripSeparator10
|
||||
'
|
||||
Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
|
||||
@@ -1302,8 +1315,8 @@ Partial Class frmConstructor_Main
|
||||
'CMDoc_TextBoxRenameFile
|
||||
'
|
||||
Me.CMDoc_TextBoxRenameFile.BackColor = System.Drawing.Color.Orange
|
||||
resources.ApplyResources(Me.CMDoc_TextBoxRenameFile, "CMDoc_TextBoxRenameFile")
|
||||
Me.CMDoc_TextBoxRenameFile.Name = "CMDoc_TextBoxRenameFile"
|
||||
resources.ApplyResources(Me.CMDoc_TextBoxRenameFile, "CMDoc_TextBoxRenameFile")
|
||||
'
|
||||
'DisplaynameUmbenennenToolStripMenuItem
|
||||
'
|
||||
@@ -1314,8 +1327,8 @@ Partial Class frmConstructor_Main
|
||||
'CMDoc_TextBoxRenameDisplay
|
||||
'
|
||||
Me.CMDoc_TextBoxRenameDisplay.BackColor = System.Drawing.Color.DarkOrange
|
||||
resources.ApplyResources(Me.CMDoc_TextBoxRenameDisplay, "CMDoc_TextBoxRenameDisplay")
|
||||
Me.CMDoc_TextBoxRenameDisplay.Name = "CMDoc_TextBoxRenameDisplay"
|
||||
resources.ApplyResources(Me.CMDoc_TextBoxRenameDisplay, "CMDoc_TextBoxRenameDisplay")
|
||||
'
|
||||
'ToolStripSeparator22
|
||||
'
|
||||
@@ -1510,43 +1523,42 @@ Partial Class frmConstructor_Main
|
||||
'
|
||||
resources.ApplyResources(Me.bbtniRefresh, "bbtniRefresh")
|
||||
Me.bbtniRefresh.Id = 1
|
||||
Me.bbtniRefresh.ImageOptions.Image = CType(resources.GetObject("bbtniRefresh.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.bbtniRefresh.ImageOptions.LargeImage = CType(resources.GetObject("bbtniRefresh.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.bbtniRefresh.ImageOptions.SvgImage = CType(resources.GetObject("bbtniRefresh.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.bbtniRefresh.Name = "bbtniRefresh"
|
||||
'
|
||||
'bbtniGeodaten
|
||||
'
|
||||
resources.ApplyResources(Me.bbtniGeodaten, "bbtniGeodaten")
|
||||
Me.bbtniGeodaten.Id = 2
|
||||
Me.bbtniGeodaten.ImageOptions.Image = CType(resources.GetObject("bbtniGeodaten.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.bbtniGeodaten.ImageOptions.LargeImage = CType(resources.GetObject("bbtniGeodaten.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.bbtniGeodaten.ImageOptions.SvgImage = CType(resources.GetObject("bbtniGeodaten.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.bbtniGeodaten.Name = "bbtniGeodaten"
|
||||
Me.bbtniGeodaten.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
|
||||
'
|
||||
'bbtniCopyRecord
|
||||
'
|
||||
resources.ApplyResources(Me.bbtniCopyRecord, "bbtniCopyRecord")
|
||||
Me.bbtniCopyRecord.Id = 3
|
||||
Me.bbtniCopyRecord.ImageOptions.Image = CType(resources.GetObject("bbtniCopyRecord.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.bbtniCopyRecord.ImageOptions.LargeImage = CType(resources.GetObject("bbtniCopyRecord.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.bbtniCopyRecord.ImageOptions.SvgImage = CType(resources.GetObject("bbtniCopyRecord.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.bbtniCopyRecord.Name = "bbtniCopyRecord"
|
||||
Me.bbtniCopyRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
|
||||
'
|
||||
'bbtniParentLink
|
||||
'
|
||||
resources.ApplyResources(Me.bbtniParentLink, "bbtniParentLink")
|
||||
Me.bbtniParentLink.Id = 5
|
||||
Me.bbtniParentLink.ImageOptions.Image = CType(resources.GetObject("bbtniParentLink.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.bbtniParentLink.ImageOptions.LargeImage = CType(resources.GetObject("bbtniParentLink.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.bbtniParentLink.ImageOptions.SvgImage = CType(resources.GetObject("bbtniParentLink.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.bbtniParentLink.Name = "bbtniParentLink"
|
||||
Me.bbtniParentLink.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
|
||||
Me.bbtniParentLink.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
|
||||
'
|
||||
'bbtniWFTask
|
||||
'
|
||||
resources.ApplyResources(Me.bbtniWFTask, "bbtniWFTask")
|
||||
Me.bbtniWFTask.Id = 6
|
||||
Me.bbtniWFTask.ImageOptions.Image = CType(resources.GetObject("bbtniWFTask.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.bbtniWFTask.ImageOptions.LargeImage = CType(resources.GetObject("bbtniWFTask.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.bbtniWFTask.ImageOptions.SvgImage = CType(resources.GetObject("bbtniWFTask.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.bbtniWFTask.Name = "bbtniWFTask"
|
||||
Me.bbtniWFTask.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
|
||||
Me.bbtniWFTask.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
|
||||
'
|
||||
'bbtniReclog
|
||||
'
|
||||
@@ -1567,17 +1579,16 @@ Partial Class frmConstructor_Main
|
||||
'
|
||||
resources.ApplyResources(Me.bbtniclearCache, "bbtniclearCache")
|
||||
Me.bbtniclearCache.Id = 9
|
||||
Me.bbtniclearCache.ImageOptions.Image = CType(resources.GetObject("bbtniclearCache.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.bbtniclearCache.ImageOptions.LargeImage = CType(resources.GetObject("bbtniclearCache.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.bbtniclearCache.ImageOptions.SvgImage = CType(resources.GetObject("bbtniclearCache.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.bbtniclearCache.Name = "bbtniclearCache"
|
||||
'
|
||||
'bbtniNewVariant2
|
||||
'
|
||||
resources.ApplyResources(Me.bbtniNewVariant2, "bbtniNewVariant2")
|
||||
Me.bbtniNewVariant2.Id = 11
|
||||
Me.bbtniNewVariant2.ImageOptions.Image = CType(resources.GetObject("bbtniNewVariant2.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.bbtniNewVariant2.ImageOptions.LargeImage = CType(resources.GetObject("bbtniNewVariant2.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.bbtniNewVariant2.ImageOptions.SvgImage = CType(resources.GetObject("bbtniNewVariant2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.bbtniNewVariant2.Name = "bbtniNewVariant2"
|
||||
Me.bbtniNewVariant2.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
|
||||
'
|
||||
'bStaticItem1
|
||||
'
|
||||
@@ -1687,6 +1698,11 @@ Partial Class frmConstructor_Main
|
||||
Me.RibbonPage2.Name = "RibbonPage2"
|
||||
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
|
||||
'
|
||||
'frmConstructor_Main
|
||||
'
|
||||
Me.Appearance.Options.UseFont = True
|
||||
@@ -1972,4 +1988,7 @@ Partial Class frmConstructor_Main
|
||||
Friend WithEvents RepositoryItemProgressBar2 As DevExpress.XtraEditors.Repository.RepositoryItemProgressBar
|
||||
Friend WithEvents bsitmLoadEntity As DevExpress.XtraBars.BarStaticItem
|
||||
Friend WithEvents bsitmWFState As DevExpress.XtraBars.BarStaticItem
|
||||
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
|
||||
Friend WithEvents ExportNachExcelToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents EntitätsweiteSucheToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -168,7 +168,7 @@
|
||||
<value>Auswertung anzeigen</value>
|
||||
</data>
|
||||
<data name="tsmiNodedownSearch.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>237, 26</value>
|
||||
<value>233, 22</value>
|
||||
</data>
|
||||
<data name="tsmiNodedownSearch.Text" xml:space="preserve">
|
||||
<value>Diesem Knoten untergeordnet</value>
|
||||
@@ -177,6 +177,12 @@
|
||||
<data name="tsmiNodedownSearch.Visible" type="System.Boolean, mscorlib">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="EntitätsweiteSucheToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>233, 22</value>
|
||||
</data>
|
||||
<data name="EntitätsweiteSucheToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Enitätssuche - "alle Dateien"</value>
|
||||
</data>
|
||||
<data name="tsmiFilesearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
@@ -204,9 +210,6 @@
|
||||
<data name="ToolStripSeparator24.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>221, 6</value>
|
||||
</data>
|
||||
<data name="tstxtRenameNode.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>Segoe UI, 9pt</value>
|
||||
</data>
|
||||
<data name="tstxtRenameNode.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>200, 23</value>
|
||||
</data>
|
||||
@@ -229,9 +232,6 @@
|
||||
<data name="SdsdToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Knotentext:</value>
|
||||
</data>
|
||||
<data name="tsmINewText.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>Segoe UI, 9pt</value>
|
||||
</data>
|
||||
<data name="tsmINewText.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>152, 23</value>
|
||||
</data>
|
||||
@@ -316,7 +316,7 @@
|
||||
<value>Suche Knoten</value>
|
||||
</data>
|
||||
<data name="cmsTreeView.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>225, 257</value>
|
||||
<value>225, 235</value>
|
||||
</data>
|
||||
<data name=">>cmsTreeView.Name" xml:space="preserve">
|
||||
<value>cmsTreeView</value>
|
||||
@@ -980,9 +980,6 @@
|
||||
<data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorPositionItem.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>Segoe UI, 9pt</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>50, 23</value>
|
||||
</data>
|
||||
@@ -2044,7 +2041,7 @@
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>SplitContainerFORM.ZOrder" xml:space="preserve">
|
||||
<value>7</value>
|
||||
<value>8</value>
|
||||
</data>
|
||||
<metadata name="ContextMenuStripResultFiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>591, 56</value>
|
||||
@@ -2067,6 +2064,12 @@
|
||||
<data name="docCM_Copy.Text" xml:space="preserve">
|
||||
<value>Datei in Zwischenablage kopieren</value>
|
||||
</data>
|
||||
<data name="ExportNachExcelToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>255, 26</value>
|
||||
</data>
|
||||
<data name="ExportNachExcelToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Export nach Excel</value>
|
||||
</data>
|
||||
<data name="ToolStripSeparator10.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>252, 6</value>
|
||||
</data>
|
||||
@@ -2120,9 +2123,6 @@
|
||||
<data name="docCM_Showlinks.Text" xml:space="preserve">
|
||||
<value>Verknüpfungen anzeigen</value>
|
||||
</data>
|
||||
<data name="CMDoc_TextBoxRenameFile.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>Segoe UI, 9pt</value>
|
||||
</data>
|
||||
<data name="CMDoc_TextBoxRenameFile.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>152, 23</value>
|
||||
</data>
|
||||
@@ -2135,9 +2135,6 @@
|
||||
<data name="NeuToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Dateinamen umbenennen</value>
|
||||
</data>
|
||||
<data name="CMDoc_TextBoxRenameDisplay.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>Segoe UI, 9pt</value>
|
||||
</data>
|
||||
<data name="CMDoc_TextBoxRenameDisplay.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>152, 23</value>
|
||||
</data>
|
||||
@@ -2289,7 +2286,7 @@
|
||||
<value>Ansicht zurücksetzen</value>
|
||||
</data>
|
||||
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>256, 494</value>
|
||||
<value>256, 520</value>
|
||||
</data>
|
||||
<data name=">>ContextMenuStripResultFiles.Name" xml:space="preserve">
|
||||
<value>ContextMenuStripResultFiles</value>
|
||||
@@ -2367,219 +2364,135 @@
|
||||
<value>221, 134</value>
|
||||
</metadata>
|
||||
<data name="bbtniRefresh.Caption" xml:space="preserve">
|
||||
<value>Aktualisieren</value>
|
||||
<value>Aktualisieren Datensätze</value>
|
||||
</data>
|
||||
<data name="bbtniRefresh.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<data name="bbtniRefresh.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA1dEVYdFRpdGxlAEFycm93O1JlY3VycmVuY2U7UmVm
|
||||
cmVzaDtVcGRhdGU7UmVsb2FkO0V4Y2hhbmdlhrRdSAAAANJJREFUOE+lkrENwkAQBI1EATRg0YFzirDI
|
||||
SMgdIkeQ0wQlkJKZjH5o4tl9/Z5O6B6BCUY67d7tv33fpJT+IhR/wYr+fBctGMEEngXW1OjlvlrAAhxA
|
||||
qnADGxAGrEAPGHICA1gXWD+AQtooYF8aGGK68zugkFG6TA7pmjlEDR7ovAn9SVo0LCwk8IyPJoeP18sS
|
||||
dfUQfz2uiuIgzcPm4tswdd/APdPgj+qkO9+H2Of5Bj4Srkgh72vcAYXYnA8gfCQKidiC3FsLIPOe8lxC
|
||||
8XtS8wL/7IdaesUzOwAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="bbtniRefresh.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA1dEVYdFRpdGxlAEFycm93O1JlY3VycmVuY2U7UmVm
|
||||
cmVzaDtVcGRhdGU7UmVsb2FkO0V4Y2hhbmdlhrRdSAAAAc5JREFUWEfFlj1Ow1AQhFMEmnRIFCgUFCDl
|
||||
BNAlJ/BVUtImQkIcAW7gA9BwgHTUqSgouAK9mUHeaN9mXuwQ8VJ8Sjxvdnfkv+dB0zRHRYolkWJJpFgS
|
||||
KZZEijmqh7cJmIMarMF3C/9T49pE1eaQYgRNx2AJPkDTAT30jlWviBQ9aHQLXkEc1AVrpqqnR4oGGpAL
|
||||
8AnUkC5WYGcIKRIUkqr9vQIW4h0swAyctfA/Na7FEDwT2cshRYIiDmcDH+IR3Cg/4Rp4ATHEUvnJlnBf
|
||||
Pw9RYMMNC3ES/RF4RiCG4I0pn47kAMPPYYzDjcp7dwEvz0S8HHPlTQ5gyg039gnBe8LX1sq3+QND13Cj
|
||||
Vwj4eGP6urXymbnvcCMJweOw3pfqoOIDQ/zWbxp4sMh3uzfPlC8C396XcasJgYEbiy9YKJ8C3q4QyZlL
|
||||
ig2YuKv5Ij5S2RdQBN5ciIqPuvcmhQaM3HbjzseXy0j5PfCcAhWCw4fRnxx4UMAt1TcgDNH1Kn4C18CH
|
||||
SE67R4oERfwGUNtwn83oC/gQcgaRooHCKeCWGkP0gSEugextSNGDBgzx1w+SO9XTI8UIGh3vk8yDpsf5
|
||||
KP1PpFgSKZZEiiWRYjmawQ//5PL6OeAKogAAAABJRU5ErkJggg==
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIkDAAAC77u/
|
||||
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
|
||||
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
|
||||
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
|
||||
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
|
||||
Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
|
||||
MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
|
||||
bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQ2hhbmdlVmlldyI+DQogICAgPHBh
|
||||
dGggZD0iTTI0LjUsNy41QzIyLjMsNS4zLDE5LjMsNCwxNiw0QzEwLjEsNCw1LjEsOC4zLDQuMiwxNGg0
|
||||
LjFjMC45LTMuNCw0LTYsNy43LTZjMi4yLDAsNC4yLDAuOSw1LjYsMi40TDE4LDE0ICAgaDUuN2g0LjFI
|
||||
MjhWNEwyNC41LDcuNXogTTE2LDI0Yy0yLjIsMC00LjItMC45LTUuNi0yLjRMMTQsMThIOC4yaC00SDR2
|
||||
MTBsMy41LTMuNUM5LjcsMjYuNywxMi43LDI4LDE2LDI4YzUuOSwwLDEwLjgtNC4zLDExLjgtMTAgICBo
|
||||
LTQuMUMyMi44LDIxLjQsMTkuNywyNCwxNiwyNHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2
|
||||
Zz4L
|
||||
</value>
|
||||
</data>
|
||||
<data name="bbtniGeodaten.Caption" xml:space="preserve">
|
||||
<value>Geodaten</value>
|
||||
</data>
|
||||
<data name="bbtniGeodaten.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<data name="bbtniGeodaten.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAE1vZGVsO0NvcHk7Q29weU1vZGVs
|
||||
O4ktWcsAAAJgSURBVDhPjdFdSFNhHMfx1XQvbhokvdx00X3ddlEEQRB0WzeRvYBFkESRWVgstZpz5ZL5
|
||||
Oo0CaysbFBlWSos2hroU1wsWmFA3WelyO9s82862s/36P4+4zqKLDnyQB5//9zx7jgpAgdFoVHc6g75u
|
||||
11t0ud6RIDqcQbQz96ZgJ7bb437ap1mZ+TtQ2uGcQj4PkudyTG6ZTG7emQTt0xcC9KwialKi1WoNg54Z
|
||||
SJIEIZrgwkICkWgKMTGDdDaHG30BFihTBtSW3oDP2vcGLb0TJACLYwzNjgDM5FrPGG4NBBESREiZHCw9
|
||||
oyxgUAZKmx2jRcdWHp0du9Hux49fUaTSMpra/SxgVAY0VztZIA8xmeWWkjIXF2V+bJPNi2/zAhKSDFOb
|
||||
lwXKlQFtfauXvzGWyCLKiFkISxmOvfWs+SW+zC0iTv+7YPWwQIUyoDvf4uHHZQMRuqwI/Y1RRExl6XfL
|
||||
ePZ6BqFwHIlUBi98n6HX6ytproSwy1eVnWp8jqycRyiaJhIWBInelsHcyCBmG2oKPpj3I9C6owgLGE6a
|
||||
hiiQwzwNRuJpGk4jHEti9nIN4HVxKdd1DBzaDAgPufi0ma954PjFp8jQZf2MLH/vu8OfcODKSMEJ+znU
|
||||
9W8p8n346J9Add0Tfttx9hUSEvaccWNCBOeeDmFf/SYsop8b/9rE18qArur0fd+R2sc4XPsI7qH3PNDw
|
||||
aoGr7p7gA86PO7lLD7byddfejbDuXm9jgdVETyrIGrLhfwK0by3R8G+pRI9uW5UDSruOrSuy/WBlGx9m
|
||||
zz8CKycyKpQrsLWW0D6V6jdzUIrq8TztCAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="bbtniGeodaten.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAE1vZGVsO0NvcHk7Q29weU1vZGVs
|
||||
O4ktWcsAAAhaSURBVFhHjZZ7UFXXFcYRFBB8v5LaiZM4k0wmbf/pdDqNiY1p0sRJ7WOSMa+mnbSxTmKT
|
||||
ZqiCDqOgXtAQjALG2GhVCIhvMIhIEJAi4jM+iQooCvK478t987jw9Vv7nnMDgkz2zI99L/ec831r7bXX
|
||||
PmEAhjBu3Dh9Ds87fKky7+vL4EwuI1fNlzhfRG7hRXxVcBE5nHMKvlVkZVev5X2j5V4yakvembAtubVh
|
||||
nxN5ro6uFfowELlRmyNEfLjR3d0Lr68bTpcPZpsbza0OXKprw+mLzfhs23ED7x1DlIm6+vawjJ3VDzYw
|
||||
cMh3uUljtEQsI9DXh95AP3oCfQp/V9BAp9sPk82DO/fs+E/+WfT3AxW1t5GaVZrC+yOJMvHp1sofbiAy
|
||||
MjJciImJiZS09vOp3b2BID0BdGn4/N3weLthc3hpwIbMnBplwOPrRVlNI5I2FKVSLIpEEAloRAOjNMIj
|
||||
IiJGC1FRUdEVtQ0IBALwd/coQUEi9/i6ggb42c5laGIG0r88oQz4uvuUidITN7Ei9eA6CkaTQSaGMxCe
|
||||
mX2qMjOnFlm7apG56xQySHCuQcbOGmzaUYONnDfuOKkoO3kTbm8XbE4vbt21wpD1jTLQ09tPw2IigOKK
|
||||
64hLyh9i4n4DEnmEiA83pOAk0k6nDyarC3cZ7fmr91BxqhFHT9TB6nDj1h0rVqYXq+vFBMuEtSJGAigq
|
||||
u4Z/Jn4lJvSaGNbAaIlYhkQgdPf2KXz+XkbKVDv96LBQrNmG9O3/U0JF5ddxuPQKbt+zIO2LMiSkFGKZ
|
||||
YCjE0rVCAQr5eyazSOEYIlkY1sCYTUyvDCXcQwM9fSy2ILLeLk83LDYvbjdbkLKlXBlwc60Ly+qwp+g8
|
||||
GppMuHqzDRfqWnD+SovaktXnm3DqQpNuYPyIBmRdZejCauZa+rkEXdoyWDt9aGy2YtWGklDBiYmDR69g
|
||||
d+EZtBntaDW7cK/Diea2Tpq14U6LDRk7qsXABCJNalgDkRu2Bw2IuBSRLi74BO59G+ug8Y4Fy1IPDyo4
|
||||
NwtubxG748FT7AtOWDo9MDs8XDIPLHYPi7ZKDEx8kIFwEpW+jevKf/h7gqJKmKI6nq4eOFx+NLDgPko6
|
||||
wCuHFlx+4Tlk76tWhWnl7rAwY9KsNnypDEwayUB0Gi/S0xoU5d5XwsTfQ3ppoAt32h2s+CNYvHw3FsXn
|
||||
YdGyPLy3VMjF/iMXkbSpFB1mh8qWjYalWbETioHJIxpYv1VrJFq0IqgLy+zig5zEZOe+b7Hj8s12nLva
|
||||
zGK7i+pzTag83YjqM7dYH8fQarSwXrxwuLvg5b1pW8vFwJSRDIxd90WlMiBi7oH4KE7cLEKZJQsWB3sC
|
||||
d0S72Y0WKTYaqm+ysOisSEw7ipZ2M6/xsEt2qaVZ//lxMTCVyCE1rIGYlM0VNNB/n3BQVHAK3IqdjEpm
|
||||
iU4EZJ2NPJDaTC42KjdWpB3B3VYTzCw+mzLQi9TNZWJgmmZAnbYDDUSQWENWOfpowEXxkKhHEyVOd3Du
|
||||
lJk4dChipokOZsTOdU9IPcKzwcgMSSHyzOCSGjJLxcD0kQyMX83i6evrV4JKbKCIJuRwBWeJTB4exM8s
|
||||
BJGsLTUUoOFuOw25YOFvXtZQMp9N4RlE2vGwBiYkfVbCLdWvCYuYJqh9toUEg1h0NHGzw89oA4hbfYj1
|
||||
0Io2NiQTa8VDU9K4KPzQEAPaGE0mSvGIAT1CHRELivuDwiI2QNRkZ0ESWQIp1H+xR1xvaEaL0YF21oSL
|
||||
ASR+WozY2NiZY8eOjZZ3jaDs90MMTFq+7mv1tvN9lJoIP5s7BYrpMDKj1cuG46dh7ndWvIUpd7o8KCz5
|
||||
ljuDNWDt5OuaE45OF4rLLyM6Ono2xSeGh4ePoZ5039AQA5PjDYeVAVk3hYhrwhKpitbmh5HiHewFFmK1
|
||||
833w6CHcSl6ChiSyagnqVy7BzZXv43pZFs5lzMXZjc/idPozqP1kDmrWPY1Ro0bFUG9QFsTRFDk+e3gS
|
||||
6ikORSzCErGI2yjOyEXczIi/y9mOlvQE4EReiKasJFQteQb3yuMAx94Q7aXvoiTup2JgAvWk7kJDDEyV
|
||||
4pGjWMRE1KiEg6Ii3k7aKC6d0ETxnTwB3zKU4c01pXh9dSkWJh/Da0kl2BQ/F39dNxt/SZmNdwTDY3h7
|
||||
7aO4kDwDBYufkMqbRCTroSEGpn2cfECdhLp4UNhHYQ2rh0ct15oHzX+LLmNjaQPOehAi83gj/piwCLlV
|
||||
78KK7BA7Kl7H7+JmKgN73nlMDEwmIQPqXYBM+2gVDbBtDhb1MeograTZ6ESHyY4/JRYj46wDm07bsbGW
|
||||
L6Q1Nryx5hjeTH4UB+rnY3/Dy9hf/xL21f8WCxJj8eIHM5SB7FcfGZIB3cDUDxP3q74tncsrqEOIr2Na
|
||||
WxbkDdhktuGV+AJ8Um3F+pNWpFZZYKiyKgMLV87C3hsvYs+NF5B/4zfYff15ZeC5v09D8eKHkf7CjAxq
|
||||
jSNSA2onyB/ViN77966q91fsweIEsjwf/4jP52eZeezyyBX+FpeD3YdO4qWP92FNpRmrK8xIKjdh5XGz
|
||||
MvDqikeQ99088hxy6+Yih4iBX/15MlJ/PT2LOlNIJBm0C+RLFJHqnE5+dB8zBzCL/GTekt1I/MaE5ceM
|
||||
SDjWgfgSI+YtzsYf4n+MnGvPIvvaHOy6+rTi+Q/G42cLxm/mfdNINBG9QX1Avsg/ZV3EnY6Yup9YMv2p
|
||||
36fjyQVpePKV9Xhifgoef9mAWXM+3PbLtybjF2+QhZPw89cmKp6aP04i18VDqVdD78k/BA7dqBiRQpJs
|
||||
PaQxQ/su88NEMiezfJ9I5J7B4jKGE3oQ2hiYLSnegRkbLnNyjVw7JO1hYWFh/wecxwMOH7dYDAAAAABJ
|
||||
RU5ErkJggg==
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFIDAAAC77u/
|
||||
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
|
||||
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
|
||||
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3
|
||||
RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh
|
||||
Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm
|
||||
aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iR2VvUG9pbnRNYXBzIj4NCiAg
|
||||
ICA8cGF0aCBkPSJNMTYsMGMtMy4zLDAtNiwyLjctNiw2czYsMTAsNiwxMHM2LTYuNyw2LTEwUzE5LjMs
|
||||
MCwxNiwweiBNMTYsOGMtMS4xLDAtMi0wLjktMi0yczAuOS0yLDItMnMyLDAuOSwyLDIgICBTMTcuMSw4
|
||||
LDE2LDh6IiBjbGFzcz0iUmVkIiAvPg0KICAgIDxwYXRoIGQ9Ik0yMy40LDguNmMtMC44LDEuOS0yLjEs
|
||||
NC0zLjQsNS43djAuNVYxOXYxMC4ybC04LThWMTl2LTQuN2MtMS41LTEuOS0zLjEtNC40LTMuNy02LjZM
|
||||
NCwxMnYyMGw4LThsOCw4bDgtOFY0ICAgTDIzLjQsOC42eiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4N
|
||||
Cjwvc3ZnPgs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="bbtniCopyRecord.Caption" xml:space="preserve">
|
||||
<value>Record kopieren</value>
|
||||
</data>
|
||||
<data name="bbtniCopyRecord.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<data name="bbtniCopyRecord.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAENvcHk7QmFycztSaWJib247U3Rh
|
||||
bmRhcmQ7Q2xvbmVtDt9bAAAAb0lEQVQ4T+2OwQ2AIBAE6ckW700HlOaXIny4cgbIokE5w9NNJhC4HXAA
|
||||
GkQEHfa8LjzflBUd6kXvvPcrS8yClI0ltfREjFGLt3PtDr0aQqiSEpNAc5WYBExJ3r8LOL9gkoBJ+fSD
|
||||
s1OYJxiFywDcAUEvVDi/LQTFAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="bbtniCopyRecord.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAENvcHk7QmFycztSaWJib247U3Rh
|
||||
bmRhcmQ7Q2xvbmVtDt9bAAAA50lEQVRYR+2TwQqDMAyGfT6fq1dRevfJxFNhD7EdsvysgukSp1vtBusH
|
||||
P5K0id9BGyL6atRmyajNNM45OpjAaTmYfcp6tyis8BA/9oP7XdfdxnFsuUx3iVoUVt4RmOdZlSgmADSJ
|
||||
ogIgldgUwOCReO9pmiYeleBsTZS4QoLPxDtFkQ6+Avf7vqcQQuw80PYsEnwmvomPBbA4lUB/Ixe+kk8A
|
||||
aBIWcSavANgrcZoA2CNxqgBYJLS/A2QXsDIMQ7wlwRmTR2ALa1cVqAJVoAr8l4AVpowAI/ZrEUUV+AmB
|
||||
nFnvtqI2y4WaO7s+m1CnlB8XAAAAAElFTkSuQmCC
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAADACAAAC77u/
|
||||
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||
Y2U9InByZXNlcnZlIiBpZD0iQ29weSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg
|
||||
MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5
|
||||
bGU+DQogIDxwYXRoIGQ9Ik0yMSwwSDlDOC40LDAsOCwwLjQsOCwxdjVIM0MyLjQsNiwyLDYuNCwyLDd2
|
||||
MjJjMCwwLjYsMC40LDEsMSwxaDE4YzAuNiwwLDEtMC40LDEtMXYtNWg1YzAuNiwwLDEtMC40LDEtMVY3
|
||||
ICBMMjEsMHogTTIwLDI4SDRWOGg0aDJoNHY1YzAsMC42LDAuNCwxLDEsMWg1djR2NHYyVjI4eiBNMjYs
|
||||
MTJ2MTBoLTR2LTlsLTctN2gtNVYyaDRoNnY0djFjMCwwLjYsMC40LDEsMSwxaDVWMTJ6IiBjbGFzcz0i
|
||||
QmxhY2siIC8+DQo8L3N2Zz4L
|
||||
</value>
|
||||
</data>
|
||||
<data name="bbtniParentLink.Caption" xml:space="preserve">
|
||||
<value>Ändere Parent-Verknüpfung</value>
|
||||
</data>
|
||||
<data name="bbtniParentLink.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<data name="bbtniParentLink.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAVdEVYdFRpdGxlAExpbms7SHlwZXJsaW5rOy1hYIsA
|
||||
AADvSURBVDhPjZOxEYMwEATVAAkRmYugCQInTtwBFThwCZ4hcSMugHFz8q/nj3lkgQl2QM/d6SWklHM+
|
||||
RN/3rTEZsz8HI1XFJSbs3JgDb2OoGiImiuazcTKePp6qJmGCxohmakAItXnLKEYXXoybv1MnbLsDF8HD
|
||||
hXd/EiIznbX/AiRWCJ3I3KEtjayZtpkZ88tQgFjMqwCK/rE0EEIYoYQ38nwDrFCaEWvNGku3GGMAJyya
|
||||
tdsKYebdAI4lQjaIMe9xt8fSFMGg2Tkcmklmvq3WXBI7uBqE/PyqPQjgVnExMIlDZlDLhMSrysZWDWty
|
||||
+gCTbuWdr5DkwAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="bbtniParentLink.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAVdEVYdFRpdGxlAExpbms7SHlwZXJsaW5rOy1hYIsA
|
||||
AAG6SURBVFhHxZbBTQMxFETTQSpA4ozEKQVRSDqgD1oJndABiNsyD/lb399D0G7QcnjaeL49s+vYlg/L
|
||||
svwrVtwTK+6JFffEirdyOp2exUV8tudZ3Iup7yTcikIIXwwv4r72Hxq3ooAc/iCO4km8Nu1cxwyNW5B5
|
||||
Dq81XgL9knUYGluR8RAOpc5MUPvMOgyNLch0CofSh7+D+vYZCOMCqzuHs9LfaJex0Wf7GtBgB1sMY76w
|
||||
h/NM4yL8OfsFk/ATMnCwzzF/FD1cfG+31v4OF9bXig4MDDEDQ7igNoSD87WiI0wKeQ0QzkzcJe1qOFjR
|
||||
IRPC6vH6LiKs0sPBeYIVK83MhcCHmF7O+TismJFZDme15wUHhPcvDZyXw4qBjHp4aw9brT354iEcss81
|
||||
rAgy+S2cmeA30z6EQ/a6hhVlkKc9THM4L9OPV9GDA+frmAQNzlsrm+bwaMPfrgEN5oswfqi1oNXBHq9r
|
||||
mASZxvF6rLVW7+Fiqq9lEmQaM/BkakM41D5rmQSZxhrgGsVNhsvEquN1DZMgYxYZF8gIzPRwqGO3MAnN
|
||||
nJeox+sQDnXsFqy4J1bcEyvuiRX3Yzl8ASZm2qsDOahEAAAAAElFTkSuQmCC
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABMDAAAC77u/
|
||||
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||
Y2U9InByZXNlcnZlIiBpZD0iTGlua1RvUHJldmlvdXMiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpu
|
||||
ZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5CbGFja3tmaWxsOiM3Mjcy
|
||||
NzI7fQoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KPC9zdHlsZT4N
|
||||
CiAgPHBhdGggZD0iTTE2LDE2SDZ2LTZoMTBWMTZ6IE0zMiwxMEgyMnY2aDEwVjEweiIgY2xhc3M9Illl
|
||||
bGxvdyIgLz4NCiAgPHBhdGggZD0iTTE0LDE2djExYzAsMC41LTAuNSwxLTEsMUgzYy0wLjUsMC0xLTAu
|
||||
NS0xLTFWMTNjMC0wLjUsMC41LTEsMS0xaDN2Mkg0djEyaDhWMTZIMTR6IE0yOCwxNnYxMGgtOFYxNGgy
|
||||
di0yaC0zICBjLTAuNSwwLTEsMC41LTEsMXYxNGMwLDAuNSwwLjUsMSwxLDFoMTBjMC41LDAsMS0wLjUs
|
||||
MS0xVjE2SDI4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8cGF0aCBkPSJNMTAuOSwyLjlDMTIuNywxLjEs
|
||||
MTUuMiwwLDE4LDBjNC44LDAsOC45LDMuNCw5LjgsOGgtMi4xYy0wLjktMy40LTQtNi03LjctNmMtMi4y
|
||||
LDAtNC4yLDAuOS01LjYsMi40TDE2LDhIOFYwICBMMTAuOSwyLjl6IiBjbGFzcz0iQmx1ZSIgLz4NCjwv
|
||||
c3ZnPgs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="bbtniWFTask.Caption" xml:space="preserve">
|
||||
<value>Erstelle Workflowtasks</value>
|
||||
</data>
|
||||
<data name="bbtniWFTask.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<data name="bbtniWFTask.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAYdEVYdFRpdGxlAEZsb3dMYXlvdXQ7TGF5b3V0OxNT
|
||||
9LIAAAMQSURBVDhPXZJpSFRRFMcfitpiFvU5+lBqmfSlRRuXNKXciUrMJdPRgUBzyQzX1MoZDdEiiRbM
|
||||
SilNYTLLZcacTDMpyyxzC9PMxhmXQWd03IJ/574xix78OO/dc87/3nfun4uUyBSi3BcQ5TYgchn2HiGR
|
||||
KziOM4kQyxT8es5fInLkEGbXvaS8MceKR3WLGJ9dxJhugUetnYe0qR9UYM6iir5V2jketW4eSu0CbdDA
|
||||
8iZ0Ajn6J/TIyi+BKCaHJ5JHskLEGfEKwmgxelQzCBfLmYApR0dFr3oGQcIUsEe/9AuzjMV/WcLswhJm
|
||||
CPsDx9Gl1JKAzCAgJKUeEhDFZkFwMIDwh8DVH/tdCCpmDSlZ16HSTMPO0QcxybnoGtUh7HI9EzDjwrNl
|
||||
aB/R4Qsdiyl/GplG58gUymSf4XPsdFFSxjX8HNdgn6M3os9L8GFYg5ZBLU5d4k9gxvklSOVHEqtg4Cky
|
||||
77SitOYzEi4UahPTC/BjjJodvBEcmYr7zz4iu7iNr/ONr2zgh0jPKsKcWEdYEJsO+wmLElLzMKyexF4H
|
||||
L9judq80MTXbTLmNxAZiPbGGMOJCMp43hV6sw5XSdjxu6EZcWiHik3LxXTWBvQIvBIafmympfo8QURoe
|
||||
1naisrEPcVebEJj2tJkETLmTWXV0jXMYmtBBnH8XsfSfQ8px7KHm7bucpfeq3qF7WA137zC4Ec8UbzGk
|
||||
0SOm4CWbwWouJLOWBjOFVMktRCdkY3B0Evud/WjnFJzgSUZAWDJcPUKgntbD5VAwHlS3oOJFHxNYwwWT
|
||||
QNvAONw8Q3kfjDG3raDnUTGoWTVlwMktgG6pmwms5YIyavBmYAKeR4WwtnWC1R92OsLKxgGWNgJY7hDA
|
||||
gTyinJrFtu32uFleT/PqNQgEptegsV+D11/H0NynxqtegmLp805WsIVFWccgb6qt1na4UVaL1m8aROU1
|
||||
GgQ8Y8obfc5KwRP/ZBkp2DoVWHhGP1IUV3XA1z8KtyvayCNdCL9YDw9apzyzALnJcKdr/4OtGy9H3h8E
|
||||
u3/mGQY1c0a/AcvaUVe52efgAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="bbtniWFTask.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAYdEVYdFRpdGxlAEZsb3dMYXlvdXQ7TGF5b3V0OxNT
|
||||
9LIAAAifSURBVFhHpZdpUFRXFseZySTEMUZnKWerSVKTD/Nh5sPMh0xqKmOSKTNJjCJonBi3KMjiUlai
|
||||
sjTiLqANKovsahxZlEUUodmXZm262ZduFoUGmoZeWUYRnczyn3Ne92tsxJhUqPrVue9yzz3/e+9597x2
|
||||
ob/vEc8RP7Dz/DeEfUS/x/tfeAY8hn2+Twh/zwUmKeRBKUrM0bhwO5naRCD1BSQ2yMnXlW0g9z2FAJGk
|
||||
OfwT6tmXRfDiXZ7fG1WN/slH34rd56pBvot3n5Wjf2Le//lZ7CPbJz7b274RVezLu2EXcL4asjvTuP0s
|
||||
+m1WRnYXBSbfJWwLuJ/Is4/JW5ApweYTvlJBgCshHMMLe0jATc0EUtvMuN5lRU7PBG4QeX3sNCW0ue96
|
||||
lwVXWk240W2Fb6QwyTKeLIf7W4y41mFGjtqKG8St3kkBfs6m8RmdZlxuNtJYK3yklez74pwAWkWuegI1
|
||||
g1NoHb2H5pEpNI1MEqK1M2yzHfop3Kzu50mWs20fnYJyeALKIUJrfRLq57mqB6aQ1WmB92lnAa58jryq
|
||||
Ft00gsOSsc33CLb6HMY2xvswtUOwxXuOzTuZQ9jsFUyINhibvCTY5CnBpwS3P/UMsrEjCBu3B0FFIjJJ
|
||||
gFd4OQtY5BCwK1KOHBLAK9xKAR79579OPPyOBB+NwJmkLKiGSUCHBZ5hzgJe9KOszKbzU5EAXuH0o3/D
|
||||
Mvuvb8+DJwk4HIHTCdegGLTgBuXBtXYzPEMFAT90CPClpOCz4XPaExSBD9y98b77Thtr5/gb48Z42Vjj
|
||||
hffWeDo4EBIJ/dR9mGYeCfiHSBEWn4GGu2ZaoAlJjeO43m7B9lNlTgIWcVby1lTdnRTOqXHQCsWARaDh
|
||||
rsmO2WFbhqzILFPzJK+my1pxNU+O0LOXMHF/FlYKbLj3EAdDTiMsLl0Yn9luQKJiXBCQQTvw2clS9l3s
|
||||
EMBZmdlpRYrSgGSmcYwG65Gk0JPjnBVJazXgYKxwEb1y7qIMoZGXYL33AOb7DzE+/QAHgsMReiEN9XdM
|
||||
QvAExZggIFFhIAEWbD1eIgrgq9xlkVd4hbADHNwhwk5SIwuykUgr4Ilud9NZlnRjxcoNXielF2H55wxM
|
||||
92ahn5zB/uAwnIpNRR0HbzMivn6MBIwjoYEgyzuw5dg8AZyVfDbXKRGvkeVEsVmL4GDDgnS6qPIouEpr
|
||||
wdmUfBwPT/zKNH0f41MzGLHew76AkwiPS4Vq0AyZxkQ7ZSIfxmyzrWakUXvzsWKnI3B9xzuj4q9+2fh6
|
||||
srAlRIbE7BaciM6l4En/M1DC8aqHzNPY/cVRSuAYJOe0wPtUiTB+4XmywfEo7txNSCwhfkIsX4CfET8n
|
||||
fkm89ud33X2OhMZ/pTdPYVBPl1evDl67JXjlN38Iof+/TvzaPvYXT4HnXEY4aoHrvmh57Rdx9RC4UIfP
|
||||
L9TPEVuLE1eUyJX3IupyAQ6djEPvoAEtmiHUNPdjh58EgScT6GruQXh6E/ZF1xDVNhtTuyC7z1bWUlzH
|
||||
RbSYs7LH+vAJNJZZ9FlmMExbnFdWh0Mn4tAzMIZmNQVv6sd2vyB8HhILrWkS/eYZdBnpOCZnobXOQDvx
|
||||
AN303G2ehdry0Im/H5JxDrxECEn40pbjxVTBqOJpqHrZyabngj4rmocsuHpbjuATsY7g1ao+fOYbiF+9
|
||||
9vtjqbI2FPWYkUUVMZNo1U3QjsSjRj0CBSVrnobuAbrms2g+AXrdN9gEvCwKWLKZXovUFhPi6VX5kmwa
|
||||
ZXye2kLZbqbg1ZAcj4Xmzhiauocgp+DbfPyxV3KOJ/nd/vMVuKgYRXTVMBLrR1Dbq8cqDz8qSoFIL6yF
|
||||
4o4RhRojLtIrHF0zii9VRnwsEQQsdQjYdLQIV5tNiK3VI4YHKfWQa+idzypH0LEYdFNwVZcWVapeqo7+
|
||||
kIRdQEKG8EHyx8s3VahW61DcpkVRywBu1qvxoYcvGpp74L33GILDU1DcOoj8jjHE1YzgEt0t64PyRQH8
|
||||
Weby8sbDRbjSZESUPXiFmi6PzDIEhJyn4KNQdmpRqexBwJEYfLRuF1at87NBK13l7kvWVwj6obuPwAeE
|
||||
qmsYDW0DkEZfxWYfCTJKm1DWPYacDiPWBd5mAfwm2AR8ElJEW2PA5cZRVNDK46+XIuBoFLr6dVB2DKKi
|
||||
sQflCg0U7QPQ3B1H/5AJfSJao0DvoBE9zIBBQNmhRXFNN+TKPuTK6uibwB+Rl24hq2UM7gF5LOBHooCl
|
||||
nJWX6YzkvVSxssuphEahs0+Hxo4BIXBZvQalDWTryFK7pE6Nklo1igW6nSiioEU1XYItrO4SSEkrpJ3y
|
||||
xKm4DGQ26bH2oCDgxw4BG4ILKEnGUEnJ8tbKjXjz7fXEOry5guwKth74kx1H+y/uAm+I9q05uEwXyjuR
|
||||
X9lBVfEcVm/wwZWCepR06ZHdZsBaf+cdWPaxJB+XSEBBl0E4/+K2IRRR4hRSUs1H1nwX5e1aJGc18CRv
|
||||
sC1vpyRT3cEtRS8yq1rx3uodyC9Vwf2TXdgjkSKvsQ83W3WIqhxGcsMY3A7ectqBZeslvAMGRNKAiAot
|
||||
pGVDxCDOEDarxZlShtpEYp0ObgdyeZLfuu3PRUKtDuElAwgt7BOErPxoB953247z/7iNwlYtrjaOQFox
|
||||
hDPlI0hiAQecj2CZR2C+ICCiUkeMkAhnpHbEdjKVVfs2vs7nyauS0uSnSSxn+q4AKbJr6Aho1XHyYQrM
|
||||
wYdpjE7wXTNPwFIPei1YAJPisOO2PvqIYJKJFHIWcTsovEqvurEAeub/J1HtL6YyLOs0oJCOM6V+lC4n
|
||||
+hghkht4DvoqIlbvd86Bxe/sTK9aqGx+HW/vTOPfd8vZzvVzCc7Cu742+7SSzPHI11EL+NcqfyDyzcSq
|
||||
eGseh8u0iNjH43gC9mMr+onjfjqv/fgzj+WPEY4rVMP5P8+/KezDE4i+4s/zZ/GYr4vL/wHaCaaAWRzc
|
||||
IgAAAABJRU5ErkJggg==
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMAEAAAC77u/
|
||||
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
|
||||
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
|
||||
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
|
||||
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
|
||||
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
|
||||
aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
|
||||
c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
|
||||
O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
|
||||
ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
|
||||
c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJXb3JrZmxvd0RlZmlu
|
||||
aXRpb24iPg0KICAgIDxwYXRoIGQ9Ik0xNyw4SDlDOC40LDgsOCw3LjYsOCw3VjFjMC0wLjYsMC40LTEs
|
||||
MS0xaDhjMC41LDAsMSwwLjQsMSwxdjZDMTgsNy42LDE3LjUsOCwxNyw4eiBNMTAsMjF2LTYgICBjMC0w
|
||||
LjYtMC40LTEtMS0xSDFjLTAuNiwwLTEsMC40LTEsMXY2YzAsMC41LDAuNCwxLDEsMWg4QzkuNiwyMiwx
|
||||
MCwyMS41LDEwLDIxeiIgY2xhc3M9IkJsdWUiIC8+DQogICAgPGcgY2xhc3M9InN0MSI+DQogICAgICA8
|
||||
cGF0aCBkPSJNNiwxMmgxMy4ybDItMmMwLDAtMC4xLDAtMC4xLDBoLTdWOGgtMnYySDVjLTAuNiwwLTEs
|
||||
MC40LTEsMXYzaDJWMTJ6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPC9nPg0KICAgIDxwYXRoIGQ9Ik00
|
||||
LDMwaDI2VjRMNCwzMHogTTI0LDI0aC01LjVsNS41LTUuNVYyNHoiIGNsYXNzPSJZZWxsb3ciIC8+DQog
|
||||
IDwvZz4NCjwvc3ZnPgs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="bbtniReclog.Caption" xml:space="preserve">
|
||||
<value>Record-Logs</value>
|
||||
</data>
|
||||
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<data name="bbtniReclog.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||
@@ -2635,135 +2548,59 @@
|
||||
<data name="bbtniclearCache.Caption" xml:space="preserve">
|
||||
<value>Anwendungscache freigeben</value>
|
||||
</data>
|
||||
<data name="bbtniclearCache.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<data name="bbtniclearCache.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAADB0RVh0VGl0
|
||||
bGUAQ2xlYXI7RXJhc2U7UmVtb3ZlO0JhcnM7UmliYm9uO0Zvcm1hdHRpbmc7m4RtlgAAAxFJREFUOE+F
|
||||
kmtIk1EYx4+WiZWY4YcUCiKKSoowksqEstoUNISZUWQX+pCRWphSIPZBzTRcWlOHl7ZpzmneNrXVLLfK
|
||||
a5p3u4AQBYaoKc42d9P9e943AoWgF348h3PO8zvPOe/DlE3DhsrmUXAom0ZQwdE4jKeaIZSpiYYhKBoG
|
||||
IavtMzDGXAGw5TBZbT/F/3/FVb20m62m4UpBUVUPRaCsvheRsXKKH2C1L/FY7Is8VqKgouvfAkl5J0Ug
|
||||
+oYCPyaNiI4vh8XqQLN+FGGX87Fgc8BsXUSerI0TuH1NvsoGTofy9IsEjIlL38HpBBR1PQi/UgJFbQ8a
|
||||
W4chjMmD1jAKk8UO04IdKs0AJ3Dn3oFweX/qOOsIP8ZYllRPAidsjiW+kubWEZw4nwutfoQ/3Wi2wWxx
|
||||
4E3XGPpjY+59un4JOsGRdO46nIilS15hackJo8mG+peDOH4mBy/oZH3HF4REP4C6ZYgqsKFTIsV4YRYs
|
||||
3S/wMf02VIcCMkngxu6KtXAsOjE7b8XRqGwqe4QvWXhOjMlpIxQ1bRhTluNbXhpMumr8albArFOh714q
|
||||
JP47s9id+42wU/k/5yz8FX7RadM01ugGUFJpQJs4F2P3U2BUy2F8JsUcYe5/iyGRCHVBh8AS0+r53zQ1
|
||||
u4BJYmpmAbNGC0xmC/Q1WnxOvYUZZQFm5A8xIxNjvvs1egWheH44CNnbtj1kMXGlrRcT5LhAxMTLkPlY
|
||||
i2pNN+5KW5FWO4quxhZMSjIwlZ+BuXdavA8Roi7gAFJ8/ST0BusItobwWIZXRJKq8E7FIIo7J1DQPgFD
|
||||
pRqzOjW6ggWo9N+HOO+NBbRvPeG6oqsiU57THPMQJtYj9+0PiA3jPMrBCSQkPIF8+x5cWre+iPZ4csln
|
||||
3agtlgt2hYs5gfuWI8l5olQNMlu+Q94zjoDLKuyOKsJ+v4ASWvfiktsPCli4y6qVgs3BqZyA6zRP38Cb
|
||||
En+RFDsiHmHryRxsCkzikjdw62EurkxIPXSSWCHw2ZvAvP2v/ZVw7+FN+BAbibWEaygtcYl/cGG/AQOZ
|
||||
cJVTJpybAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="bbtniclearCache.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAADB0RVh0VGl0
|
||||
bGUAQ2xlYXI7RXJhc2U7UmVtb3ZlO0JhcnM7UmliYm9uO0Zvcm1hdHRpbmc7m4RtlgAACZxJREFUWEeV
|
||||
lnlU1dUWx3+mmSI5kVG5etWrVrZW/fNqvaanyQPrBpKiKAoKSA5pCghCECAyiygoyCSCyCAgiiEiKOpF
|
||||
UAQCB2YkBpm5giDI6PB9ex+5SHVb63nW+rDP797L/n7P+e2zfz+JxqTE9FJ5UkYFxpMoKEfC2WccSy9D
|
||||
PHOmDHFpZYg9U4rYtFLEnC5BVMqNbMo1mZjASQH8X/CYHE3Jnjx5QmA0PsHjx89HaFIRZ5tKvMBJVYmp
|
||||
gseUqNQSkWRg6NEY/YOjiPlDwQO+HhidDzwiOD7E8MhjBMUXcLZpxEROqkpMFTymRqTcFAZY8E5LJ3bs
|
||||
DMEC/W2w3RmKhuZO9I0KcXzGCHop9vaPYIgMBBzN42zqxHMbUAtLvo5HZIBFtjoEIjopC4PDD0XcaOMv
|
||||
RPr6WeypoPxqCWQr7HD/wQju0/Xg8CP4ReVytpcJYeB5xrTgxCJhoI+S6a52RFdPv9h6jjqGo0JED5FT
|
||||
UIWVG31wrbhaXHf3jWCAdm53ePZ4A1yIY5SuXSqVrFki3WJMvpduGutLN1brS8WrFtPXZCAwLh8PHz0m
|
||||
kYewdT1EK7+AvsERRCdmwdIpBN0PhtFDQpfzK7FivTfyiqrQQ2bv9Q4L+NZ5BF9gAzMIPgmTiBdH4TkX
|
||||
5oTi1YulYiM9qYhZoSsVGsroY7pv/tF5GCEDPX3DqG9S0L0Px9dLbCiGoa5RIUTk1yqw3MIDV3+rFL/r
|
||||
uj+MTsGQuHWu+zPZwCxCrcBIz6PGcRtqHLbiqqHMkz5jU2JnCg2/kwqWy6Rry76V8gwW0Ue0bXsO52Dk
|
||||
4WMS4i0dFgkHhp4WWheJX8orh4G5O3ILK4WZzp4hIczxLtHbP4yIRFGEmrmGMu87+73QXyhHf4EcDf4e
|
||||
kC/V8aLvphDCxIOr56Xc73WkXH1tupSk6d6hcnGUlEnFykZFLl4pwxJTN+QWVOAeXd/tHiSGoKDIdHQN
|
||||
oPfBEM7KS3FWX3tfvb87ulPjoTjkB0X4HnSfikGt705k6i70Ji3uE8KEXFdLuiRbyPrSDLegLAwNPxar
|
||||
GU9Wbin017jickG5MFVV2w4bOppaS6yw3TkU5b+3kZkB9PT2I8t7D+r27MK9k0fRHuyD9oPeaA/yQnug
|
||||
J+4lRaLa0wmndeb7kJ4awXUx4ZzOf1hfmuninymOkoJW1iEYxPmcEugZO+PytXJhpv3eIH6yD0RE/Dmx
|
||||
C+FxmfANTICiqxeVUeGo8XFBV2IU2gLc0ervhtZ9zC607nVFyx4X3I0NQ7mrPZK//nw3aXLDEibYwCxH
|
||||
vzOi+3WQCAudu3wLuqucqPDKoOgZRBttM6Nn7ITG9m60d/WjRdGDw3FpKD0UitseTiQQjmbaaqZptwua
|
||||
fJzR5O2EJq9f0OjpiEYPB3QmRaF8rxfivvjEd5wJabadd6o4Sm1dLDYI2UpHXLpaKsRbOwfG2O4SjrDY
|
||||
TFp1H64UlCLNxRWVrg7oiAwmARJxdxDccfsZd3bZ446rHbEDDTtt0bzXDV0Zx1FtuwVXNv2AkOAjbIJr
|
||||
QtKwcU8R7VUpxE2Hb0MLzVvuMrRiorK2DQcOpSA06lekObmgwnkH2sP2o8HFFg3OjA3qnZjtqP/FGvWO
|
||||
Vqh3sESjtws60xJQZCBD7uLvUPRbNdKsbfjUTBcGLF2TRatt6WShZ4LNNG/mqOhHU0c/2jsf0Op7cD04
|
||||
EKUO1mgN9EOdvSWxDXV2zFbU7mB+Qi2ttNZmMxrcHKA4GYvfvv8GOboy5FNh51qsR+ZSPWXjkmZvcUoU
|
||||
q+YzL6Djxo2GIx/Fu/cH0dndj4673chMSMOtHdvQ4ueF361+JDYJaiyZjajZRmzdQKxHHe1KOxVmoZ4O
|
||||
smXfIC/nFnLMLRDz7lv4+Q3NANLmOpBeNrM8LLewiYGFzVGs234U5tbRMLOKhqnlEazdFgX3gDTEnbgC
|
||||
t4hsRGfXI496w+0fLQTVzCZm3VM2mqN6gzlq7azQGhOOfJkWLi1ahFz5DWSbrsORt9+E9atzDpAud03u
|
||||
kOIP34tXiFcJzXG8QbxJvL/cMS408lIdCtsGkFXXi19TclFlsRZV65g1TzFnTFBjtRnNkUHIW7QAF3W0
|
||||
kXPxBuRrzBDxj7nYoqERSPlmEy8R4uWF/ygfHmxGCbdOfr7PWelyIuBQ1u+42tSHM7e7x0hKkqPCxGiM
|
||||
cuOVqN68Ho2h/sjVmo/zWtqQny/GBWNThM59Axtmz2JxjdHc4gFFiPGHxyfB7ZIdzjJ0TvYPOVcDed19
|
||||
nCjrxMnSLpwsI0ZjXEwWSg0NBJXrzdGw3wc587/AuQVauJhZhPNGa3HwNU2YT58eRPl4l8fEfefO/eOb
|
||||
y+hgA7wbM5c5JvkHnq1GZnU34q53IK64A/EU45XxukIQGZGBCrM11Irdkf3VZ8iYvxBZ6YXIXGGC/Zqv
|
||||
wkRd/SDlm0Mo3xknrFNXlzw1X/uLAeXq1Zc6Ht/nf7oKqeVdiMhvQ6SgVXB4dK6MMWQo90AILn32Kc5+
|
||||
tQDn0vKRsdwY++a8glXTpgVTPqW4eBBVGuhLJmpqktsrVHIqDHA9zLaNKMTxmwoEXW7CQSLociOCchpp
|
||||
zrEJwTwnwq41IySnHqs9z8N3rRMyUq8h3WA1/DQ0sHyqGotzYY+JV+jrS4zRlKmSyywqBxUGePs1rELy
|
||||
4ZfV8IwLDdibVY99jJg34EB2IwIu1GDZznQYOafheEYZArb6Yves2dCfMjWE8vBJ4qffU3FdXUmJweSX
|
||||
JMcZdBJVGOAdmK61OTJoY3A+PNJr4XG2Fp7j8CL8yIhPehX07FJhYP8rEtJL8IN7BuYtDsCHcz4KpRx0
|
||||
g5+Jl8tk0nj0X5ws2atTI/yTAR5cJHwC5nxpFhxi6n8FzqduEzVj0Z1MuaaUQMfqOBZbJyP+9E2YuqTh
|
||||
vW/9MOODdWH0v68TfyvOfDfxRclWjd5hVRhQFiLfN81PVu0PXeUrh11yBVGJX1Kr4HjsOr7+MR6yLQmI
|
||||
Tb0JY4dTeEd7N6a/b6YU5xb7t+LMNxMnSdunUJv5s4GFPyVzUJrgVbz28TK/sGUeF4QB6+gCfG4eDe0N
|
||||
MYhJKcZKuxN4c4EHXn53bTj9ljvnmHiCfahKcUb7hYmS1Uv00z8b+HJjkvTFhmM8HW/i9Xn6u0M/Xn0E
|
||||
HxlFYb75EezyOwbZpiP4wOAQpr1jwitn8bFtf2/mhyQySfBfwUSB1jhUGvi3Rbz0qVms9C/TGL4cfzu4
|
||||
f1Prkt4i3h6F5/wZt9exo/bPmfOE2MJRIY6qUGlAxWATXJjKZwW30vFwwfJ3Qpx4jiFJ/wMhhagAk8Ug
|
||||
eAAAAABJRU5ErkJggg==
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAH4FAAAC77u/
|
||||
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||
Y2U9InByZXNlcnZlIiBpZD0iU29ydF9feDI2X19GaWx0ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dyb3Vu
|
||||
ZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5CbHVle2ZpbGw6IzEx
|
||||
NzdENzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuQmxhY2t7ZmlsbDojNzI3MjcyO30KPC9zdHlsZT4N
|
||||
CiAgPGcgaWQ9IkNsZWFyX0Zvcm1hdHMiPg0KICAgIDxwYXRoIGQ9Ik03LjksMTJjLTEuMiwwLTIuMS0w
|
||||
LjMtMi44LTFTNCw5LjMsNCw4LjJjMC0xLjMsMC40LTIuMywxLjEtM1M2LjksNCw4LjIsNGMxLjIsMCwy
|
||||
LjEsMC4zLDIuOCwxICAgYzAuNywwLjcsMSwxLjYsMSwyLjljMCwxLjMtMC40LDIuMy0xLjEsM0MxMC4x
|
||||
LDExLjYsOS4xLDEyLDcuOSwxMnogTTE5LjgsNEw5LDIwSDYuMkwxNyw0SDE5Ljh6IE04LDUuOUM3LDUu
|
||||
OSw2LjQsNi42LDYuNCw4LjEgICBjMCwxLjQsMC41LDIuMSwxLjYsMi4xQzksMTAuMiw5LjYsOS41LDku
|
||||
Niw4QzkuNiw2LjYsOS4xLDUuOSw4LDUuOXogTTE3LjksMjBjLTEuMiwwLTIuMS0wLjMtMi44LTFjLTAu
|
||||
Ny0wLjctMS4xLTEuNi0xLjEtMi44ICAgYzAtMS4zLDAuNC0yLjMsMS4xLTNjMC44LTAuNywxLjgtMS4x
|
||||
LDMtMS4xYzEuMiwwLDIuMiwwLjMsMi44LDFjMC43LDAuNywxLDEuNiwxLDIuOGMwLDEuMy0wLjQsMi4z
|
||||
LTEuMSwzICAgQzIwLjEsMTkuNiwxOS4xLDIwLDE3LjksMjB6IE0xOC4xLDEzLjhjLTEuMSwwLTEuNiww
|
||||
LjctMS42LDIuMmMwLDEuNCwwLjUsMi4xLDEuNiwyLjFjMS4xLDAsMS42LTAuNywxLjYtMi4yICAgYzAt
|
||||
MC43LTAuMS0xLjItMC40LTEuNkMxOC45LDE0LDE4LjYsMTMuOCwxOC4xLDEzLjh6IE0xNy41LDIySDJW
|
||||
MmgyMnYxMy41bDAuNi0wLjZjMC40LTAuNCwwLjktMC43LDEuNC0wLjhWMWMwLTAuNS0wLjUtMS0xLTFI
|
||||
MSAgIEMwLjUsMCwwLDAuNSwwLDF2MjJjMCwwLjUsMC41LDEsMSwxaDE0LjVMMTcuNSwyMnoiIGNsYXNz
|
||||
PSJCbGFjayIgLz4NCiAgICA8cGF0aCBkPSJNMjQuNywyOUwyMiwzMS43Yy0wLjQsMC40LTEuMiwwLjQt
|
||||
MS42LDBsLTQtNGMtMC40LTAuNC0wLjQtMS4yLDAtMS42bDIuNy0yLjdMMjQuNywyOXoiIGNsYXNzPSJC
|
||||
bHVlIiAvPg0KICAgIDxwYXRoIGQ9Ik0zMS43LDIybC02LjEsNi4xbC01LjYtNS42bDYuMS02LjFjMC40
|
||||
LTAuNCwxLjItMC40LDEuNiwwbDQsNEMzMi4xLDIwLjgsMzIuMSwyMS41LDMxLjcsMjJ6IiBjbGFzcz0i
|
||||
UmVkIiAvPg0KICA8L2c+DQo8L3N2Zz4L
|
||||
</value>
|
||||
</data>
|
||||
<data name="bbtniNewVariant2.Caption" xml:space="preserve">
|
||||
<value>Neue Variante</value>
|
||||
</data>
|
||||
<data name="bbtniNewVariant2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<data name="bbtniNewVariant2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAE1vZGVsO0NvcHk7Q29weU1vZGVs
|
||||
O4ktWcsAAAJgSURBVDhPjdFdSFNhHMfx1XQvbhokvdx00X3ddlEEQRB0WzeRvYBFkESRWVgstZpz5ZL5
|
||||
Oo0CaysbFBlWSos2hroU1wsWmFA3WelyO9s82862s/36P4+4zqKLDnyQB5//9zx7jgpAgdFoVHc6g75u
|
||||
11t0ud6RIDqcQbQz96ZgJ7bb437ap1mZ+TtQ2uGcQj4PkudyTG6ZTG7emQTt0xcC9KwialKi1WoNg54Z
|
||||
SJIEIZrgwkICkWgKMTGDdDaHG30BFihTBtSW3oDP2vcGLb0TJACLYwzNjgDM5FrPGG4NBBESREiZHCw9
|
||||
oyxgUAZKmx2jRcdWHp0du9Hux49fUaTSMpra/SxgVAY0VztZIA8xmeWWkjIXF2V+bJPNi2/zAhKSDFOb
|
||||
lwXKlQFtfauXvzGWyCLKiFkISxmOvfWs+SW+zC0iTv+7YPWwQIUyoDvf4uHHZQMRuqwI/Y1RRExl6XfL
|
||||
ePZ6BqFwHIlUBi98n6HX6ytproSwy1eVnWp8jqycRyiaJhIWBInelsHcyCBmG2oKPpj3I9C6owgLGE6a
|
||||
hiiQwzwNRuJpGk4jHEti9nIN4HVxKdd1DBzaDAgPufi0ma954PjFp8jQZf2MLH/vu8OfcODKSMEJ+znU
|
||||
9W8p8n346J9Add0Tfttx9hUSEvaccWNCBOeeDmFf/SYsop8b/9rE18qArur0fd+R2sc4XPsI7qH3PNDw
|
||||
aoGr7p7gA86PO7lLD7byddfejbDuXm9jgdVETyrIGrLhfwK0by3R8G+pRI9uW5UDSruOrSuy/WBlGx9m
|
||||
zz8CKycyKpQrsLWW0D6V6jdzUIrq8TztCAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="bbtniNewVariant2.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAE1vZGVsO0NvcHk7Q29weU1vZGVs
|
||||
O4ktWcsAAAhaSURBVFhHjZZ7UFXXFcYRFBB8v5LaiZM4k0wmbf/pdDqNiY1p0sRJ7WOSMa+mnbSxTmKT
|
||||
ZqiCDqOgXtAQjALG2GhVCIhvMIhIEJAi4jM+iQooCvK478t987jw9Vv7nnMDgkz2zI99L/ec831r7bXX
|
||||
PmEAhjBu3Dh9Ds87fKky7+vL4EwuI1fNlzhfRG7hRXxVcBE5nHMKvlVkZVev5X2j5V4yakvembAtubVh
|
||||
nxN5ro6uFfowELlRmyNEfLjR3d0Lr68bTpcPZpsbza0OXKprw+mLzfhs23ED7x1DlIm6+vawjJ3VDzYw
|
||||
cMh3uUljtEQsI9DXh95AP3oCfQp/V9BAp9sPk82DO/fs+E/+WfT3AxW1t5GaVZrC+yOJMvHp1sofbiAy
|
||||
MjJciImJiZS09vOp3b2BID0BdGn4/N3weLthc3hpwIbMnBplwOPrRVlNI5I2FKVSLIpEEAloRAOjNMIj
|
||||
IiJGC1FRUdEVtQ0IBALwd/coQUEi9/i6ggb42c5laGIG0r88oQz4uvuUidITN7Ei9eA6CkaTQSaGMxCe
|
||||
mX2qMjOnFlm7apG56xQySHCuQcbOGmzaUYONnDfuOKkoO3kTbm8XbE4vbt21wpD1jTLQ09tPw2IigOKK
|
||||
64hLyh9i4n4DEnmEiA83pOAk0k6nDyarC3cZ7fmr91BxqhFHT9TB6nDj1h0rVqYXq+vFBMuEtSJGAigq
|
||||
u4Z/Jn4lJvSaGNbAaIlYhkQgdPf2KXz+XkbKVDv96LBQrNmG9O3/U0JF5ddxuPQKbt+zIO2LMiSkFGKZ
|
||||
YCjE0rVCAQr5eyazSOEYIlkY1sCYTUyvDCXcQwM9fSy2ILLeLk83LDYvbjdbkLKlXBlwc60Ly+qwp+g8
|
||||
GppMuHqzDRfqWnD+SovaktXnm3DqQpNuYPyIBmRdZejCauZa+rkEXdoyWDt9aGy2YtWGklDBiYmDR69g
|
||||
d+EZtBntaDW7cK/Diea2Tpq14U6LDRk7qsXABCJNalgDkRu2Bw2IuBSRLi74BO59G+ug8Y4Fy1IPDyo4
|
||||
NwtubxG748FT7AtOWDo9MDs8XDIPLHYPi7ZKDEx8kIFwEpW+jevKf/h7gqJKmKI6nq4eOFx+NLDgPko6
|
||||
wCuHFlx+4Tlk76tWhWnl7rAwY9KsNnypDEwayUB0Gi/S0xoU5d5XwsTfQ3ppoAt32h2s+CNYvHw3FsXn
|
||||
YdGyPLy3VMjF/iMXkbSpFB1mh8qWjYalWbETioHJIxpYv1VrJFq0IqgLy+zig5zEZOe+b7Hj8s12nLva
|
||||
zGK7i+pzTag83YjqM7dYH8fQarSwXrxwuLvg5b1pW8vFwJSRDIxd90WlMiBi7oH4KE7cLEKZJQsWB3sC
|
||||
d0S72Y0WKTYaqm+ysOisSEw7ipZ2M6/xsEt2qaVZ//lxMTCVyCE1rIGYlM0VNNB/n3BQVHAK3IqdjEpm
|
||||
iU4EZJ2NPJDaTC42KjdWpB3B3VYTzCw+mzLQi9TNZWJgmmZAnbYDDUSQWENWOfpowEXxkKhHEyVOd3Du
|
||||
lJk4dChipokOZsTOdU9IPcKzwcgMSSHyzOCSGjJLxcD0kQyMX83i6evrV4JKbKCIJuRwBWeJTB4exM8s
|
||||
BJGsLTUUoOFuOw25YOFvXtZQMp9N4RlE2vGwBiYkfVbCLdWvCYuYJqh9toUEg1h0NHGzw89oA4hbfYj1
|
||||
0Io2NiQTa8VDU9K4KPzQEAPaGE0mSvGIAT1CHRELivuDwiI2QNRkZ0ESWQIp1H+xR1xvaEaL0YF21oSL
|
||||
ASR+WozY2NiZY8eOjZZ3jaDs90MMTFq+7mv1tvN9lJoIP5s7BYrpMDKj1cuG46dh7ndWvIUpd7o8KCz5
|
||||
ljuDNWDt5OuaE45OF4rLLyM6Ono2xSeGh4ePoZ5039AQA5PjDYeVAVk3hYhrwhKpitbmh5HiHewFFmK1
|
||||
833w6CHcSl6ChiSyagnqVy7BzZXv43pZFs5lzMXZjc/idPozqP1kDmrWPY1Ro0bFUG9QFsTRFDk+e3gS
|
||||
6ikORSzCErGI2yjOyEXczIi/y9mOlvQE4EReiKasJFQteQb3yuMAx94Q7aXvoiTup2JgAvWk7kJDDEyV
|
||||
4pGjWMRE1KiEg6Ii3k7aKC6d0ETxnTwB3zKU4c01pXh9dSkWJh/Da0kl2BQ/F39dNxt/SZmNdwTDY3h7
|
||||
7aO4kDwDBYufkMqbRCTroSEGpn2cfECdhLp4UNhHYQ2rh0ct15oHzX+LLmNjaQPOehAi83gj/piwCLlV
|
||||
78KK7BA7Kl7H7+JmKgN73nlMDEwmIQPqXYBM+2gVDbBtDhb1MeograTZ6ESHyY4/JRYj46wDm07bsbGW
|
||||
L6Q1Nryx5hjeTH4UB+rnY3/Dy9hf/xL21f8WCxJj8eIHM5SB7FcfGZIB3cDUDxP3q74tncsrqEOIr2Na
|
||||
WxbkDdhktuGV+AJ8Um3F+pNWpFZZYKiyKgMLV87C3hsvYs+NF5B/4zfYff15ZeC5v09D8eKHkf7CjAxq
|
||||
jSNSA2onyB/ViN77966q91fsweIEsjwf/4jP52eZeezyyBX+FpeD3YdO4qWP92FNpRmrK8xIKjdh5XGz
|
||||
MvDqikeQ99088hxy6+Yih4iBX/15MlJ/PT2LOlNIJBm0C+RLFJHqnE5+dB8zBzCL/GTekt1I/MaE5ceM
|
||||
SDjWgfgSI+YtzsYf4n+MnGvPIvvaHOy6+rTi+Q/G42cLxm/mfdNINBG9QX1Avsg/ZV3EnY6Yup9YMv2p
|
||||
36fjyQVpePKV9Xhifgoef9mAWXM+3PbLtybjF2+QhZPw89cmKp6aP04i18VDqVdD78k/BA7dqBiRQpJs
|
||||
PaQxQ/su88NEMiezfJ9I5J7B4jKGE3oQ2hiYLSnegRkbLnNyjVw7JO1hYWFh/wecxwMOH7dYDAAAAABJ
|
||||
RU5ErkJggg==
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAB0DAAAC77u/
|
||||
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||
Y2U9InByZXNlcnZlIiBpZD0iQWRkUGFyYWdyYXBoVG9UYWJsZU9mQ29udGVudHMiIHN0eWxlPSJlbmFi
|
||||
bGUtYmFja2dyb3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5C
|
||||
bGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMx
|
||||
Qzt9Cjwvc3R5bGU+DQogIDxwYXRoIGQ9Ik0xNiwxNkg2di0yaDEwVjE2eiBNMTYsMThINnYyaDEwVjE4
|
||||
eiIgY2xhc3M9IlJlZCIgLz4NCiAgPHBhdGggZD0iTTI2LDI2djNjMCwwLjYtMC40LDEtMSwxSDFjLTAu
|
||||
NiwwLTEtMC40LTEtMVYxYzAtMC42LDAuNC0xLDEtMWgyNGMwLjYsMCwxLDAuNCwxLDF2N2gtMlYySDJ2
|
||||
MjZoMjJ2LTJIMjZ6ICAgTTIwLDZINnYyaDE0VjZ6IE0xNiwxMEg2djJoMTBWMTB6IE0xNiwyMkg2djJo
|
||||
MTBWMjJ6IiBjbGFzcz0iQmxhY2siIC8+DQogIDxwYXRoIGQ9Ik0zMSwxMEgxOWMtMC42LDAtMSwwLjQt
|
||||
MSwxdjEyYzAsMC42LDAuNCwxLDEsMWgxMmMwLjYsMCwxLTAuNCwxLTFWMTFDMzIsMTAuNCwzMS42LDEw
|
||||
LDMxLDEweiBNMzAsMThoLTR2NGgtMiAgdi00aC00di0yaDR2LTRoMnY0aDRWMTh6IiBjbGFzcz0iR3Jl
|
||||
ZW4iIC8+DQo8L3N2Zz4L
|
||||
</value>
|
||||
</data>
|
||||
<data name="bStaticItem1.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
|
||||
@@ -2812,7 +2649,7 @@
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>RibbonStatusBar1.ZOrder" xml:space="preserve">
|
||||
<value>8</value>
|
||||
<value>9</value>
|
||||
</data>
|
||||
<data name=">>RibbonControl1.Name" xml:space="preserve">
|
||||
<value>RibbonControl1</value>
|
||||
@@ -2824,11 +2661,23 @@
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>RibbonControl1.ZOrder" xml:space="preserve">
|
||||
<value>9</value>
|
||||
<value>10</value>
|
||||
</data>
|
||||
<data name="RibbonPage2.Text" xml:space="preserve">
|
||||
<value>RibbonPage2</value>
|
||||
</data>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>361, 134</value>
|
||||
</metadata>
|
||||
<data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>61, 4</value>
|
||||
</data>
|
||||
<data name=">>ContextMenuStrip1.Name" xml:space="preserve">
|
||||
<value>ContextMenuStrip1</value>
|
||||
</data>
|
||||
<data name=">>ContextMenuStrip1.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
@@ -3338,6 +3187,12 @@
|
||||
<data name=">>tsmiNodedownSearch.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>EntitätsweiteSucheToolStripMenuItem.Name" xml:space="preserve">
|
||||
<value>EntitätsweiteSucheToolStripMenuItem</value>
|
||||
</data>
|
||||
<data name=">>EntitätsweiteSucheToolStripMenuItem.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>ToolStripSeparator12.Name" xml:space="preserve">
|
||||
<value>ToolStripSeparator12</value>
|
||||
</data>
|
||||
@@ -3872,6 +3727,12 @@
|
||||
<data name=">>docCM_Copy.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>ExportNachExcelToolStripMenuItem.Name" xml:space="preserve">
|
||||
<value>ExportNachExcelToolStripMenuItem</value>
|
||||
</data>
|
||||
<data name=">>ExportNachExcelToolStripMenuItem.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>ToolStripSeparator10.Name" xml:space="preserve">
|
||||
<value>ToolStripSeparator10</value>
|
||||
</data>
|
||||
|
||||
@@ -297,7 +297,7 @@ Public Class frmConstructor_Main
|
||||
'End Try
|
||||
|
||||
' Hintergrund Bild initialisieren
|
||||
BACKGROUND_HELPER = New ClassBackgroundHelper(GridViewDoc_Search, My.Resources.windream_Logo_transparent_klein)
|
||||
BACKGROUND_HELPER = New ClassBackgroundHelper(GridViewDoc_Search, My.Resources.windream_Logo_transparent_klein) '
|
||||
|
||||
|
||||
' Bestimme Dinge ausblenden wenn kein admin
|
||||
@@ -353,7 +353,7 @@ Public Class frmConstructor_Main
|
||||
End If
|
||||
End If
|
||||
|
||||
CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM TBPMO_ENTITY_RIGHT_CONTROLS where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID), False)
|
||||
CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = ClassDatabase.Return_Datatable(String.Format("SELECT T.* FROM TBPMO_ENTITY_RIGHT_CONTROLS T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID where T1.CONSTRUCT_ID = {0}", CONSTRUCTORID), False)
|
||||
|
||||
Load_Adding_users()
|
||||
Load_Configurable_Nodes()
|
||||
@@ -362,7 +362,7 @@ Public Class frmConstructor_Main
|
||||
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 2")
|
||||
End Try
|
||||
Try
|
||||
SQL = String.Format("select * from VWPMO_STRUCTURE_NODES where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
|
||||
SQL = String.Format("select T.* from VWPMO_STRUCTURE_NODES T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", CONSTRUCTORID)
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
|
||||
If DT.Rows.Count > 1 Then
|
||||
TreeView_perControl = True
|
||||
@@ -397,7 +397,7 @@ Public Class frmConstructor_Main
|
||||
|
||||
|
||||
DT_TREEVIEW_NODES_FIRST = ClassHelper.FILTER_DATATABLE(DT, "EXPAND_NODE = 1", "")
|
||||
SQL = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
|
||||
SQL = String.Format("select T.* from TBPMO_STRUCTURE_NODES_CONFIGURATION T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", CONSTRUCTORID)
|
||||
DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(SQL)
|
||||
|
||||
Try
|
||||
@@ -477,7 +477,6 @@ Public Class frmConstructor_Main
|
||||
|
||||
FORM_LOADED = True
|
||||
sw.Done()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("", False)
|
||||
Catch ex As System.Exception
|
||||
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 4")
|
||||
End Try
|
||||
@@ -574,9 +573,11 @@ Public Class frmConstructor_Main
|
||||
If ACT_EBENE_STRING Is Nothing Then
|
||||
Exit Sub
|
||||
End If
|
||||
If My.Settings.SaveDocGridlayout Then
|
||||
Dim XMLPath = Get_DocGrid_Layout_Filename()
|
||||
GridViewDoc_Search.SaveLayoutToXml(XMLPath)
|
||||
End If
|
||||
|
||||
Dim XMLPath = Get_DocGrid_Layout_Filename()
|
||||
GridViewDoc_Search.SaveLayoutToXml(XMLPath)
|
||||
' Update_Status_Label(True, "Grid Layout Loaded")
|
||||
Catch ex As Exception
|
||||
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
|
||||
@@ -587,12 +588,15 @@ Public Class frmConstructor_Main
|
||||
If ACT_EBENE_STRING Is Nothing Then
|
||||
Exit Sub
|
||||
End If
|
||||
Dim XMLPath = Get_DocGrid_Layout_Filename()
|
||||
If File.Exists(XMLPath) Then
|
||||
GridViewDoc_Search.RestoreLayoutFromXml(XMLPath)
|
||||
GridViewDoc_Search.GuessAutoFilterRowValuesFromFilter()
|
||||
If My.Settings.SaveDocGridlayout Then
|
||||
Dim XMLPath = Get_DocGrid_Layout_Filename()
|
||||
If File.Exists(XMLPath) Then
|
||||
GridViewDoc_Search.RestoreLayoutFromXml(XMLPath)
|
||||
GridViewDoc_Search.GuessAutoFilterRowValuesFromFilter()
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
|
||||
End Try
|
||||
@@ -949,7 +953,7 @@ Public Class frmConstructor_Main
|
||||
' End If
|
||||
' End If
|
||||
' Catch ex As Exception
|
||||
' ClassLogger.Add("Error In Search_RowHandle: " & ex.Message, False)
|
||||
' LOGGER.Warn("Error In Search_RowHandle: " & ex.Message)
|
||||
' End Try
|
||||
'End Function
|
||||
Public Function Get_Grid_Column_Count() As Integer
|
||||
@@ -1051,7 +1055,7 @@ Public Class frmConstructor_Main
|
||||
If RECID = RECORD_ID And ENTITY_RECORD_COUNT > 1 And _refresh = False And ERROR_WHILE_SAVING = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> RowHandler: RID: " & RECID.ToString & " - " & Now, False)
|
||||
LOGGER.Debug("RowHandler: RID: " & RECID.ToString & " - " & Now)
|
||||
'Hier jetzt erst das Anzeigen für einen selektierten Datensatz
|
||||
If GRID_TYPE = GridType.Grid Then
|
||||
If IsTopFirstRow Then
|
||||
@@ -1266,7 +1270,7 @@ Public Class frmConstructor_Main
|
||||
Next
|
||||
sw.Done()
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in SearchNodeForRecord: " & ex.Message, True)
|
||||
LOGGER.Warn("Error in SearchNodeForRecord: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub TreeViewMain_BeforeSelect(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeSelect
|
||||
@@ -1576,7 +1580,7 @@ Public Class frmConstructor_Main
|
||||
If SelectedNode IsNot Nothing Then
|
||||
Dim _TagENT_ID = ClassNodeNavigation.Return_ENTITY_FOR_TAG(SelectedNode.Tag)
|
||||
If (_TagENT_ID <> 0 And _TagENT_ID <> ENTITY_ID) Or _TagENT_ID <> CURRENT_ENTITY_ID Then
|
||||
ClassLogger.Add("Entity-Data needs to be reloaded...", False)
|
||||
LOGGER.Info("Entity-Data needs to be reloaded...")
|
||||
|
||||
ENTITY_ID = _TagENT_ID
|
||||
CURRENT_ENTITY_ID = ENTITY_ID
|
||||
@@ -1672,7 +1676,7 @@ Public Class frmConstructor_Main
|
||||
Try
|
||||
PWplainText = wrapper.DecryptData(_row.Item("AD_USER_PW").ToString())
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("- the Password for FileAddingUser '" & FAU_AD_USER & "' could not be decrypted", False)
|
||||
LOGGER.Warn("- the Password for FileAddingUser '" & FAU_AD_USER & "' could not be decrypted")
|
||||
PWplainText = ""
|
||||
End Try
|
||||
FAU_AD_USER_PW = PWplainText
|
||||
@@ -2223,12 +2227,12 @@ Public Class frmConstructor_Main
|
||||
RECORD_ID = SELECTED_RECORD_ID
|
||||
ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID)
|
||||
CONTROL_HANDLING()
|
||||
Dim sql = String.Format("select TRL.DOC_ID, TDRL.FULL_FILENAME FROM TBPMO_DOC_RECORD_LINK TRL, TBPMO_DOCRESULT_LIST TDRL WHERE TRL.DOC_ID = TDRL.DocID AND TRL.RECORD_ID = {0}", RECORD_ID)
|
||||
Dim sql = String.Format("select TRL.DOC_ID, TDRL.FULL_FILENAME FROM TBPMO_DOC_RECORD_LINK TRL INNER JOIN TBPMO_DOCRESULT_LIST TDRL ON TRL.DOC_ID = TDRL.DocID WHERE TRL.RECORD_ID = {0}", RECORD_ID)
|
||||
|
||||
Dim DT_DOC_RESULT As DataTable = DD_LIB_Standards.clsDatabase.Return_Datatable(sql, False)
|
||||
|
||||
If IsNothing(DT_DOC_RESULT) Then
|
||||
ClassLogger.Add(">> DT_DOC_RESULT is nothing!", True)
|
||||
LOGGER.Warn("DT_DOC_RESULT is nothing!")
|
||||
End If
|
||||
If ClassHelper.DeleteRecord(SELECTED_RECORD_ID, "DELETE_RECORD - UserDecidedYes") = True Then
|
||||
RECORD_CHANGED = False
|
||||
@@ -2454,7 +2458,7 @@ Public Class frmConstructor_Main
|
||||
|
||||
Sub Load_Entity_Data_CONTROLS_RECORDS()
|
||||
Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("START Load_Entity_Data", False)
|
||||
LOGGER.Debug("START Load_Entity_Data")
|
||||
Dim sw As New SW("Load_Entity_Data")
|
||||
PARENT_SKIPPED = False
|
||||
' Me.Cursor = Cursors.WaitCursor
|
||||
@@ -2521,21 +2525,21 @@ Public Class frmConstructor_Main
|
||||
Try
|
||||
ADD_RECORDS_CONSTR = resultDT_VWPMO_CONSTRUCTOR_FORMS.Item("ADD_RECORDS")
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(ex.Message, True)
|
||||
LOGGER.Warn(ex.Message)
|
||||
ADD_RECORDS_CONSTR = True
|
||||
End Try
|
||||
If ADD_RECORDS_CONSTR = False Then
|
||||
ClassLogger.Add("ADDING RECORDS IS PROHIBITED FOR ENTITY: " & ENTITY_ID, False)
|
||||
LOGGER.Warn("ADDING RECORDS IS PROHIBITED FOR ENTITY: " & ENTITY_ID)
|
||||
End If
|
||||
|
||||
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
|
||||
DT_WINDREAM_COLUMNS_GRID = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
|
||||
DT_WINDREAM_COLUMNS_GRID = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE")
|
||||
expression = String.Format("ENTITY_ID = {0} AND TYPE_ID = 3 AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
|
||||
DT_DOCRESULT_DROPDOWN_ITEMS = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
|
||||
DT_DOCRESULT_DROPDOWN_ITEMS = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS, expression, "SEQUENCE")
|
||||
|
||||
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "") ' ClassDatabase.Return_Datatable(sql, True)
|
||||
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "")
|
||||
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
|
||||
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
|
||||
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE")
|
||||
Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
|
||||
Select form
|
||||
Where form.Item("GUID") = ENTITY_ID).Single()
|
||||
@@ -2551,7 +2555,7 @@ Public Class frmConstructor_Main
|
||||
CURRENT_ENTITY_REDUNDANT_ID = 0
|
||||
End If
|
||||
'sql = String.Format("select * from TBPMO_RIGHT_USER WHERE USER_ID = {0} AND ENTITY_ID = {1}", USER_GUID, ENTITY_ID)
|
||||
DT_RIGHTS_USER = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_RIGHT_USER, "ENTITY_ID = " & ENTITY_ID, "") ' ClassDatabase.Return_Datatable(sql, True)
|
||||
DT_RIGHTS_USER = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_RIGHT_USER, "ENTITY_ID = " & ENTITY_ID, "")
|
||||
expression = String.Format("")
|
||||
sql = String.Format("SELECT DISTINCT EDIT_REC,ADD_REC,DELETE_REC,ADD_DOC,VIEW_DOC,DELETE_DOC FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = {0} AND GROUP_ID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {1})", ENTITY_ID, USER_GUID)
|
||||
DT_RIGHTS_GROUP = ClassDatabase.Return_Datatable(sql, True)
|
||||
@@ -2617,7 +2621,7 @@ Public Class frmConstructor_Main
|
||||
PARENT_RECORDID = 0
|
||||
EBENE1_ENTITY = TreeViewMain.SelectedNode.Text
|
||||
ACT_EBENE_STRING = EBENE1_ENTITY
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 1 selected in TreeView", False)
|
||||
LOGGER.Debug("Level 1 selected in TreeView")
|
||||
|
||||
|
||||
'tslblEntity2.Visible = False
|
||||
@@ -2636,7 +2640,7 @@ Public Class frmConstructor_Main
|
||||
Case 2
|
||||
EBENE2_ENTITY = TreeViewMain.SelectedNode.Text
|
||||
ACT_EBENE_STRING = EBENE2_ENTITY
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 2 selected in TreeView", False)
|
||||
LOGGER.Debug("Level 2 selected in TreeView")
|
||||
EBENE3_ENTITY = ""
|
||||
'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken
|
||||
If EBENE1_RECID > 0 Then
|
||||
@@ -2670,7 +2674,7 @@ Public Class frmConstructor_Main
|
||||
Case 3
|
||||
EBENE3_ENTITY = TreeViewMain.SelectedNode.Text
|
||||
ACT_EBENE_STRING = EBENE3_ENTITY
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 3 selected in TreeView", False)
|
||||
LOGGER.Debug("Level 3 selected in TreeView")
|
||||
|
||||
Dim result4 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
|
||||
Select form
|
||||
@@ -2691,7 +2695,7 @@ Public Class frmConstructor_Main
|
||||
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in Replacing patterns in entity_sql: " & ex.Message)
|
||||
LOGGER.Warn("Error in Replacing patterns in entity_sql: " & ex.Message)
|
||||
End Try
|
||||
Else
|
||||
|
||||
@@ -2809,7 +2813,7 @@ Public Class frmConstructor_Main
|
||||
primaryKey(0) = CURRENT_DT_ENTITY_RECORDS.Columns("Record-ID")
|
||||
CURRENT_DT_ENTITY_RECORDS.PrimaryKey = primaryKey
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Could not set the primary Key(Record-ID): " & ex.Message, True)
|
||||
LOGGER.Warn("Could not set the primary Key(Record-ID): " & ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
@@ -2979,7 +2983,6 @@ Public Class frmConstructor_Main
|
||||
|
||||
For Each Column As DataColumn In DT.Columns
|
||||
Dim index As Integer = DT.Columns.IndexOf(Column)
|
||||
Dim RECORDID_Column As TileViewItemElement
|
||||
Dim ImageColumn As TileViewItemElement
|
||||
Dim HeadlineColumn As TileViewItemElement
|
||||
Dim TextColumn As TileViewItemElement
|
||||
@@ -3195,7 +3198,7 @@ Public Class frmConstructor_Main
|
||||
If IsNothing(PARENT_RECORD1) Then
|
||||
Dim New_Record = ClassRecordCommands.GetLastRecord
|
||||
If Not IsNothing(New_Record) Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-Record Ebene 1 wird neu angelegt...", False)
|
||||
LOGGER.Debug("Parent-Record Ebene 1 wird neu angelegt...")
|
||||
'Die neue Record-ID setzen
|
||||
ClassRecordCommands.ConnectRecord(New_Record, RECORDID, "PARENT-LINK FOR ENTITY " & ENTITY_ID & "")
|
||||
Return New_Record
|
||||
@@ -3213,7 +3216,7 @@ Public Class frmConstructor_Main
|
||||
If IsNothing(PARENT_RECORD2) Then
|
||||
Dim New_Record = ClassRecordCommands.GetLastRecord
|
||||
If Not IsNothing(New_Record) Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-Record Ebene 1 wird neu angelegt...", False)
|
||||
LOGGER.Debug("Parent-Record Ebene 1 wird neu angelegt...")
|
||||
'Die neue Record-ID setzen
|
||||
ClassRecordCommands.ConnectRecord(New_Record, RECORDID, "PARENT-LINK FOR ENTITY " & ENTITY_ID & "")
|
||||
Return New_Record
|
||||
@@ -3255,7 +3258,7 @@ Public Class frmConstructor_Main
|
||||
' grvwGrid.GridControl.RepositoryItems.Add(chkRep)
|
||||
' grvwGrid.Columns("files?").ColumnEdit = chkRep
|
||||
'Catch ex As Exception
|
||||
' ClassLogger.Add(">> Attention: Column files? not existing in GridView?", False)
|
||||
' LOGGER.Warn("Attention: Column files? not existing in GridView?")
|
||||
'End Try
|
||||
'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
|
||||
End If
|
||||
@@ -3368,7 +3371,7 @@ Public Class frmConstructor_Main
|
||||
Where form.Item("GUID") = ENTITY_ID).Single()
|
||||
|
||||
Update_Status_Label(False, "")
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> GRID_RECORD ID: " & Rec_ID.ToString, False)
|
||||
LOGGER.Debug("GRID_RECORD ID: " & Rec_ID.ToString)
|
||||
'Me.pnlDetails.Visible = True
|
||||
If FORM_TYPE = 5 And EntityLoad = False Or IS_SINGLE_RECORD = True And EntityLoad = False Then '#### Es sind untergeordnete Entitäten geöffnet####
|
||||
Dim linkedRecord
|
||||
@@ -3583,7 +3586,7 @@ Public Class frmConstructor_Main
|
||||
Return Grid_RecordID
|
||||
Else
|
||||
'tsstatus_Detail_show(True, "Grid_RecordID konnte nicht gewählt werden!")
|
||||
'ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True)
|
||||
'LOGGER.Info("Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True)
|
||||
Return Nothing
|
||||
End If
|
||||
Else
|
||||
@@ -3761,7 +3764,7 @@ Public Class frmConstructor_Main
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(">> No files 2 delete - after deleting record!", False)
|
||||
LOGGER.Info("No files 2 delete - after deleting record!")
|
||||
End If
|
||||
Cursor = Cursors.Default
|
||||
Catch ex As Exception
|
||||
@@ -3783,11 +3786,11 @@ Public Class frmConstructor_Main
|
||||
|
||||
|
||||
If CURRENT_DOCSEARCH_SQL = "" Then
|
||||
CURRENT_DOCSEARCH_SQL = String.Format("SELECT DISTINCT T.* " & vbNewLine &
|
||||
"FROM " & vbNewLine &
|
||||
"VWPMO_DOC_SEARCH T" & vbNewLine &
|
||||
"WHERE T.DocID IN (select DISTINCT T.DOC_ID from TBPMO_DOC_RECORD_LINK T, TBPMO_RECORD T1 WHERE T.RECORD_ID = T1.GUID AND T1.FORM_ID = {0}) " & vbNewLine &
|
||||
"AND T.DocID IN (SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {2} AND dwObjectID = T.DocID)", ENTITY_ID, USER_LANGUAGE, USERID_FK_INT_ECM)
|
||||
CURRENT_DOCSEARCH_SQL = $"SELECT DISTINCT T.*
|
||||
FROM
|
||||
TBPMO_DOCRESULT_LIST T INNER JOIN TBPMO_DOC_RECORD_LINK T1 ON T.DocID = T1.DOC_ID
|
||||
INNER JOIN TBPMO_RECORD T2 ON T1.RECORD_ID = T2.GUID
|
||||
WHERE T2.FORM_ID = {ENTITY_ID} AND T2.DELETED = 0)"
|
||||
Else
|
||||
CURRENT_DOCSEARCH_SQL = CURRENT_DOCSEARCH_SQL.Replace("@ENTITY_ID", ENTITY_ID)
|
||||
CURRENT_DOCSEARCH_SQL = CURRENT_DOCSEARCH_SQL.Replace("@USER_LANGUAGE", USER_LANGUAGE)
|
||||
@@ -3917,6 +3920,10 @@ Public Class frmConstructor_Main
|
||||
grvwGrid.FindFilterText = CURRENT_FULLTEXT_PATTERN
|
||||
End If
|
||||
|
||||
If DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count > 0 Then
|
||||
LOGGER.Info($"RUN_WDSEARCH_GRID - DT_DOCRESULT_DROPDOWN_ITEMS [{DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count}]!")
|
||||
End If
|
||||
|
||||
ClassWindreamDocGrid.FillColumns(
|
||||
GridViewDoc_Search,
|
||||
DT_RESULT,
|
||||
@@ -3928,10 +3935,6 @@ Public Class frmConstructor_Main
|
||||
AddressOf OnCheckboxValueChanged,
|
||||
CURRENT_SEARCH_TYPE, RECORD_ID)
|
||||
|
||||
If DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count > 0 Then
|
||||
Dim DT_VALUES_FOR_DOC
|
||||
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
Dim selnode As TreeNode = TreeViewMain.SelectedNode
|
||||
@@ -4225,7 +4228,7 @@ Public Class frmConstructor_Main
|
||||
Return PARENT_RECORDID
|
||||
Case Else
|
||||
MsgBox("Undefined pattern '" & content & "' in windream-Search Config. Please inform Your system-administrator.", MsgBoxStyle.Exclamation)
|
||||
ClassLogger.Add(" >> Undefined Search-pattern in windream-search config: " & content, True)
|
||||
LOGGER.Warn("Undefined Search-pattern in windream-search config: " & content)
|
||||
End Select
|
||||
End Function
|
||||
'Private Sub AxObjectListControl_ItemClicked(sender As Object, e As EventArgs) Handles AxObjectListControl.ItemClicked
|
||||
@@ -4280,8 +4283,8 @@ Public Class frmConstructor_Main
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" ### Error in CloseDocView")
|
||||
ClassLogger.Add("### " & ex.Message & " ###")
|
||||
LOGGER.Warn(" ### Error in CloseDocView")
|
||||
LOGGER.Warn("### " & ex.Message & " ###")
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -4336,7 +4339,7 @@ Public Class frmConstructor_Main
|
||||
End If
|
||||
End Sub
|
||||
Private Sub ButtonResetView_Click(sender As Object, e As EventArgs) Handles ButtonResetView.Click
|
||||
Reset_View_layout
|
||||
Reset_View_layout()
|
||||
End Sub
|
||||
Sub Reset_View_layout()
|
||||
Try
|
||||
@@ -4545,22 +4548,22 @@ Public Class frmConstructor_Main
|
||||
RUN_WDSEARCH_GRID()
|
||||
TimerClearResultfiles.Start()
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> No new files were added or windream tab is not focused!", False)
|
||||
LOGGER.Debug("No new files were added or windream tab is not focused!")
|
||||
End If
|
||||
Me.Cursor = Cursors.Default
|
||||
Else
|
||||
'If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
|
||||
' ClassLogger.Add(">> RIGHT_RECORD_AND_FILE_READ_ONLY is set! No DragDrop allowed", False)
|
||||
' LOGGER.Warn("RIGHT_RECORD_AND_FILE_READ_ONLY is set! No DragDrop allowed")
|
||||
'End If
|
||||
If RIGHT_READ_ONLY_DOC = True Then
|
||||
ClassLogger.Add(">> RIGHT_WD_FORBIDDEN is set! No DragDrop allowed", False)
|
||||
LOGGER.Warn("RIGHT_WD_FORBIDDEN is set! No DragDrop allowed")
|
||||
Else
|
||||
ClassLogger.Add(">> No DragDrop allowed - ELSE", False)
|
||||
LOGGER.Warn("No DragDrop allowed - ELSE")
|
||||
End If
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Drag_Drop: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in Drag_Drop: " & ex.Message)
|
||||
MsgBox("Unexpected Error in DragDrop - Please check the log for further information!", MsgBoxStyle.Exclamation)
|
||||
Finally
|
||||
|
||||
@@ -4584,7 +4587,7 @@ Public Class frmConstructor_Main
|
||||
If Not IsNothing(Str) Then
|
||||
Dim DropType = Str.Substring(0, Str.LastIndexOf("@") + 1)
|
||||
If DropType.ToString.Contains("SCAN") = False Then
|
||||
ClassLogger.Add(">> Check_Dropped_Files:" & Str.ToString, False)
|
||||
LOGGER.Info("Check_Dropped_Files:" & Str.ToString)
|
||||
Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1)
|
||||
If CURRENT_WORKFILE.ToString.Contains("@") Then
|
||||
MsgBox("File contains invalid operator @!" & vbNewLine & "Please rename file and try again!", MsgBoxStyle.Exclamation)
|
||||
@@ -4950,8 +4953,6 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
Load_Level1()
|
||||
End If
|
||||
sw.Done()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add("", False)
|
||||
|
||||
FORM_SHOWN = True
|
||||
End Sub
|
||||
Sub Jump_Record()
|
||||
@@ -5210,9 +5211,9 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
Dim ColorRow As Color
|
||||
Try
|
||||
ColorRow = Color.FromName(rowCellValue)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> RowBackColor '" & rowCellValue & "' will be used for record: " & Get_Focused_Row_Cell_Value("Record-ID"), False)
|
||||
LOGGER.Debug("RowBackColor '" & rowCellValue & "' will be used for record: " & Get_Focused_Row_Cell_Value("Record-ID"))
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> RowBackColor '" & rowCellValue & "'could not be converted from name!", False)
|
||||
LOGGER.Info("RowBackColor '" & rowCellValue & "'could not be converted from name!")
|
||||
Exit Sub
|
||||
End Try
|
||||
'Dim c As Color = DirectCast(rowCellValue, Color)
|
||||
@@ -5220,7 +5221,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
e.HighPriority = True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in RowStyle: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in RowStyle: " & ex.Message)
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
@@ -5240,7 +5241,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in grvwGrid_MouseDown: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in grvwGrid_MouseDown: " & ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -5785,7 +5786,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
Try
|
||||
RENAME_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message, False)
|
||||
LOGGER.Warn("Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message)
|
||||
RENAME_DOC_PATH = Nothing
|
||||
End Try
|
||||
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
|
||||
@@ -5845,7 +5846,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Checking Value In Work: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in Checking Value In Work: " & ex.Message)
|
||||
End Try
|
||||
|
||||
Try
|
||||
@@ -5874,8 +5875,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
End If
|
||||
|
||||
If rowcolorname <> "" Then
|
||||
Exit For
|
||||
End If
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If rowcolorname <> "" Then
|
||||
ColorRow = Color.FromName(rowcolorname)
|
||||
@@ -5892,7 +5893,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in RowStyle-Color Dropdown: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in RowStyle-Color Dropdown: " & ex.Message)
|
||||
End Try
|
||||
|
||||
End If
|
||||
@@ -5948,7 +5949,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
If USER_IS_ADMIN = False Then
|
||||
ContextMenu_Read()
|
||||
Else
|
||||
ClassLogger.Add(">> FileRight is R but User is Admin!! - Check the configuration!", False)
|
||||
LOGGER.Warn("FileRight is R but User is Admin!! - Check the configuration!")
|
||||
End If
|
||||
|
||||
ROW_READ_ONLY = True
|
||||
@@ -5960,7 +5961,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
If USER_IS_ADMIN = False Then
|
||||
ContextMenu_Read()
|
||||
Else
|
||||
ClassLogger.Add(">> FileRight is '' but User is Admin!! - Check the configuration!", False)
|
||||
LOGGER.Warn("FileRight is '' but User is Admin!! - Check the configuration!")
|
||||
End If
|
||||
ROW_READ_ONLY = True
|
||||
End Select
|
||||
@@ -5973,7 +5974,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
If USER_IS_ADMIN = False Then
|
||||
ContextMenu_Read()
|
||||
Else
|
||||
ClassLogger.Add(">> RIGHT_READ_ONLY_DOC = True but User is Admin!! - Check the configuration!", False)
|
||||
LOGGER.Warn("RIGHT_READ_ONLY_DOC = True but User is Admin!! - Check the configuration!")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -5998,6 +5999,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
|
||||
End Sub
|
||||
Sub File_in_Work()
|
||||
IW_USER = ""
|
||||
IW_COMMENT = ""
|
||||
docCM_InWork.Enabled = True
|
||||
Try
|
||||
Dim expression As String
|
||||
@@ -6005,13 +6008,22 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
Dim foundRowsLevel0() As DataRow
|
||||
' Use the Select method to find all rows matching the filter.
|
||||
foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
|
||||
|
||||
Try
|
||||
IW_USER = foundRowsLevel0(0)("IN_WORK_USER")
|
||||
IW_COMMENT = foundRowsLevel0(0)("IN_WORK_COMMENT")
|
||||
Dim oSQL = "Select IN_WORK,IN_WORK_USER,IN_WORK_COMMENT FROM TBPMO_DOCRESULT_LIST where DocID = " + ClassWindreamDocGrid.SELECTED_DOC_ID
|
||||
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQL)
|
||||
If Not IsNothing(oDT) Then
|
||||
If oDT.Rows.Count = 1 Then
|
||||
IW_USER = CBool(oDT.Rows(0).Item("IN_WORK_USER"))
|
||||
IW_COMMENT = CBool(oDT.Rows(0).Item("IN_WORK_COMMENT"))
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
IW_USER = ""
|
||||
IW_COMMENT = ""
|
||||
End Try
|
||||
|
||||
|
||||
Dim displ As String
|
||||
If CBool(ClassWindreamDocGrid.SELECTED_INWORK) = True Then
|
||||
If IW_USER.ToUpper = USER_USERNAME.ToUpper Or USER_IS_ADMIN Then
|
||||
@@ -6033,7 +6045,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
End If
|
||||
docCM_InWork.Text = displ
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in File-Work Info: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in File-Work Info: " & ex.Message)
|
||||
docCM_InWork.Enabled = False
|
||||
End Try
|
||||
End Sub
|
||||
@@ -6275,7 +6287,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
MsgBox(msg, MsgBoxStyle.Information)
|
||||
Continue For
|
||||
End If
|
||||
ClassLogger.Add(String.Format("Relinking entity of record '{0}' to entity '{1}'?", _RECORD, ENTITY_STRING.ToString), False)
|
||||
LOGGER.Info(String.Format("Relinking entity of record '{0}' to entity '{1}'?", _RECORD, ENTITY_STRING.ToString))
|
||||
|
||||
Dim upd = String.Format("UPDATE TBPMO_RECORD SET FORM_ID = {0} where GUID = {1}", node_tag, _RECORD)
|
||||
If ClassDatabase.Execute_non_Query(upd) = True Then
|
||||
@@ -6671,7 +6683,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
If RECORD_CREATE = True Then
|
||||
Dim recordId = ClassRecordCommands.CreateRecordProcedure(ENTITY_ID)
|
||||
If recordId = 0 Then
|
||||
ClassLogger.Add("Error in ADD_NODE: Could not create Record", True)
|
||||
LOGGER.Warn("Error in ADD_NODE: Could not create Record", True)
|
||||
ClassHelper.MSGBOX_Handler("ERROR", "Error in ADD_NODE", "Could not create Record")
|
||||
Exit Sub
|
||||
Else
|
||||
@@ -6772,7 +6784,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
If USER_IS_ADMIN = False Then
|
||||
ContextMenu_Read()
|
||||
Else
|
||||
ClassLogger.Add(">> OpenFile.FileRight is R but User is Admin!! - Check the configuration!", False)
|
||||
LOGGER.Warn("OpenFile.FileRight is R but User is Admin!! - Check the configuration!")
|
||||
End If
|
||||
allow_Open = True
|
||||
Case "RW"
|
||||
@@ -6903,7 +6915,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
If USER_IS_ADMIN = False Then
|
||||
ContextMenu_Read()
|
||||
Else
|
||||
ClassLogger.Add(">>cmsRFB_O.FileRight is R but User is Admin!! - Check the configuration!", False)
|
||||
LOGGER.Warn(">>cmsRFB_O.FileRight is R but User is Admin!! - Check the configuration!")
|
||||
End If
|
||||
Case Else
|
||||
ContextMenu_Write()
|
||||
@@ -7157,7 +7169,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
'' For Each oProcess As Process In Process.GetProcesses()
|
||||
'' If oProcess.Id = oDatarow.Item("PROCESS_ID") Then
|
||||
'' 'process found so it's running so return true
|
||||
'' If LogErrorsOnly = False Then ClassLogger.Add($"Process {oProcess.ProcessName} still running - {oProcess.Id.ToString}", False)
|
||||
'' LOGGER.Debug($"Process {oProcess.ProcessName} still running - {oProcess.Id.ToString}")
|
||||
'' exists = True
|
||||
'' End If
|
||||
'' Next
|
||||
@@ -7180,28 +7192,28 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
' Dim oFileExists = ClassDatabase.Execute_Scalar(oSql, False)
|
||||
' If oFileExists = 0 Then
|
||||
' CURRENT_OFFICE_FILE_CHANGED = True
|
||||
' ClassLogger.Add($"The docId [{oDocID}] of handled file {oDocPath} changed during editing mode!", False)
|
||||
' LOGGER.Info($"The docId [{oDocID}] of handled file {oDocPath} changed during editing mode!")
|
||||
' oSql = $"SELECT MAX(dwDocID) FROM windream60.dbo.BaseAttributes WHERE dwVersionID = {oVersionID}"
|
||||
' Dim oNEW_DOC As DataTable = ClassDatabase.Return_Datatable(oSql, False)
|
||||
' If oNEW_DOC.Rows.Count = 1 And Not IsDBNull(oNEW_DOC.Rows(0).Item(0)) Then
|
||||
' Dim oNEWDocID = oNEW_DOC.Rows(0).Item(0)
|
||||
' ClassLogger.Add($"New DocID is: {oNEWDocID}!!", False)
|
||||
' LOGGER.Info($"New DocID is: {oNEWDocID}!!")
|
||||
' oSql = $"EXEC PRPMO_DOC_CHANGE_DOCID {oDocID},{oNEWDocID},'{USER_USERNAME}'"
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(oSql, False)
|
||||
' If ClassDatabase.Execute_non_Query(oSql, False) = False Then
|
||||
' ClassLogger.Add($"Could not relink the DocID!!", False)
|
||||
' LOGGER.Debug(oSql)
|
||||
' If ClassDatabase.Execute_non_Query(oSql) = False Then
|
||||
' LOGGER.Info($"Could not relink the DocID!!")
|
||||
' Else
|
||||
' oSql = $"UPDATE TBPMO_DOC_ID_CHANGED SET NEW_DOC_ID = {oNEWDocID}, CHANGED_WHEN = GETDATE() WHERE GUID = {oGUID}"
|
||||
' ClassDatabase.Execute_non_Query(oSql, False)
|
||||
' ClassDatabase.Execute_non_Query(oSql)
|
||||
' End If
|
||||
' Else
|
||||
' ClassLogger.Add($"Could not get the new DOCID [{oSql}]!!", False)
|
||||
' LOGGER.Info($"Could not get the new DOCID [{oSql}]!!")
|
||||
' End If
|
||||
' End If
|
||||
' 'End If
|
||||
'Next
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add($"Unexpected error in TimerFileHandleTick [{ex.Message}]!!", True)
|
||||
LOGGER.Warn($"Unexpected error in TimerFileHandleTick [{ex.Message}]!!")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@@ -7365,11 +7377,32 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
|
||||
frmRecord_Changes.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub OfficeVorlagentsmi_Click(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
Private Sub ExportNachExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportNachExcelToolStripMenuItem.Click
|
||||
Dim saveFileDialog1 As New SaveFileDialog
|
||||
saveFileDialog1.Filter = "Excel File|*.xlsx"
|
||||
saveFileDialog1.Title = "Export to Excel:"
|
||||
saveFileDialog1.ShowDialog()
|
||||
If saveFileDialog1.FileName <> "" Then
|
||||
Cursor = Cursors.WaitCursor
|
||||
GridControlDocSearch.MainView.ExportToXlsx(saveFileDialog1.FileName)
|
||||
Dim result As MsgBoxResult
|
||||
Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")
|
||||
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = String.Format("File was created. Do You want to open excel?")
|
||||
End If
|
||||
result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
If result = MsgBoxResult.Yes Then
|
||||
Process.Start(saveFileDialog1.FileName)
|
||||
End If
|
||||
End If
|
||||
Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub BarEditItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarEditItem2.ItemClick
|
||||
|
||||
Private Sub EntitätsweiteSucheToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EntitätsweiteSucheToolStripMenuItem.Click
|
||||
CURRENT_SEARCH_TYPE = "ENTITY"
|
||||
RUN_ENTITY_DOC_SEARCH()
|
||||
End Sub
|
||||
End Class
|
||||
@@ -145,7 +145,7 @@ Public Class frmDocLink_Record_Entities
|
||||
Dim ResultSQL, ResultViewName As String
|
||||
Dim RecordId As Integer
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
|
||||
LOGGER.Debug("GridType = Grid", False)
|
||||
ResultViewName = "VWPMO_ENTITY_TABLE" & FormId.ToString
|
||||
ResultSQL = "SELECT T.* FROM " & ResultViewName & " T"
|
||||
|
||||
@@ -164,11 +164,11 @@ Public Class frmDocLink_Record_Entities
|
||||
|
||||
Return ResultSQL
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in Get_Grid_Sql in LinkToRecord: " & vbNewLine & ex.Message, True)
|
||||
LOGGER.Warn("Error in Get_Grid_Sql in LinkToRecord: " & vbNewLine & ex.Message)
|
||||
MsgBox("Error in Get_Grid_Sql in LinkToRecord: " & vbNewLine & ex.Message)
|
||||
End Try
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in Get_Grid_Sql: " & vbNewLine & ex.Message, True)
|
||||
LOGGER.Warn("Error in Get_Grid_Sql: " & vbNewLine & ex.Message)
|
||||
MsgBox("Error in Get_Grid_Sql: " & vbNewLine & ex.Message)
|
||||
End Try
|
||||
End Function
|
||||
@@ -294,7 +294,7 @@ Public Class frmDocLink_Record_Entities
|
||||
NODE_NAVIGATION_LOADED = True
|
||||
End If
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> NodeTag: " & SelectedNode.Tag.ToString, False)
|
||||
LOGGER.Debug("NodeTag: " & SelectedNode.Tag.ToString, False)
|
||||
If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then
|
||||
Dim Record = ClassNodeNavigation.Return_RECORD_forTag(SelectedNode.Tag)
|
||||
If Record <> 0 Then
|
||||
|
||||
@@ -121,7 +121,7 @@ Public Class frmDocRecordLink
|
||||
If IsNothing(SELECTED_RECORDID) Then
|
||||
Continue For
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">>> Doc will be linked with Record: " & SELECTED_RECORDID.ToString, False)
|
||||
LOGGER.Debug(">>> Doc will be linked with Record: " & SELECTED_RECORDID.ToString, False)
|
||||
Try
|
||||
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
|
||||
CURRENT_DOC_ID = row.Item("DOC_ID")
|
||||
@@ -153,11 +153,11 @@ Public Class frmDocRecordLink
|
||||
Dim ENT_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", SELECTED_RECORDID))
|
||||
If ENT_ID > 1 And Entity_Index <> String.Empty Then
|
||||
If clsWD_SET.IndexFile(DOC_PATH, Entity_Index, ENT_ID, _objecttype) = False Then
|
||||
Dim msg = "Die Entität-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = "Could not index Entity-ID! Please check logfile!"
|
||||
End If
|
||||
MsgBox(msg, MsgBoxStyle.Exclamation)
|
||||
'Dim msg = "Die Entität-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
|
||||
'If USER_LANGUAGE <> "de-DE" Then
|
||||
' msg = "Could not index Entity-ID! Please check logfile!"
|
||||
'End If
|
||||
'MsgBox(msg, MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
End If
|
||||
If Record_Index <> String.Empty Then
|
||||
@@ -226,11 +226,11 @@ Public Class frmDocRecordLink
|
||||
ENTITY_LOAD_ACTIVE = True
|
||||
Save_DocGrid_Layout()
|
||||
Dim ResultSQL, ResultViewName As String
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
|
||||
LOGGER.Debug("GridType = Grid", False)
|
||||
ResultViewName = $"VWPMO_ENTITY_TABLE{entity.id}"
|
||||
ResultSQL = $"SELECT T.* FROM {ResultViewName} T"
|
||||
txtEntity.Text = cmbConstructorForms.Text
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> ResultSQL: " & ResultSQL, False)
|
||||
LOGGER.Debug("ResultSQL: " & ResultSQL, False)
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim DT_RESULT = clsDatabase.Return_Datatable(ResultSQL, True)
|
||||
If Not IsNothing(DT_RESULT) Then
|
||||
|
||||
@@ -23,13 +23,14 @@ Partial Class frmDocSearchResult
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
|
||||
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocSearchResult))
|
||||
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
Me.tslblDocID = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.ToolStripLabelCaption = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl()
|
||||
Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.docCM_Open = New System.Windows.Forms.ToolStripMenuItem()
|
||||
@@ -41,6 +42,7 @@ Partial Class frmDocSearchResult
|
||||
Me.docCM_PropertiesFile = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator25 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.GridViewDoc_Search = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.StatusStrip1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -65,7 +67,7 @@ Partial Class frmDocSearchResult
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabelCaption, Me.ToolStripButton1})
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabelCaption, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton3})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(1083, 25)
|
||||
@@ -75,7 +77,7 @@ Partial Class frmDocSearchResult
|
||||
'ToolStripLabelCaption
|
||||
'
|
||||
Me.ToolStripLabelCaption.Name = "ToolStripLabelCaption"
|
||||
Me.ToolStripLabelCaption.Size = New System.Drawing.Size(88, 22)
|
||||
Me.ToolStripLabelCaption.Size = New System.Drawing.Size(87, 22)
|
||||
Me.ToolStripLabelCaption.Text = "ToolStripLabel1"
|
||||
'
|
||||
'ToolStripButton1
|
||||
@@ -87,12 +89,21 @@ Partial Class frmDocSearchResult
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(95, 22)
|
||||
Me.ToolStripButton1.Text = "Aktualisieren"
|
||||
'
|
||||
'ToolStripButton2
|
||||
'
|
||||
Me.ToolStripButton2.Image = Global.DD_Record_Organizer.My.Resources.Resources.Excel_25ixel
|
||||
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton2.Name = "ToolStripButton2"
|
||||
Me.ToolStripButton2.Size = New System.Drawing.Size(120, 22)
|
||||
Me.ToolStripButton2.Text = "Export nach Excel"
|
||||
Me.ToolStripButton2.ToolTipText = "Export nach Excel"
|
||||
'
|
||||
'GridControlDocSearch
|
||||
'
|
||||
Me.GridControlDocSearch.ContextMenuStrip = Me.ContextMenuStripResultFiles
|
||||
Me.GridControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
GridLevelNode1.RelationName = "Level1"
|
||||
Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
|
||||
GridLevelNode2.RelationName = "Level1"
|
||||
Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
|
||||
Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 25)
|
||||
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
|
||||
Me.GridControlDocSearch.Name = "GridControlDocSearch"
|
||||
@@ -116,6 +127,7 @@ Partial Class frmDocSearchResult
|
||||
'
|
||||
'OrdnerÖffnenToolStripMenuItem
|
||||
'
|
||||
Me.OrdnerÖffnenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_Open_16xLG
|
||||
Me.OrdnerÖffnenToolStripMenuItem.Name = "OrdnerÖffnenToolStripMenuItem"
|
||||
Me.OrdnerÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 26)
|
||||
Me.OrdnerÖffnenToolStripMenuItem.Text = "Ordner öffnen"
|
||||
@@ -146,7 +158,7 @@ Partial Class frmDocSearchResult
|
||||
'
|
||||
'docCM_PropertiesFile
|
||||
'
|
||||
Me.docCM_PropertiesFile.Image = Global.DD_Record_Organizer.My.Resources.Resources.PropertyGridEditorPart_6041
|
||||
Me.docCM_PropertiesFile.Image = Global.DD_Record_Organizer.My.Resources.Resources.Property_501
|
||||
Me.docCM_PropertiesFile.Name = "docCM_PropertiesFile"
|
||||
Me.docCM_PropertiesFile.Size = New System.Drawing.Size(255, 26)
|
||||
Me.docCM_PropertiesFile.Text = "Eigenschaften Datei"
|
||||
@@ -177,6 +189,14 @@ Partial Class frmDocSearchResult
|
||||
Me.GridViewDoc_Search.OptionsView.ShowAutoFilterRow = True
|
||||
Me.GridViewDoc_Search.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True]
|
||||
'
|
||||
'ToolStripButton3
|
||||
'
|
||||
Me.ToolStripButton3.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete
|
||||
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton3.Name = "ToolStripButton3"
|
||||
Me.ToolStripButton3.Size = New System.Drawing.Size(134, 22)
|
||||
Me.ToolStripButton3.Text = "Layout zurücksetzen"
|
||||
'
|
||||
'frmDocSearchResult
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -217,4 +237,6 @@ Partial Class frmDocSearchResult
|
||||
Friend WithEvents docCM_PropertiesFile As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator25 As ToolStripSeparator
|
||||
Friend WithEvents ToolStripButton1 As ToolStripButton
|
||||
Friend WithEvents ToolStripButton2 As ToolStripButton
|
||||
Friend WithEvents ToolStripButton3 As ToolStripButton
|
||||
End Class
|
||||
|
||||
@@ -124,7 +124,7 @@
|
||||
<value>134, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ContextMenuStripResultFiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>799, 56</value>
|
||||
<value>241, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="docCM_Showlinks.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
|
||||
@@ -7,6 +7,7 @@ Public Class frmDocSearchResult
|
||||
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
|
||||
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
|
||||
End Function
|
||||
|
||||
Public Structure SHELLEXECUTEINFO
|
||||
Public cbSize As Integer
|
||||
Public fMask As Integer
|
||||
@@ -28,19 +29,32 @@ Public Class frmDocSearchResult
|
||||
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
|
||||
Private Const SEE_MASK_FLAG_NO_UI = &H400
|
||||
Public Const SW_SHOW As Short = 5
|
||||
Public Sub LoadDocSearch()
|
||||
Private DT_RESULT As DataTable
|
||||
Public Sub LoadDocSearch(reload As Boolean)
|
||||
Try
|
||||
Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim DTRESULT As DataTable = ClassDatabase.Return_Datatable(CURRENT_DOCSEARCH_SQL, True)
|
||||
If reload = False Then
|
||||
DT_RESULT = ClassDatabase.Return_Datatable(CURRENT_DOCSEARCH_SQL, True)
|
||||
End If
|
||||
|
||||
DT_RESULT = DT_RESULT
|
||||
GridControlDocSearch.DataSource = Nothing
|
||||
GridViewDoc_Search.Columns.Clear()
|
||||
GridControlDocSearch.DataSource = DTRESULT
|
||||
GridControlDocSearch.DataSource = DT_RESULT
|
||||
GridViewDoc_Search.BestFitColumns(True)
|
||||
ToolStripLabelCaption.Text = $"{CURRENT_DOCSEARCH_CAPTION} ({DTRESULT.Rows.Count} rows)"
|
||||
ToolStripLabelCaption.Text = $"{CURRENT_DOCSEARCH_CAPTION} ({DT_RESULT.Rows.Count} rows)"
|
||||
Load_DocGrid_Layout()
|
||||
GridControlDocSearch.DataSource = DT_RESULT
|
||||
GridControlDocSearch.DataSource = DT_RESULT
|
||||
'If GridViewDoc_Search.RowCount > 15000 Then
|
||||
' ToolStripButton2.Enabled = False
|
||||
'Else
|
||||
' ToolStripButton2.Enabled = True
|
||||
'End If
|
||||
ToolStripButton2.Enabled = True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in LoadDocSearch: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in LoadDocSearch: " & ex.Message)
|
||||
End Try
|
||||
Cursor = Cursors.Default
|
||||
|
||||
@@ -92,7 +106,7 @@ Public Class frmDocSearchResult
|
||||
End If
|
||||
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
|
||||
ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
|
||||
If CURRENT_OFFICE_FILE_CHANGED = True Then LoadDocSearch()
|
||||
If CURRENT_OFFICE_FILE_CHANGED = True Then LoadDocSearch(True)
|
||||
Next
|
||||
Else
|
||||
ClassHelper.MSGBOX_Handler("ERROR", "", "File does not exist! Please contact your admin!")
|
||||
@@ -174,7 +188,7 @@ Public Class frmDocSearchResult
|
||||
End Sub
|
||||
|
||||
Private Sub frmDocSearchResult_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
LoadDocSearch()
|
||||
LoadDocSearch(False)
|
||||
Me.Text = CURRENT_DOCSEARCH_CAPTION
|
||||
End Sub
|
||||
Sub Save_DocGrid_Layout()
|
||||
@@ -216,9 +230,49 @@ Public Class frmDocSearchResult
|
||||
|
||||
Private Sub GridViewDoc_Search_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDoc_Search.ColumnFilterChanged
|
||||
ToolStripLabelCaption.Text = $"{CURRENT_DOCSEARCH_CAPTION} ({GridViewDoc_Search.RowCount} rows [filtered])"
|
||||
If GridViewDoc_Search.RowCount > 12000 Then
|
||||
ToolStripButton2.Enabled = False
|
||||
Else
|
||||
ToolStripButton2.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
||||
LoadDocSearch()
|
||||
LoadDocSearch(False)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
|
||||
Try
|
||||
Dim saveFileDialogDocSearchResult As New SaveFileDialog
|
||||
saveFileDialogDocSearchResult.Filter = "Excel File|*.xlsx"
|
||||
saveFileDialogDocSearchResult.Title = "Export to Excel:"
|
||||
saveFileDialogDocSearchResult.ShowDialog()
|
||||
If saveFileDialogDocSearchResult.FileName <> "" Then
|
||||
Cursor = Cursors.WaitCursor
|
||||
GridControlDocSearch.MainView.ExportToXlsx(saveFileDialogDocSearchResult.FileName)
|
||||
Dim result As MsgBoxResult
|
||||
Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")
|
||||
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = String.Format("File was created. Do You want to open excel?")
|
||||
End If
|
||||
result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
If result = MsgBoxResult.Yes Then
|
||||
Process.Start(saveFileDialogDocSearchResult.FileName)
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in ExportExcel: " & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
|
||||
Dim XMLPath = Get_DocGrid_Layout_Filename()
|
||||
If File.Exists(XMLPath) Then
|
||||
File.Delete(XMLPath)
|
||||
LoadDocSearch(True)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -46,7 +46,7 @@ Public Class frmDoc_Links
|
||||
If IsNothing(oDocID) Then
|
||||
Continue For
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add($">> RecordLink will be removed Record: {oRECORD_ID} - DocID: {oDocID} ", False)
|
||||
LOGGER.Debug($"RecordLink will be removed Record: {oRECORD_ID} - DocID: {oDocID} ")
|
||||
Try
|
||||
If ClassFileResult.Delete_ResultFile(oDocID, oRECORD_ID, 0) = True Then
|
||||
ClassHelper.InsertEssential_Log(oDocID, "DOC-ID", $"RECORD LINK {oRECORD_ID} REMOVED FROM DOC-SEARCH")
|
||||
|
||||
@@ -50,7 +50,7 @@ Public Class frmEntities
|
||||
Try
|
||||
Dim DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " & _
|
||||
"TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 1 AND T.PARENT_ID = 0 AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2}))", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(Now.ToString & ">> Level 0 >>" & DT_SQL, False)
|
||||
LOGGER.Debug(Now.ToString & "Level 0 >>" & DT_SQL, False)
|
||||
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
|
||||
If DT.Rows.Count > 0 Then
|
||||
@@ -63,7 +63,7 @@ Public Class frmEntities
|
||||
'Jetzt die Ebene1Knoten einhängen
|
||||
DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " &
|
||||
"TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID IN ({2},0) AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {3})) ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, Row.Item("GUID"), USER_GUID)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(Now.ToString & ">> Level 1 >>" & DT_SQL, False)
|
||||
LOGGER.Debug(Now.ToString & "Level 1 >>" & DT_SQL, False)
|
||||
'Dim sql As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID = " & Row.Item("GUID") & " ORDER BY LEVEL"
|
||||
Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
|
||||
If dtEbene1.Rows.Count > 0 Then
|
||||
@@ -73,7 +73,7 @@ Public Class frmEntities
|
||||
Node1.Tag = row1.Item("GUID")
|
||||
DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " & _
|
||||
"TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (3,5) AND T.PARENT_ID = {2} AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {3})) ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, row1.Item("GUID"), USER_GUID)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(Now.ToString & ">> Level 2 >>" & DT_SQL, False)
|
||||
LOGGER.Debug(Now.ToString & "Level 2 >>" & DT_SQL, False)
|
||||
' Dim sql1 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (3,5) AND T.PARENT_ID = " & row1.Item("GUID") & " ORDER BY LEVEL"
|
||||
'Jetzt die Ebene2 Knoten einhängen
|
||||
Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
|
||||
@@ -93,7 +93,7 @@ Public Class frmEntities
|
||||
"FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2})) ORDER BY CAPTION", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
|
||||
'Dim sql2 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 ORDER BY T1.FORM_TITLE"
|
||||
Dim DT3 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(Now.ToString & ">> Indepentent Entities >>" & DT_SQL, False)
|
||||
LOGGER.Debug(Now.ToString & "Indepentent Entities >>" & DT_SQL, False)
|
||||
If DT3.Rows.Count > 0 Then
|
||||
Dim Node As TreeNode
|
||||
Node = TreeViewEntity.Nodes.Add("INDEPENDENT ENTITIES")
|
||||
@@ -209,7 +209,7 @@ Public Class frmEntities
|
||||
Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "FORM-OVERVIEW-UserLayout.xml")
|
||||
' treeListForms.RestoreLayoutFromXml(XMLPath)
|
||||
Catch notFoundEx As System.IO.FileNotFoundException
|
||||
ClassLogger.Add("Layout added for Overview")
|
||||
LOGGER.Warn("Layout added for Overview")
|
||||
Catch ex As Exception
|
||||
MsgBox("Error while loading custom Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
46
app/DD-Record-Organizer/frmGlobalSearch.Designer.vb
generated
46
app/DD-Record-Organizer/frmGlobalSearch.Designer.vb
generated
@@ -36,6 +36,10 @@ Partial Class frmGlobalSearch
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.tsbtnviewDetail = New System.Windows.Forms.ToolStripButton()
|
||||
Me.GridControlFiles = New DevExpress.XtraGrid.GridControl()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.OrdnerÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.GridViewFiles = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.ToolStripDokumente = New System.Windows.Forms.ToolStrip()
|
||||
Me.tslblDocView = New System.Windows.Forms.ToolStripLabel()
|
||||
@@ -51,6 +55,7 @@ Partial Class frmGlobalSearch
|
||||
Me.txtSearch = New System.Windows.Forms.TextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.VerknüpfungenAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainerMain.SuspendLayout()
|
||||
CType(Me.GridControlRecords, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -58,6 +63,7 @@ Partial Class frmGlobalSearch
|
||||
CType(Me.GridViewRecords, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ToolStripRecords.SuspendLayout()
|
||||
CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ToolStripDokumente.SuspendLayout()
|
||||
Me.ToolStripMain.SuspendLayout()
|
||||
@@ -106,7 +112,7 @@ Partial Class frmGlobalSearch
|
||||
'
|
||||
'GridViewRecords
|
||||
'
|
||||
Me.GridViewRecords.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewRecords.Appearance.EvenRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridViewRecords.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
|
||||
Me.GridViewRecords.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridViewRecords.GridControl = Me.GridControlRecords
|
||||
Me.GridViewRecords.Name = "GridViewRecords"
|
||||
@@ -152,14 +158,38 @@ Partial Class frmGlobalSearch
|
||||
'
|
||||
'GridControlFiles
|
||||
'
|
||||
Me.GridControlFiles.ContextMenuStrip = Me.ContextMenuStrip1
|
||||
resources.ApplyResources(Me.GridControlFiles, "GridControlFiles")
|
||||
Me.GridControlFiles.MainView = Me.GridViewFiles
|
||||
Me.GridControlFiles.Name = "GridControlFiles"
|
||||
Me.GridControlFiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewFiles})
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.OrdnerÖffnenToolStripMenuItem, Me.EigenschaftenToolStripMenuItem, Me.VerknüpfungenAnzeigenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
|
||||
'
|
||||
'DateiÖffnenToolStripMenuItem
|
||||
'
|
||||
Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
|
||||
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem, "DateiÖffnenToolStripMenuItem")
|
||||
'
|
||||
'OrdnerÖffnenToolStripMenuItem
|
||||
'
|
||||
Me.OrdnerÖffnenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_Open_16xLG
|
||||
Me.OrdnerÖffnenToolStripMenuItem.Name = "OrdnerÖffnenToolStripMenuItem"
|
||||
resources.ApplyResources(Me.OrdnerÖffnenToolStripMenuItem, "OrdnerÖffnenToolStripMenuItem")
|
||||
'
|
||||
'EigenschaftenToolStripMenuItem
|
||||
'
|
||||
Me.EigenschaftenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.Property_501
|
||||
Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
|
||||
resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
|
||||
'
|
||||
'GridViewFiles
|
||||
'
|
||||
Me.GridViewFiles.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewFiles.Appearance.EvenRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridViewFiles.Appearance.EvenRow.BackColor = System.Drawing.Color.Orange
|
||||
Me.GridViewFiles.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridViewFiles.GridControl = Me.GridControlFiles
|
||||
Me.GridViewFiles.Name = "GridViewFiles"
|
||||
@@ -266,6 +296,12 @@ Partial Class frmGlobalSearch
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.TabStop = False
|
||||
'
|
||||
'VerknüpfungenAnzeigenToolStripMenuItem
|
||||
'
|
||||
Me.VerknüpfungenAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.Link
|
||||
Me.VerknüpfungenAnzeigenToolStripMenuItem.Name = "VerknüpfungenAnzeigenToolStripMenuItem"
|
||||
resources.ApplyResources(Me.VerknüpfungenAnzeigenToolStripMenuItem, "VerknüpfungenAnzeigenToolStripMenuItem")
|
||||
'
|
||||
'frmGlobalSearch
|
||||
'
|
||||
resources.ApplyResources(Me, "$this")
|
||||
@@ -282,6 +318,7 @@ Partial Class frmGlobalSearch
|
||||
Me.ToolStripRecords.ResumeLayout(False)
|
||||
Me.ToolStripRecords.PerformLayout()
|
||||
CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||
CType(Me.GridViewFiles, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ToolStripDokumente.ResumeLayout(False)
|
||||
Me.ToolStripDokumente.PerformLayout()
|
||||
@@ -321,4 +358,9 @@ Partial Class frmGlobalSearch
|
||||
Friend WithEvents ShowRecordToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents tsbtnviewDetail As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
|
||||
Friend WithEvents DateiÖffnenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents OrdnerÖffnenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents VerknüpfungenAnzeigenToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -155,9 +155,6 @@
|
||||
<data name="GridControlRecords.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 25</value>
|
||||
</data>
|
||||
<data name="GridViewRecords.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>Aqua</value>
|
||||
</data>
|
||||
<data name="GridControlRecords.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>751, 313</value>
|
||||
</data>
|
||||
@@ -193,7 +190,7 @@
|
||||
<value>Magenta</value>
|
||||
</data>
|
||||
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>60, 22</value>
|
||||
<value>61, 22</value>
|
||||
</data>
|
||||
<data name="ToolStripButton1.Text" xml:space="preserve">
|
||||
<value>Export</value>
|
||||
@@ -234,17 +231,50 @@
|
||||
<data name="SplitContainerMain.Panel1.Text" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>571, 17</value>
|
||||
</metadata>
|
||||
<data name="DateiÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>205, 22</value>
|
||||
</data>
|
||||
<data name="DateiÖffnenToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Datei öffnen</value>
|
||||
</data>
|
||||
<data name="OrdnerÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>205, 22</value>
|
||||
</data>
|
||||
<data name="OrdnerÖffnenToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Ordner öffnen</value>
|
||||
</data>
|
||||
<data name="EigenschaftenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>205, 22</value>
|
||||
</data>
|
||||
<data name="EigenschaftenToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Eigenschaften</value>
|
||||
</data>
|
||||
<data name="VerknüpfungenAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>205, 22</value>
|
||||
</data>
|
||||
<data name="VerknüpfungenAnzeigenToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Verknüpfungen anzeigen</value>
|
||||
</data>
|
||||
<data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>206, 114</value>
|
||||
</data>
|
||||
<data name=">>ContextMenuStrip1.Name" xml:space="preserve">
|
||||
<value>ContextMenuStrip1</value>
|
||||
</data>
|
||||
<data name=">>ContextMenuStrip1.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="GridControlFiles.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
|
||||
<value>Fill</value>
|
||||
</data>
|
||||
<data name="GridControlFiles.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 25</value>
|
||||
</data>
|
||||
<data name="GridViewFiles.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>Orange</value>
|
||||
</data>
|
||||
<data name="GridControlFiles.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>406, 313</value>
|
||||
<value>408, 313</value>
|
||||
</data>
|
||||
<data name="GridControlFiles.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>4</value>
|
||||
@@ -289,7 +319,7 @@
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>406, 25</value>
|
||||
<value>408, 25</value>
|
||||
</data>
|
||||
<data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>3</value>
|
||||
@@ -331,7 +361,7 @@
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>SplitContainerMain.ZOrder" xml:space="preserve">
|
||||
<value>1</value>
|
||||
<value>2</value>
|
||||
</data>
|
||||
<metadata name="ToolStripMain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
@@ -604,7 +634,7 @@
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>Panel1.ZOrder" xml:space="preserve">
|
||||
<value>2</value>
|
||||
<value>3</value>
|
||||
</data>
|
||||
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
@@ -715,6 +745,24 @@
|
||||
<data name=">>tsbtnviewDetail.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>DateiÖffnenToolStripMenuItem.Name" xml:space="preserve">
|
||||
<value>DateiÖffnenToolStripMenuItem</value>
|
||||
</data>
|
||||
<data name=">>DateiÖffnenToolStripMenuItem.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>OrdnerÖffnenToolStripMenuItem.Name" xml:space="preserve">
|
||||
<value>OrdnerÖffnenToolStripMenuItem</value>
|
||||
</data>
|
||||
<data name=">>OrdnerÖffnenToolStripMenuItem.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>EigenschaftenToolStripMenuItem.Name" xml:space="preserve">
|
||||
<value>EigenschaftenToolStripMenuItem</value>
|
||||
</data>
|
||||
<data name=">>EigenschaftenToolStripMenuItem.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>GridViewFiles.Name" xml:space="preserve">
|
||||
<value>GridViewFiles</value>
|
||||
</data>
|
||||
@@ -739,6 +787,12 @@
|
||||
<data name=">>tsbtnRefresh.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>VerknüpfungenAnzeigenToolStripMenuItem.Name" xml:space="preserve">
|
||||
<value>VerknüpfungenAnzeigenToolStripMenuItem</value>
|
||||
</data>
|
||||
<data name=">>VerknüpfungenAnzeigenToolStripMenuItem.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>$this.Name" xml:space="preserve">
|
||||
<value>frmGlobalSearch</value>
|
||||
</data>
|
||||
|
||||
@@ -1,10 +1,35 @@
|
||||
Imports DevExpress.Utils
|
||||
Imports System.Text
|
||||
Imports System.IO
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
Public Class frmGlobalSearch
|
||||
|
||||
Inherits Form
|
||||
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
|
||||
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
|
||||
End Function
|
||||
Public Structure SHELLEXECUTEINFO
|
||||
Public cbSize As Integer
|
||||
Public fMask As Integer
|
||||
Public hwnd As IntPtr
|
||||
<MarshalAs(UnmanagedType.LPTStr)> Public lpVerb As String
|
||||
<MarshalAs(UnmanagedType.LPTStr)> Public lpFile As String
|
||||
<MarshalAs(UnmanagedType.LPTStr)> Public lpParameters As String
|
||||
<MarshalAs(UnmanagedType.LPTStr)> Public lpDirectory As String
|
||||
Dim nShow As Integer
|
||||
Dim hInstApp As IntPtr
|
||||
Dim lpIDList As IntPtr
|
||||
<MarshalAs(UnmanagedType.LPTStr)> Public lpClass As String
|
||||
Public hkeyClass As IntPtr
|
||||
Public dwHotKey As Integer
|
||||
Public hIcon As IntPtr
|
||||
Public hProcess As IntPtr
|
||||
End Structure
|
||||
Private Const SEE_MASK_INVOKEIDLIST = &HC
|
||||
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
|
||||
Private Const SEE_MASK_FLAG_NO_UI = &H400
|
||||
Public Const SW_SHOW As Short = 5
|
||||
Private _Helper As ClassHelper
|
||||
Dim sel_Records, sel_FT As String
|
||||
Private Sub tsbtnRefresh_Click(sender As Object, e As EventArgs) Handles tsbtnRefresh.Click
|
||||
@@ -52,11 +77,11 @@ Public Class frmGlobalSearch
|
||||
Sub PREPARE_FT_SQL()
|
||||
Dim sqlft = SQL_FULLTEXT
|
||||
sqlft = sqlft.Replace("@FULLTEXT", txtSearch.Text)
|
||||
Dim selDoc = String.Format("SELECT [DocID],[FULL_FILENAME],[Filename],[DISPLAY_NAME],[Doctype],[Creation_DateTime] As CreatedWhen,[Change_DateTime] as ChangedWhen,[IN_WORK] as [InWork?] " &
|
||||
"FROM VWPMO_DOC_SEARCH where DocID in " & vbNewLine &
|
||||
"({0}) " & vbNewLine &
|
||||
"AND DocID IN (SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {1})", sqlft, USERID_FK_INT_ECM)
|
||||
sel_FT = selDoc
|
||||
'Dim selDoc = String.Format("SELECT T.[DocID],T.[FULL_FILENAME],T.[Filename],T.[DISPLAY_NAME],T.[Doctype],T.[Creation_DateTime] As CreatedWhen,T.[Change_DateTime] as ChangedWhen,T.[IN_WORK] as [InWork?] " &
|
||||
' "FROM VWPMO_DOC_SEARCH T INNER JOIN ( " & vbNewLine &
|
||||
' "{0}) Y ON T.DocID = Y.dwDocID " & vbNewLine &
|
||||
' "INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHT ON T.DocID = TRIGHT.dwObjectID WHERE TRIGHT.dwUserOrGroupID = {1}", sqlft, USERID_FK_INT_ECM)
|
||||
sel_FT = sqlft
|
||||
|
||||
End Sub
|
||||
Sub PREPARE_RECORD_SQL()
|
||||
@@ -183,20 +208,7 @@ Public Class frmGlobalSearch
|
||||
End Sub
|
||||
|
||||
Private Sub GridControlFiles_DoubleClick(sender As Object, e As EventArgs) Handles GridControlFiles.DoubleClick
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
For Each row In GridViewFiles.GetSelectedRows
|
||||
Dim SELECTED_DOC_PATH = _Helper.FORMAT_WM_PATH(GridViewFiles.GetRowCellValue(row, "FULL_FILENAME"))
|
||||
Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
|
||||
If IsNothing(SELECTED_DOC_PATH) Then
|
||||
MsgBox("Could not read File Parameters!", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
ClassHelper.File_open(SELECTED_DOC_PATH, SELECTED_DOC_ID)
|
||||
|
||||
Next
|
||||
Me.Cursor = Cursors.Default
|
||||
File_open()
|
||||
End Sub
|
||||
Sub Save_DocGrid_Layout()
|
||||
Try
|
||||
@@ -256,4 +268,99 @@ Public Class frmGlobalSearch
|
||||
Load_DocGrid_Layout()
|
||||
Load_RecordGrid_Layout()
|
||||
End Sub
|
||||
Sub Show_File_Properties()
|
||||
Try
|
||||
For Each row In GridViewFiles.GetSelectedRows
|
||||
Dim SELECTED_DOC_PATH = _Helper.FORMAT_WM_PATH(GridViewFiles.GetRowCellValue(row, "FULL_FILENAME"))
|
||||
Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
|
||||
|
||||
Cursor = Cursors.WaitCursor
|
||||
Dim sei As New SHELLEXECUTEINFO
|
||||
sei.cbSize = Marshal.SizeOf(sei)
|
||||
sei.lpVerb = "properties"
|
||||
sei.lpFile = SELECTED_DOC_PATH
|
||||
sei.nShow = SW_SHOW
|
||||
sei.fMask = SEE_MASK_INVOKEIDLIST
|
||||
If Not ShellExecuteEx(sei) Then
|
||||
Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
|
||||
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Open file propertys:", ex.Message)
|
||||
End If
|
||||
Next
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Sub Open_folder()
|
||||
Try
|
||||
For Each row In GridViewFiles.GetSelectedRows
|
||||
Dim SELECTED_DOC_PATH = _Helper.FORMAT_WM_PATH(GridViewFiles.GetRowCellValue(row, "FULL_FILENAME"))
|
||||
Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
|
||||
ClassHelper.Open_Folder(SELECTED_DOC_PATH, SELECTED_DOC_ID)
|
||||
|
||||
ClassHelper.File_open(SELECTED_DOC_PATH, SELECTED_DOC_ID)
|
||||
|
||||
Next
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GridControlRecords_DoubleClick(sender As Object, e As EventArgs) Handles GridControlRecords.DoubleClick
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
|
||||
File_open()
|
||||
End Sub
|
||||
|
||||
Private Sub OrdnerÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OrdnerÖffnenToolStripMenuItem.Click
|
||||
Open_folder()
|
||||
End Sub
|
||||
|
||||
Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click
|
||||
Show_File_Properties()
|
||||
End Sub
|
||||
|
||||
Private Sub VerknüpfungenAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerknüpfungenAnzeigenToolStripMenuItem.Click
|
||||
Try
|
||||
ClassWindreamDocGrid.GetDocItems(GridViewFiles)
|
||||
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
|
||||
MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim frm As New frmDoc_Links
|
||||
frm.Show()
|
||||
frm.BringToFront()
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Showing DocLinks: " & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Sub File_open()
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
For Each row In GridViewFiles.GetSelectedRows
|
||||
Dim SELECTED_DOC_PATH = _Helper.FORMAT_WM_PATH(GridViewFiles.GetRowCellValue(row, "FULL_FILENAME"))
|
||||
Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
|
||||
If IsNothing(SELECTED_DOC_PATH) Then
|
||||
MsgBox("Could not read File Parameters!", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
ClassHelper.File_open(SELECTED_DOC_PATH, SELECTED_DOC_ID)
|
||||
|
||||
Next
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
125
app/DD-Record-Organizer/frmMain.Designer.vb
generated
125
app/DD-Record-Organizer/frmMain.Designer.vb
generated
@@ -198,7 +198,7 @@ Partial Class frmMain
|
||||
Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu
|
||||
Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray
|
||||
Me.ribbonMain.ExpandCollapseItem.Id = 0
|
||||
Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.btnGlobalSearch, Me.LabelUser, Me.bbtnItemViewsUser, Me.BarButtonItem23, Me.LabelProxyServer, Me.BarSubItem2, Me.BarButtonItem25, Me.StatusPersonifiedLogin, Me.itemScanInbox, Me.BarButtonItem13, Me.BarButtonItemSwitchCon, Me.LabelConString, Me.StatusVersionDB})
|
||||
Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.ribbonMain.SearchEditItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.btnGlobalSearch, Me.LabelUser, Me.bbtnItemViewsUser, Me.BarButtonItem23, Me.LabelProxyServer, Me.BarSubItem2, Me.BarButtonItem25, Me.StatusPersonifiedLogin, Me.itemScanInbox, Me.BarButtonItem13, Me.BarButtonItemSwitchCon, Me.LabelConString, Me.StatusVersionDB})
|
||||
resources.ApplyResources(Me.ribbonMain, "ribbonMain")
|
||||
Me.ribbonMain.MaxItemId = 1
|
||||
Me.ribbonMain.Name = "ribbonMain"
|
||||
@@ -222,146 +222,147 @@ Partial Class frmMain
|
||||
'itemSettings
|
||||
'
|
||||
resources.ApplyResources(Me.itemSettings, "itemSettings")
|
||||
Me.itemSettings.Glyph = CType(resources.GetObject("itemSettings.Glyph"), System.Drawing.Image)
|
||||
Me.itemSettings.Id = 21
|
||||
Me.itemSettings.ImageOptions.Image = CType(resources.GetObject("itemSettings.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.itemSettings.Name = "itemSettings"
|
||||
'
|
||||
'itemScanInbox
|
||||
'
|
||||
resources.ApplyResources(Me.itemScanInbox, "itemScanInbox")
|
||||
Me.itemScanInbox.Glyph = CType(resources.GetObject("itemScanInbox.Glyph"), System.Drawing.Image)
|
||||
Me.itemScanInbox.Id = 6
|
||||
Me.itemScanInbox.ImageOptions.Image = CType(resources.GetObject("itemScanInbox.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.itemScanInbox.Name = "itemScanInbox"
|
||||
Me.itemScanInbox.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
||||
'
|
||||
'BarButtonItem19
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem19, "BarButtonItem19")
|
||||
Me.BarButtonItem19.Glyph = CType(resources.GetObject("BarButtonItem19.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem19.Id = 47
|
||||
Me.BarButtonItem19.ImageOptions.Image = CType(resources.GetObject("BarButtonItem19.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem19.Name = "BarButtonItem19"
|
||||
'
|
||||
'itemInfo
|
||||
'
|
||||
resources.ApplyResources(Me.itemInfo, "itemInfo")
|
||||
Me.itemInfo.Glyph = CType(resources.GetObject("itemInfo.Glyph"), System.Drawing.Image)
|
||||
Me.itemInfo.Id = 9
|
||||
Me.itemInfo.ImageOptions.Image = CType(resources.GetObject("itemInfo.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.itemInfo.Name = "itemInfo"
|
||||
'
|
||||
'itemAbout
|
||||
'
|
||||
resources.ApplyResources(Me.itemAbout, "itemAbout")
|
||||
Me.itemAbout.Glyph = CType(resources.GetObject("itemAbout.Glyph"), System.Drawing.Image)
|
||||
Me.itemAbout.Id = 46
|
||||
Me.itemAbout.ImageOptions.Image = CType(resources.GetObject("itemAbout.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.itemAbout.Name = "itemAbout"
|
||||
'
|
||||
'itemExit
|
||||
'
|
||||
resources.ApplyResources(Me.itemExit, "itemExit")
|
||||
Me.itemExit.Glyph = CType(resources.GetObject("itemExit.Glyph"), System.Drawing.Image)
|
||||
Me.itemExit.Id = 10
|
||||
Me.itemExit.ImageOptions.Image = CType(resources.GetObject("itemExit.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.itemExit.Name = "itemExit"
|
||||
'
|
||||
'LabelMachine
|
||||
'
|
||||
resources.ApplyResources(Me.LabelMachine, "LabelMachine")
|
||||
Me.LabelMachine.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.Monitor_Screen_16xLG
|
||||
Me.LabelMachine.Id = 3
|
||||
Me.LabelMachine.ImageOptions.SvgImage = CType(resources.GetObject("LabelMachine.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.LabelMachine.Name = "LabelMachine"
|
||||
Me.LabelMachine.TextAlignment = System.Drawing.StringAlignment.Near
|
||||
Me.LabelMachine.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
|
||||
'
|
||||
'LabelLoggedIn
|
||||
'
|
||||
resources.ApplyResources(Me.LabelLoggedIn, "LabelLoggedIn")
|
||||
Me.LabelLoggedIn.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.UserInterfaceEditor_5845
|
||||
Me.LabelLoggedIn.Id = 5
|
||||
Me.LabelLoggedIn.ImageOptions.SvgImage = CType(resources.GetObject("LabelLoggedIn.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.LabelLoggedIn.Name = "LabelLoggedIn"
|
||||
Me.LabelLoggedIn.TextAlignment = System.Drawing.StringAlignment.Near
|
||||
Me.LabelLoggedIn.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
|
||||
'
|
||||
'LabelVersion
|
||||
'
|
||||
resources.ApplyResources(Me.LabelVersion, "LabelVersion")
|
||||
Me.LabelVersion.Id = 6
|
||||
Me.LabelVersion.Name = "LabelVersion"
|
||||
Me.LabelVersion.TextAlignment = System.Drawing.StringAlignment.Near
|
||||
'
|
||||
'BarButtonItem1
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
|
||||
Me.BarButtonItem1.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.calendar_32x32
|
||||
Me.BarButtonItem1.Id = 11
|
||||
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarButtonItem1.Name = "BarButtonItem1"
|
||||
Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
'BarButtonItem3
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3")
|
||||
Me.BarButtonItem3.Glyph = CType(resources.GetObject("BarButtonItem3.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem3.Id = 13
|
||||
Me.BarButtonItem3.ImageOptions.Image = CType(resources.GetObject("BarButtonItem3.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem3.Name = "BarButtonItem3"
|
||||
Me.BarButtonItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
'BarButtonItem4
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem4, "BarButtonItem4")
|
||||
Me.BarButtonItem4.Glyph = CType(resources.GetObject("BarButtonItem4.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem4.Id = 14
|
||||
Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonItem4.Name = "BarButtonItem4"
|
||||
Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
'BarButtonItem5
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem5, "BarButtonItem5")
|
||||
Me.BarButtonItem5.Glyph = CType(resources.GetObject("BarButtonItem5.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem5.Id = 15
|
||||
Me.BarButtonItem5.ImageOptions.Image = CType(resources.GetObject("BarButtonItem5.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem5.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonItem5.Name = "BarButtonItem5"
|
||||
Me.BarButtonItem5.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
'BarButtonItem6
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem6, "BarButtonItem6")
|
||||
Me.BarButtonItem6.Glyph = CType(resources.GetObject("BarButtonItem6.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem6.Id = 16
|
||||
Me.BarButtonItem6.ImageOptions.Image = CType(resources.GetObject("BarButtonItem6.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem6.Name = "BarButtonItem6"
|
||||
Me.BarButtonItem6.RibbonStyle = CType((DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Or DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText), DevExpress.XtraBars.Ribbon.RibbonItemStyles)
|
||||
'
|
||||
'BarButtonItem7
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem7, "BarButtonItem7")
|
||||
Me.BarButtonItem7.Glyph = CType(resources.GetObject("BarButtonItem7.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem7.Id = 17
|
||||
Me.BarButtonItem7.ImageOptions.Image = CType(resources.GetObject("BarButtonItem7.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem7.Name = "BarButtonItem7"
|
||||
Me.BarButtonItem7.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
'BarButtonItem2
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
|
||||
Me.BarButtonItem2.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.Einstellungen5
|
||||
Me.BarButtonItem2.Id = 22
|
||||
Me.BarButtonItem2.ImageOptions.Image = Global.DD_Record_Organizer.My.Resources.Resources.Einstellungen5
|
||||
Me.BarButtonItem2.Name = "BarButtonItem2"
|
||||
Me.BarButtonItem2.RibbonStyle = CType((DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Or DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText), DevExpress.XtraBars.Ribbon.RibbonItemStyles)
|
||||
'
|
||||
'BarButtonItem10
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem10, "BarButtonItem10")
|
||||
Me.BarButtonItem10.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.Einstellungen3
|
||||
Me.BarButtonItem10.Id = 23
|
||||
Me.BarButtonItem10.ImageOptions.Image = Global.DD_Record_Organizer.My.Resources.Resources.Einstellungen3
|
||||
Me.BarButtonItem10.Name = "BarButtonItem10"
|
||||
Me.BarButtonItem10.RibbonStyle = CType((DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Or DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText), DevExpress.XtraBars.Ribbon.RibbonItemStyles)
|
||||
'
|
||||
'BarButtonItem12
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem12, "BarButtonItem12")
|
||||
Me.BarButtonItem12.Glyph = CType(resources.GetObject("BarButtonItem12.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem12.Id = 24
|
||||
Me.BarButtonItem12.ImageOptions.Image = CType(resources.GetObject("BarButtonItem12.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem12.Name = "BarButtonItem12"
|
||||
Me.BarButtonItem12.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
'BarButtonItemConnections
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItemConnections, "BarButtonItemConnections")
|
||||
Me.BarButtonItemConnections.Glyph = CType(resources.GetObject("BarButtonItemConnections.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItemConnections.Id = 26
|
||||
Me.BarButtonItemConnections.ImageOptions.Image = CType(resources.GetObject("BarButtonItemConnections.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItemConnections.Name = "BarButtonItemConnections"
|
||||
Me.BarButtonItemConnections.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
@@ -375,24 +376,26 @@ Partial Class frmMain
|
||||
'BarButtonItem16
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem16, "BarButtonItem16")
|
||||
Me.BarButtonItem16.Glyph = CType(resources.GetObject("BarButtonItem16.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem16.Id = 28
|
||||
Me.BarButtonItem16.ImageOptions.Image = CType(resources.GetObject("BarButtonItem16.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem16.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem16.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonItem16.Name = "BarButtonItem16"
|
||||
Me.BarButtonItem16.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
'BarButtonItem17
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem17, "BarButtonItem17")
|
||||
Me.BarButtonItem17.Glyph = CType(resources.GetObject("BarButtonItem17.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem17.Id = 29
|
||||
Me.BarButtonItem17.ImageOptions.Image = CType(resources.GetObject("BarButtonItem17.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem17.Name = "BarButtonItem17"
|
||||
Me.BarButtonItem17.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
'BarButtonItem18
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem18, "BarButtonItem18")
|
||||
Me.BarButtonItem18.Glyph = CType(resources.GetObject("BarButtonItem18.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem18.Id = 31
|
||||
Me.BarButtonItem18.ImageOptions.Image = CType(resources.GetObject("BarButtonItem18.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem18.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem18.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonItem18.Name = "BarButtonItem18"
|
||||
Me.BarButtonItem18.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
@@ -401,13 +404,13 @@ Partial Class frmMain
|
||||
resources.ApplyResources(Me.LabelLanguage, "LabelLanguage")
|
||||
Me.LabelLanguage.Id = 33
|
||||
Me.LabelLanguage.Name = "LabelLanguage"
|
||||
Me.LabelLanguage.TextAlignment = System.Drawing.StringAlignment.Near
|
||||
'
|
||||
'BarButtonItem20
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem20, "BarButtonItem20")
|
||||
Me.BarButtonItem20.Glyph = CType(resources.GetObject("BarButtonItem20.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem20.Id = 34
|
||||
Me.BarButtonItem20.ImageOptions.Image = CType(resources.GetObject("BarButtonItem20.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem20.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem20.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonItem20.Name = "BarButtonItem20"
|
||||
Me.BarButtonItem20.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
@@ -415,16 +418,16 @@ Partial Class frmMain
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItemSAPConnect, "BarButtonItemSAPConnect")
|
||||
Me.BarButtonItemSAPConnect.Enabled = False
|
||||
Me.BarButtonItemSAPConnect.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.Connection_Manager
|
||||
Me.BarButtonItemSAPConnect.Id = 36
|
||||
Me.BarButtonItemSAPConnect.ImageOptions.Image = Global.DD_Record_Organizer.My.Resources.Resources.Connection_Manager
|
||||
Me.BarButtonItemSAPConnect.Name = "BarButtonItemSAPConnect"
|
||||
Me.BarButtonItemSAPConnect.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
'BarButtonItemStructureNOdes
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItemStructureNOdes, "BarButtonItemStructureNOdes")
|
||||
Me.BarButtonItemStructureNOdes.Glyph = CType(resources.GetObject("BarButtonItemStructureNOdes.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItemStructureNOdes.Id = 37
|
||||
Me.BarButtonItemStructureNOdes.ImageOptions.Image = CType(resources.GetObject("BarButtonItemStructureNOdes.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItemStructureNOdes.Name = "BarButtonItemStructureNOdes"
|
||||
Me.BarButtonItemStructureNOdes.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
@@ -439,81 +442,80 @@ Partial Class frmMain
|
||||
'BarButtonItem14
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem14, "BarButtonItem14")
|
||||
Me.BarButtonItem14.Glyph = CType(resources.GetObject("BarButtonItem14.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem14.Id = 39
|
||||
Me.BarButtonItem14.ImageOptions.Image = CType(resources.GetObject("BarButtonItem14.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem14.Name = "BarButtonItem14"
|
||||
'
|
||||
'BarButtonItem21
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem21, "BarButtonItem21")
|
||||
Me.BarButtonItem21.Glyph = CType(resources.GetObject("BarButtonItem21.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem21.Id = 40
|
||||
Me.BarButtonItem21.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem21.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarButtonItem21.Name = "BarButtonItem21"
|
||||
'
|
||||
'BarButtonItem22
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem22, "BarButtonItem22")
|
||||
Me.BarButtonItem22.Glyph = CType(resources.GetObject("BarButtonItem22.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem22.Id = 41
|
||||
Me.BarButtonItem22.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem22.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarButtonItem22.Name = "BarButtonItem22"
|
||||
'
|
||||
'BarButtonItem8
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8")
|
||||
Me.BarButtonItem8.Glyph = CType(resources.GetObject("BarButtonItem8.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem8.Id = 44
|
||||
Me.BarButtonItem8.ImageOptions.Image = CType(resources.GetObject("BarButtonItem8.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem8.Name = "BarButtonItem8"
|
||||
'
|
||||
'BarButtonItem9
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem9, "BarButtonItem9")
|
||||
Me.BarButtonItem9.Glyph = CType(resources.GetObject("BarButtonItem9.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem9.Id = 45
|
||||
Me.BarButtonItem9.ImageOptions.Image = CType(resources.GetObject("BarButtonItem9.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem9.Name = "BarButtonItem9"
|
||||
'
|
||||
'BarButtonItem23
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem23, "BarButtonItem23")
|
||||
Me.BarButtonItem23.Glyph = CType(resources.GetObject("BarButtonItem23.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem23.Id = 9
|
||||
Me.BarButtonItem23.LargeGlyph = CType(resources.GetObject("BarButtonItem23.LargeGlyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem23.ImageOptions.Image = CType(resources.GetObject("BarButtonItem23.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem23.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem23.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonItem23.Name = "BarButtonItem23"
|
||||
'
|
||||
'btnGlobalSearch
|
||||
'
|
||||
resources.ApplyResources(Me.btnGlobalSearch, "btnGlobalSearch")
|
||||
Me.btnGlobalSearch.Enabled = False
|
||||
Me.btnGlobalSearch.Glyph = CType(resources.GetObject("btnGlobalSearch.Glyph"), System.Drawing.Image)
|
||||
Me.btnGlobalSearch.Id = 2
|
||||
Me.btnGlobalSearch.LargeGlyph = CType(resources.GetObject("btnGlobalSearch.LargeGlyph"), System.Drawing.Image)
|
||||
Me.btnGlobalSearch.ImageOptions.SvgImage = CType(resources.GetObject("btnGlobalSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.btnGlobalSearch.Name = "btnGlobalSearch"
|
||||
'
|
||||
'LabelUser
|
||||
'
|
||||
resources.ApplyResources(Me.LabelUser, "LabelUser")
|
||||
Me.LabelUser.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.user_16xLG
|
||||
Me.LabelUser.Id = 4
|
||||
Me.LabelUser.ImageOptions.SvgImage = CType(resources.GetObject("LabelUser.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.LabelUser.Name = "LabelUser"
|
||||
'
|
||||
'bbtnItemViewsUser
|
||||
'
|
||||
resources.ApplyResources(Me.bbtnItemViewsUser, "bbtnItemViewsUser")
|
||||
Me.bbtnItemViewsUser.Glyph = CType(resources.GetObject("bbtnItemViewsUser.Glyph"), System.Drawing.Image)
|
||||
Me.bbtnItemViewsUser.Id = 7
|
||||
Me.bbtnItemViewsUser.ImageOptions.Image = CType(resources.GetObject("bbtnItemViewsUser.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.bbtnItemViewsUser.Name = "bbtnItemViewsUser"
|
||||
Me.bbtnItemViewsUser.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
'LabelProxyServer
|
||||
'
|
||||
resources.ApplyResources(Me.LabelProxyServer, "LabelProxyServer")
|
||||
Me.LabelProxyServer.Glyph = CType(resources.GetObject("LabelProxyServer.Glyph"), System.Drawing.Image)
|
||||
Me.LabelProxyServer.Id = 1
|
||||
Me.LabelProxyServer.ImageOptions.SvgImage = CType(resources.GetObject("LabelProxyServer.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.LabelProxyServer.ItemAppearance.Normal.Font = CType(resources.GetObject("LabelProxyServer.ItemAppearance.Normal.Font"), System.Drawing.Font)
|
||||
Me.LabelProxyServer.ItemAppearance.Normal.ForeColor = CType(resources.GetObject("LabelProxyServer.ItemAppearance.Normal.ForeColor"), System.Drawing.Color)
|
||||
Me.LabelProxyServer.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Yellow
|
||||
Me.LabelProxyServer.ItemAppearance.Normal.Options.UseFont = True
|
||||
Me.LabelProxyServer.ItemAppearance.Normal.Options.UseForeColor = True
|
||||
Me.LabelProxyServer.Name = "LabelProxyServer"
|
||||
Me.LabelProxyServer.TextAlignment = System.Drawing.StringAlignment.Near
|
||||
Me.LabelProxyServer.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
|
||||
Me.LabelProxyServer.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
||||
'
|
||||
'BarSubItem2
|
||||
@@ -531,58 +533,58 @@ Partial Class frmMain
|
||||
'
|
||||
'StatusPersonifiedLogin
|
||||
'
|
||||
Me.StatusPersonifiedLogin.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.user_16xLG
|
||||
Me.StatusPersonifiedLogin.Id = 5
|
||||
Me.StatusPersonifiedLogin.ImageOptions.SvgImage = CType(resources.GetObject("StatusPersonifiedLogin.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.StatusPersonifiedLogin.ItemAppearance.Normal.Font = CType(resources.GetObject("StatusPersonifiedLogin.ItemAppearance.Normal.Font"), System.Drawing.Font)
|
||||
Me.StatusPersonifiedLogin.ItemAppearance.Normal.ForeColor = CType(resources.GetObject("StatusPersonifiedLogin.ItemAppearance.Normal.ForeColor"), System.Drawing.Color)
|
||||
Me.StatusPersonifiedLogin.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Yellow
|
||||
Me.StatusPersonifiedLogin.ItemAppearance.Normal.Options.UseFont = True
|
||||
Me.StatusPersonifiedLogin.ItemAppearance.Normal.Options.UseForeColor = True
|
||||
Me.StatusPersonifiedLogin.Name = "StatusPersonifiedLogin"
|
||||
Me.StatusPersonifiedLogin.TextAlignment = System.Drawing.StringAlignment.Near
|
||||
Me.StatusPersonifiedLogin.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
|
||||
'
|
||||
'BarButtonItem13
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem13, "BarButtonItem13")
|
||||
Me.BarButtonItem13.Glyph = CType(resources.GetObject("BarButtonItem13.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItem13.Id = 7
|
||||
Me.BarButtonItem13.ImageOptions.Image = CType(resources.GetObject("BarButtonItem13.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem13.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem13.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonItem13.Name = "BarButtonItem13"
|
||||
Me.BarButtonItem13.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
|
||||
'
|
||||
'BarButtonItemSwitchCon
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItemSwitchCon, "BarButtonItemSwitchCon")
|
||||
Me.BarButtonItemSwitchCon.Glyph = CType(resources.GetObject("BarButtonItemSwitchCon.Glyph"), System.Drawing.Image)
|
||||
Me.BarButtonItemSwitchCon.Id = 8
|
||||
Me.BarButtonItemSwitchCon.LargeGlyph = CType(resources.GetObject("BarButtonItemSwitchCon.LargeGlyph"), System.Drawing.Image)
|
||||
Me.BarButtonItemSwitchCon.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemSwitchCon.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.BarButtonItemSwitchCon.Name = "BarButtonItemSwitchCon"
|
||||
'
|
||||
'LabelConString
|
||||
'
|
||||
resources.ApplyResources(Me.LabelConString, "LabelConString")
|
||||
Me.LabelConString.Glyph = CType(resources.GetObject("LabelConString.Glyph"), System.Drawing.Image)
|
||||
Me.LabelConString.Id = 10
|
||||
Me.LabelConString.ImageOptions.SvgImage = CType(resources.GetObject("LabelConString.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.LabelConString.Name = "LabelConString"
|
||||
Me.LabelConString.TextAlignment = System.Drawing.StringAlignment.Near
|
||||
Me.LabelConString.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
|
||||
'
|
||||
'StatusVersionDB
|
||||
'
|
||||
resources.ApplyResources(Me.StatusVersionDB, "StatusVersionDB")
|
||||
Me.StatusVersionDB.Id = 11
|
||||
Me.StatusVersionDB.Name = "StatusVersionDB"
|
||||
Me.StatusVersionDB.TextAlignment = System.Drawing.StringAlignment.Near
|
||||
'
|
||||
'pageHome
|
||||
'
|
||||
Me.pageHome.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.groupQuickAccessForm, Me.groupSearchAllOver, Me.RibbonPageGroupConnManager})
|
||||
Me.pageHome.Image = Global.DD_Record_Organizer.My.Resources.Resources.HomeHS
|
||||
Me.pageHome.ImageOptions.Image = Global.DD_Record_Organizer.My.Resources.Resources.HomeHS
|
||||
Me.pageHome.Name = "pageHome"
|
||||
resources.ApplyResources(Me.pageHome, "pageHome")
|
||||
'
|
||||
'RibbonPageGroup2
|
||||
'
|
||||
Me.RibbonPageGroup2.AllowTextClipping = False
|
||||
Me.RibbonPageGroup2.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1, True)
|
||||
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
|
||||
Me.RibbonPageGroup2.ShowCaptionButton = False
|
||||
resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
|
||||
'
|
||||
'groupQuickAccessForm
|
||||
@@ -594,10 +596,10 @@ Partial Class frmMain
|
||||
'
|
||||
'groupSearchAllOver
|
||||
'
|
||||
Me.groupSearchAllOver.AllowMinimize = False
|
||||
Me.groupSearchAllOver.AllowTextClipping = False
|
||||
Me.groupSearchAllOver.ItemLinks.Add(Me.btnGlobalSearch)
|
||||
Me.groupSearchAllOver.Name = "groupSearchAllOver"
|
||||
Me.groupSearchAllOver.State = DevExpress.XtraBars.Ribbon.RibbonPageGroupState.Expanded
|
||||
resources.ApplyResources(Me.groupSearchAllOver, "groupSearchAllOver")
|
||||
'
|
||||
'RibbonPageGroupConnManager
|
||||
@@ -610,12 +612,13 @@ Partial Class frmMain
|
||||
'
|
||||
'pageForms
|
||||
'
|
||||
Me.pageForms.Appearance.BackColor = CType(resources.GetObject("pageForms.Appearance.BackColor"), System.Drawing.Color)
|
||||
Me.pageForms.Appearance.BackColor = System.Drawing.Color.Yellow
|
||||
Me.pageForms.Appearance.Options.UseBackColor = True
|
||||
Me.pageForms.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.groupQuickAccessForm2})
|
||||
Me.pageForms.Image = Global.DD_Record_Organizer.My.Resources.Resources.application_form
|
||||
Me.pageForms.ImageOptions.Image = Global.DD_Record_Organizer.My.Resources.Resources.application_form
|
||||
Me.pageForms.Name = "pageForms"
|
||||
resources.ApplyResources(Me.pageForms, "pageForms")
|
||||
Me.pageForms.Visible = False
|
||||
'
|
||||
'groupQuickAccessForm2
|
||||
'
|
||||
@@ -625,7 +628,7 @@ Partial Class frmMain
|
||||
'pageAdmin
|
||||
'
|
||||
Me.pageAdmin.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupProgram, Me.RibbonPageGroupTask, Me.RibbonPageGroupMenue, Me.RibbonPageGroup1})
|
||||
Me.pageAdmin.Image = Global.DD_Record_Organizer.My.Resources.Resources.Property_501
|
||||
Me.pageAdmin.ImageOptions.Image = Global.DD_Record_Organizer.My.Resources.Resources.Property_501
|
||||
Me.pageAdmin.Name = "pageAdmin"
|
||||
resources.ApplyResources(Me.pageAdmin, "pageAdmin")
|
||||
Me.pageAdmin.Visible = False
|
||||
@@ -693,8 +696,8 @@ Partial Class frmMain
|
||||
'BarButtonItem11
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem11, "BarButtonItem11")
|
||||
Me.BarButtonItem11.Glyph = Global.DD_Record_Organizer.My.Resources.Resources._005_Task_32x42_72
|
||||
Me.BarButtonItem11.Id = 14
|
||||
Me.BarButtonItem11.ImageOptions.Image = Global.DD_Record_Organizer.My.Resources.Resources._005_Task_32x42_72
|
||||
Me.BarButtonItem11.Name = "BarButtonItem11"
|
||||
Me.BarButtonItem11.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
@@ -712,7 +715,6 @@ Partial Class frmMain
|
||||
resources.ApplyResources(Me.BarStaticItem1, "BarStaticItem1")
|
||||
Me.BarStaticItem1.Id = 6
|
||||
Me.BarStaticItem1.Name = "BarStaticItem1"
|
||||
Me.BarStaticItem1.TextAlignment = System.Drawing.StringAlignment.Near
|
||||
'
|
||||
'TimerInformation
|
||||
'
|
||||
@@ -731,13 +733,14 @@ Partial Class frmMain
|
||||
'
|
||||
'frmMain
|
||||
'
|
||||
Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color)
|
||||
Me.Appearance.BackColor = System.Drawing.Color.White
|
||||
Me.Appearance.Options.UseBackColor = True
|
||||
Me.Appearance.Options.UseFont = True
|
||||
resources.ApplyResources(Me, "$this")
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.RibbonStatusBar1)
|
||||
Me.Controls.Add(Me.ribbonMain)
|
||||
Me.IconOptions.Icon = CType(resources.GetObject("frmMain.IconOptions.Icon"), System.Drawing.Icon)
|
||||
Me.IsMdiContainer = True
|
||||
Me.KeyPreview = True
|
||||
Me.Name = "frmMain"
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -96,7 +96,7 @@ Public Class frmMain
|
||||
Dim IPs As IPAddress
|
||||
For Each IPs In Addresslist
|
||||
'Aktuelle Machine
|
||||
ClassLogger.Add(">> " & My.Computer.Name & " - IP: " & IPs.ToString, False)
|
||||
LOGGER.Info("" & My.Computer.Name & " - IP: " & IPs.ToString, False)
|
||||
LabelMachine.Caption = My.Computer.Name & " - IP: " & IPs.ToString
|
||||
Next IPs
|
||||
|
||||
@@ -120,7 +120,7 @@ Public Class frmMain
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> FormLoad finished!", False)
|
||||
LOGGER.Debug("FormLoad finished!", False)
|
||||
Proxy_Server_Controls()
|
||||
CONN_Manager
|
||||
|
||||
@@ -148,7 +148,7 @@ Public Class frmMain
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in CONN_Manager:" & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in CONN_Manager:" & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Sub Proxy_Server_Controls()
|
||||
@@ -156,13 +156,13 @@ Public Class frmMain
|
||||
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED = True Then
|
||||
'itemRefreshProxy.Visibility = BarItemVisibility.Always
|
||||
LabelProxyServer.Visibility = BarItemVisibility.Always
|
||||
ClassLogger.Add(">> PROXY-SERVER is being used", False)
|
||||
LOGGER.Info("PROXY-SERVER is being used", False)
|
||||
Else
|
||||
'itemRefreshProxy.Visibility = BarItemVisibility.Never
|
||||
LabelProxyServer.Visibility = BarItemVisibility.Never
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Sub Proxy_Server_Controls():" & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected Error in Sub Proxy_Server_Controls():" & ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -170,7 +170,7 @@ Public Class frmMain
|
||||
Try
|
||||
If TIMER_SCAN.Enabled = False And CURRENT_SCAN_FOLDERWATCH <> "" And FWSCAN_started = True Then
|
||||
If System.IO.Directory.Exists(CURRENT_SCAN_FOLDERWATCH) = False Then
|
||||
ClassLogger.Add(">> SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!", False)
|
||||
LOGGER.Warn("SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!", False)
|
||||
Exit Sub
|
||||
End If
|
||||
TIMER_SCAN.Interval = 30000
|
||||
@@ -310,7 +310,7 @@ Public Class frmMain
|
||||
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2)
|
||||
|
||||
If dt.Rows.Count <> 0 Then
|
||||
|
||||
pageForms.Visible = True
|
||||
For Each row As DataRow In dt.Rows
|
||||
Dim image As Bitmap = Nothing
|
||||
|
||||
@@ -347,6 +347,8 @@ Public Class frmMain
|
||||
groupQuickAccessForm2.ItemLinks.Add(item)
|
||||
|
||||
Next
|
||||
Else
|
||||
pageForms.Visible = False
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
@@ -490,7 +492,7 @@ Public Class frmMain
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Load BackgroundImage: " & ex.Message)
|
||||
LOGGER.Warn("Unexpected Error in Load BackgroundImage: " & ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -572,7 +574,7 @@ Public Class frmMain
|
||||
'Lizenz abgellaufen, überprüfen ob User Admin ist
|
||||
If LICENSE_COUNT < USERS_LOGGED_IN Then
|
||||
If USER_IS_ADMIN = True Then
|
||||
ClassLogger.Add(">> User is Admin - Timer will be started", False)
|
||||
LOGGER.Info("User is Admin - Timer will be started", False)
|
||||
'If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("You now got 3 minutes for creating a new license", MsgBoxStyle.Information)
|
||||
'Else
|
||||
@@ -615,7 +617,7 @@ Public Class frmMain
|
||||
Dim result As MsgBoxResult
|
||||
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
If result = MsgBoxResult.Yes Then
|
||||
Process.Start(ClassLogger.DateiSpeicherort)
|
||||
Process.Start(LOGCONFIG.LogFile)
|
||||
End If
|
||||
Else
|
||||
If ClassUpdate.UPDATE_NECESSARY Then
|
||||
@@ -666,7 +668,7 @@ Public Class frmMain
|
||||
|
||||
'If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
|
||||
' If CURRENT_USER_IS_ADMIN = True Then
|
||||
' ClassLogger.Add(">> User is Admin - Timer will be started", False)
|
||||
' Logger.Info("User is Admin - Timer will be started", False)
|
||||
' If USER_LANGUAGE = "de-DE" Then
|
||||
' MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
|
||||
' Else
|
||||
@@ -1072,7 +1074,7 @@ Public Class frmMain
|
||||
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\A.I.S. GmbH\windream\3.6\ServerShareSelector", "CurrentAlias", oWM_ALIAS)
|
||||
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\A.I.S. GmbH\windream\3.6\ServerShareSelector", "VFSAlias", oWM_ALIAS)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected error in Changing WMAlias: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected error in Changing WMAlias: " & ex.Message)
|
||||
MsgBox("Unexpected error in Changing WMAlias: " & ex.Message, MsgBoxStyle.Critical)
|
||||
Exit Sub
|
||||
End Try
|
||||
@@ -1081,7 +1083,7 @@ Public Class frmMain
|
||||
IndexService.shutdown
|
||||
IndexService.Start
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected error in Restarting IndexService: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected error in Restarting IndexService: " & ex.Message)
|
||||
MsgBox("Unexpected error in Restarting IndexService: " & ex.Message, MsgBoxStyle.Critical)
|
||||
Exit Sub
|
||||
End Try
|
||||
@@ -1090,7 +1092,7 @@ Public Class frmMain
|
||||
ControlCenter.StartVFSService(0)
|
||||
ControlCenter.StartVFSService(1)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected error in Restarting ControlCenter: " & ex.Message, True)
|
||||
LOGGER.Warn("Unexpected error in Restarting ControlCenter: " & ex.Message)
|
||||
MsgBox("Unexpected error in Restarting ControlCenter: " & ex.Message, MsgBoxStyle.Critical)
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
@@ -42,7 +42,7 @@ Public Class frmMass_Change
|
||||
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
If result = MsgBoxResult.Yes Then
|
||||
Cursor = Cursors.WaitCursor
|
||||
ClassLogger.Add(String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text), False)
|
||||
LOGGER.Info(String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text))
|
||||
ClassHelper.InsertEssential_Log(USER_GUID, "User-ID", String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text))
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL WHERE COL_NAME = '{0}' AND FORM_ID = {1}", cmbColumn.Text, CURRENT_ENTITY_ID)
|
||||
@@ -116,17 +116,17 @@ Public Class frmMass_Change
|
||||
SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", val, USER_USERNAME, ex_GUID)
|
||||
If ClassDatabase.Execute_non_Query(SQL, False) = False Then
|
||||
_Error = True
|
||||
ClassLogger.Add(">> Error in updating the value for Record: " & Record, False)
|
||||
LOGGER.Warn("Error in updating the value for Record: " & Record)
|
||||
|
||||
Else
|
||||
Else
|
||||
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)
|
||||
End If
|
||||
Else
|
||||
SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", _CONTROLID, CInt(Record), val, USER_USERNAME)
|
||||
If ClassDatabase.Execute_non_Query(SQL, False) = False Then
|
||||
_Error = True
|
||||
ClassLogger.Add(">> Error in inserting the value for Record: " & Record, False)
|
||||
Else
|
||||
LOGGER.Warn("Error in inserting the value for Record: " & Record)
|
||||
Else
|
||||
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)
|
||||
End If
|
||||
End If
|
||||
@@ -135,13 +135,13 @@ Public Class frmMass_Change
|
||||
i += 1
|
||||
Next
|
||||
SUCCESSFULL = True
|
||||
ClassLogger.Add(String.Format("### MassChange finished successfully! ###"), False)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Getting record to be changed:" & ex.Message)
|
||||
_Error = True
|
||||
LOGGER.Info(String.Format("### MassChange finished successfully! ###"))
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn("Unexpected Error in Getting record to be changed:" & ex.Message)
|
||||
_Error = True
|
||||
End Try
|
||||
Else
|
||||
ClassLogger.Add("No defined Control found!")
|
||||
LOGGER.Warn("No defined Control found!")
|
||||
_Error = True
|
||||
End If
|
||||
|
||||
@@ -162,7 +162,7 @@ Public Class frmMass_Change
|
||||
msg = "All changes were executed!"
|
||||
End If
|
||||
If _Error = True Then
|
||||
ClassLogger.Add(String.Format("### MassChange finished - WITH errors!! ###"))
|
||||
LOGGER.Warn(String.Format("### MassChange finished - WITH errors!! ###"))
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = msg & vbNewLine & "But errors occured while updating values! Check the log"
|
||||
Else
|
||||
|
||||
@@ -395,9 +395,9 @@ Public Class frmRecordView
|
||||
Dim State_DESC = ClassDatabase.Execute_Scalar(sql, True)
|
||||
Dim Comment
|
||||
If COMMENTTextBox.Text <> "" Then
|
||||
Comment = String.Format(COMMENTTextBox.Text & vbNewLine & ">> " & Now.ToString & ": User {0} changed the state to: {1}", Environment.UserName, State_DESC)
|
||||
Comment = String.Format(COMMENTTextBox.Text & vbNewLine & "" & Now.ToString & ": User {0} changed the state to: {1}", Environment.UserName, State_DESC)
|
||||
Else
|
||||
Comment = String.Format(">> " & Now.ToString & ": User {0} Changed the state to: {1}", Environment.UserName, State_DESC)
|
||||
Comment = String.Format("" & Now.ToString & ": User {0} Changed the state to: {1}", Environment.UserName, State_DESC)
|
||||
End If
|
||||
If STATE_id > 0 Then
|
||||
ins = String.Format("INSERT INTO TBPMO_WORKFLOW_TASK_HISTORY (WF_TASK_ID,STATE_ID,STATE_DESC,COMMENT,ADDED_WHO) VALUES" &
|
||||
@@ -587,7 +587,7 @@ Public Class frmRecordView
|
||||
If Not IsNothing(Str) Then
|
||||
Dim DropType = Str.Substring(0, Str.LastIndexOf("@") + 1)
|
||||
If DropType.ToString.Contains("SCAN") = False Then
|
||||
ClassLogger.Add(">> Check_Dropped_Files:" & Str.ToString, False)
|
||||
LOGGER.Info("Check_Dropped_Files:" & Str.ToString)
|
||||
Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1)
|
||||
Dim insert = String.Format("INSERT INTO TBPMO_FILES_USER(FILENAME2WORK, USER_WORK, HANDLE_TYPE) VALUES('{0}','{1}','{2}')", CURRENT_WORKFILE, USER_USERNAME, DropType)
|
||||
If ClassDatabase.Execute_non_Query(insert, True) = False Then
|
||||
@@ -613,7 +613,7 @@ Public Class frmRecordView
|
||||
If CURRENT_TBPMO_FILES_USER.Rows.Count = 1 Then
|
||||
frmWM_IndexFile.ShowDialog()
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> File was deleted or worked meanwhile!")
|
||||
LOGGER.Debug("File was deleted or worked meanwhile!")
|
||||
End If
|
||||
Next
|
||||
RUN_WDSEARCH_GRID()
|
||||
|
||||
2
app/DD-Record-Organizer/frmSAP_FuBa.Designer.vb
generated
2
app/DD-Record-Organizer/frmSAP_FuBa.Designer.vb
generated
@@ -797,7 +797,7 @@ Partial Class frmSAP_FuBa
|
||||
'
|
||||
'btnERPConnect
|
||||
'
|
||||
Me.btnERPConnect.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle))
|
||||
Me.btnERPConnect.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold)
|
||||
Me.btnERPConnect.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_connect
|
||||
Me.btnERPConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnERPConnect.ImeMode = System.Windows.Forms.ImeMode.NoControl
|
||||
|
||||
@@ -63,8 +63,8 @@ Public Class frmSAP_FuBa
|
||||
Me.Cursor = Cursors.Default
|
||||
'Try
|
||||
' Me.Cursor = Cursors.WaitCursor
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add("", False)
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP Connect started:", False)
|
||||
' LOGGER.Debug("")
|
||||
' LOGGER.Debug("SAP Connect started:")
|
||||
' ERPConnect.LIC.SetLic("W86DWC992C")
|
||||
' con.Host = HostTextBox.Text
|
||||
' con.SystemNumber = SystemNumberTextBox.Text
|
||||
@@ -72,10 +72,10 @@ Public Class frmSAP_FuBa
|
||||
' con.Password = PasswordTextBox.Text
|
||||
' con.Client = ClientTextBox.Text
|
||||
' con.Language = LanguageTextBox.Text
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> HOST: " & HostTextBox.Text & " |SystemNumber: " & SystemNumberTextBox.Text & " |UserName: " & UserNameTextBox.Text & " |Password: " & PasswordTextBox.Text & " |Client: " & ClientTextBox.Text & " |Language: " & LanguageTextBox.Text, False)
|
||||
' LOGGER.Debug("HOST: " & HostTextBox.Text & " |SystemNumber: " & SystemNumberTextBox.Text & " |UserName: " & UserNameTextBox.Text & " |Password: " & PasswordTextBox.Text & " |Client: " & ClientTextBox.Text & " |Language: " & LanguageTextBox.Text)
|
||||
' con.Open(False)
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP-Connection erfolgreich aufgebaut!", False)
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add("", False)
|
||||
' LOGGER.Debug("SAP-Connection erfolgreich aufgebaut!")
|
||||
' LOGGER.Debug("")
|
||||
' lblConnectionopen.Visible = True
|
||||
' Me.Cursor = Cursors.Default
|
||||
'Catch ex As Exception
|
||||
@@ -146,7 +146,7 @@ Public Class frmSAP_FuBa
|
||||
lblSave.Visible = False
|
||||
GridControl2.DataSource = Nothing
|
||||
GridView2.Columns.Clear()
|
||||
ClassLogger.Add(">> SAPResulttable is nothing", False)
|
||||
LOGGER.Warn("SAPResulttable is nothing")
|
||||
Exit Sub
|
||||
End If
|
||||
'######
|
||||
@@ -165,12 +165,12 @@ Public Class frmSAP_FuBa
|
||||
Next
|
||||
createtablesql += ")"
|
||||
''Die Tabelle anlegen
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Create Table: " & createtablesql, False)
|
||||
LOGGER.Debug("Create Table: " & createtablesql)
|
||||
If ClassDatabase.Execute_non_Query_withConn(createtablesql, 1) = False Then
|
||||
MsgBox("Error in creating TempTable: Check log", MsgBoxStyle.Critical)
|
||||
Exit Sub
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> table has been created", False)
|
||||
LOGGER.Debug("table has been created")
|
||||
|
||||
Dim alter = String.Format("ALTER TABLE {0} ADD GUID INTEGER NOT NULL IDENTITY(1,1)", tablename)
|
||||
ClassDatabase.Execute_non_Query_withConn(alter, 1)
|
||||
@@ -215,7 +215,7 @@ Public Class frmSAP_FuBa
|
||||
End Using
|
||||
SQLconnect.Close()
|
||||
Me.Cursor = Cursors.Default
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Create table from SAP FuBa was successfull " & SAPResulttable.Rows.Count & " Rows were inserted to table '" & tablename & "'!", False)
|
||||
LOGGER.Debug("Create table from SAP FuBa was successfull " & SAPResulttable.Rows.Count & " Rows were inserted to table '" & tablename & "'!")
|
||||
MsgBox("Create table was successfull! " & vbNewLine & SAPResulttable.Rows.Count & " Rows were inserted to table '" & tablename & "'!", MsgBoxStyle.Information)
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in SQL bulkCopy: " & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -286,7 +286,7 @@ Public Class frmSAP_FuBa
|
||||
GridControl2.DataSource = Nothing
|
||||
GridView2.Columns.Clear()
|
||||
sw.Stop()
|
||||
ClassLogger.Add(">> SAPResulttable is nothing", False)
|
||||
LOGGER.Warn("SAPResulttable is nothing")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
@@ -324,7 +324,7 @@ Public Class frmSAP_FuBa
|
||||
lblSave.Visible = False
|
||||
GridControl2.DataSource = Nothing
|
||||
GridView2.Columns.Clear()
|
||||
ClassLogger.Add(">> Unexpected Error in GridControl2 >> DataTable 2: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in GridControl2 >> DataTable 2: " & ex.Message)
|
||||
MsgBox("Error in GridControl2 >> DataTable: " & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@@ -37,7 +37,7 @@ Public Class frmSQLEditor
|
||||
Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_CONNECTION)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Unexpected Error in Load Connections - errpor: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Unexpected Error in Load Connections - errpor: " & vbNewLine & ex.Message)
|
||||
MsgBox("Unexpected Error in Load Connections: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
@@ -150,7 +150,7 @@ Public Class frmSQLEditor
|
||||
Return dataset
|
||||
Else
|
||||
|
||||
If LogErrorsOnly = True Then ClassLogger.Add(" >> It's an Oracle-Connection (ExecuteWithConnection)", False)
|
||||
LOGGER.Debug("It's an Oracle-Connection (ExecuteWithConnection)")
|
||||
Dim sqlConnection As OracleConnection
|
||||
Dim sqlCommand As OracleCommand
|
||||
Dim sqlAdapter As New OracleDataAdapter
|
||||
@@ -171,7 +171,7 @@ Public Class frmSQLEditor
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Unvorhergesehener Fehler bei TestSQL - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Unvorhergesehener Fehler bei TestSQL - Fehler: " & vbNewLine & ex.Message)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei TestSQL:")
|
||||
Return Nothing
|
||||
End Try
|
||||
@@ -319,7 +319,7 @@ Public Class frmSQLEditor
|
||||
MsgBox("SQL-Befehl erfolgreich gespeichert!", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Unexpected Error in Save SQL-Command for control - error: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Unexpected Error in Save SQL-Command for control - error: " & vbNewLine & ex.Message)
|
||||
MsgBox("Unexpected Error in Save SQL-Command for control - error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
@@ -344,7 +344,7 @@ Public Class frmSQLEditor
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Unexpected Error in Get Connection for Control - error: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Unexpected Error in Get Connection for Control - error: " & vbNewLine & ex.Message)
|
||||
MsgBox("Unexpected Error in Get Connection for Control - error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@@ -47,7 +47,7 @@
|
||||
Me.VWPMO_GUI_ENTITYTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_GUI_ENTITY)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in VWPMO_GUI_ENTITYTableAdapter: " & ex.Message, MsgBoxStyle.Exclamation)
|
||||
ClassLogger.Add(">> Error in VWPMO_GUI_ENTITYTableAdapter: " & ex.Message, False)
|
||||
LOGGER.Warn("Error in VWPMO_GUI_ENTITYTableAdapter: " & ex.Message)
|
||||
End Try
|
||||
Load_TreeView()
|
||||
Me.TBPMO_WORKFLOWTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW, USER_LANGUAGE)
|
||||
@@ -288,7 +288,7 @@
|
||||
If DataGridView1.Item(0, i).Value Is Nothing = False Then
|
||||
Dim i1 = DataGridView1.Item(0, i).Value
|
||||
Dim del = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & i1
|
||||
If ClassDatabase.Execute_non_Query(del, False) Then
|
||||
If ClassDatabase.Execute_non_Query(del) Then
|
||||
Load_ENTITY_States("ENT")
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -132,7 +132,7 @@
|
||||
|
||||
For Each cc In doc.ContentControls
|
||||
If Not IsNothing(cc) Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Office-Pattern: " & cc.Tag, False)
|
||||
LOGGER.Debug("Office-Pattern: " & cc.Tag, False)
|
||||
If Pattern_exists(cc.tag.ToString.ToUpper) = False Then
|
||||
TBPMO_TEMPLATE_PATTERNTableAdapter.cmdInsertBasics(cc.tag.ToString, USER_USERNAME, _TEMPLATE_ENTITY_ID)
|
||||
End If
|
||||
|
||||
28
app/DD-Record-Organizer/frmUserKonfig.Designer.vb
generated
28
app/DD-Record-Organizer/frmUserKonfig.Designer.vb
generated
@@ -825,9 +825,9 @@ Partial Class frmUserKonfig
|
||||
'
|
||||
'GridViewWH_Users1
|
||||
'
|
||||
Me.GridViewWH_Users1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewWH_Users1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridViewWH_Users1.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
|
||||
Me.GridViewWH_Users1.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridViewWH_Users1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewWH_Users1.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridViewWH_Users1.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
|
||||
Me.GridViewWH_Users1.Appearance.FocusedRow.Options.UseBackColor = True
|
||||
Me.GridViewWH_Users1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn3, Me.GridColumn4, Me.GridColumn5, Me.GridColumn6})
|
||||
Me.GridViewWH_Users1.GridControl = Me.GridControlWH_Users1
|
||||
@@ -882,9 +882,9 @@ Partial Class frmUserKonfig
|
||||
'
|
||||
'GridViewlUsers2Group
|
||||
'
|
||||
Me.GridViewlUsers2Group.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewlUsers2Group.Appearance.EvenRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridViewlUsers2Group.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
|
||||
Me.GridViewlUsers2Group.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridViewlUsers2Group.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewlUsers2Group.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridViewlUsers2Group.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
|
||||
Me.GridViewlUsers2Group.Appearance.FocusedRow.Options.UseBackColor = True
|
||||
Me.GridViewlUsers2Group.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.GridColumn1, Me.GridColumn2, Me.colID})
|
||||
Me.GridViewlUsers2Group.GridControl = Me.GridControlUsers2Group
|
||||
@@ -993,9 +993,9 @@ Partial Class frmUserKonfig
|
||||
'
|
||||
'GridView2
|
||||
'
|
||||
Me.GridView2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView2.Appearance.EvenRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
|
||||
Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridView2.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView2.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridView2.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
|
||||
Me.GridView2.Appearance.FocusedRow.Options.UseBackColor = True
|
||||
Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME1})
|
||||
Me.GridView2.GridControl = Me.GridControl2
|
||||
@@ -1187,9 +1187,9 @@ Partial Class frmUserKonfig
|
||||
'
|
||||
'GridViewUsersinClient
|
||||
'
|
||||
Me.GridViewUsersinClient.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewUsersinClient.Appearance.EvenRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridViewUsersinClient.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
|
||||
Me.GridViewUsersinClient.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridViewUsersinClient.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewUsersinClient.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridViewUsersinClient.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
|
||||
Me.GridViewUsersinClient.Appearance.FocusedRow.Options.UseBackColor = True
|
||||
Me.GridViewUsersinClient.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn11, Me.GridColumn12, Me.GridColumn13, Me.GridColumn14})
|
||||
Me.GridViewUsersinClient.GridControl = Me.GridControlUsersinClient
|
||||
@@ -1244,9 +1244,9 @@ Partial Class frmUserKonfig
|
||||
'
|
||||
'GridViewUser2Mandanten
|
||||
'
|
||||
Me.GridViewUser2Mandanten.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewUser2Mandanten.Appearance.EvenRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridViewUser2Mandanten.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
|
||||
Me.GridViewUser2Mandanten.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridViewUser2Mandanten.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewUser2Mandanten.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridViewUser2Mandanten.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
|
||||
Me.GridViewUser2Mandanten.Appearance.FocusedRow.Options.UseBackColor = True
|
||||
Me.GridViewUser2Mandanten.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn7, Me.GridColumn8, Me.GridColumn9, Me.GridColumn10})
|
||||
Me.GridViewUser2Mandanten.GridControl = Me.GridControlUser2Mandanten
|
||||
@@ -1579,9 +1579,9 @@ Partial Class frmUserKonfig
|
||||
'
|
||||
'GridView3
|
||||
'
|
||||
Me.GridView3.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView3.Appearance.EvenRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridView3.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
|
||||
Me.GridView3.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridView3.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView3.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridView3.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
|
||||
Me.GridView3.Appearance.FocusedRow.Options.UseBackColor = True
|
||||
Me.GridView3.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn15, Me.GridColumn16, Me.GridColumn17, Me.GridColumn18})
|
||||
Me.GridView3.GridControl = Me.GridControl3
|
||||
@@ -1679,9 +1679,9 @@ Partial Class frmUserKonfig
|
||||
'
|
||||
'GridViewUser
|
||||
'
|
||||
Me.GridViewUser.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewUser.Appearance.EvenRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridViewUser.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue
|
||||
Me.GridViewUser.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridViewUser.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewUser.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
|
||||
Me.GridViewUser.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia
|
||||
Me.GridViewUser.Appearance.FocusedRow.Options.UseBackColor = True
|
||||
Me.GridViewUser.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colUSERNAME, Me.colNAME, Me.colEMAIL})
|
||||
Me.GridViewUser.GridControl = Me.GridControlUser
|
||||
|
||||
@@ -1184,6 +1184,9 @@
|
||||
<data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorPositionItem.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>Segoe UI, 9pt</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>50, 23</value>
|
||||
</data>
|
||||
@@ -1776,7 +1779,7 @@
|
||||
<value>3, 3, 3, 3</value>
|
||||
</data>
|
||||
<data name="TabPage1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1124, 293</value>
|
||||
<value>1128, 296</value>
|
||||
</data>
|
||||
<data name="TabPage1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
@@ -1811,12 +1814,6 @@
|
||||
<data name="GridControlWH_Users1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>667, 19</value>
|
||||
</data>
|
||||
<data name="GridViewWH_Users1.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>LightBlue</value>
|
||||
</data>
|
||||
<data name="GridViewWH_Users1.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>Fuchsia</value>
|
||||
</data>
|
||||
<data name="GridColumn3.Caption" xml:space="preserve">
|
||||
<value>Selection</value>
|
||||
</data>
|
||||
@@ -1874,12 +1871,6 @@
|
||||
<data name="GridControlUsers2Group.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>229, 19</value>
|
||||
</data>
|
||||
<data name="GridViewlUsers2Group.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>LightBlue</value>
|
||||
</data>
|
||||
<data name="GridViewlUsers2Group.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>Fuchsia</value>
|
||||
</data>
|
||||
<data name="colSelect.Caption" xml:space="preserve">
|
||||
<value>Selection</value>
|
||||
</data>
|
||||
@@ -2140,7 +2131,7 @@ matchen</value>
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="TabControl1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1132, 319</value>
|
||||
<value>1136, 322</value>
|
||||
</data>
|
||||
<data name="TabControl1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>6</value>
|
||||
@@ -2158,7 +2149,7 @@ matchen</value>
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1132, 319</value>
|
||||
<value>1136, 322</value>
|
||||
</data>
|
||||
<data name="XtraTabPage1.Text" xml:space="preserve">
|
||||
<value>User-/Gruppenzuordnung</value>
|
||||
@@ -2187,12 +2178,6 @@ matchen</value>
|
||||
<data name="GridControl2.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>4, 41</value>
|
||||
</data>
|
||||
<data name="GridView2.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>LightBlue</value>
|
||||
</data>
|
||||
<data name="GridView2.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>Fuchsia</value>
|
||||
</data>
|
||||
<data name="colNAME1.Caption" xml:space="preserve">
|
||||
<value>Group Name</value>
|
||||
</data>
|
||||
@@ -2474,6 +2459,9 @@ matchen</value>
|
||||
<data name="ToolStripTextBox1.AutoSize" type="System.Boolean, mscorlib">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="ToolStripTextBox1.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>Segoe UI, 9pt</value>
|
||||
</data>
|
||||
<data name="ToolStripTextBox1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>50, 23</value>
|
||||
</data>
|
||||
@@ -2553,7 +2541,7 @@ matchen</value>
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="BindingNavigator1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1132, 25</value>
|
||||
<value>1136, 25</value>
|
||||
</data>
|
||||
<data name="BindingNavigator1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>1</value>
|
||||
@@ -2574,7 +2562,7 @@ matchen</value>
|
||||
<value>15</value>
|
||||
</data>
|
||||
<data name="TabGruppendefinition.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1132, 319</value>
|
||||
<value>1136, 322</value>
|
||||
</data>
|
||||
<data name="TabGruppendefinition.Text" xml:space="preserve">
|
||||
<value>Gruppendefinition</value>
|
||||
@@ -2603,12 +2591,6 @@ matchen</value>
|
||||
<data name="GridControlUsersinClient.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>631, 17</value>
|
||||
</data>
|
||||
<data name="GridViewUsersinClient.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>LightBlue</value>
|
||||
</data>
|
||||
<data name="GridViewUsersinClient.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>Fuchsia</value>
|
||||
</data>
|
||||
<data name="GridColumn11.Caption" xml:space="preserve">
|
||||
<value>Selection</value>
|
||||
</data>
|
||||
@@ -2666,12 +2648,6 @@ matchen</value>
|
||||
<data name="GridControlUser2Mandanten.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>187, 19</value>
|
||||
</data>
|
||||
<data name="GridViewUser2Mandanten.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>LightBlue</value>
|
||||
</data>
|
||||
<data name="GridViewUser2Mandanten.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>Fuchsia</value>
|
||||
</data>
|
||||
<data name="GridColumn7.Caption" xml:space="preserve">
|
||||
<value>Selection</value>
|
||||
</data>
|
||||
@@ -3029,6 +3005,9 @@ Mandant hinzufügen</value>
|
||||
<data name="ToolStripTextBox3.AutoSize" type="System.Boolean, mscorlib">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="ToolStripTextBox3.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>Segoe UI, 9pt</value>
|
||||
</data>
|
||||
<data name="ToolStripTextBox3.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>50, 23</value>
|
||||
</data>
|
||||
@@ -3402,7 +3381,7 @@ Mandant hinzufügen</value>
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="TabControl3.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1132, 319</value>
|
||||
<value>1136, 322</value>
|
||||
</data>
|
||||
<data name="TabControl3.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>38</value>
|
||||
@@ -3420,7 +3399,7 @@ Mandant hinzufügen</value>
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="XtraTabPage2.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1132, 319</value>
|
||||
<value>1136, 322</value>
|
||||
</data>
|
||||
<data name="XtraTabPage2.Text" xml:space="preserve">
|
||||
<value>Mandantenzuordnung/-definition</value>
|
||||
@@ -3614,12 +3593,6 @@ Mandant hinzufügen</value>
|
||||
<data name="GridControl3.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>11, 29</value>
|
||||
</data>
|
||||
<data name="GridView3.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>LightBlue</value>
|
||||
</data>
|
||||
<data name="GridView3.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>Fuchsia</value>
|
||||
</data>
|
||||
<data name="GridColumn15.Caption" xml:space="preserve">
|
||||
<value>Selection</value>
|
||||
</data>
|
||||
@@ -3669,7 +3642,7 @@ Mandant hinzufügen</value>
|
||||
<value>5</value>
|
||||
</data>
|
||||
<data name="XtraTabPage3.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1132, 319</value>
|
||||
<value>1136, 322</value>
|
||||
</data>
|
||||
<data name="XtraTabPage3.Text" xml:space="preserve">
|
||||
<value>Update Konfiguration User</value>
|
||||
@@ -3830,12 +3803,6 @@ Mandant hinzufügen</value>
|
||||
<data name="GridControlUser.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>765, 39</value>
|
||||
</data>
|
||||
<data name="GridViewUser.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>LightBlue</value>
|
||||
</data>
|
||||
<data name="GridViewUser.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
|
||||
<value>Fuchsia</value>
|
||||
</data>
|
||||
<data name="colUSERNAME.Caption" xml:space="preserve">
|
||||
<value>Username</value>
|
||||
</data>
|
||||
|
||||
@@ -107,7 +107,7 @@ Public Class frmUserKonfig_AddUsers
|
||||
newUserRow.Surname = IIf((IsDBNull(NAME) Or IsNothing(NAME)), "", NAME)
|
||||
newUserRow.Email = IIf((IsDBNull(email) Or IsNothing(email)), "", email)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Read User LDAP-Configurations: " & vbNewLine)
|
||||
LOGGER.Warn("Unexpected Error in Read User LDAP-Configurations: " & vbNewLine)
|
||||
End Try
|
||||
DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
|
||||
Next
|
||||
@@ -164,14 +164,14 @@ Public Class frmUserKonfig_AddUsers
|
||||
_Step = 8
|
||||
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
|
||||
SQL = $"INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID,ADDED_WHO) VALUES
|
||||
((SELECT MAX(GUID) FROM TBDD_USER),(SELECT T.GUID FROM TBDD_MODULES T WHERE T.SHORT_NAME = 'ADDI'),'{Environment.UserName}')"
|
||||
(SELECT MAX(GUID) FROM TBDD_USER),(SELECT T.GUID FROM TBDD_MODULES T WHERE T.SHORT_NAME = 'ADDI'),'{Environment.UserName}')"
|
||||
ClassDatabase.Execute_non_Query(SQL, False)
|
||||
_Step = 9
|
||||
Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_USER")
|
||||
Dim msg = String.Format(">> USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, oUSERNAME)
|
||||
Dim msg = String.Format("USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, oUSERNAME)
|
||||
_Step = 10
|
||||
ClassLogger.Add(msg, False)
|
||||
ClassHelper.InsertEssential_Log(ID, "USER-ID", msg.Replace(">> ", ""))
|
||||
LOGGER.Info(msg)
|
||||
ClassHelper.InsertEssential_Log(ID, "USER-ID", msg.Replace("", ""))
|
||||
usersAdded += 1
|
||||
Else
|
||||
MsgBox("Unexpected Error In Adding User (" & oUSERNAME & ") : " & "Check the log!", MsgBoxStyle.Exclamation)
|
||||
@@ -180,7 +180,7 @@ Public Class frmUserKonfig_AddUsers
|
||||
_Step = 11
|
||||
SQL = $"IF NOT EXISTS(SELECT T.GUID FROM TBDD_USER_MODULES T INNER JOIN TBDD_USER T1 ON T.USER_ID = T1.GUID INNER JOIN TBDD_MODULES T2 ON T.MODULE_ID = T2.GUID WHERE T2.SHORT_NAME = 'ADDI' AND T1.USERNAME = '{oUSERNAME}')
|
||||
INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID,ADDED_WHO) VALUES
|
||||
((SELECT GUID FROM TBDD_USER WHERE USERNAME = '{oUSERNAME}'),(SELECT T.GUID FROM TBDD_MODULES T WHERE T.SHORT_NAME = 'ADDI'),'{Environment.UserName}')"
|
||||
(SELECT GUID FROM TBDD_USER WHERE USERNAME = '{oUSERNAME}'),(SELECT T.GUID FROM TBDD_MODULES T WHERE T.SHORT_NAME = 'ADDI'),'{Environment.UserName}')"
|
||||
_Step = 12
|
||||
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
|
||||
usersRefreshed += 1
|
||||
|
||||
12
app/DD-Record-Organizer/frmViewsUser.Designer.vb
generated
12
app/DD-Record-Organizer/frmViewsUser.Designer.vb
generated
@@ -69,7 +69,7 @@ Partial Class frmViewsUser
|
||||
Me.GridControl1.MainView = Me.GridView1
|
||||
Me.GridControl1.Name = "GridControl1"
|
||||
Me.GridControl1.ShowOnlyPredefinedDetails = True
|
||||
Me.GridControl1.Size = New System.Drawing.Size(354, 283)
|
||||
Me.GridControl1.Size = New System.Drawing.Size(364, 305)
|
||||
Me.GridControl1.TabIndex = 91
|
||||
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
|
||||
'
|
||||
@@ -150,7 +150,7 @@ Partial Class frmViewsUser
|
||||
Me.GridControlUsers2Menue.MainView = Me.GridViewlUsers2Menue
|
||||
Me.GridControlUsers2Menue.Name = "GridControlUsers2Menue"
|
||||
Me.GridControlUsers2Menue.ShowOnlyPredefinedDetails = True
|
||||
Me.GridControlUsers2Menue.Size = New System.Drawing.Size(378, 283)
|
||||
Me.GridControlUsers2Menue.Size = New System.Drawing.Size(378, 305)
|
||||
Me.GridControlUsers2Menue.TabIndex = 90
|
||||
Me.GridControlUsers2Menue.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewlUsers2Menue})
|
||||
'
|
||||
@@ -224,7 +224,7 @@ Partial Class frmViewsUser
|
||||
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.XtraTabControl1.Name = "XtraTabControl1"
|
||||
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
|
||||
Me.XtraTabControl1.Size = New System.Drawing.Size(868, 382)
|
||||
Me.XtraTabControl1.Size = New System.Drawing.Size(878, 404)
|
||||
Me.XtraTabControl1.TabIndex = 92
|
||||
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1})
|
||||
'
|
||||
@@ -237,7 +237,7 @@ Partial Class frmViewsUser
|
||||
Me.XtraTabPage1.Controls.Add(Me.Label1)
|
||||
Me.XtraTabPage1.Controls.Add(Me.GridControlUsers2Menue)
|
||||
Me.XtraTabPage1.Name = "XtraTabPage1"
|
||||
Me.XtraTabPage1.Size = New System.Drawing.Size(866, 357)
|
||||
Me.XtraTabPage1.Size = New System.Drawing.Size(876, 379)
|
||||
Me.XtraTabPage1.Text = "Globale Suche"
|
||||
'
|
||||
'btndeleteUserConstructorRel
|
||||
@@ -282,14 +282,14 @@ Partial Class frmViewsUser
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(347, 26)
|
||||
Me.Label1.TabIndex = 91
|
||||
Me.Label1.Text = "Konfigurieren Sie hier welche User Zugriff auf die globale Suche haben!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Achtung:" & _
|
||||
Me.Label1.Text = "Konfigurieren Sie hier welche User Zugriff auf die globale Suche haben!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Achtung:" &
|
||||
" in dieser Suche werden alle Datensätze angezeigt!!"
|
||||
'
|
||||
'frmViewsUser
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(868, 382)
|
||||
Me.ClientSize = New System.Drawing.Size(878, 404)
|
||||
Me.Controls.Add(Me.XtraTabControl1)
|
||||
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
|
||||
@@ -136,7 +136,7 @@ Public Class frmWM_ChangeDoctype
|
||||
AddDateTimePicker(DR.Item("GUID"), DR.Item("NAME"), y)
|
||||
Case Else
|
||||
MsgBox($"Please check the datatype of manual index ({ DR.Item("NAME")} - {type} - Refresh_Indices_Manual", MsgBoxStyle.Critical, "Achtung:")
|
||||
ClassLogger.Add(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
|
||||
LOGGER.Warn(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
|
||||
End Select
|
||||
|
||||
anz += 1
|
||||
@@ -377,7 +377,7 @@ Public Class frmWM_ChangeDoctype
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Renew_ComboboxResults:")
|
||||
End Try
|
||||
End Sub
|
||||
@@ -415,7 +415,7 @@ Public Class frmWM_ChangeDoctype
|
||||
End If
|
||||
Else
|
||||
runinLZ = True
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
|
||||
LOGGER.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
|
||||
End If
|
||||
|
||||
|
||||
@@ -486,7 +486,7 @@ Public Class frmWM_ChangeDoctype
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@@ -85,11 +85,11 @@ Public Class frmWM_DoctypeConfig
|
||||
Sub Refresh_Dokart(All As Boolean)
|
||||
Try
|
||||
If All = False Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Dokumentarten für RecordOrganizer werden geladen", False)
|
||||
LOGGER.Debug("Dokumentarten für RecordOrganizer werden geladen", False)
|
||||
Me.TBDD_DOKUMENTARTTableAdapter.FillByPMO(Me.DD_DMSDataSet.TBDD_DOKUMENTART, USER_LANGUAGE)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Dokumentarten: " & DD_DMSDataSet.TBDD_DOKUMENTART.Rows.Count, False)
|
||||
LOGGER.Debug("Anzahl Dokumentarten: " & DD_DMSDataSet.TBDD_DOKUMENTART.Rows.Count, False)
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Alle Dokumentarten werden geladen", False)
|
||||
LOGGER.Debug("Alle Dokumentarten werden geladen", False)
|
||||
Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_DOKUMENTART, USER_LANGUAGE)
|
||||
End If
|
||||
|
||||
|
||||
@@ -152,28 +152,28 @@ Public Class frmWM_EntityImport
|
||||
If dt.Rows.Count = 1 Then
|
||||
Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
|
||||
Dim idxvalue = CURRENT_ENTITY_ID
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & idxvalue.ToString, False)
|
||||
LOGGER.Debug("Entity-ID: " & idxvalue.ToString, False)
|
||||
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
|
||||
If indexierung_erfolgreich = False Then
|
||||
MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical)
|
||||
End If
|
||||
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
|
||||
idxvalue = CURRENT_PARENT_ENTITY_ID
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False)
|
||||
LOGGER.Debug("Parent-ID: " & idxvalue.ToString, False)
|
||||
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
|
||||
If indexierung_erfolgreich = False Then MsgBox("Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical)
|
||||
'###
|
||||
'den Record-Key auslesen
|
||||
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
|
||||
idxvalue = CURRENT_RECORD_ID
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Record-ID: " & idxvalue.ToString, False)
|
||||
LOGGER.Debug("Record-ID: " & idxvalue.ToString, False)
|
||||
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
|
||||
If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Record-ID - See log", MsgBoxStyle.Critical)
|
||||
|
||||
'den Doctype-Key auslesen
|
||||
indexname = dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString
|
||||
idxvalue = CURRENT_DOKARTSTRING
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Doctype: " & idxvalue.ToString, False)
|
||||
LOGGER.Debug("Doctype: " & idxvalue.ToString, False)
|
||||
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
|
||||
If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Doctype - See log", MsgBoxStyle.Critical)
|
||||
'####
|
||||
|
||||
@@ -136,7 +136,7 @@ Public Class frmWM_Import_Doc_Record
|
||||
PROFILE_SQL_PARENT = DT.Rows(0).Item("SQL_PARENT_RECORD")
|
||||
PROFILE_ONLY_RECORD = DT.Rows(0).Item("ONLY_RECORD_CREATING")
|
||||
If PROFILE_ONLY_RECORD = True Then
|
||||
ClassLogger.Add(">> Only Records shall be created", False)
|
||||
LOGGER.Info("Only Records shall be created")
|
||||
End If
|
||||
PROFILE_NEW_OT = DT.Rows(0).Item("NEW_OBJECTTYPE")
|
||||
Catch ex As Exception
|
||||
@@ -166,10 +166,10 @@ Public Class frmWM_Import_Doc_Record
|
||||
End If
|
||||
'nur weiter machen wenn kein BackgroundWorker mehr läuft
|
||||
If Not Me.bwsearch.IsBusy Then
|
||||
ClassLogger.Add("======================================================================", False)
|
||||
ClassLogger.Add("Import RecordFiles started ", False)
|
||||
ClassLogger.Add(Now, False)
|
||||
ClassLogger.Add("======================================================================", False)
|
||||
LOGGER.Info("======================================================================")
|
||||
LOGGER.Info("Import RecordFiles started ")
|
||||
LOGGER.Info(Now)
|
||||
LOGGER.Info("======================================================================")
|
||||
Me.lblStatusThread.Text = "Status: Import läuft"
|
||||
|
||||
bwsearch.RunWorkerAsync()
|
||||
@@ -196,14 +196,14 @@ Public Class frmWM_Import_Doc_Record
|
||||
End If
|
||||
Else
|
||||
If Me.bwsearch.IsBusy Then
|
||||
ClassLogger.Add(">> Attention: Thread Search still working - Threads will be aborted.", False)
|
||||
LOGGER.Info("Attention: Thread Search still working - Threads will be aborted.")
|
||||
Me.bwsearch.CancelAsync()
|
||||
MsgBox("Threads were cancelled!", MsgBoxStyle.Information)
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpexted error in Start_Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Unexpexted error in Start_Profile: " & ex.Message, True)
|
||||
LOGGER.Info("Unexpexted error in Start_Profile: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Sub Work_Search()
|
||||
@@ -211,24 +211,24 @@ Public Class frmWM_Import_Doc_Record
|
||||
RUN_SEARCH()
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpexted error in Start_Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Unexpexted error in Start_Search: " & ex.Message, True)
|
||||
LOGGER.Info("Unexpexted error in Start_Search: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Sub RUN_SEARCH()
|
||||
Try
|
||||
windreamSucheErgebnisse = clsWD_GET.GetSearchDocuments(PROFILE_WD_SEARCH)
|
||||
ClassLogger.Add(">> Files Result: " & windreamSucheErgebnisse.Count, False)
|
||||
LOGGER.Info("Files Result: " & windreamSucheErgebnisse.Count)
|
||||
Search_Completed = True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in RUN_SEARCH - Error: " & ex.Message)
|
||||
LOGGER.Info("Error in RUN_SEARCH - Error: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub bwsearch_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
|
||||
|
||||
'Dim minutes = CInt(System.DateTime.Now.Subtract(CURRENT_START_DATETIME).Minutes)
|
||||
'If minutes >= 1 Then
|
||||
' Logger(" >> Suchdauer >= 1 Minute aber letzendlich ausgeführt (" & Now & ")", True)
|
||||
'End If
|
||||
'If minutes >= 1 Then
|
||||
' Logger("Suchdauer >= 1 Minute aber letzendlich ausgeführt (" & Now & ")")
|
||||
'End If
|
||||
|
||||
End Sub
|
||||
Sub Work_Files()
|
||||
@@ -244,21 +244,21 @@ Public Class frmWM_Import_Doc_Record
|
||||
Dim filename = "W:" & aktivesDokument.aPath
|
||||
Dim DOK_FOLDER As String = IO.Path.GetDirectoryName(filename)
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Working on file '" & IO.Path.GetFileName(filename) & "'", False)
|
||||
LOGGER.Debug("Working on file '" & IO.Path.GetFileName(filename) & "'")
|
||||
If Folder <> DOK_FOLDER Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Folderpath '" & DOK_FOLDER & "'", False)
|
||||
LOGGER.Debug("Folderpath '" & DOK_FOLDER & "'")
|
||||
Folder = DOK_FOLDER
|
||||
End If
|
||||
|
||||
If Create_Record() = True Then
|
||||
If PROFILE_SQL_PARENT <> "" Then
|
||||
If Create_Parent_Record() = False Then
|
||||
ClassLogger.Add(">> Create Parent-Record not successful!", False)
|
||||
LOGGER.Warn("Create Parent-Record not successful!")
|
||||
End If
|
||||
End If
|
||||
If PROFILE_ONLY_RECORD = False Then 'Es sollen auch Dateien importiert werden
|
||||
If Import_File() = False Then
|
||||
ClassLogger.Add(">> No import of file! Exit For each!", False)
|
||||
LOGGER.Warn("No import of file! Exit For each!")
|
||||
Continue For
|
||||
End If
|
||||
End If
|
||||
@@ -268,19 +268,19 @@ Public Class frmWM_Import_Doc_Record
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
If DT Is Nothing = False Then 'CHECK DD
|
||||
If DT.Rows.Count >= 0 Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> " & DT.Rows.Count & " Control-Index-Rows", False)
|
||||
LOGGER.Debug("" & DT.Rows.Count & " Control-Index-Rows")
|
||||
Dim err As Boolean = False
|
||||
For Each row As DataRow In DT.Rows
|
||||
'Den Wert aus dem Index des Dokuments auslesen und in den ControlValue schreiben
|
||||
Dim idxvalue
|
||||
Dim indexname_old = row.Item("STRING2").ToString
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Read Value 2 for windream-index: '" & indexname_old & "'", False)
|
||||
LOGGER.Debug("Read Value 2 for windream-index: '" & indexname_old & "'")
|
||||
Try
|
||||
idxvalue = aktivesDokument.GetVariableValue(indexname_old)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> idxvalue from windream: '" & idxvalue.ToString & "'", False)
|
||||
LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'")
|
||||
Catch ex As Exception
|
||||
err = True
|
||||
ClassLogger.Add(">> Error Reading Value 2 for windream-index '" & indexname_old & "' - Error: " & ex.Message, False)
|
||||
LOGGER.Warn("Error Reading Value 2 for windream-index '" & indexname_old & "' - Error: " & ex.Message)
|
||||
Continue For
|
||||
End Try
|
||||
|
||||
@@ -293,17 +293,17 @@ Public Class frmWM_Import_Doc_Record
|
||||
'ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String
|
||||
Next
|
||||
Else
|
||||
ClassLogger.Add(">>There are no control-index relations defined!", False)
|
||||
LOGGER.Info(">>There are no control-index relations defined!")
|
||||
End If
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> No control-values configured!", False)
|
||||
LOGGER.Debug("No control-values configured!")
|
||||
End If
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> REC_EXISTS = True - no control values to be set!", False)
|
||||
LOGGER.Debug("REC_EXISTS = True - no control values to be set!")
|
||||
End If
|
||||
|
||||
Else
|
||||
ClassLogger.Add(">> Create Record not successful!", False)
|
||||
LOGGER.Warn("Create Record not successful!")
|
||||
End If
|
||||
|
||||
'
|
||||
@@ -334,19 +334,19 @@ Public Class frmWM_Import_Doc_Record
|
||||
Dim elementohneSZ = element.Value.Replace("[%", "")
|
||||
elementohneSZ = elementohneSZ.Replace("]", "")
|
||||
' für den Platzhalter den WErt aus windream auslesen
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Read value for windream-index: '" & elementohneSZ & "'", False)
|
||||
LOGGER.Debug("Read value for windream-index: '" & elementohneSZ & "'")
|
||||
Dim idxvalue
|
||||
Try
|
||||
idxvalue = aktivesDokument.GetVariableValue(elementohneSZ)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> idxvalue from windream: '" & idxvalue.ToString & "'", False)
|
||||
LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'")
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Regex Doctype SQL: Error reading Value for windream-index '" & elementohneSZ & "' - Error: " & ex.Message, False)
|
||||
LOGGER.Warn("Regex Doctype SQL: Error reading Value for windream-index '" & elementohneSZ & "' - Error: " & ex.Message)
|
||||
Continue For
|
||||
End Try
|
||||
' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
|
||||
SQL_FILE_DOCTYPE = SQL_FILE_DOCTYPE.Replace(element.Value, idxvalue.ToString)
|
||||
Next
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Executing Doctype SQL: " & SQL_FILE_DOCTYPE, False)
|
||||
LOGGER.Debug("Executing Doctype SQL: " & SQL_FILE_DOCTYPE)
|
||||
Dim DokTYPE_ID = ClassDatabase.Execute_Scalar(SQL_FILE_DOCTYPE)
|
||||
'#####
|
||||
|
||||
@@ -428,31 +428,31 @@ Public Class frmWM_Import_Doc_Record
|
||||
Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_RECORD_ID' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
|
||||
RecordIndex = ClassDatabase.Execute_Scalar(Sql)
|
||||
If clsWD_SET.IndexFile(CURRENT_FILEIN_WD, RecordIndex, IMPORT_REC_ID, DT.Rows(0).Item(1)) Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Record Index was written", False)
|
||||
LOGGER.Debug("Record Index was written")
|
||||
End If
|
||||
End If
|
||||
|
||||
If PROFILE_IDX_WORKED <> "" Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Setting the Exported to ADDI-Flag - windream-index '" & PROFILE_IDX_WORKED & "'", False)
|
||||
LOGGER.Debug("Setting the Exported to ADDI-Flag - windream-index '" & PROFILE_IDX_WORKED & "'")
|
||||
clsWD_SET.File_SetBooleanIndex(True, aktivesDokument, PROFILE_IDX_WORKED, False)
|
||||
End If
|
||||
_Filesimported += 1
|
||||
Return True
|
||||
Else
|
||||
ClassLogger.Add(">> File was not imported!", False)
|
||||
LOGGER.Warn("File was not imported!")
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(">> No doctype-ID found", False)
|
||||
ClassLogger.Add(">> SQL: " & SQL_FILE_DOCTYPE, False)
|
||||
LOGGER.Warn("No doctype-ID found")
|
||||
LOGGER.Warn("SQL: " & SQL_FILE_DOCTYPE)
|
||||
If REC_ADDED = True Then
|
||||
ClassHelper.DeleteRecord(IMPORT_REC_ID)
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Import/IndexFile: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in Import/IndexFile: " & ex.Message)
|
||||
MsgBox("Unexpected Error in Import/IndexFile: " & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
@@ -476,23 +476,23 @@ Public Class frmWM_Import_Doc_Record
|
||||
Dim elementohneSZ = element.Value.Replace("[%", "")
|
||||
elementohneSZ = elementohneSZ.Replace("]", "")
|
||||
' für den Platzhalter den WErt aus windream auslesen
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Read value 1 for windream-index: '" & elementohneSZ & "'", False)
|
||||
LOGGER.Debug("Read value 1 for windream-index: '" & elementohneSZ & "'")
|
||||
Dim idxvalue
|
||||
Try
|
||||
idxvalue = aktivesDokument.GetVariableValue(elementohneSZ)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> idxvalue from windream: '" & idxvalue.ToString & "'", False)
|
||||
LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'")
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Regex Unique SQL: Error reading Value 1 for windream-index '" & elementohneSZ & "' - Error: " & ex.Message, False)
|
||||
LOGGER.Warn("Regex Unique SQL: Error reading Value 1 for windream-index '" & elementohneSZ & "' - Error: " & ex.Message)
|
||||
Continue For
|
||||
End Try
|
||||
' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
|
||||
SQL_UNIQUE_FILE = SQL_UNIQUE_FILE.Replace(element.Value, idxvalue.ToString)
|
||||
Next
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Executing Unique SQL: " & SQL_UNIQUE_FILE, False)
|
||||
LOGGER.Debug("Executing Unique SQL: " & SQL_UNIQUE_FILE)
|
||||
IMPORT_REC_ID = ClassDatabase.Execute_Scalar(SQL_UNIQUE_FILE)
|
||||
End If
|
||||
If IMPORT_REC_ID = Nothing Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Record is new!", False)
|
||||
LOGGER.Debug("Record is new!")
|
||||
'Den Record inserten
|
||||
|
||||
Dim recordId = ClassRecordCommands.CreateRecordProcedure(PROFILE_ENTITY)
|
||||
@@ -500,19 +500,18 @@ Public Class frmWM_Import_Doc_Record
|
||||
If recordId > 0 Then
|
||||
IMPORT_REC_ID = recordId
|
||||
REC_ADDED = True
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> New Record-ID: " & IMPORT_REC_ID.ToString, False)
|
||||
LOGGER.Debug("New Record-ID: " & IMPORT_REC_ID.ToString)
|
||||
_RecordsAdded += 1
|
||||
Else
|
||||
Throw New Exception("Could not create Record")
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(">> ## RECORD already exists - Record-ID: '" & IMPORT_REC_ID.ToString & "' ##", False)
|
||||
If LogErrorsOnly = True Then ClassLogger.Add(">> Unique SQL: " & SQL_UNIQUE_FILE, False)
|
||||
LOGGER.Warn("## RECORD already exists - Record-ID: '" & IMPORT_REC_ID.ToString & "' ##")
|
||||
IMP_REC_EXISTS = True
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Create-Record: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in Create-Record: " & ex.Message)
|
||||
MsgBox("Unexpected Error in Create-Record: " & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
@@ -533,36 +532,36 @@ Public Class frmWM_Import_Doc_Record
|
||||
Dim elementohneSZ = element.Value.Replace("[%", "")
|
||||
elementohneSZ = elementohneSZ.Replace("]", "")
|
||||
' für den Platzhalter den WErt aus windream auslesen
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Read parent value for windream-index: '" & elementohneSZ & "'", False)
|
||||
LOGGER.Debug("Read parent value for windream-index: '" & elementohneSZ & "'")
|
||||
Dim idxvalue
|
||||
Try
|
||||
idxvalue = aktivesDokument.GetVariableValue(elementohneSZ)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> parent idxvalue from windream: '" & idxvalue.ToString & "'", False)
|
||||
LOGGER.Debug("parent idxvalue from windream: '" & idxvalue.ToString & "'")
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Regex Unique SQL: Error reading parent Value for windream-index '" & elementohneSZ & "' - Error: " & ex.Message, False)
|
||||
LOGGER.Warn("Regex Unique SQL: Error reading parent Value for windream-index '" & elementohneSZ & "' - Error: " & ex.Message)
|
||||
Continue For
|
||||
End Try
|
||||
' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
|
||||
SQL_PARENT = SQL_PARENT.Replace(element.Value, idxvalue.ToString)
|
||||
Next
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Executing parent SQL: " & SQL_PARENT, False)
|
||||
LOGGER.Debug("Executing parent SQL: " & SQL_PARENT)
|
||||
IMP_PARENT_REC_ID = ClassDatabase.Execute_Scalar(SQL_PARENT)
|
||||
If IMP_PARENT_REC_ID = Nothing Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> No PARENT_RECORD found!", False)
|
||||
LOGGER.Debug("No PARENT_RECORD found!")
|
||||
'Den Record inserten
|
||||
|
||||
Dim recordId = ClassRecordCommands.CreateRecordProcedure(PROFILE_ENTITY)
|
||||
|
||||
If recordId > 0 Then
|
||||
IMP_PARENT_REC_ID = recordId
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> New PARENT_RECORD-ID: " & IMP_PARENT_REC_ID.ToString, False)
|
||||
LOGGER.Debug("New PARENT_RECORD-ID: " & IMP_PARENT_REC_ID.ToString)
|
||||
_RecordsAdded += 1
|
||||
Else
|
||||
Throw New Exception("Could not create Record. Check PRPMO_CREATE_RECORD Procedure.")
|
||||
End If
|
||||
Else
|
||||
ClassLogger.Add(">> ## PARENT_RECORD already exists - PARENT_RECORD-ID: '" & IMP_PARENT_REC_ID.ToString & "' ##", False)
|
||||
If LogErrorsOnly = True Then ClassLogger.Add(">> parent SQL: " & SQL_PARENT, False)
|
||||
LOGGER.Warn("## PARENT_RECORD already exists - PARENT_RECORD-ID: '" & IMP_PARENT_REC_ID.ToString & "' ##")
|
||||
LOGGER.Debug(" parent SQL: " & SQL_PARENT)
|
||||
End If
|
||||
Dim sql = String.Format("SELECT GUID FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = {0} AND RECORD2_ID = {1}", IMP_PARENT_REC_ID, IMPORT_REC_ID)
|
||||
Dim result = ClassDatabase.Execute_Scalar(sql)
|
||||
@@ -571,7 +570,7 @@ Public Class frmWM_Import_Doc_Record
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(">> Unexpected Error in Create-Parent-Record: " & ex.Message, False)
|
||||
LOGGER.Warn("Unexpected Error in Create-Parent-Record: " & ex.Message)
|
||||
MsgBox("Unexpected Error in Create-Parent-Record: " & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
@@ -26,7 +26,7 @@ Public Class frmWM_IndexFile
|
||||
stopwatch.Stop()
|
||||
Dim message = String.Format("{0, 5}ms || {1}", stopwatch.ElapsedMilliseconds, label)
|
||||
Console.WriteLine(message)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(message, False)
|
||||
LOGGER.Debug(message, False)
|
||||
Return stopwatch.ElapsedMilliseconds
|
||||
End Function
|
||||
|
||||
@@ -115,7 +115,7 @@ Public Class frmWM_IndexFile
|
||||
Dim indexname
|
||||
''den Record_Key auslesen
|
||||
'Dim indexname = DT.Rows(0).Item("IDXNAME_RECORDID").ToString
|
||||
'If LogErrorsOnly = False Then ClassLogger.Add(" >> Record-ID: " & CURRENT_RECORD_ID.ToString, False)
|
||||
'LOGGER.Debug("Record-ID: " & CURRENT_RECORD_ID.ToString, False)
|
||||
'indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, CURRENT_RECORD_ID, clsWindream.MY_WDOBJECTTYPE)
|
||||
'If indexierung_erfolgreich = False Then
|
||||
' err = True
|
||||
@@ -125,7 +125,7 @@ Public Class frmWM_IndexFile
|
||||
'End If
|
||||
'den Entity-Key auslesen
|
||||
'indexname = DT.Rows(0).Item("IDXNAME_ENTITYID").ToString
|
||||
'If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & CURRENT_ENTITY_ID.ToString, False)
|
||||
'LOGGER.Debug("Entity-ID: " & CURRENT_ENTITY_ID.ToString, False)
|
||||
'indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, CURRENT_ENTITY_ID, clsWindream.MY_WDOBJECTTYPE)
|
||||
'If indexierung_erfolgreich = False Then
|
||||
' err = True
|
||||
@@ -138,7 +138,7 @@ Public Class frmWM_IndexFile
|
||||
'End If
|
||||
'den Doctype auslesen
|
||||
indexname = DTTBPMO_WD_OBJECTTYPE.Rows(0).Item("IDXNAME_DOCTYPE").ToString
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Doctype: " & vDokart.ToString, False)
|
||||
LOGGER.Debug("Doctype: " & vDokart.ToString, False)
|
||||
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, vDokart, clsWindream.MY_WDOBJECTTYPE)
|
||||
If indexierung_erfolgreich = False Then
|
||||
err = True
|
||||
@@ -185,27 +185,27 @@ Public Class frmWM_IndexFile
|
||||
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
|
||||
For Each element As System.Text.RegularExpressions.Match In elemente
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> element in RegeX: " & element.Value, False)
|
||||
LOGGER.Debug("element in RegeX: " & element.Value, False)
|
||||
Select Case element.Value.Substring(2, 1).ToUpper
|
||||
'Nur automatische Indizes auswerten
|
||||
Case "A"
|
||||
Dim APattern = element.Value.Substring(3, element.Value.Length - 4)
|
||||
If APattern.Contains("#") Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> element filled with Record-Data.......: ", False)
|
||||
LOGGER.Debug("element filled with Record-Data.......: ", False)
|
||||
Dim split() As String = APattern.Split("#")
|
||||
If split.Length = 2 Then
|
||||
Dim CONTROL_ID = split(1)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> CONTROL_ID: " & CONTROL_ID, False)
|
||||
LOGGER.Debug("CONTROL_ID: " & CONTROL_ID, False)
|
||||
If IsNumeric(CONTROL_ID) Then
|
||||
Dim CONTROLVALUE = ClassControlValues.Get_Control_Value_for_ID(CONTROL_ID, CURRENT_RECORD_ID)
|
||||
If IsNothing(CONTROLVALUE) Then
|
||||
ClassLogger.Add(">> Index should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.", False)
|
||||
ClassLogger.Add(">> SQL-Command: " & CURRENT_LAST_SQL)
|
||||
LOGGER.Warn("Index should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.", False)
|
||||
LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
|
||||
idxvalue = ""
|
||||
Else
|
||||
If IsDBNull(CONTROLVALUE) Then
|
||||
ClassLogger.Add(">> Index should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.", False)
|
||||
ClassLogger.Add(">> SQL-Command: " & CURRENT_LAST_SQL)
|
||||
LOGGER.Warn("Index should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.", False)
|
||||
LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
|
||||
idxvalue = ""
|
||||
Else
|
||||
idxvalue = CONTROLVALUE
|
||||
@@ -220,7 +220,7 @@ Public Class frmWM_IndexFile
|
||||
|
||||
Next
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value for Indexing : '" & idxvalue.ToString & "'", False)
|
||||
LOGGER.Debug("Value for Indexing : '" & idxvalue.ToString & "'", False)
|
||||
Count += 1
|
||||
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
|
||||
If indexierung_erfolgreich = False Then
|
||||
@@ -248,7 +248,7 @@ Public Class frmWM_IndexFile
|
||||
'Nun alles aufrüumen und die neue DocID holen
|
||||
|
||||
If indexierung_erfolgreich = True Then
|
||||
ClassLogger.Add(">> File was correctly imported and indexed: " & CURRENT_FILEIN_WD, False)
|
||||
LOGGER.Info("File was correctly imported and indexed: " & CURRENT_FILEIN_WD, False)
|
||||
Dim stg As String = "Datei erfolgreich nach windream übertragen"
|
||||
Dim stg1 As String = "Erfolgsmeldung"
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
@@ -275,7 +275,7 @@ Public Class frmWM_IndexFile
|
||||
|
||||
If Not IsNothing(CURRENT_DOC_ID) Then
|
||||
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC_ID", "File was imported and indexed!")
|
||||
ClassLogger.Add(String.Format(">> File-Import was finished - DocID: {0} ", CURRENT_DOC_ID), False)
|
||||
LOGGER.Info(String.Format("File-Import was finished - DocID: {0} ", CURRENT_DOC_ID), False)
|
||||
Dim delete = False
|
||||
'Die Originaldatei löschen
|
||||
If droptype = "dragdrop file" And indexierung_erfolgreich = True Then
|
||||
@@ -332,7 +332,7 @@ Public Class frmWM_IndexFile
|
||||
stg = "Unexpected Error: Could not get a docId for transmitted file!"
|
||||
|
||||
End If
|
||||
ClassLogger.Add(stg, True)
|
||||
LOGGER.Warn(stg)
|
||||
MsgBox(stg, MsgBoxStyle.Critical, stg1)
|
||||
End If
|
||||
Else
|
||||
@@ -362,7 +362,7 @@ Public Class frmWM_IndexFile
|
||||
' ' MsgBox(DT.Rows.Count.ToString)
|
||||
' For Each DR_AUTOINDEX As DataRow In DD_DMSDataSet.VWDDINDEX_AUTOM.Rows
|
||||
' Dim indexname As String = DR_AUTOINDEX.Item("INDEXNAME")
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Build Automatischer Index '" & indexname & "'", False)
|
||||
' LOGGER.Debug("Build Automatischer Index '" & indexname & "'", False)
|
||||
' If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty And CBool(DR_AUTOINDEX.Item("SQL_ACTIVE")) = True Then
|
||||
' ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
|
||||
' Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
|
||||
@@ -375,32 +375,32 @@ Public Class frmWM_IndexFile
|
||||
' ' alle Vorkommen der Indexe im SQL-String durchlaufen
|
||||
' For Each element As System.Text.RegularExpressions.Match In elemente
|
||||
' ' MsgBox(element.Value.ToUpper)
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Element: '" & element.Value & "'", False)
|
||||
' LOGGER.Debug("Element: '" & element.Value & "'", False)
|
||||
' '' wenn es sich nicht um dedizeirte Werte handelt (es sollen ja nur die Indexe ausgelesen werden)
|
||||
' 'If Not element.Value.ToUpper = "[%SPALTE]" And Not element.Value.ToUpper = "[%VIEW]" Then
|
||||
' 'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
|
||||
' Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3)
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False)
|
||||
' LOGGER.Debug("elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False)
|
||||
' 'den Platzhalter im SQL-String durch den Wert ersetzen
|
||||
' Dim manIndexwert As String = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO")
|
||||
' If manIndexwert <> "" Then
|
||||
' SqlString = SqlString.Replace(element.Value, manIndexwert)
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> zusammengesetzter SQL-String: " & SqlString, False)
|
||||
' LOGGER.Debug("zusammengesetzter SQL-String: " & SqlString, False)
|
||||
' Else
|
||||
' ClassLogger.Add(" - ACHTUNG: manIndexwert = String.Empty - Funktion: FillIndexe_Autom", False)
|
||||
' Logger.Warn(" - ACHTUNG: manIndexwert = String.Empty - Funktion: FillIndexe_Autom", False)
|
||||
' Return False
|
||||
' End If
|
||||
' Next
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Ausführen SQL....", False)
|
||||
' LOGGER.Debug("Ausführen SQL....", False)
|
||||
' Dim automatischerValue As String = ""
|
||||
' automatischerValue = Get_AutomatischerIndex_SQL(SqlString, DR_AUTOINDEX.Item("CONNECTION_ID"), DR_AUTOINDEX.Item("SQL_PROVIDER"))
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis SQL: '" & automatischerValue & "'", False)
|
||||
' LOGGER.Debug("Ergebnis SQL: '" & automatischerValue & "'", False)
|
||||
' If automatischerValue <> String.Empty Then
|
||||
' DR_AUTOINDEX.Item("Indexiert") = True
|
||||
' DR_AUTOINDEX.Item("Indexwert") = automatischerValue
|
||||
' Else
|
||||
' ClassLogger.Add(" - ACHTUNG: automatischerValue = String.Empty - Funktion: FillIndexe_Autom", False)
|
||||
' ClassLogger.Add(" - SqlString: " & SqlString, False)
|
||||
' Logger.Warn(" - ACHTUNG: automatischerValue = String.Empty - Funktion: FillIndexe_Autom", False)
|
||||
' Logger.Warn(" - SqlString: " & SqlString, False)
|
||||
' Return False
|
||||
' End If
|
||||
' Else
|
||||
@@ -409,7 +409,7 @@ Public Class frmWM_IndexFile
|
||||
' Dim DEFAULTVALUE As String = DR_AUTOINDEX.Item("VALUE")
|
||||
' 'Indexierung mit WindowsVariable
|
||||
' If DEFAULTVALUE.StartsWith("$") Then
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexierung mit einer Windowsvariable: '" & DEFAULTVALUE & "'", False)
|
||||
' LOGGER.Debug("Indexierung mit einer Windowsvariable: '" & DEFAULTVALUE & "'", False)
|
||||
' Select Case DEFAULTVALUE.ToUpper
|
||||
' Case "$filename_ext".ToUpper
|
||||
' DEFAULTVALUE = Path.GetFileName(CURRENT_WORKFILE)
|
||||
@@ -428,9 +428,9 @@ Public Class frmWM_IndexFile
|
||||
' Case "$DateDDMMYYY".ToUpper
|
||||
' DEFAULTVALUE = System.DateTime.Now.ToShortDateString
|
||||
' End Select
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False)
|
||||
' LOGGER.Debug("Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False)
|
||||
' Else
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'", False)
|
||||
' LOGGER.Debug("Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'", False)
|
||||
' End If
|
||||
' 'Den Wert in der Zwischentabelle speichern
|
||||
' DR_AUTOINDEX.Item("Indexiert") = True
|
||||
@@ -445,7 +445,7 @@ Public Class frmWM_IndexFile
|
||||
' Return True
|
||||
' End If
|
||||
' Catch ex As System.Exception
|
||||
' ClassLogger.Add(" - Fehler bei FillIndexe_Autom - Fehler: " & vbNewLine & ex.Message)
|
||||
' Logger.Warn(" - Fehler bei FillIndexe_Autom - Fehler: " & vbNewLine & ex.Message)
|
||||
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei FillIndexe_Autom")
|
||||
' Return False
|
||||
' End Try
|
||||
@@ -617,7 +617,7 @@ Public Class frmWM_IndexFile
|
||||
AddDateTimePicker(DR.Item("GUID"), DR.Item("NAME"), y)
|
||||
Case Else
|
||||
MsgBox($"Please check the datatype of manual index ({ DR.Item("NAME")} - {type} - Refresh_Indices_Manual (frmWMIndexFile)", MsgBoxStyle.Critical, "Achtung:")
|
||||
ClassLogger.Add(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
|
||||
LOGGER.Warn(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
|
||||
End Select
|
||||
|
||||
anz += 1
|
||||
@@ -941,7 +941,7 @@ Public Class frmWM_IndexFile
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Renew_ComboboxResults:")
|
||||
End Try
|
||||
End Sub
|
||||
@@ -982,7 +982,7 @@ Public Class frmWM_IndexFile
|
||||
End If
|
||||
Else
|
||||
runinLZ = True
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
|
||||
LOGGER.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
|
||||
End If
|
||||
|
||||
|
||||
@@ -1053,7 +1053,7 @@ Public Class frmWM_IndexFile
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
|
||||
LOGGER.Warn(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:")
|
||||
End Try
|
||||
End Sub
|
||||
@@ -1135,7 +1135,7 @@ Public Class frmWM_IndexFile
|
||||
CURRENT_FILENAME = ""
|
||||
Me.VWDDINDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
chkMultiIndexer.Checked = False
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> frmWD_Index_Dokart_Load", False)
|
||||
LOGGER.Debug("frmWD_Index_Dokart_Load", False)
|
||||
chkdelete_origin.Checked = False
|
||||
chkdelete_origin.Visible = False
|
||||
Dim HandleType As String
|
||||
@@ -1195,7 +1195,7 @@ Public Class frmWM_IndexFile
|
||||
MsgBox("No documenttypes for the redundant entity configured either! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Redundant EntityID: " & CURRENT_ENTITY_REDUNDANT_ID)
|
||||
LOGGER.Debug("Redundant EntityID: " & CURRENT_ENTITY_REDUNDANT_ID)
|
||||
CURRENT_REDUNDANT_FORM_ID = CURRENT_ENTITY_REDUNDANT_ID
|
||||
CURRENT_REDUNDANT_FORMVIEW_ID = FVID
|
||||
CURRENT_ENTITY_ID = CURRENT_ENTITY_REDUNDANT_ID
|
||||
|
||||
4
app/DD-Record-Organizer/packages.config
Normal file
4
app/DD-Record-Organizer/packages.config
Normal file
@@ -0,0 +1,4 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<packages>
|
||||
<package id="NLog" version="4.7.10" targetFramework="net452" />
|
||||
</packages>
|
||||
@@ -2,22 +2,22 @@
|
||||
<Wix xmlns="http://schemas.microsoft.com/wix/2006/wi"
|
||||
xmlns:util="http://schemas.microsoft.com/wix/UtilExtension">
|
||||
<Product Name="Record Organizer" Id="*" UpgradeCode="{6387325E-F6D7-46BE-BBA8-D0E37BEEF800}" Version="$(var.ProductVersion)" Manufacturer="Digital Data" Language="1031" Codepage="1252">
|
||||
<Package
|
||||
Id="*"
|
||||
Keywords="Installer"
|
||||
Description="Digital Data Record Organizer Setup"
|
||||
Comments="Record Organizer is a registered Trademark of Digital Data"
|
||||
Manufacturer="Digital Data"
|
||||
InstallerVersion="100"
|
||||
Languages="1031"
|
||||
Compressed="yes"
|
||||
<Package
|
||||
Id="*"
|
||||
Keywords="Installer"
|
||||
Description="Digital Data Record Organizer Setup"
|
||||
Comments="Record Organizer is a registered Trademark of Digital Data"
|
||||
Manufacturer="Digital Data"
|
||||
InstallerVersion="100"
|
||||
Languages="1031"
|
||||
Compressed="yes"
|
||||
SummaryCodepage="1252"
|
||||
InstallScope="perMachine"
|
||||
/>
|
||||
<!--
|
||||
InstallScrope="perMachine" - sorgt dafür, dass das Programm für jeden Benutzer installiert wird
|
||||
-->
|
||||
|
||||
|
||||
<!-- Nicht entfernen! -->
|
||||
<Media Id='1' Cabinet='Sample.cab' EmbedCab='yes' DiskPrompt='CD-ROM #1' />
|
||||
<Property Id='DiskPrompt' Value="Record Organizer Install" />
|
||||
@@ -36,7 +36,7 @@
|
||||
AllowSameVersionUpgrades="no"
|
||||
DowngradeErrorMessage="A newer version of [ProductName] is already installed. The setup will terminate."
|
||||
/>
|
||||
|
||||
|
||||
<Property Id="PREVIOUSVERSIONSINSTALLED" Secure="yes" />
|
||||
<Upgrade Id="{6387325E-F6D7-46BE-BBA8-D0E37BEEF800}">
|
||||
<UpgradeVersion
|
||||
@@ -48,7 +48,7 @@
|
||||
|
||||
<!-- Legt das Icon fest -->
|
||||
<Icon Id="DDRecordOrganizer.exe" SourceFile="DD-Record-Organizer.exe" />
|
||||
|
||||
|
||||
<!-- Zeige Icon in Systemsteuerung > Programme entfernen -->
|
||||
<Property Id="ARPPRODUCTICON" Value="DDRecordOrganizer.exe" />
|
||||
|
||||
@@ -60,14 +60,14 @@
|
||||
<!-- Legt die Ordner-Struktur fest -->
|
||||
<Directory Id="TARGETDIR" Name="SourceDir">
|
||||
<Directory Id="ProgramFilesFolder" Name="Pfiles">
|
||||
<Directory Id="DD" Name="Digital Data">
|
||||
|
||||
<Directory Id="DD" Name="Digital Data">
|
||||
|
||||
<!-- Das Installationsverzeichnis -->
|
||||
<Directory Id="INSTALLDIR" Name="Record Organizer">
|
||||
|
||||
<Directory Id="ADDONDIR" Name="Addons">
|
||||
<Directory Id="RIGHTMANAGERDIR" Name="RightManager">
|
||||
|
||||
|
||||
<Component Id="RecordOrganizer_RightManager" Guid="BD73A9BB-89FD-4F4C-85B8-F31C97296745">
|
||||
<File Id="RecordOrganizer_RightManager.exe" Name="RecordOrganizer_RightManager.exe" Source="RecordOrganizer_RightManager.exe" />
|
||||
<File Id="DD_Rights.dll" Name="DD_Rights.dll" Source="DD_Rights.dll" />
|
||||
@@ -83,13 +83,13 @@
|
||||
<File Id="DevExpress.XtraEditors.v15.2_" Name="DevExpress.XtraEditors.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraEditors.v15.2.dll" />
|
||||
<File Id="DevExpress.XtraGrid.v15.2_" Name="DevExpress.XtraGrid.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraGrid.v15.2.dll" />
|
||||
<File Id="DevExpress.XtraLayout.v15.2_" Name="DevExpress.XtraLayout.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraLayout.v15.2.dll" />
|
||||
<File Id="DevExpress.XtraPrinting.v15.2_" Name="DevExpress.XtraPrinting.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraPrinting.v15.2.dll" />
|
||||
<File Id="DevExpress.XtraPrinting.v15.2_" Name="DevExpress.XtraPrinting.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraPrinting.v15.2.dll" />
|
||||
</Component>
|
||||
|
||||
|
||||
</Directory>
|
||||
|
||||
|
||||
<Directory Id="VERSIONCHECKER" Name="VERSION_CHECKER">
|
||||
|
||||
|
||||
<Component Id="RecordOrganizer_VersionChecker" Guid="37D17685-E588-4BC6-A15E-570DE749852A">
|
||||
<File Id="VERSION_CHECKER.exe" Name="VERSION_CHECKER.exe" Source="VERSION_CHECKER.exe">
|
||||
<Shortcut Id="StartMenuShortcut" Directory="ProgramMenuDir" Name="ADDI-RecordOrganizer" WorkingDirectory="INSTALLDIR" Icon="DDRecordOrganizer.exe" IconIndex="0" Advertise="yes" />
|
||||
@@ -97,10 +97,10 @@
|
||||
</File>
|
||||
<File Id="DD_LIB_Standards.dll" Name="DD_LIB_Standards.dll" Source="DD_LIB_Standards.dll" />
|
||||
</Component>
|
||||
|
||||
|
||||
</Directory>
|
||||
</Directory>
|
||||
|
||||
|
||||
<!-- Die DD-Record-Organizer.exe und Shortcuts für Desktop und Startmenü -->
|
||||
<Component Id="MainExecutable" Guid="9CC5D446-F056-4A09-995D-9DF53A7F0E38">
|
||||
<!--<File Id="PMOEXE" Name="DD-Record-Organizer.exe" Source="DD-Record-Organizer.exe" KeyPath="yes">
|
||||
@@ -124,23 +124,23 @@
|
||||
<File Id="WMOBRWSLib" Name="Interop.WMOBRWSLib.dll" Source="..\..\..\..\..\DD3rdPartyLibs\Windream\Interop.WMOBRWSLib.dll" KeyPath="no" />
|
||||
<File Id="WMOSRCHLib" Name="Interop.WMOSRCHLib.dll" Source="..\..\..\..\..\DD3rdPartyLibs\Windream\Interop.WMOSRCHLib.dll" KeyPath="no" />
|
||||
</Component>
|
||||
|
||||
<!-- Oracle-Bibliothek -->
|
||||
|
||||
<!-- Oracle-Bibliothek -->
|
||||
<Component Id="Oracle" Guid="CF76DB5D-3263-450F-96C6-F02F5447A0A1">
|
||||
<File Id="Oracle.ManagedDataAccess" Name="Oracle.ManagedDataAccess.dll" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll" KeyPath="yes" />
|
||||
</Component>
|
||||
|
||||
|
||||
<!-- Commandline Bibliothek -->
|
||||
<Component Id="Commandline" Guid="53F9734C-F020-4885-96DC-D8CD880E8446">
|
||||
<File Id="Commandline" Name="Commandline.dll" Source="Commandline.dll" KeyPath="yes" />
|
||||
</Component>
|
||||
|
||||
|
||||
<!-- DD Bibliotheken -->
|
||||
<Component Id="DDLibs" Guid="BA2979E3-3778-48B8-B0D8-4B77825B9293">
|
||||
<File Id="DLLLicenseManager" Name="DLLLicenseManager.dll" Source="DLLLicenseManager.dll" KeyPath="no" />
|
||||
<File Id="DD_Rights" Name="DD_Rights.dll" Source="DD_Rights.dll" KeyPath="no" />
|
||||
<File Id="DD_LIB_Standards" Name="DD_LIB_Standards.dll" Source="DD_LIB_Standards.dll" KeyPath="no" />
|
||||
|
||||
|
||||
</Component>
|
||||
<!-- DD Bibliotheken -->
|
||||
<Component Id="BasicLibs" Guid="37238CB0-6DC3-4B1B-9438-52FA7D478897">
|
||||
@@ -148,7 +148,7 @@
|
||||
<File Id="Microsoft.Office.Interop.Outlook" Name="Microsoft.Office.Interop.Outlook.dll" Source="C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Outlook\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Outlook.dll" KeyPath="no" />
|
||||
<File Id="Microsoft.Office.Interop.Word" Name="Microsoft.Office.Interop.Word.dll" Source="C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Word\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Word.dll" KeyPath="no" />
|
||||
</Component>
|
||||
|
||||
|
||||
<!-- MAIL.NET Bibliothek -->
|
||||
<Component Id="IndependentsoftLibs" Guid="C3B3BB48-DB41-4419-A4B8-0E4DC5E8856B">
|
||||
<File Id="MSGLib" Name="Independentsoft.Msg.dll" Source="Independentsoft.Msg.dll" KeyPath="yes" />
|
||||
@@ -157,7 +157,7 @@
|
||||
<Component Id="ERPConnectLibs" Guid="9AC1DD00-6225-47DD-A142-1EB462CD5240">
|
||||
<File Id="ERPConnect45" Name="ERPConnect45.dll" Source="ERPConnect45.dll" KeyPath="yes" />
|
||||
</Component>
|
||||
|
||||
|
||||
<!-- DEVEXPRESS Bibliotheken -->
|
||||
<Component Id="DevExpressLibs" Guid="CB40DAAE-348E-4BD3-B275-9A526EB8F191">
|
||||
<File Id="DevExpress.Data.v15.2" Name="DevExpress.Data.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Data.v15.2.dll" KeyPath="yes" />
|
||||
@@ -182,7 +182,7 @@
|
||||
<File Id="DevExpress.Pdf.v15.2.Drwawing" Name="DevExpress.Pdf.v15.2.Drawing.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Pdf.v15.2.Drawing.dll" />
|
||||
<File Id="DevExpress.XtraPdfViewer.v15.2" Name="DevExpress.XtraPdfViewer.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraPdfViewer.v15.2.dll" />
|
||||
<File Id="DevExpress.Sparkline.v15.2" Name="DevExpress.Sparkline.v15.2.Core.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Sparkline.v15.2.Core.dll" />
|
||||
<!--<File Id="DevExpress.Charts.Designer.v15.2_" Name="DevExpress.Charts.Designer.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Charts.Designer.v15.2.dll" />-->
|
||||
<!--<File Id="DevExpress.Charts.Designer.v15.2_" Name="DevExpress.Charts.Designer.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Charts.Designer.v15.2.dll" />-->
|
||||
<File Id="DevExpress.Charts.v15.2.Core_" Name="DevExpress.Charts.v15.2.Core.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Charts.v15.2.Core.dll" />
|
||||
<File Id="DevExpress.XtraCharts.v15.2_" Name="DevExpress.XtraCharts.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraCharts.v15.2.dll" />
|
||||
<File Id="DevExpress.XtraCharts.v15.2.Extensions_" Name="DevExpress.XtraCharts.v15.2.Extensions.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraCharts.v15.2.Extensions.dll" />
|
||||
@@ -198,7 +198,7 @@
|
||||
<Component Id="RecordOrganizer.Locales.de" Guid="C9476586-46A4-450A-88F4-BE416B7AD21C">
|
||||
<File Id="DDRecordOrganizer.resource.de" Name="DD-Record-Organizer.resources.dll" Source="de\DD-Record-Organizer.resources.dll"></File>
|
||||
</Component>
|
||||
|
||||
|
||||
<Component Id="Scheduler.Locales" Guid="84335DB2-F5D2-496B-9318-2BD1B1ACA391">
|
||||
<File Id="DevExpress.XtraScheduler.v15.2.Core.resources" Name="DevExpress.XtraScheduler.v15.2.Core.resources.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\de\DevExpress.XtraScheduler.v15.2.Core.resources.dll"></File>
|
||||
<File Id="DevExpress.XtraScheduler.v15.2.Extensions.resources" Name="DevExpress.XtraScheduler.v15.2.Extensions.resources.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\de\DevExpress.XtraScheduler.v15.2.Extensions.resources.dll"></File>
|
||||
@@ -217,7 +217,7 @@
|
||||
<File Id="DevExpress.XtraRichEdit.v15.2.resources" Name="DevExpress.XtraRichEdit.v15.2.resources.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\de\DevExpress.XtraRichEdit.v15.2.resources.dll"></File>
|
||||
<File Id="DevExpress.XtraTreeList.v15.2.resources" Name="DevExpress.XtraTreeList.v15.2.resources.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\de\DevExpress.XtraTreeList.v15.2.resources.dll"></File>
|
||||
<File Id="DevExpress.XtraVerticalGrid.v15.2.resources" Name="DevExpress.XtraVerticalGrid.v15.2.resources.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\de\DevExpress.XtraVerticalGrid.v15.2.resources.dll"></File>
|
||||
<File Id="DevExpress.XtraWizard.v15.2.resources" Name="DevExpress.XtraWizard.v15.2.resources.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\de\DevExpress.XtraWizard.v15.2.resources.dll"></File>
|
||||
<File Id="DevExpress.XtraWizard.v15.2.resources" Name="DevExpress.XtraWizard.v15.2.resources.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\de\DevExpress.XtraWizard.v15.2.resources.dll"></File>
|
||||
<File Id="DevExpress.Charts.Designer.v15.2.resources" Name="DevExpress.Charts.Designer.v15.2.resources.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\de\DevExpress.Charts.Designer.v15.2.resources.dll" />
|
||||
<File Id="DevExpress.XtraCharts.v15.2.resources" Name="DevExpress.XtraCharts.v15.2.resources.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\de\DevExpress.XtraCharts.v15.2.resources.dll" />
|
||||
</Component>
|
||||
@@ -243,15 +243,15 @@
|
||||
<Directory Id="ProgramMenuDir" Name="Record Organizer">
|
||||
<Component Id="ProgramMenuDir" Guid="5200DF59-FED6-4C5A-8393-90B8ED526432">
|
||||
<RemoveFolder Id="ProgramMenuDir" On="uninstall" />
|
||||
|
||||
|
||||
<RegistryKey Root="HKCU" Key="Software">
|
||||
|
||||
|
||||
<RegistryKey Key="[Manufacturer]">
|
||||
<RegistryKey Key="[ProductName]" ForceCreateOnInstall="yes" ForceDeleteOnUninstall="yes" Id="REGKEYINSTALLDIR">
|
||||
<RegistryValue Type="string" Value="[INSTALLDIR]" Name="Path" />
|
||||
</RegistryKey>
|
||||
</RegistryKey>
|
||||
|
||||
|
||||
<RegistryKey Key="Classes">
|
||||
<RegistryKey Key="pmo" ForceCreateOnInstall="yes" ForceDeleteOnUninstall="yes" Id="REGKEYCUSTOMURLHANDLER">
|
||||
<RegistryValue Type="string" Name="URL Protocol" Value="" />
|
||||
@@ -259,13 +259,13 @@
|
||||
<RegistryValue Key="shell\open\command" Type="string" Value=""[INSTALLDIR]DD-Record-Organizer.exe" --data %1" />
|
||||
</RegistryKey>
|
||||
</RegistryKey>
|
||||
|
||||
|
||||
</RegistryKey>
|
||||
|
||||
|
||||
</Component>
|
||||
</Directory>
|
||||
</Directory>
|
||||
|
||||
|
||||
<!-- Desktop Ordner -->
|
||||
<Directory Id="DesktopFolder" Name="Desktop" />
|
||||
</Directory>
|
||||
@@ -292,10 +292,10 @@
|
||||
<ComponentRef Id="RecordOrganizer_RightManager"/>
|
||||
<ComponentRef Id="RecordOrganizer_VersionChecker" />
|
||||
</Feature>
|
||||
|
||||
|
||||
<!-- Legt das Standard-Installationsverzeichnis fest-->
|
||||
<Property Id="WIXUI_INSTALLDIR" Value="INSTALLDIR" />
|
||||
|
||||
|
||||
<!-- OBERFLÄCHE -->
|
||||
<UI>
|
||||
<UIRef Id="WixUI_InstallDir" />
|
||||
@@ -1,28 +1,24 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" DefaultTargets="Build" InitialTargets="EnsureWixToolsetInstalled" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||
<ProductVersion>3.8</ProductVersion>
|
||||
<ProjectGuid>bdd0ee4f-7063-47ca-b8b8-b94f23ab8890</ProjectGuid>
|
||||
<ProductVersion>3.10</ProductVersion>
|
||||
<ProjectGuid>7727a1a0-451f-4166-84b2-f1cd53b66692</ProjectGuid>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<OutputName>RecordOrganizerSetup</OutputName>
|
||||
<OutputName>SetupVS19</OutputName>
|
||||
<OutputType>Package</OutputType>
|
||||
<WixTargetsPath Condition=" '$(WixTargetsPath)' == '' AND '$(MSBuildExtensionsPath32)' != '' ">$(MSBuildExtensionsPath32)\Microsoft\WiX\v3.x\Wix.targets</WixTargetsPath>
|
||||
<WixTargetsPath Condition=" '$(WixTargetsPath)' == '' ">$(MSBuildExtensionsPath)\Microsoft\WiX\v3.x\Wix.targets</WixTargetsPath>
|
||||
<IncludeSearchPaths>
|
||||
</IncludeSearchPaths>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
|
||||
<OutputPath>bin\$(Configuration)\</OutputPath>
|
||||
<IntermediateOutputPath>obj\$(Configuration)\</IntermediateOutputPath>
|
||||
<DefineConstants>Debug</DefineConstants>
|
||||
<LinkerAdditionalOptions>-b "$(SolutionDir)DD-Record-Organizer\bin\$(Configuration)"
|
||||
-b "$(SolutionDir)RecordOrganizer_RightManager\bin\$(Configuration)"
|
||||
-b "$(SolutionDir)VERSION_CHECKER\bin\$(Configuration)"
|
||||
-cultures:de-DE,en-US</LinkerAdditionalOptions>
|
||||
<CompilerAdditionalOptions>
|
||||
</CompilerAdditionalOptions>
|
||||
<LinkerAdditionalOptions>
|
||||
-b "$(SolutionDir)DD-Record-Organizer\bin\$(Configuration)"
|
||||
-b "$(SolutionDir)RecordOrganizer_RightManager\bin\$(Configuration)"
|
||||
-b "$(SolutionDir)VERSION_CHECKER\bin\$(Configuration)"
|
||||
-cultures:de-DE,en-US
|
||||
</LinkerAdditionalOptions>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
|
||||
<OutputPath>bin\$(Configuration)\</OutputPath>
|
||||
@@ -41,20 +37,10 @@
|
||||
<Name>WixUIExtension</Name>
|
||||
</WixExtension>
|
||||
</ItemGroup>
|
||||
<Import Project="$(WixTargetsPath)" />
|
||||
<!--
|
||||
To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Wix.targets.
|
||||
-->
|
||||
<Target Name="BeforeBuild">
|
||||
<!-- Get the programs assembly version from the .exe file -->
|
||||
<GetAssemblyIdentity AssemblyFiles="..\DD-Record-Organizer\bin\$(Configuration)\DD-Record-Organizer.exe">
|
||||
<Output TaskParameter="Assemblies" ItemName="AsmInfo" />
|
||||
</GetAssemblyIdentity>
|
||||
<!-- Store the assembly version number in ProductVersion preprocessor variable -->
|
||||
<CreateProperty Value="$(DefineConstants);ProductVersion=%(AsmInfo.Version)">
|
||||
<Output TaskParameter="Value" PropertyName="DefineConstants" />
|
||||
</CreateProperty>
|
||||
<Import Project="$(WixTargetsPath)" Condition=" '$(WixTargetsPath)' != '' " />
|
||||
<Import Project="$(MSBuildExtensionsPath32)\Microsoft\WiX\v3.x\Wix.targets" Condition=" '$(WixTargetsPath)' == '' AND Exists('$(MSBuildExtensionsPath32)\Microsoft\WiX\v3.x\Wix.targets') " />
|
||||
<Target Name="EnsureWixToolsetInstalled" Condition=" '$(WixTargetsImported)' != 'true' ">
|
||||
<Error Text="The WiX Toolset v3.11 (or newer) build tools must be installed to build this project. To download the WiX Toolset, see http://wixtoolset.org/releases/" />
|
||||
</Target>
|
||||
<Target Name="BeforeBuild">
|
||||
<!-- Get the programs assembly version from the .exe file -->
|
||||
@@ -75,6 +61,10 @@
|
||||
</CreateProperty>
|
||||
</Target>
|
||||
<!--
|
||||
To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Wix.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
@@ -2,22 +2,22 @@
|
||||
<Wix xmlns="http://schemas.microsoft.com/wix/2006/wi"
|
||||
xmlns:util="http://schemas.microsoft.com/wix/UtilExtension">
|
||||
<Product Name="Record Organizer" Id="*" UpgradeCode="{6387325E-F6D7-46BE-BBA8-D0E37BEEF800}" Version="$(var.ProductVersion)" Manufacturer="Digital Data" Language="1031" Codepage="1252">
|
||||
<Package
|
||||
Id="*"
|
||||
Keywords="Installer"
|
||||
Description="Digital Data Record Organizer Setup"
|
||||
Comments="Record Organizer is a registered Trademark of Digital Data"
|
||||
Manufacturer="Digital Data"
|
||||
InstallerVersion="100"
|
||||
Languages="1031"
|
||||
Compressed="yes"
|
||||
<Package
|
||||
Id="*"
|
||||
Keywords="Installer"
|
||||
Description="Digital Data Record Organizer Setup"
|
||||
Comments="Record Organizer is a registered Trademark of Digital Data"
|
||||
Manufacturer="Digital Data"
|
||||
InstallerVersion="100"
|
||||
Languages="1031"
|
||||
Compressed="yes"
|
||||
SummaryCodepage="1252"
|
||||
InstallScope="perMachine"
|
||||
/>
|
||||
<!--
|
||||
InstallScrope="perMachine" - sorgt dafür, dass das Programm für jeden Benutzer installiert wird
|
||||
-->
|
||||
|
||||
|
||||
<!-- Nicht entfernen! -->
|
||||
<Media Id='1' Cabinet='Sample.cab' EmbedCab='yes' DiskPrompt='CD-ROM #1' />
|
||||
<Property Id='DiskPrompt' Value="Record Organizer Install" />
|
||||
@@ -36,7 +36,7 @@
|
||||
AllowSameVersionUpgrades="no"
|
||||
DowngradeErrorMessage="A newer version of [ProductName] is already installed. The setup will terminate."
|
||||
/>
|
||||
|
||||
|
||||
<Property Id="PREVIOUSVERSIONSINSTALLED" Secure="yes" />
|
||||
<Upgrade Id="{6387325E-F6D7-46BE-BBA8-D0E37BEEF800}">
|
||||
<UpgradeVersion
|
||||
@@ -48,7 +48,7 @@
|
||||
|
||||
<!-- Legt das Icon fest -->
|
||||
<Icon Id="DDRecordOrganizer.exe" SourceFile="DD-Record-Organizer.exe" />
|
||||
|
||||
|
||||
<!-- Zeige Icon in Systemsteuerung > Programme entfernen -->
|
||||
<Property Id="ARPPRODUCTICON" Value="DDRecordOrganizer.exe" />
|
||||
|
||||
@@ -60,14 +60,14 @@
|
||||
<!-- Legt die Ordner-Struktur fest -->
|
||||
<Directory Id="TARGETDIR" Name="SourceDir">
|
||||
<Directory Id="ProgramFilesFolder" Name="Pfiles">
|
||||
<Directory Id="DD" Name="Digital Data">
|
||||
|
||||
<Directory Id="DD" Name="Digital Data">
|
||||
|
||||
<!-- Das Installationsverzeichnis -->
|
||||
<Directory Id="INSTALLDIR" Name="Record Organizer">
|
||||
|
||||
<Directory Id="ADDONDIR" Name="Addons">
|
||||
<Directory Id="RIGHTMANAGERDIR" Name="RightManager">
|
||||
|
||||
|
||||
<Component Id="RecordOrganizer_RightManager" Guid="BD73A9BB-89FD-4F4C-85B8-F31C97296745">
|
||||
<File Id="RecordOrganizer_RightManager.exe" Name="RecordOrganizer_RightManager.exe" Source="RecordOrganizer_RightManager.exe" />
|
||||
<File Id="DD_Rights.dll" Name="DD_Rights.dll" Source="DD_Rights.dll" />
|
||||
@@ -83,18 +83,24 @@
|
||||
<File Id="DevExpress.XtraEditors.v19.2_" Name="DevExpress.XtraEditors.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\devExpress.XtraEditors.v19.2.dll" />
|
||||
<File Id="DevExpress.XtraGrid.v19.2_" Name="DevExpress.XtraGrid.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\devExpress.XtraGrid.v19.2.dll" />
|
||||
<File Id="DevExpress.XtraLayout.v19.2_" Name="DevExpress.XtraLayout.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\devExpress.XtraLayout.v19.2.dll" />
|
||||
<File Id="DevExpress.XtraPrinting.v19.2_" Name="DevExpress.XtraPrinting.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\devExpress.XtraPrinting.v19.2.dll" />
|
||||
<File Id="DevExpress.XtraPrinting.v19.2_" Name="DevExpress.XtraPrinting.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\devExpress.XtraPrinting.v19.2.dll" />
|
||||
</Component>
|
||||
|
||||
<Component Id="NLog" Guid="{08903680-6b02-4ff0-b700-93209381fe1a}">
|
||||
<File Id="NLog" Name="NLog.dll" Source="NLog.dll" KeyPath="yes" Checksum="yes"/>
|
||||
</Component>
|
||||
|
||||
</Directory>
|
||||
|
||||
|
||||
<!--<Directory Id="VERSIONCHECKER" Name="VERSION_CHECKER">
|
||||
|
||||
<Component Id="RecordOrganizer_VersionChecker" Guid="37D17685-E588-4BC6-A15E-570DE749852A">
|
||||
--><!--<File Id="VERSION_CHECKER.exe" Name="VERSION_CHECKER.exe" Source="VERSION_CHECKER.exe">
|
||||
-->
|
||||
<!--<File Id="VERSION_CHECKER.exe" Name="VERSION_CHECKER.exe" Source="VERSION_CHECKER.exe">
|
||||
<Shortcut Id="StartMenuShortcut" Directory="ProgramMenuDir" Name="ADDI-RecordOrganizer" WorkingDirectory="INSTALLDIR" Icon="DDRecordOrganizer.exe" IconIndex="0" Advertise="yes" />
|
||||
<Shortcut Id="DesktopShortcut" Directory="DesktopFolder" Name="ADDI-RecordOrganizer" WorkingDirectory="INSTALLDIR" Icon="DDRecordOrganizer.exe" IconIndex="0" Advertise="yes" />
|
||||
</File>--><!--
|
||||
</File>-->
|
||||
<!--
|
||||
<File Id="VERSION_CHECKER.exe" Name="VERSION_CHECKER.exe" Source="VERSION_CHECKER.exe" />
|
||||
|
||||
<File Id="DD_LIB_Standards.dll" Name="DD_LIB_Standards.dll" Source="DD_LIB_Standards.dll" />
|
||||
@@ -102,7 +108,7 @@
|
||||
|
||||
</Directory>-->
|
||||
</Directory>
|
||||
|
||||
|
||||
<!-- Die DD-Record-Organizer.exe und Shortcuts für Desktop und Startmenü -->
|
||||
<Component Id="MainExecutable" Guid="9CC5D446-F056-4A09-995D-9DF53A7F0E38">
|
||||
<File Id="PMOEXE" Name="DD-Record-Organizer.exe" Source="DD-Record-Organizer.exe" KeyPath="yes">
|
||||
@@ -125,23 +131,23 @@
|
||||
<File Id="WMOBRWSLib" Name="Interop.WMOBRWSLib.dll" Source="..\..\..\..\..\DD3rdPartyLibs\Windream\Interop.WMOBRWSLib.dll" KeyPath="no" />
|
||||
<File Id="WMOSRCHLib" Name="Interop.WMOSRCHLib.dll" Source="..\..\..\..\..\DD3rdPartyLibs\Windream\Interop.WMOSRCHLib.dll" KeyPath="no" />
|
||||
</Component>
|
||||
|
||||
<!-- Oracle-Bibliothek -->
|
||||
|
||||
<!-- Oracle-Bibliothek -->
|
||||
<Component Id="Oracle" Guid="CF76DB5D-3263-450F-96C6-F02F5447A0A1">
|
||||
<File Id="Oracle.ManagedDataAccess" Name="Oracle.ManagedDataAccess.dll" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll" KeyPath="yes" />
|
||||
</Component>
|
||||
|
||||
|
||||
<!-- Commandline Bibliothek -->
|
||||
<Component Id="Commandline" Guid="53F9734C-F020-4885-96DC-D8CD880E8446">
|
||||
<File Id="Commandline" Name="Commandline.dll" Source="Commandline.dll" KeyPath="yes" />
|
||||
</Component>
|
||||
|
||||
|
||||
<!-- DD Bibliotheken -->
|
||||
<Component Id="DDLibs" Guid="BA2979E3-3778-48B8-B0D8-4B77825B9293">
|
||||
<File Id="DLLLicenseManager" Name="DLLLicenseManager.dll" Source="DLLLicenseManager.dll" KeyPath="no" />
|
||||
<File Id="DD_Rights" Name="DD_Rights.dll" Source="DD_Rights.dll" KeyPath="no" />
|
||||
<File Id="DD_LIB_Standards" Name="DD_LIB_Standards.dll" Source="DD_LIB_Standards.dll" KeyPath="no" />
|
||||
|
||||
<File Id="DDLogging" Name="DigitalData.Modules.Logging.dll" Source="DigitalData.Modules.Logging.dll" KeyPath="no" Checksum="yes"/>
|
||||
</Component>
|
||||
<!-- DD Bibliotheken -->
|
||||
<Component Id="BasicLibs" Guid="37238CB0-6DC3-4B1B-9438-52FA7D478897">
|
||||
@@ -149,7 +155,7 @@
|
||||
<File Id="Microsoft.Office.Interop.Outlook" Name="Microsoft.Office.Interop.Outlook.dll" Source="C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Outlook\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Outlook.dll" KeyPath="no" />
|
||||
<File Id="Microsoft.Office.Interop.Word" Name="Microsoft.Office.Interop.Word.dll" Source="C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Word\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Word.dll" KeyPath="no" />
|
||||
</Component>
|
||||
|
||||
|
||||
<!-- MAIL.NET Bibliothek -->
|
||||
<Component Id="IndependentsoftLibs" Guid="C3B3BB48-DB41-4419-A4B8-0E4DC5E8856B">
|
||||
<File Id="MSGLib" Name="Independentsoft.Msg.dll" Source="Independentsoft.Msg.dll" KeyPath="yes" />
|
||||
@@ -158,7 +164,7 @@
|
||||
<Component Id="ERPConnectLibs" Guid="9AC1DD00-6225-47DD-A142-1EB462CD5240">
|
||||
<File Id="ERPConnect45" Name="ERPConnect45.dll" Source="ERPConnect45.dll" KeyPath="yes" />
|
||||
</Component>
|
||||
|
||||
|
||||
<!-- DEVEXPRESS Bibliotheken -->
|
||||
<Component Id="DevExpressLibs" Guid="CB40DAAE-348E-4BD3-B275-9A526EB8F191">
|
||||
<File Id="DevExpress.Data.v19.2" Name="DevExpress.Data.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\devExpress.Data.v19.2.dll" KeyPath="yes" />
|
||||
@@ -183,7 +189,7 @@
|
||||
<File Id="DevExpress.Pdf.v19.2.Drwawing" Name="DevExpress.Pdf.v19.2.Drawing.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\devExpress.Pdf.v19.2.Drawing.dll" />
|
||||
<File Id="DevExpress.XtraPdfViewer.v19.2" Name="DevExpress.XtraPdfViewer.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\devExpress.XtraPdfViewer.v19.2.dll" />
|
||||
<File Id="DevExpress.Sparkline.v19.2" Name="DevExpress.Sparkline.v19.2.Core.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\devExpress.Sparkline.v19.2.Core.dll" />
|
||||
<!--<File Id="DevExpress.Charts.Designer.v19.2_" Name="DevExpress.Charts.Designer.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\devExpress.Charts.Designer.v19.2.dll" />-->
|
||||
<!--<File Id="DevExpress.Charts.Designer.v19.2_" Name="DevExpress.Charts.Designer.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\devExpress.Charts.Designer.v19.2.dll" />-->
|
||||
<File Id="DevExpress.Charts.v19.2.Core_" Name="DevExpress.Charts.v19.2.Core.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\devExpress.Charts.v19.2.Core.dll" />
|
||||
<File Id="DevExpress.XtraCharts.v19.2_" Name="DevExpress.XtraCharts.v19.2.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\devExpress.XtraCharts.v19.2.dll" />
|
||||
<File Id="DevExpress.XtraCharts.v19.2.Extensions_" Name="DevExpress.XtraCharts.v19.2.Extensions.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\devExpress.XtraCharts.v19.2.Extensions.dll" />
|
||||
@@ -199,7 +205,7 @@
|
||||
<Component Id="RecordOrganizer.Locales.de" Guid="C9476586-46A4-450A-88F4-BE416B7AD21C">
|
||||
<File Id="DDRecordOrganizer.resource.de" Name="DD-Record-Organizer.resources.dll" Source="de\DD-Record-Organizer.resources.dll"></File>
|
||||
</Component>
|
||||
|
||||
|
||||
<Component Id="Scheduler.Locales" Guid="84335DB2-F5D2-496B-9318-2BD1B1ACA391">
|
||||
<File Id="DevExpress.XtraScheduler.v19.2.Core.resources" Name="DevExpress.XtraScheduler.v19.2.Core.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraScheduler.v19.2.Core.resources.dll"></File>
|
||||
<File Id="DevExpress.XtraScheduler.v19.2.Extensions.resources" Name="DevExpress.XtraScheduler.v19.2.Extensions.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraScheduler.v19.2.Extensions.resources.dll"></File>
|
||||
@@ -218,7 +224,7 @@
|
||||
<File Id="DevExpress.XtraRichEdit.v19.2.resources" Name="DevExpress.XtraRichEdit.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraRichEdit.v19.2.resources.dll"></File>
|
||||
<File Id="DevExpress.XtraTreeList.v19.2.resources" Name="DevExpress.XtraTreeList.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraTreeList.v19.2.resources.dll"></File>
|
||||
<File Id="DevExpress.XtraVerticalGrid.v19.2.resources" Name="DevExpress.XtraVerticalGrid.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraVerticalGrid.v19.2.resources.dll"></File>
|
||||
<File Id="DevExpress.XtraWizard.v19.2.resources" Name="DevExpress.XtraWizard.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraWizard.v19.2.resources.dll"></File>
|
||||
<File Id="DevExpress.XtraWizard.v19.2.resources" Name="DevExpress.XtraWizard.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraWizard.v19.2.resources.dll"></File>
|
||||
<File Id="DevExpress.Charts.Designer.v19.2.resources" Name="DevExpress.Charts.Designer.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.Charts.Designer.v19.2.resources.dll" />
|
||||
<File Id="DevExpress.XtraCharts.v19.2.resources" Name="DevExpress.XtraCharts.v19.2.resources.dll" Source="D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\de\DevExpress.XtraCharts.v19.2.resources.dll" />
|
||||
</Component>
|
||||
@@ -244,15 +250,15 @@
|
||||
<Directory Id="ProgramMenuDir" Name="Record Organizer">
|
||||
<Component Id="ProgramMenuDir" Guid="5200DF59-FED6-4C5A-8393-90B8ED526432">
|
||||
<RemoveFolder Id="ProgramMenuDir" On="uninstall" />
|
||||
|
||||
|
||||
<RegistryKey Root="HKCU" Key="Software">
|
||||
|
||||
|
||||
<RegistryKey Key="[Manufacturer]">
|
||||
<RegistryKey Key="[ProductName]" ForceCreateOnInstall="yes" ForceDeleteOnUninstall="yes" Id="REGKEYINSTALLDIR">
|
||||
<RegistryValue Type="string" Value="[INSTALLDIR]" Name="Path" />
|
||||
</RegistryKey>
|
||||
</RegistryKey>
|
||||
|
||||
|
||||
<RegistryKey Key="Classes">
|
||||
<RegistryKey Key="pmo" ForceCreateOnInstall="yes" ForceDeleteOnUninstall="yes" Id="REGKEYCUSTOMURLHANDLER">
|
||||
<RegistryValue Type="string" Name="URL Protocol" Value="" />
|
||||
@@ -260,13 +266,13 @@
|
||||
<RegistryValue Key="shell\open\command" Type="string" Value=""[INSTALLDIR]DD-Record-Organizer.exe" --data %1" />
|
||||
</RegistryKey>
|
||||
</RegistryKey>
|
||||
|
||||
|
||||
</RegistryKey>
|
||||
|
||||
|
||||
</Component>
|
||||
</Directory>
|
||||
</Directory>
|
||||
|
||||
|
||||
<!-- Desktop Ordner -->
|
||||
<Directory Id="DesktopFolder" Name="Desktop" />
|
||||
</Directory>
|
||||
@@ -291,12 +297,13 @@
|
||||
<ComponentRef Id="Commandline" />
|
||||
<ComponentRef Id="ERPConnectLibs" />
|
||||
<ComponentRef Id="RecordOrganizer_RightManager"/>
|
||||
<ComponentRef Id="NLog"/>
|
||||
<!--<ComponentRef Id="RecordOrganizer_VersionChecker" />-->
|
||||
</Feature>
|
||||
|
||||
|
||||
<!-- Legt das Standard-Installationsverzeichnis fest-->
|
||||
<Property Id="WIXUI_INSTALLDIR" Value="INSTALLDIR" />
|
||||
|
||||
|
||||
<!-- OBERFLÄCHE -->
|
||||
<UI>
|
||||
<UIRef Id="WixUI_InstallDir" />
|
||||
@@ -1,28 +1,24 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" DefaultTargets="Build" InitialTargets="EnsureWixToolsetInstalled" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||
<ProductVersion>3.8</ProductVersion>
|
||||
<ProjectGuid>{9e8b6445-8ca8-4b8a-8a04-4437a9970b7b}</ProjectGuid>
|
||||
<ProductVersion>3.10</ProductVersion>
|
||||
<ProjectGuid>a7f7585a-c46a-4436-9f6e-17629325ce58</ProjectGuid>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<OutputName>RecordOrganizerSetup</OutputName>
|
||||
<OutputName>Setup_NoUpdaterVS19</OutputName>
|
||||
<OutputType>Package</OutputType>
|
||||
<WixTargetsPath Condition=" '$(WixTargetsPath)' == '' AND '$(MSBuildExtensionsPath32)' != '' ">$(MSBuildExtensionsPath32)\Microsoft\WiX\v3.x\Wix.targets</WixTargetsPath>
|
||||
<WixTargetsPath Condition=" '$(WixTargetsPath)' == '' ">$(MSBuildExtensionsPath)\Microsoft\WiX\v3.x\Wix.targets</WixTargetsPath>
|
||||
<IncludeSearchPaths>
|
||||
</IncludeSearchPaths>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
|
||||
<OutputPath>bin\$(Configuration)\</OutputPath>
|
||||
<IntermediateOutputPath>obj\$(Configuration)\</IntermediateOutputPath>
|
||||
<DefineConstants>Debug</DefineConstants>
|
||||
<LinkerAdditionalOptions>-b "$(SolutionDir)DD-Record-Organizer\bin\$(Configuration)"
|
||||
-b "$(SolutionDir)RecordOrganizer_RightManager\bin\$(Configuration)"
|
||||
-b "$(SolutionDir)VERSION_CHECKER\bin\$(Configuration)"
|
||||
-cultures:de-DE,en-US</LinkerAdditionalOptions>
|
||||
<CompilerAdditionalOptions>
|
||||
</CompilerAdditionalOptions>
|
||||
<LinkerAdditionalOptions>
|
||||
-b "$(SolutionDir)DD-Record-Organizer\bin\$(Configuration)"
|
||||
-b "$(SolutionDir)RecordOrganizer_RightManager\bin\$(Configuration)"
|
||||
-b "$(SolutionDir)VERSION_CHECKER\bin\$(Configuration)"
|
||||
-cultures:de-DE,en-US
|
||||
</LinkerAdditionalOptions>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
|
||||
<OutputPath>bin\$(Configuration)\</OutputPath>
|
||||
@@ -41,20 +37,10 @@
|
||||
<Name>WixUIExtension</Name>
|
||||
</WixExtension>
|
||||
</ItemGroup>
|
||||
<Import Project="$(WixTargetsPath)" />
|
||||
<!--
|
||||
To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Wix.targets.
|
||||
-->
|
||||
<Target Name="BeforeBuild">
|
||||
<!-- Get the programs assembly version from the .exe file -->
|
||||
<GetAssemblyIdentity AssemblyFiles="..\DD-Record-Organizer\bin\$(Configuration)\DD-Record-Organizer.exe">
|
||||
<Output TaskParameter="Assemblies" ItemName="AsmInfo" />
|
||||
</GetAssemblyIdentity>
|
||||
<!-- Store the assembly version number in ProductVersion preprocessor variable -->
|
||||
<CreateProperty Value="$(DefineConstants);ProductVersion=%(AsmInfo.Version)">
|
||||
<Output TaskParameter="Value" PropertyName="DefineConstants" />
|
||||
</CreateProperty>
|
||||
<Import Project="$(WixTargetsPath)" Condition=" '$(WixTargetsPath)' != '' " />
|
||||
<Import Project="$(MSBuildExtensionsPath32)\Microsoft\WiX\v3.x\Wix.targets" Condition=" '$(WixTargetsPath)' == '' AND Exists('$(MSBuildExtensionsPath32)\Microsoft\WiX\v3.x\Wix.targets') " />
|
||||
<Target Name="EnsureWixToolsetInstalled" Condition=" '$(WixTargetsImported)' != 'true' ">
|
||||
<Error Text="The WiX Toolset v3.11 (or newer) build tools must be installed to build this project. To download the WiX Toolset, see http://wixtoolset.org/releases/" />
|
||||
</Target>
|
||||
<Target Name="BeforeBuild">
|
||||
<!-- Get the programs assembly version from the .exe file -->
|
||||
@@ -75,6 +61,10 @@
|
||||
</CreateProperty>
|
||||
</Target>
|
||||
<!--
|
||||
To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Wix.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
BIN
app/packages/NLog.4.7.10/.signature.p7s
vendored
Normal file
BIN
app/packages/NLog.4.7.10/.signature.p7s
vendored
Normal file
Binary file not shown.
BIN
app/packages/NLog.4.7.10/NLog.4.7.10.nupkg
vendored
Normal file
BIN
app/packages/NLog.4.7.10/NLog.4.7.10.nupkg
vendored
Normal file
Binary file not shown.
BIN
app/packages/NLog.4.7.10/lib/monoandroid44/NLog.dll
vendored
Normal file
BIN
app/packages/NLog.4.7.10/lib/monoandroid44/NLog.dll
vendored
Normal file
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user