AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Personalakte und ComputerAppConfig Fehler

Browse Source
This commit is contained in:
Developer01 2025-06-05 15:36:50 +02:00
parent b4631d8af8
commit 0159fa79c4
18 changed files with 356 additions and 368 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD-Record-Organizer/App.config
View File

@ -10,7 +10,9 @@
</sectionGroup> </sectionGroup>
</configSections> </configSections>
<connectionStrings> <connectionStrings>
<add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString" connectionString="Data Source=172.24.12.44\MERCER;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=True;TrustServerCertificate=True" providerName="System.Data.SqlClient" /> <add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString"
connectionString="Data Source=172.24.12.44\MERCER;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=True;TrustServerCertificate=True"
providerName="System.Data.SqlClient" />
</connectionStrings> </connectionStrings>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" /> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />
@ -62,9 +64,6 @@
<setting name="UserDocIDIndexname" serializeAs="String"> <setting name="UserDocIDIndexname" serializeAs="String">
<value>Dokument-ID</value> <value>Dokument-ID</value>
</setting> </setting>
<setting name="UseAppConfigConString" serializeAs="String">
<value>True</value>
</setting>
<setting name="EntFormsChild" serializeAs="String"> <setting name="EntFormsChild" serializeAs="String">
<value>True</value> <value>True</value>
</setting> </setting>
@ -75,6 +74,9 @@
<setting name="windreamGruppe" serializeAs="String"> <setting name="windreamGruppe" serializeAs="String">
<value>sDigital Data - windream-Benutzer</value> <value>sDigital Data - windream-Benutzer</value>
</setting> </setting>
<setting name="UseAppConfig" serializeAs="String">
<value>False</value>
</setting>
</DD_Record_Organizer.My.MySettings> </DD_Record_Organizer.My.MySettings>
<DevExpress.LookAndFeel.Design.AppSettings> <DevExpress.LookAndFeel.Design.AppSettings>
<setting name="DefaultAppSkin" serializeAs="String"> <setting name="DefaultAppSkin" serializeAs="String">

14
app/DD-Record-Organizer/Classes/ClassDocGrid.vb
View File

@ -89,8 +89,18 @@ Public Class ClassDocGrid
Return oSelectedRows.Count = 0 Return oSelectedRows.Count = 0
End Function End Function
Public Shared Function GetSelectedDocuments(pGridView As GridView) As List(Of clsWMDoc) Public Shared Function GetSelectedDocuments(pGridView As GridView, Optional pGetFirst As Boolean = False) As List(Of clsWMDoc)
Dim oSelectedRows As List(Of Integer) = pGridView.GetSelectedRows().ToList() Dim oSelectedRows As List(Of Integer)
If pGridView.RowCount = 0 Then
Return Nothing
End If
If pGetFirst = True Then
pGridView.FocusedRowHandle = 0
oSelectedRows = New List(Of Integer) From {0}
Else
oSelectedRows = pGridView.GetSelectedRows().ToList()
End If
Dim oDocuments As New List(Of clsWMDoc) Dim oDocuments As New List(Of clsWMDoc)
For Each oRowHandle In oSelectedRows For Each oRowHandle In oSelectedRows

5
app/DD-Record-Organizer/Classes/ClassHelper.vb
View File

@ -7,6 +7,7 @@ Public Class ClassHelper
Private Shared BW_DocID As Integer Private Shared BW_DocID As Integer
Public Shared Function FORMAT_WM_PATH(WMpath As String) Public Shared Function FORMAT_WM_PATH(WMpath As String)
Try Try
If Not IsNothing(WMpath) Then
Dim ochanged As Boolean = False Dim ochanged As Boolean = False
If WMpath.StartsWith("W:") Then If WMpath.StartsWith("W:") Then
WMpath = WMpath.Replace("W:", WMPATH_PREFIX) WMpath = WMpath.Replace("W:", WMPATH_PREFIX)
@ -19,6 +20,10 @@ Public Class ClassHelper
End If End If
LOGGER.Debug("WMpath is: " & WMpath) LOGGER.Debug("WMpath is: " & WMpath)
Return WMpath Return WMpath
Else
Return Nothing
End If
Catch ex As Exception Catch ex As Exception
Return WMpath Return WMpath
End Try End Try

13
app/DD-Record-Organizer/Classes/ClassInit.vb
View File

@ -11,24 +11,29 @@ Public Class ClassInit
Public Sub InitLoggerANDConfig() Public Sub InitLoggerANDConfig()
Try Try
Dim oLocalUserAppDataPath As String = Application.LocalUserAppDataPath Dim oLocalUserAppDataPath As String = Application.LocalUserAppDataPath
LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, oLocalUserAppDataPath & "\Log", Nothing, LOGCONFIG = New LogConfig(LogConfig.PathType.AppData,
oLocalUserAppDataPath & "\Log", Nothing,
My.Application.Info.CompanyName, My.Application.Info.CompanyName,
My.Application.Info.ProductName) My.Application.Info.ProductName)
LOGGER = LOGCONFIG.GetLogger() LOGGER = LOGCONFIG.GetLogger()
LOGGER.Info("orgFLOW started") LOGGER.Info("orgFLOW started")
Dim oUserAppDataPath As String = Application.UserAppDataPath Dim oUserAppDataPath As String = Application.UserAppDataPath
Dim oLegacyAppDataPath As String = Application.UserAppDataPath Dim oLegacyAppDataPath As String = Application.UserAppDataPath
Dim oCommonAppDataPath = Application.CommonAppDataPath Dim oCommonAppDataPath = Application.CommonAppDataPath
LOGGER.Debug($"oCommonAppDataPath: {oCommonAppDataPath}")
Dim oStartupPath = Application.StartupPath Dim oStartupPath = Application.StartupPath
' If AppConfig from Startup Path should be forced, rewrite the common app data path ' If AppConfig from Startup Path should be forced, rewrite the common app data path
If My.Settings.UseAppConfigConString = True Then If My.Settings.UseAppConfig = True Then
oCommonAppDataPath = oStartupPath oCommonAppDataPath = oStartupPath
LOGGER.Info($"Achtung: Anstatt ComputerConfig wird AppConfig-/Startup-Path ({oCommonAppDataPath}) benutzt! (UseAppConfig in Appdata)")
End If End If
CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, oUserAppDataPath, oCommonAppDataPath, oStartupPath) CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, oUserAppDataPath, oCommonAppDataPath, oStartupPath)
LOGGER.Info("Config loaded") LOGGER.Debug("Config loaded")
LOGGER.Debug($"oUserAppDataPath: {oUserAppDataPath}")
LOGGER.Debug($"oCommonAppDataPath: {oCommonAppDataPath}")
Try Try
If CONFIG.Config.ConnectionString <> String.Empty Then If CONFIG.Config.ConnectionString <> String.Empty Then
LOGGER.Debug("Connection String loaded") LOGGER.Debug("Connection String loaded")

31
app/DD-Record-Organizer/Classes/ClassSQLEditor.vb
View File

@ -1,7 +1,9 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports System.Data.SqlClient
Imports System.Drawing.Design Imports System.Drawing.Design
Imports System.Windows.Forms Imports System.Windows.Forms
Imports System.Windows.Forms.Design Imports System.Windows.Forms.Design
Imports DigitalData.GUIs.Common
Public Class ClassSQLEditor Public Class ClassSQLEditor
Inherits UITypeEditor Inherits UITypeEditor
@ -14,19 +16,26 @@ Public Class ClassSQLEditor
Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object
'Return MyBase.EditValue(context, provider, value) 'Return MyBase.EditValue(context, provider, value)
Dim svc As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService) Dim svc As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)
Dim SQLSTring As String = DirectCast(value, SQLValue).Value Dim SQLString As String = DirectCast(value, SQLValue).Value
'If svc IsNot Nothing AndAlso SQLSTring IsNot Nothing Then If svc IsNot Nothing AndAlso SQLString IsNot Nothing Then
' Using Form As New frmSQLEditor() Dim oForm2 As New DigitalData.GUIs.Common.frmSQLEditor(LOGCONFIG, MYDB_ECM) With {
' Form.Value = SQLSTring .SQLCommand = SQLString
' If svc.ShowDialog(Form) = DialogResult.OK Then }
' Dim sql As New SQLValue(Form.Value)
' value = sql Dim oResult = oForm2.ShowDialog()
' End If If oResult = DialogResult.OK Then
' End Using Dim oSql As New SQLValue(oForm2.SQLCommand)
'End If value = oSql
SQLString = oForm2.SQLCommand
End If
End If
If Not IsNothing(value) Then
Return value
Else
Return Nothing
End If
Return ""
End Function End Function
End Class End Class

2
app/DD-Record-Organizer/My Project/AssemblyInfo.vb
View File

@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.4.0.0")> <Assembly: AssemblyVersion("3.4.2.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

13
app/DD-Record-Organizer/My Project/Settings.Designer.vb generated
View File

@ -15,7 +15,7 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.9.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.14.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
@ -267,16 +267,13 @@ Namespace My
End Get End Get
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _ Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property UseAppConfigConString() As Boolean Public ReadOnly Property UseAppConfig() As Boolean
Get Get
Return CType(Me("UseAppConfigConString"),Boolean) Return CType(Me("UseAppConfig"),Boolean)
End Get End Get
Set
Me("UseAppConfigConString") = value
End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _

4
app/DD-Record-Organizer/My Project/Settings.Settings
View File

@ -58,8 +58,8 @@
&lt;/SerializableConnectionString&gt;</DesignTimeValue> &lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=172.24.12.44\MERCER;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=True;TrustServerCertificate=True</Value> <Value Profile="(Default)">Data Source=172.24.12.44\MERCER;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=True;TrustServerCertificate=True</Value>
</Setting> </Setting>
<Setting Name="UseAppConfigConString" Type="System.Boolean" Scope="User"> <Setting Name="UseAppConfig" Type="System.Boolean" Scope="Application">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="EntFormsChild" Type="System.Boolean" Scope="User"> <Setting Name="EntFormsChild" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>

3
app/DD-Record-Organizer/OrgFlow.vbproj
View File

@ -176,6 +176,9 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath> <HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.GUIs.Common">
<HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Base"> <Reference Include="DigitalData.Modules.Base">
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath> <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
</Reference> </Reference>

12
app/DD-Record-Organizer/frmDocRecordLink.vb
View File

@ -5,7 +5,7 @@ Imports DevExpress.XtraGrid.Columns
Public Class frmDocRecordLink Public Class frmDocRecordLink
Public Property Documents As New List(Of ClassDocGrid.clsWMDoc) Public Property myDocuments As New List(Of ClassDocGrid.clsWMDoc)
Private CURRENT_LINK_ENTITY_ID As Integer = 0 Private CURRENT_LINK_ENTITY_ID As Integer = 0
Private ENTITY_LOAD_ACTIVE As Boolean = False Private ENTITY_LOAD_ACTIVE As Boolean = False
@ -75,7 +75,7 @@ Public Class frmDocRecordLink
End Sub End Sub
Private Sub frmDocRecordLink_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmDocRecordLink_Load(sender As Object, e As EventArgs) Handles Me.Load
' OLD WAY ' OLD WAY
If Documents.Count = 0 Then If myDocuments.Count = 0 Then
ENTITY_LOAD_ACTIVE = True ENTITY_LOAD_ACTIVE = True
If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
txtFileInfo.Text = ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_PATH") txtFileInfo.Text = ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_PATH")
@ -139,12 +139,12 @@ Public Class frmDocRecordLink
End If End If
If Documents.Count > 0 Then If myDocuments.Count > 0 Then
ENTITY_LOAD_ACTIVE = True ENTITY_LOAD_ACTIVE = True
If Documents.Count = 1 Then If myDocuments.Count = 1 Then
txtFileInfo.Text = Documents.First.DocPath txtFileInfo.Text = myDocuments.First.DocPath
Else Else
txtFileInfo.Text = String.Format("{0} files selected for linking to record", Documents.Count) txtFileInfo.Text = String.Format("{0} files selected for linking to record", myDocuments.Count)
End If End If
Try Try
If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then

1
app/DD-Record-Organizer/frmEntities.Designer.vb generated
View File

@ -414,7 +414,6 @@ Partial Class frmEntities
' '
'ProgressPanel1 'ProgressPanel1
' '
Me.ProgressPanel1.Appearance.BackColor = CType(resources.GetObject("ProgressPanel1.Appearance.BackColor"), System.Drawing.Color)
Me.ProgressPanel1.Appearance.Options.UseBackColor = True Me.ProgressPanel1.Appearance.Options.UseBackColor = True
Me.ProgressPanel1.AppearanceCaption.Options.UseTextOptions = True Me.ProgressPanel1.AppearanceCaption.Options.UseTextOptions = True
resources.ApplyResources(Me.ProgressPanel1, "ProgressPanel1") resources.ApplyResources(Me.ProgressPanel1, "ProgressPanel1")

146
app/DD-Record-Organizer/frmEntities.resx
View File

@ -482,9 +482,6 @@
<data name="&gt;&gt;TBPMO_FORMBindingNavigator.ZOrder" xml:space="preserve"> <data name="&gt;&gt;TBPMO_FORMBindingNavigator.ZOrder" xml:space="preserve">
<value>11</value> <value>11</value>
</data> </data>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TBPMO_FORM_VIEWBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPMO_FORM_VIEWBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1104, 17</value> <value>1104, 17</value>
</metadata> </metadata>
@ -512,9 +509,6 @@
<data name="&gt;&gt;DESCRIPTIONTextBox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;DESCRIPTIONTextBox.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<metadata name="TBPMO_FORM_VIEWBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1104, 17</value>
</metadata>
<data name="FORM_TITLETextBox.Font" type="System.Drawing.Font, System.Drawing"> <data name="FORM_TITLETextBox.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value> <value>Segoe UI, 9.75pt</value>
</data> </data>
@ -650,105 +644,6 @@
<metadata name="TBPMO_FORM_VIEWTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPMO_FORM_VIEWTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value> <value>17, 56</value>
</metadata> </metadata>
<data name="&gt;&gt;Label4.Name" xml:space="preserve">
<value>Label4</value>
</data>
<data name="&gt;&gt;Label4.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label4.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;Label4.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="&gt;&gt;SINGLE_RECORDCheckBox.Name" xml:space="preserve">
<value>SINGLE_RECORDCheckBox</value>
</data>
<data name="&gt;&gt;SINGLE_RECORDCheckBox.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SINGLE_RECORDCheckBox.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;SINGLE_RECORDCheckBox.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="&gt;&gt;NumericUpDown1.Name" xml:space="preserve">
<value>NumericUpDown1</value>
</data>
<data name="&gt;&gt;NumericUpDown1.Type" xml:space="preserve">
<value>System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;NumericUpDown1.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;NumericUpDown1.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="&gt;&gt;ENTITY_IDTextBox.Name" xml:space="preserve">
<value>ENTITY_IDTextBox</value>
</data>
<data name="&gt;&gt;ENTITY_IDTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ENTITY_IDTextBox.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;ENTITY_IDTextBox.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="&gt;&gt;ComboBox1.Name" xml:space="preserve">
<value>ComboBox1</value>
</data>
<data name="&gt;&gt;ComboBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ComboBox1.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;ComboBox1.ZOrder" xml:space="preserve">
<value>10</value>
</data>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.Name" xml:space="preserve">
<value>SHOW_FORM_CONSTRUCTCheckBox</value>
</data>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.ZOrder" xml:space="preserve">
<value>11</value>
</data>
<data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Bold</value>
</data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>328, 53</value>
</data>
<data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>424, 368</value>
</data>
<data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
<value>23</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>Entity Properties:</value>
</data>
<data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>9</value>
</data>
<data name="Label4.AutoSize" type="System.Boolean, mscorlib"> <data name="Label4.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
@ -882,9 +777,6 @@ diese Entität angelegt werden.</value>
<data name="&gt;&gt;ComboBox1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;ComboBox1.ZOrder" xml:space="preserve">
<value>10</value> <value>10</value>
</data> </data>
<metadata name="TBPMO_FORM_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>255, 56</value>
</metadata>
<data name="SHOW_FORM_CONSTRUCTCheckBox.Font" type="System.Drawing.Font, System.Drawing"> <data name="SHOW_FORM_CONSTRUCTCheckBox.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value> <value>Segoe UI, 9.75pt</value>
</data> </data>
@ -912,6 +804,33 @@ diese Entität angelegt werden.</value>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.ZOrder" xml:space="preserve">
<value>11</value> <value>11</value>
</data> </data>
<data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Bold</value>
</data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>328, 53</value>
</data>
<data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>424, 368</value>
</data>
<data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
<value>23</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>Entity Properties:</value>
</data>
<data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>9</value>
</data>
<data name="TreeViewEntity.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="TreeViewEntity.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left</value> <value>Top, Bottom, Left</value>
</data> </data>
@ -1191,7 +1110,7 @@ diese Entität angelegt werden.</value>
<data name="btnGenerate.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnGenerate.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf wgAADsIBFShKgAAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf
/yM6KFk5Z0NsRBFgz3DbtUhciBhCKNbaorVuwB409KCXbUexOTnnLkaJ9x4hqQmhRYTQM/TgkFjNBq8m /yM6KFk5Z0NsRBFgz3DbtUhciBhCKNbaorVuwB409KCXbUexOTnnLkaJ9x4hqQmhRYTQM/TgkFjNBq8m
m9bXWt7ps4NnqfNxDAK23pnBKAQeeBHQCJJRCLxNQG0ccQ75f0CPmSM8/ojPfiPPQpyZwkozSCha7KM8 m9bXWt7ps4NnqfNxDAK23pnBKAQeeBHQCJJRCLxNQG0ccQ75f0CPmSM8/ojPfiPPQpyZwkozSCha7KM8
M43dUUZxyG+X6Vwk3rjOSn0Bs2pSjcG3D98AAAAASUVORK5CYII= M43dUUZxyG+X6Vwk3rjOSn0Bs2pSjcG3D98AAAAASUVORK5CYII=
@ -1267,7 +1186,7 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
<data name="btncancel.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btncancel.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAQdJREFUOE+lkTEOgkAURD0CR/AIHMHQk9jSWXAAaiorWsMJOAIFPSUtCaEkSEUI wgAADsIBFShKgAAAAQdJREFUOE+lkTEOgkAURD0CR/AIHMHQk9jSWXAAaiorWsMJOAIFPSUtCaEkSEUI
FHS03z8bVllcEsFJJq7z/7xFORHRX9aGe/w5sKZpMtlPNrEjES7E2WU51wFi3/fJsixK0xRL1zk/t20b FHS03z8bVllcEsFJJq7z/7xFORHRX9aGe/w5sKZpMtlPNrEjES7E2WU51wFi3/fJsixK0xRL1zk/t20b
h2FIQRC84TpAJAG2bVNVVbjtnmXZ6DiOUoZ0AKPrutx1XQHBJ27FeV2GvgDQGrJVhrYA5mEAL3lFUYzL h2FIQRC84TpAJAG2bVNVVbjtnmXZ6DiOUoZ0AKPrutx1XQHBJ27FeV2GvgDQGrJVhrYA5mEAL3lFUYzL
n4AyzkmSAOKJxVkKADeUZSn+PFnGkyCXEMz5u3gzkAJomkYp930/8rKJRUDwBJgvcwVQ1/WIMpYA46Ub n4AyzkmSAOKJxVkKADeUZSn+PFnGkyCXEMz5u3gzkAJomkYp930/8rKJRUDwBJgvcwVQ1/WIMpYA46Ub
@ -1307,9 +1226,6 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
<data name="&gt;&gt;btncancel.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btncancel.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="ProgressPanel1.Appearance.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Transparent</value>
</data>
<data name="ProgressPanel1.Description" xml:space="preserve"> <data name="ProgressPanel1.Description" xml:space="preserve">
<value>Procedure is executing ......</value> <value>Procedure is executing ......</value>
</data> </data>
@ -1343,7 +1259,7 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
<data name="btnRefreshEntityTable.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnRefreshEntityTable.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAGxJREFUOE/NjNEJgDAMBTNbVnA3v1zDQZxE/cmv8oqBECm+VgQDR9PAnWDM7Oih wQAADsEBuJFr7QAAAGxJREFUOE/NjNEJgDAMBTNbVnA3v1zDQZxE/cmv8oqBECm+VgQDR9PAnWDM7Oih
yBh8VLWJnwa2daegAzJMhXz/PjDOS3ljwG/gMQAJggd8pwNRjhE6kCNRBlQAQMwyoAM1qoEWboEeLv3N yBh8VLWJnwa2daegAzJMhXz/PjDOS3ljwG/gMQAJggd8pwNRjhE6kCNRBlQAQMwyoAM1qoEWboEeLv3N
iJxnTngNYdMDJwAAAABJRU5ErkJggg== iJxnTngNYdMDJwAAAABJRU5ErkJggg==
</value> </value>
@ -1384,7 +1300,7 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
<data name="btnCreateEntityTable.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnCreateEntityTable.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAE1JREFUOE9j+P//P8O3b9/+k4vhBjg5OZGMB6EBH95/hGNi+NQ3gFRMfRegKyDE wgAADsIBFShKgAAAAE1JREFUOE9j+P//P8O3b9/+k4vhBjg5OZGMB6EBH95/hGNi+NQ3gFRMfRegKyDE
xzCAVEx9F6ArIMTHMIBUjGIAuRhsACUYqyDx+D8DAGWb3TPY4bxVAAAAAElFTkSuQmCC xzCAVEx9F6ArIMTHMIBUjGIAuRhsACUYqyDx+D8DAGWb3TPY4bxVAAAAAElFTkSuQmCC
</value> </value>
</data> </data>

4
app/DD-Record-Organizer/frmEntities.vb
View File

@ -48,8 +48,8 @@ Public Class frmEntities
End Sub End Sub
Sub Load_TreeView() Sub Load_TreeView()
Try 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 " & _ 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) "TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID IN (1,6) 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)
LOGGER.Debug(Now.ToString & "Level 0 >>" & DT_SQL, False) LOGGER.Debug(Now.ToString & "Level 0 >>" & DT_SQL, False)
Dim DT As DataTable = MYDB_ECM.GetDatatable(DT_SQL) Dim DT As DataTable = MYDB_ECM.GetDatatable(DT_SQL)

6
app/DD-Record-Organizer/frmMain.vb
View File

@ -207,7 +207,7 @@ Public Class frmMain
ElseIf ERROR_INIT = "INVALID USER" Then ElseIf ERROR_INIT = "INVALID USER" Then
End If End If
Load_TasksforUser() 'Load_TasksforUser()
End Sub End Sub
Sub LoggedIn() Sub LoggedIn()
Try Try
@ -545,7 +545,7 @@ Public Class frmMain
End Sub End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles TimerTasks.Tick Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles TimerTasks.Tick
Refresh_TaskReminder() ' Refresh_TaskReminder()
End Sub End Sub
@ -563,7 +563,7 @@ Public Class frmMain
If Task_Popup_minutes <> 0 Then If Task_Popup_minutes <> 0 Then
TimerTasks.Start() TimerTasks.Start()
Refresh_TaskReminder() 'Refresh_TaskReminder()
End If End If
RUN_TIMER() RUN_TIMER()

222
app/DD-Record-Organizer/frmNodeNavigation.Designer.vb generated
View File

@ -24,7 +24,7 @@ Partial Class frmNodeNavigation
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNodeNavigation)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNodeNavigation))
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Me.ribbonNodeNavigation = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.ribbonNodeNavigation = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.bbtnitmRecEdit = New DevExpress.XtraBars.BarButtonItem() Me.bbtnitmRecEdit = New DevExpress.XtraBars.BarButtonItem()
Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem() Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem()
@ -44,6 +44,7 @@ Partial Class frmNodeNavigation
Me.checkShowPreview = New DevExpress.XtraBars.BarCheckItem() Me.checkShowPreview = New DevExpress.XtraBars.BarCheckItem()
Me.btnCreateNewNode = New DevExpress.XtraBars.BarButtonItem() Me.btnCreateNewNode = New DevExpress.XtraBars.BarButtonItem()
Me.tsitmDMSReadOnly = New DevExpress.XtraBars.BarStaticItem() Me.tsitmDMSReadOnly = New DevExpress.XtraBars.BarStaticItem()
Me.bsiNotification = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroupRecord = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupRecord = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupDocResult = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupDocResult = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@ -66,14 +67,15 @@ Partial Class frmNodeNavigation
Me.tsmiFileInWork = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileInWork = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.tsmiFileLink_Add = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileLink_Add = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFileLink_ShowAll = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFileLinkRemove = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileLinkRemove = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFileLink_ShowAll = New System.Windows.Forms.ToolStripMenuItem()
Me.LinkPerMailVersendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.tsmiFileRename = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileRename = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFileRenameFilename = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileRenameFilename = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFileRenameDisplayname = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileRenameDisplayname = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFileVersion = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentartÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DokumentartÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFileVersion = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFileRightsShow = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileRightsShow = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.tsmiFileDelete = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiFileDelete = New System.Windows.Forms.ToolStripMenuItem()
@ -97,9 +99,6 @@ Partial Class frmNodeNavigation
Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl()
Me.Bar1 = New DevExpress.XtraBars.Bar()
Me.Bar2 = New DevExpress.XtraBars.Bar()
Me.Bar3 = New DevExpress.XtraBars.Bar()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
@ -114,13 +113,13 @@ Partial Class frmNodeNavigation
Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem()
Me.PopupMenu2 = New DevExpress.XtraBars.PopupMenu(Me.components)
Me.PopupMenu3 = New DevExpress.XtraBars.PopupMenu(Me.components)
Me.BarButtonItem15 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem15 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem16 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem16 = New DevExpress.XtraBars.BarButtonItem()
Me.PopupMenu4 = New DevExpress.XtraBars.PopupMenu(Me.components)
Me.BarButtonItem17 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem17 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem18 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem18 = New DevExpress.XtraBars.BarButtonItem()
Me.PopupMenu2 = New DevExpress.XtraBars.PopupMenu(Me.components)
Me.PopupMenu3 = New DevExpress.XtraBars.PopupMenu(Me.components)
Me.PopupMenu4 = New DevExpress.XtraBars.PopupMenu(Me.components)
Me.PopupMenu5 = New DevExpress.XtraBars.PopupMenu(Me.components) Me.PopupMenu5 = New DevExpress.XtraBars.PopupMenu(Me.components)
CType(Me.ribbonNodeNavigation, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ribbonNodeNavigation, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerTreeList, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerTreeList, System.ComponentModel.ISupportInitialize).BeginInit()
@ -159,9 +158,9 @@ Partial Class frmNodeNavigation
'ribbonNodeNavigation 'ribbonNodeNavigation
' '
Me.ribbonNodeNavigation.ExpandCollapseItem.Id = 0 Me.ribbonNodeNavigation.ExpandCollapseItem.Id = 0
Me.ribbonNodeNavigation.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonNodeNavigation.ExpandCollapseItem, Me.ribbonNodeNavigation.SearchEditItem, Me.bbtnitmRecEdit, Me.bsiInfo, Me.bbtnitmRecSave, Me.bsiDocID, Me.bsitmRecordID, Me.bbtnitmDocResultExport, Me.bbtnitmDocResultLayoutSave, Me.bbtnitmDocResultLayoutReset, Me.bbtnitmDocResultRefresh, Me.BarStaticItemLocked, Me.bsitmtInfoDoc, Me.BarButtonItem1, Me.bbtnitmReloadView, Me.BbtnitmNodeReorder, Me.bbtnItm_TV_Collape_Expand, Me.checkShowPreview, Me.btnCreateNewNode, Me.tsitmDMSReadOnly}) Me.ribbonNodeNavigation.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonNodeNavigation.ExpandCollapseItem, Me.ribbonNodeNavigation.SearchEditItem, Me.bbtnitmRecEdit, Me.bsiInfo, Me.bbtnitmRecSave, Me.bsiDocID, Me.bsitmRecordID, Me.bbtnitmDocResultExport, Me.bbtnitmDocResultLayoutSave, Me.bbtnitmDocResultLayoutReset, Me.bbtnitmDocResultRefresh, Me.BarStaticItemLocked, Me.bsitmtInfoDoc, Me.BarButtonItem1, Me.bbtnitmReloadView, Me.BbtnitmNodeReorder, Me.bbtnItm_TV_Collape_Expand, Me.checkShowPreview, Me.btnCreateNewNode, Me.tsitmDMSReadOnly, Me.bsiNotification})
Me.ribbonNodeNavigation.Location = New System.Drawing.Point(0, 41) Me.ribbonNodeNavigation.Location = New System.Drawing.Point(0, 0)
Me.ribbonNodeNavigation.MaxItemId = 25 Me.ribbonNodeNavigation.MaxItemId = 26
Me.ribbonNodeNavigation.Name = "ribbonNodeNavigation" Me.ribbonNodeNavigation.Name = "ribbonNodeNavigation"
Me.ribbonNodeNavigation.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.ribbonNodeNavigation.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.ribbonNodeNavigation.PopupMenuAlignment = DevExpress.XtraBars.PopupMenuAlignment.Left Me.ribbonNodeNavigation.PopupMenuAlignment = DevExpress.XtraBars.PopupMenuAlignment.Left
@ -170,7 +169,7 @@ Partial Class frmNodeNavigation
Me.ribbonNodeNavigation.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[True] Me.ribbonNodeNavigation.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[True]
Me.ribbonNodeNavigation.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False] Me.ribbonNodeNavigation.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
Me.ribbonNodeNavigation.ShowToolbarCustomizeItem = False Me.ribbonNodeNavigation.ShowToolbarCustomizeItem = False
Me.ribbonNodeNavigation.Size = New System.Drawing.Size(1443, 146) Me.ribbonNodeNavigation.Size = New System.Drawing.Size(966, 147)
Me.ribbonNodeNavigation.StatusBar = Me.RibbonStatusBar1 Me.ribbonNodeNavigation.StatusBar = Me.RibbonStatusBar1
Me.ribbonNodeNavigation.Toolbar.ShowCustomizeItem = False Me.ribbonNodeNavigation.Toolbar.ShowCustomizeItem = False
' '
@ -307,6 +306,15 @@ Partial Class frmNodeNavigation
Me.tsitmDMSReadOnly.Name = "tsitmDMSReadOnly" Me.tsitmDMSReadOnly.Name = "tsitmDMSReadOnly"
Me.tsitmDMSReadOnly.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.tsitmDMSReadOnly.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
' '
'bsiNotification
'
Me.bsiNotification.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
Me.bsiNotification.Id = 25
Me.bsiNotification.ItemAppearance.Normal.BackColor = System.Drawing.Color.Yellow
Me.bsiNotification.ItemAppearance.Normal.Options.UseBackColor = True
Me.bsiNotification.Name = "bsiNotification"
Me.bsiNotification.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupRecord, Me.RibbonPageGroupDocResult, Me.RibbonPageGroup1, Me.RPGNodes}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupRecord, Me.RibbonPageGroupDocResult, Me.RibbonPageGroup1, Me.RPGNodes})
@ -353,13 +361,14 @@ Partial Class frmNodeNavigation
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDocID) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDocID)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmRecordID) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmRecordID)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiNotification)
Me.RibbonStatusBar1.ItemLinks.Add(Me.tsitmDMSReadOnly) Me.RibbonStatusBar1.ItemLinks.Add(Me.tsitmDMSReadOnly)
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemLocked) Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemLocked)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmtInfoDoc) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmtInfoDoc)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 769) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 787)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.ribbonNodeNavigation Me.RibbonStatusBar1.Ribbon = Me.ribbonNodeNavigation
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1443, 22) Me.RibbonStatusBar1.Size = New System.Drawing.Size(966, 23)
' '
'RibbonPage2 'RibbonPage2
' '
@ -381,8 +390,8 @@ Partial Class frmNodeNavigation
' '
Me.SplitContainerTreeList.Panel2.Controls.Add(Me.SplitContainerDocumentSearch) Me.SplitContainerTreeList.Panel2.Controls.Add(Me.SplitContainerDocumentSearch)
Me.SplitContainerTreeList.Panel2.Text = "Panel2" Me.SplitContainerTreeList.Panel2.Text = "Panel2"
Me.SplitContainerTreeList.Size = New System.Drawing.Size(969, 582) Me.SplitContainerTreeList.Size = New System.Drawing.Size(799, 640)
Me.SplitContainerTreeList.SplitterPosition = 289 Me.SplitContainerTreeList.SplitterPosition = 229
Me.SplitContainerTreeList.TabIndex = 2 Me.SplitContainerTreeList.TabIndex = 2
' '
'TreeListDevexpress 'TreeListDevexpress
@ -423,7 +432,7 @@ Partial Class frmNodeNavigation
Me.TreeListDevexpress.OptionsView.ShowVertLines = False Me.TreeListDevexpress.OptionsView.ShowVertLines = False
Me.TreeListDevexpress.OptionsView.TreeLineStyle = DevExpress.XtraTreeList.LineStyle.Dark Me.TreeListDevexpress.OptionsView.TreeLineStyle = DevExpress.XtraTreeList.LineStyle.Dark
Me.TreeListDevexpress.ParentFieldName = "PARENT_GUID" Me.TreeListDevexpress.ParentFieldName = "PARENT_GUID"
Me.TreeListDevexpress.Size = New System.Drawing.Size(289, 582) Me.TreeListDevexpress.Size = New System.Drawing.Size(229, 640)
Me.TreeListDevexpress.StateImageList = Me.ImageCollection1 Me.TreeListDevexpress.StateImageList = Me.ImageCollection1
Me.TreeListDevexpress.TabIndex = 1 Me.TreeListDevexpress.TabIndex = 1
' '
@ -447,7 +456,7 @@ Partial Class frmNodeNavigation
' '
Me.SplitContainerDocumentSearch.Panel2.Controls.Add(Me.GridControlDocSearch) Me.SplitContainerDocumentSearch.Panel2.Controls.Add(Me.GridControlDocSearch)
Me.SplitContainerDocumentSearch.Panel2.Text = "Panel2" Me.SplitContainerDocumentSearch.Panel2.Text = "Panel2"
Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(670, 582) Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(558, 640)
Me.SplitContainerDocumentSearch.SplitterPosition = 246 Me.SplitContainerDocumentSearch.SplitterPosition = 246
Me.SplitContainerDocumentSearch.TabIndex = 1 Me.SplitContainerDocumentSearch.TabIndex = 1
' '
@ -458,7 +467,7 @@ Partial Class frmNodeNavigation
Me.pnlControls.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlControls.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlControls.Location = New System.Drawing.Point(0, 0) Me.pnlControls.Location = New System.Drawing.Point(0, 0)
Me.pnlControls.Name = "pnlControls" Me.pnlControls.Name = "pnlControls"
Me.pnlControls.Size = New System.Drawing.Size(670, 246) Me.pnlControls.Size = New System.Drawing.Size(558, 246)
Me.pnlControls.TabIndex = 0 Me.pnlControls.TabIndex = 0
' '
'GridControlDocSearch 'GridControlDocSearch
@ -467,141 +476,149 @@ Partial Class frmNodeNavigation
Me.GridControlDocSearch.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.GridControlDocSearch.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.GridControlDocSearch.ContextMenuStrip = Me.cmsResultFileDetail Me.GridControlDocSearch.ContextMenuStrip = Me.cmsResultFileDetail
Me.GridControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill Me.GridControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill
GridLevelNode2.RelationName = "Level1" GridLevelNode1.RelationName = "Level1"
Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2}) Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 0) Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
Me.GridControlDocSearch.Name = "GridControlDocSearch" Me.GridControlDocSearch.Name = "GridControlDocSearch"
Me.GridControlDocSearch.Size = New System.Drawing.Size(670, 326) Me.GridControlDocSearch.Size = New System.Drawing.Size(558, 382)
Me.GridControlDocSearch.TabIndex = 8 Me.GridControlDocSearch.TabIndex = 8
Me.GridControlDocSearch.TabStop = False Me.GridControlDocSearch.TabStop = False
Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search}) Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search})
' '
'cmsResultFileDetail 'cmsResultFileDetail
' '
Me.cmsResultFileDetail.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cmsResultFileDetail.ImageScalingSize = New System.Drawing.Size(18, 18)
Me.cmsResultFileDetail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiFileProperties, Me.ToolStripSeparator5, Me.tsmiFileOpen, Me.tsmiFileFolderOpen, Me.ToolStripSeparator1, Me.tsmiFileInWork, Me.ToolStripSeparator3, Me.tsmiFileLink_Add, Me.tsmiFileLink_ShowAll, Me.tsmiFileLinkRemove, Me.ToolStripSeparator2, Me.tsmiFileRename, Me.DokumentartÄndernToolStripMenuItem, Me.tsmiFileVersion, Me.tsmiFileRightsShow, Me.ToolStripSeparator4, Me.tsmiFileDelete}) Me.cmsResultFileDetail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiFileProperties, Me.ToolStripSeparator5, Me.tsmiFileOpen, Me.tsmiFileFolderOpen, Me.ToolStripSeparator1, Me.tsmiFileInWork, Me.ToolStripSeparator3, Me.tsmiFileLink_Add, Me.tsmiFileLinkRemove, Me.tsmiFileLink_ShowAll, Me.LinkPerMailVersendenToolStripMenuItem, Me.ToolStripSeparator2, Me.tsmiFileRename, Me.DokumentartÄndernToolStripMenuItem, Me.tsmiFileVersion, Me.tsmiFileRightsShow, Me.ToolStripSeparator4, Me.tsmiFileDelete})
Me.cmsResultFileDetail.Name = "ContextMenuStripResultFiles" Me.cmsResultFileDetail.Name = "ContextMenuStripResultFiles"
Me.cmsResultFileDetail.Size = New System.Drawing.Size(248, 394) Me.cmsResultFileDetail.Size = New System.Drawing.Size(242, 346)
' '
'tsmiFileProperties 'tsmiFileProperties
' '
Me.tsmiFileProperties.Image = CType(resources.GetObject("tsmiFileProperties.Image"), System.Drawing.Image) Me.tsmiFileProperties.Image = CType(resources.GetObject("tsmiFileProperties.Image"), System.Drawing.Image)
Me.tsmiFileProperties.Name = "tsmiFileProperties" Me.tsmiFileProperties.Name = "tsmiFileProperties"
Me.tsmiFileProperties.Size = New System.Drawing.Size(247, 30) Me.tsmiFileProperties.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileProperties.Text = "Eigenschaften" Me.tsmiFileProperties.Text = "Eigenschaften"
' '
'ToolStripSeparator5 'ToolStripSeparator5
' '
Me.ToolStripSeparator5.Name = "ToolStripSeparator5" Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(244, 6) Me.ToolStripSeparator5.Size = New System.Drawing.Size(238, 6)
' '
'tsmiFileOpen 'tsmiFileOpen
' '
Me.tsmiFileOpen.Image = CType(resources.GetObject("tsmiFileOpen.Image"), System.Drawing.Image) Me.tsmiFileOpen.Image = CType(resources.GetObject("tsmiFileOpen.Image"), System.Drawing.Image)
Me.tsmiFileOpen.Name = "tsmiFileOpen" Me.tsmiFileOpen.Name = "tsmiFileOpen"
Me.tsmiFileOpen.Size = New System.Drawing.Size(247, 30) Me.tsmiFileOpen.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileOpen.Text = "Datei öffnen" Me.tsmiFileOpen.Text = "Datei öffnen"
' '
'tsmiFileFolderOpen 'tsmiFileFolderOpen
' '
Me.tsmiFileFolderOpen.Image = CType(resources.GetObject("tsmiFileFolderOpen.Image"), System.Drawing.Image) Me.tsmiFileFolderOpen.Image = CType(resources.GetObject("tsmiFileFolderOpen.Image"), System.Drawing.Image)
Me.tsmiFileFolderOpen.Name = "tsmiFileFolderOpen" Me.tsmiFileFolderOpen.Name = "tsmiFileFolderOpen"
Me.tsmiFileFolderOpen.Size = New System.Drawing.Size(247, 30) Me.tsmiFileFolderOpen.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileFolderOpen.Text = "Ordner öffnen" Me.tsmiFileFolderOpen.Text = "Ordner öffnen"
' '
'ToolStripSeparator1 'ToolStripSeparator1
' '
Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(244, 6) Me.ToolStripSeparator1.Size = New System.Drawing.Size(238, 6)
' '
'tsmiFileInWork 'tsmiFileInWork
' '
Me.tsmiFileInWork.Image = CType(resources.GetObject("tsmiFileInWork.Image"), System.Drawing.Image) Me.tsmiFileInWork.Image = CType(resources.GetObject("tsmiFileInWork.Image"), System.Drawing.Image)
Me.tsmiFileInWork.Name = "tsmiFileInWork" Me.tsmiFileInWork.Name = "tsmiFileInWork"
Me.tsmiFileInWork.Size = New System.Drawing.Size(247, 30) Me.tsmiFileInWork.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileInWork.Text = "Datei in Bearbeitung nehmen" Me.tsmiFileInWork.Text = "Datei in Bearbeitung nehmen"
' '
'ToolStripSeparator3 'ToolStripSeparator3
' '
Me.ToolStripSeparator3.Name = "ToolStripSeparator3" Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(244, 6) Me.ToolStripSeparator3.Size = New System.Drawing.Size(238, 6)
' '
'tsmiFileLink_Add 'tsmiFileLink_Add
' '
Me.tsmiFileLink_Add.Image = CType(resources.GetObject("tsmiFileLink_Add.Image"), System.Drawing.Image) Me.tsmiFileLink_Add.Image = CType(resources.GetObject("tsmiFileLink_Add.Image"), System.Drawing.Image)
Me.tsmiFileLink_Add.Name = "tsmiFileLink_Add" Me.tsmiFileLink_Add.Name = "tsmiFileLink_Add"
Me.tsmiFileLink_Add.Size = New System.Drawing.Size(247, 30) Me.tsmiFileLink_Add.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileLink_Add.Text = "Datei mit Datensatz verknüpfen" Me.tsmiFileLink_Add.Text = "Datei mit Datensatz verknüpfen"
' '
'tsmiFileLink_ShowAll
'
Me.tsmiFileLink_ShowAll.Image = CType(resources.GetObject("tsmiFileLink_ShowAll.Image"), System.Drawing.Image)
Me.tsmiFileLink_ShowAll.Name = "tsmiFileLink_ShowAll"
Me.tsmiFileLink_ShowAll.Size = New System.Drawing.Size(247, 30)
Me.tsmiFileLink_ShowAll.Text = "Verknüpfungen anzeigen"
'
'tsmiFileLinkRemove 'tsmiFileLinkRemove
' '
Me.tsmiFileLinkRemove.Image = CType(resources.GetObject("tsmiFileLinkRemove.Image"), System.Drawing.Image) Me.tsmiFileLinkRemove.Image = CType(resources.GetObject("tsmiFileLinkRemove.Image"), System.Drawing.Image)
Me.tsmiFileLinkRemove.Name = "tsmiFileLinkRemove" Me.tsmiFileLinkRemove.Name = "tsmiFileLinkRemove"
Me.tsmiFileLinkRemove.Size = New System.Drawing.Size(247, 30) Me.tsmiFileLinkRemove.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileLinkRemove.Text = "Entferne Dateilink" Me.tsmiFileLinkRemove.Text = "Entferne Dateilink"
' '
'tsmiFileLink_ShowAll
'
Me.tsmiFileLink_ShowAll.Image = CType(resources.GetObject("tsmiFileLink_ShowAll.Image"), System.Drawing.Image)
Me.tsmiFileLink_ShowAll.Name = "tsmiFileLink_ShowAll"
Me.tsmiFileLink_ShowAll.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileLink_ShowAll.Text = "Verknüpfungen anzeigen"
'
'LinkPerMailVersendenToolStripMenuItem
'
Me.LinkPerMailVersendenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.email_go
Me.LinkPerMailVersendenToolStripMenuItem.Name = "LinkPerMailVersendenToolStripMenuItem"
Me.LinkPerMailVersendenToolStripMenuItem.Size = New System.Drawing.Size(241, 24)
Me.LinkPerMailVersendenToolStripMenuItem.Text = "Link per Mail versenden"
Me.LinkPerMailVersendenToolStripMenuItem.Visible = False
'
'ToolStripSeparator2 'ToolStripSeparator2
' '
Me.ToolStripSeparator2.Name = "ToolStripSeparator2" Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(244, 6) Me.ToolStripSeparator2.Size = New System.Drawing.Size(238, 6)
' '
'tsmiFileRename 'tsmiFileRename
' '
Me.tsmiFileRename.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiFileRenameFilename, Me.tsmiFileRenameDisplayname}) Me.tsmiFileRename.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiFileRenameFilename, Me.tsmiFileRenameDisplayname})
Me.tsmiFileRename.Name = "tsmiFileRename" Me.tsmiFileRename.Name = "tsmiFileRename"
Me.tsmiFileRename.Size = New System.Drawing.Size(247, 30) Me.tsmiFileRename.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileRename.Text = "Umbenennen" Me.tsmiFileRename.Text = "Umbenennen"
' '
'tsmiFileRenameFilename 'tsmiFileRenameFilename
' '
Me.tsmiFileRenameFilename.Name = "tsmiFileRenameFilename" Me.tsmiFileRenameFilename.Name = "tsmiFileRenameFilename"
Me.tsmiFileRenameFilename.Size = New System.Drawing.Size(180, 22) Me.tsmiFileRenameFilename.Size = New System.Drawing.Size(142, 22)
Me.tsmiFileRenameFilename.Text = "Dateiname" Me.tsmiFileRenameFilename.Text = "Dateiname"
' '
'tsmiFileRenameDisplayname 'tsmiFileRenameDisplayname
' '
Me.tsmiFileRenameDisplayname.Name = "tsmiFileRenameDisplayname" Me.tsmiFileRenameDisplayname.Name = "tsmiFileRenameDisplayname"
Me.tsmiFileRenameDisplayname.Size = New System.Drawing.Size(180, 22) Me.tsmiFileRenameDisplayname.Size = New System.Drawing.Size(142, 22)
Me.tsmiFileRenameDisplayname.Text = "Displayname" Me.tsmiFileRenameDisplayname.Text = "Displayname"
' '
'DokumentartÄndernToolStripMenuItem
'
Me.DokumentartÄndernToolStripMenuItem.Name = "DokumentartÄndernToolStripMenuItem"
Me.DokumentartÄndernToolStripMenuItem.Size = New System.Drawing.Size(241, 24)
Me.DokumentartÄndernToolStripMenuItem.Text = "Dokumentart ändern"
'
'tsmiFileVersion 'tsmiFileVersion
' '
Me.tsmiFileVersion.Image = CType(resources.GetObject("tsmiFileVersion.Image"), System.Drawing.Image) Me.tsmiFileVersion.Image = CType(resources.GetObject("tsmiFileVersion.Image"), System.Drawing.Image)
Me.tsmiFileVersion.Name = "tsmiFileVersion" Me.tsmiFileVersion.Name = "tsmiFileVersion"
Me.tsmiFileVersion.Size = New System.Drawing.Size(247, 30) Me.tsmiFileVersion.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileVersion.Text = "Datei versionieren" Me.tsmiFileVersion.Text = "Datei versionieren"
' '
'DokumentartÄndernToolStripMenuItem
'
Me.DokumentartÄndernToolStripMenuItem.Name = "DokumentartÄndernToolStripMenuItem"
Me.DokumentartÄndernToolStripMenuItem.Size = New System.Drawing.Size(247, 30)
Me.DokumentartÄndernToolStripMenuItem.Text = "Dokumentart ändern"
'
'tsmiFileRightsShow 'tsmiFileRightsShow
' '
Me.tsmiFileRightsShow.Image = CType(resources.GetObject("tsmiFileRightsShow.Image"), System.Drawing.Image) Me.tsmiFileRightsShow.Image = CType(resources.GetObject("tsmiFileRightsShow.Image"), System.Drawing.Image)
Me.tsmiFileRightsShow.Name = "tsmiFileRightsShow" Me.tsmiFileRightsShow.Name = "tsmiFileRightsShow"
Me.tsmiFileRightsShow.Size = New System.Drawing.Size(247, 30) Me.tsmiFileRightsShow.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileRightsShow.Text = "Dateirechte für User anzeigen" Me.tsmiFileRightsShow.Text = "Dateirechte für User anzeigen"
' '
'ToolStripSeparator4 'ToolStripSeparator4
' '
Me.ToolStripSeparator4.Name = "ToolStripSeparator4" Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(244, 6) Me.ToolStripSeparator4.Size = New System.Drawing.Size(238, 6)
' '
'tsmiFileDelete 'tsmiFileDelete
' '
Me.tsmiFileDelete.Image = CType(resources.GetObject("tsmiFileDelete.Image"), System.Drawing.Image) Me.tsmiFileDelete.Image = CType(resources.GetObject("tsmiFileDelete.Image"), System.Drawing.Image)
Me.tsmiFileDelete.Name = "tsmiFileDelete" Me.tsmiFileDelete.Name = "tsmiFileDelete"
Me.tsmiFileDelete.Size = New System.Drawing.Size(247, 30) Me.tsmiFileDelete.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileDelete.Text = "Datei löschen" Me.tsmiFileDelete.Text = "Datei löschen"
' '
'GridViewDoc_Search 'GridViewDoc_Search
@ -668,7 +685,7 @@ Partial Class frmNodeNavigation
' '
Me.SplitContainerDocView.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 Me.SplitContainerDocView.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainerDocView.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainerDocView.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 187) Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 147)
Me.SplitContainerDocView.Name = "SplitContainerDocView" Me.SplitContainerDocView.Name = "SplitContainerDocView"
' '
'SplitContainerDocView.Panel1 'SplitContainerDocView.Panel1
@ -680,8 +697,8 @@ Partial Class frmNodeNavigation
' '
Me.SplitContainerDocView.Panel2.Controls.Add(Me.DocumentViewer) Me.SplitContainerDocView.Panel2.Controls.Add(Me.DocumentViewer)
Me.SplitContainerDocView.Panel2.Text = "Panel2" Me.SplitContainerDocView.Panel2.Text = "Panel2"
Me.SplitContainerDocView.Size = New System.Drawing.Size(1443, 582) Me.SplitContainerDocView.Size = New System.Drawing.Size(966, 640)
Me.SplitContainerDocView.SplitterPosition = 969 Me.SplitContainerDocView.SplitterPosition = 799
Me.SplitContainerDocView.TabIndex = 0 Me.SplitContainerDocView.TabIndex = 0
' '
'DocumentViewer 'DocumentViewer
@ -690,7 +707,7 @@ Partial Class frmNodeNavigation
Me.DocumentViewer.FileLoaded = False Me.DocumentViewer.FileLoaded = False
Me.DocumentViewer.Location = New System.Drawing.Point(0, 0) Me.DocumentViewer.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer.Name = "DocumentViewer" Me.DocumentViewer.Name = "DocumentViewer"
Me.DocumentViewer.Size = New System.Drawing.Size(464, 582) Me.DocumentViewer.Size = New System.Drawing.Size(155, 640)
Me.DocumentViewer.TabIndex = 0 Me.DocumentViewer.TabIndex = 0
' '
'XtraSaveFileDialog1 'XtraSaveFileDialog1
@ -730,16 +747,13 @@ Partial Class frmNodeNavigation
' '
'BarManager1 'BarManager1
' '
Me.BarManager1.Bars.AddRange(New DevExpress.XtraBars.Bar() {Me.Bar1, Me.Bar2, Me.Bar3})
Me.BarManager1.DockControls.Add(Me.barDockControlTop) Me.BarManager1.DockControls.Add(Me.barDockControlTop)
Me.BarManager1.DockControls.Add(Me.barDockControlBottom) Me.BarManager1.DockControls.Add(Me.barDockControlBottom)
Me.BarManager1.DockControls.Add(Me.barDockControlLeft) Me.BarManager1.DockControls.Add(Me.barDockControlLeft)
Me.BarManager1.DockControls.Add(Me.barDockControlRight) Me.BarManager1.DockControls.Add(Me.barDockControlRight)
Me.BarManager1.Form = Me Me.BarManager1.Form = Me
Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarSubItem1, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18}) Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarSubItem1, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18})
Me.BarManager1.MainMenu = Me.Bar2
Me.BarManager1.MaxItemId = 18 Me.BarManager1.MaxItemId = 18
Me.BarManager1.StatusBar = Me.Bar3
' '
'barDockControlTop 'barDockControlTop
' '
@ -747,58 +761,31 @@ Partial Class frmNodeNavigation
Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top
Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) Me.barDockControlTop.Location = New System.Drawing.Point(0, 0)
Me.barDockControlTop.Manager = Me.BarManager1 Me.barDockControlTop.Manager = Me.BarManager1
Me.barDockControlTop.Size = New System.Drawing.Size(1443, 41) Me.barDockControlTop.Size = New System.Drawing.Size(966, 0)
' '
'barDockControlBottom 'barDockControlBottom
' '
Me.barDockControlBottom.CausesValidation = False Me.barDockControlBottom.CausesValidation = False
Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.barDockControlBottom.Location = New System.Drawing.Point(0, 791) Me.barDockControlBottom.Location = New System.Drawing.Point(0, 810)
Me.barDockControlBottom.Manager = Me.BarManager1 Me.barDockControlBottom.Manager = Me.BarManager1
Me.barDockControlBottom.Size = New System.Drawing.Size(1443, 19) Me.barDockControlBottom.Size = New System.Drawing.Size(966, 0)
' '
'barDockControlLeft 'barDockControlLeft
' '
Me.barDockControlLeft.CausesValidation = False Me.barDockControlLeft.CausesValidation = False
Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left
Me.barDockControlLeft.Location = New System.Drawing.Point(0, 41) Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0)
Me.barDockControlLeft.Manager = Me.BarManager1 Me.barDockControlLeft.Manager = Me.BarManager1
Me.barDockControlLeft.Size = New System.Drawing.Size(0, 750) Me.barDockControlLeft.Size = New System.Drawing.Size(0, 810)
' '
'barDockControlRight 'barDockControlRight
' '
Me.barDockControlRight.CausesValidation = False Me.barDockControlRight.CausesValidation = False
Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right
Me.barDockControlRight.Location = New System.Drawing.Point(1443, 41) Me.barDockControlRight.Location = New System.Drawing.Point(966, 0)
Me.barDockControlRight.Manager = Me.BarManager1 Me.barDockControlRight.Manager = Me.BarManager1
Me.barDockControlRight.Size = New System.Drawing.Size(0, 750) Me.barDockControlRight.Size = New System.Drawing.Size(0, 810)
'
'Bar1
'
Me.Bar1.BarName = "Befehle"
Me.Bar1.DockCol = 0
Me.Bar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top
Me.Bar1.Text = "Befehle"
'
'Bar2
'
Me.Bar2.BarName = "Hauptmenü"
Me.Bar2.DockCol = 0
Me.Bar2.DockStyle = DevExpress.XtraBars.BarDockStyle.Top
Me.Bar2.OptionsBar.MultiLine = True
Me.Bar2.OptionsBar.UseWholeRow = True
Me.Bar2.Text = "Hauptmenü"
'
'Bar3
'
Me.Bar3.BarName = "Statusleiste"
Me.Bar3.CanDockStyle = DevExpress.XtraBars.BarCanDockStyle.Bottom
Me.Bar3.DockCol = 0
Me.Bar3.DockStyle = DevExpress.XtraBars.BarDockStyle.Bottom
Me.Bar3.OptionsBar.AllowQuickCustomization = False
Me.Bar3.OptionsBar.DrawDragBorder = False
Me.Bar3.OptionsBar.UseWholeRow = True
Me.Bar3.Text = "Statusleiste"
' '
'BarButtonItem2 'BarButtonItem2
' '
@ -955,17 +942,6 @@ Partial Class frmNodeNavigation
Me.BarButtonItem14.Name = "BarButtonItem14" Me.BarButtonItem14.Name = "BarButtonItem14"
Me.BarButtonItem14.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.BarButtonItem14.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
' '
'PopupMenu2
'
Me.PopupMenu2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem3, True), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem4), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem5, True), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem6, True), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem7), New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem11), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem12), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem13), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem14, True)})
Me.PopupMenu2.Manager = Me.BarManager1
Me.PopupMenu2.Name = "PopupMenu2"
'
'PopupMenu3
'
Me.PopupMenu3.Manager = Me.BarManager1
Me.PopupMenu3.Name = "PopupMenu3"
'
'BarButtonItem15 'BarButtonItem15
' '
Me.BarButtonItem15.AccessibleName = "DateiÖffnenToolStripMenuItem" Me.BarButtonItem15.AccessibleName = "DateiÖffnenToolStripMenuItem"
@ -988,12 +964,6 @@ Partial Class frmNodeNavigation
Me.BarButtonItem16.Name = "BarButtonItem16" Me.BarButtonItem16.Name = "BarButtonItem16"
Me.BarButtonItem16.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.BarButtonItem16.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
' '
'PopupMenu4
'
Me.PopupMenu4.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem15), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem16)})
Me.PopupMenu4.Manager = Me.BarManager1
Me.PopupMenu4.Name = "PopupMenu4"
'
'BarButtonItem17 'BarButtonItem17
' '
Me.BarButtonItem17.AccessibleName = "KnotenLöschenadminToolStripMenuItem" Me.BarButtonItem17.AccessibleName = "KnotenLöschenadminToolStripMenuItem"
@ -1016,6 +986,23 @@ Partial Class frmNodeNavigation
Me.BarButtonItem18.Name = "BarButtonItem18" Me.BarButtonItem18.Name = "BarButtonItem18"
Me.BarButtonItem18.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.BarButtonItem18.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
' '
'PopupMenu2
'
Me.PopupMenu2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem3, True), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem4), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem5, True), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem6, True), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem7), New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem11), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem12), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem13), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem14, True)})
Me.PopupMenu2.Manager = Me.BarManager1
Me.PopupMenu2.Name = "PopupMenu2"
'
'PopupMenu3
'
Me.PopupMenu3.Manager = Me.BarManager1
Me.PopupMenu3.Name = "PopupMenu3"
'
'PopupMenu4
'
Me.PopupMenu4.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem15), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem16)})
Me.PopupMenu4.Manager = Me.BarManager1
Me.PopupMenu4.Name = "PopupMenu4"
'
'PopupMenu5 'PopupMenu5
' '
Me.PopupMenu5.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem17), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem18)}) Me.PopupMenu5.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem17), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem18)})
@ -1026,7 +1013,7 @@ Partial Class frmNodeNavigation
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1443, 810) Me.ClientSize = New System.Drawing.Size(966, 810)
Me.Controls.Add(Me.SplitContainerDocView) Me.Controls.Add(Me.SplitContainerDocView)
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.ribbonNodeNavigation) Me.Controls.Add(Me.ribbonNodeNavigation)
@ -1144,9 +1131,6 @@ Partial Class frmNodeNavigation
Friend WithEvents KnotenVerschiebenToolStripMenuItem As ToolStripMenuItem Friend WithEvents KnotenVerschiebenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PopupMenu1 As DevExpress.XtraBars.PopupMenu Friend WithEvents PopupMenu1 As DevExpress.XtraBars.PopupMenu
Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager
Friend WithEvents Bar1 As DevExpress.XtraBars.Bar
Friend WithEvents Bar2 As DevExpress.XtraBars.Bar
Friend WithEvents Bar3 As DevExpress.XtraBars.Bar
Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl
Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl
Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl
@ -1173,4 +1157,6 @@ Partial Class frmNodeNavigation
Friend WithEvents PopupMenu3 As DevExpress.XtraBars.PopupMenu Friend WithEvents PopupMenu3 As DevExpress.XtraBars.PopupMenu
Friend WithEvents PopupMenu4 As DevExpress.XtraBars.PopupMenu Friend WithEvents PopupMenu4 As DevExpress.XtraBars.PopupMenu
Friend WithEvents PopupMenu5 As DevExpress.XtraBars.PopupMenu Friend WithEvents PopupMenu5 As DevExpress.XtraBars.PopupMenu
Friend WithEvents bsiNotification As DevExpress.XtraBars.BarStaticItem
Friend WithEvents LinkPerMailVersendenToolStripMenuItem As ToolStripMenuItem
End Class End Class

62
app/DD-Record-Organizer/frmNodeNavigation.resx
View File

@ -528,12 +528,6 @@
<metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<metadata name="cmsResultFileDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>483, 17</value>
</metadata>
<metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="DevExpress.Utils.v21.2" name="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <assembly alias="DevExpress.Utils.v21.2" name="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -542,6 +536,9 @@
ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
</value> </value>
</data> </data>
<metadata name="cmsResultFileDetail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>483, 17</value>
</metadata>
<data name="tsmiFileProperties.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileProperties.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@ -595,6 +592,21 @@
LK9Xq2nG9vvHr73/r+mcAtLHwAD016bT1579z2+aewio4Er9tC1X+DR9fnOquP+HYV2XlGcwuSnLjxzq LK9Xq2nG9vvHr73/r+mcAtLHwAD016bT1579z2+aewio4Er9tC1X+DR9fnOquP+HYV2XlGcwuSnLjxzq
mLPzv4x5BMQFpV3LQ5umrn++csf5/yeuvf6/+/TT//VTN/+3DCp+7pPS3IdLDuhdSBiAiIj8Xl+PhPqF mLPzv4x5BMQFpV3LQ5umrn++csf5/yeuvf6/+/TT//VTN/+3DCp+7pPS3IdLDuhdSBiAiIj8Xl+PhPqF
QH891nROfgw0faGgji84pPHJwQ2gBGMVJAVjFSQFYxUkHv9nAAD1UMkwC2hGngAAAABJRU5ErkJggg== QH891nROfgw0faGgji84pPHJwQ2gBGMVJAVjFSQFYxUkHv9nAAD1UMkwC2hGngAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsmiFileLinkRemove.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAH1SURBVDhPpY5BiFJhFIWN5wRNq3ZDEDGLhBZCuok2
mjONC/UlunmuguiJpbYwq9EUSsFZCAYq6CoXrUTQVoXGGGhuIrKVhYs3gxQhRRo0jTaZp/+6eJU8COmH
Dy7nnnP+qwLwXyiKi6AoLoKiuAjyYDAYjnq93luJRGJQKBQQjUZ7fr//LGOFzRJptCMPef8q0Ov1h202
WzKdTqPf70OSJDQaDcRisZ1IJNLsdrtj0lqtFshDXsrIBTqd7mIwGPzS6XQGLpfridVqnbjdbmQyGYTD
YdBMGu2KxWKPvJT584JkPB4fZbNZj91uXzYajV/r9Tra7TaazSbK5TJIox15yEsZuUCr1V7zeDzDXC53
0+l01kwm04HZbIbD4ZhBM2m0Iw95KSMXnGaP5/m3qVRqWCqVPlcqFeTzeQQCAYRCodlc3fLimXDy5/ba
Eh6Zlw8emo7clws0Gg3HTjxjsVh2RVHc8/l8I8Z3QRAuMdZzl83j18FzGD1OYfqmim/FG3jp006erquv
zwr+Re0CJ+2zMDI8sHkM2FrFp+R5MH1HMTDP9pp6On1VYePvN7y7AtIVA/PUNrh3ew+uACw0vq3CgNG7
yoHp7xUD8zwXjt97IZ768WFzFR/DS5DEQ6jz6kl1g7ujGFCiJZwIsR936Wy6iMIAVL8AJPOUchRWzukA
AAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="tsmiFileLink_ShowAll.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileLink_ShowAll.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -612,21 +624,6 @@
t7ez9jjA8c6F8vK7cLvdNFYEXq8Xc3NzUKlU36qqqm4wQGdn5wUHMNGVaevr67NNTU0cYHzylADlUKvV t7ez9jjA8c6F8vK7cLvdNFYEXq8Xc3NzUKlU36qqqm4wQGdn5wUHMNGVaevr67NNTU0cYHzylADlUKvV
qK6u5mJxaWnpz5qaGhcD6PX6/BWA6TZ9RD/s7++/nJ6exvz8PL3IMTQ3N6OlpYXHLEejfqH3ka+srNz9 qK6u5mJxaWnpz5qaGhcD6PX6/BWA6TZ9RD/s7++/nJ6exvz8PL3IMTQ3N6OlpYXHLEejfqH3ka+srNz9
A1BUVHSdWizWaDTphoaG79TNBelHbW3tQ9Idir+yHPvHPCqVqvg3IL7f2GaRecUAAAAASUVORK5CYII= A1BUVHSdWizWaDTphoaG79TNBelHbW3tQ9Idir+yHPvHPCqVqvg3IL7f2GaRecUAAAAASUVORK5CYII=
</value>
</data>
<data name="tsmiFileLinkRemove.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAH1SURBVDhPpY5BiFJhFIWN5wRNq3ZDEDGLhBZCuok2
mjONC/UlunmuguiJpbYwq9EUSsFZCAYq6CoXrUTQVoXGGGhuIrKVhYs3gxQhRRo0jTaZp/+6eJU8COmH
Dy7nnnP+qwLwXyiKi6AoLoKiuAjyYDAYjnq93luJRGJQKBQQjUZ7fr//LGOFzRJptCMPef8q0Ov1h202
WzKdTqPf70OSJDQaDcRisZ1IJNLsdrtj0lqtFshDXsrIBTqd7mIwGPzS6XQGLpfridVqnbjdbmQyGYTD
YdBMGu2KxWKPvJT584JkPB4fZbNZj91uXzYajV/r9Tra7TaazSbK5TJIox15yEsZuUCr1V7zeDzDXC53
0+l01kwm04HZbIbD4ZhBM2m0Iw95KSMXnGaP5/m3qVRqWCqVPlcqFeTzeQQCAYRCodlc3fLimXDy5/ba
Eh6Zlw8emo7clws0Gg3HTjxjsVh2RVHc8/l8I8Z3QRAuMdZzl83j18FzGD1OYfqmim/FG3jp006erquv
zwr+Re0CJ+2zMDI8sHkM2FrFp+R5MH1HMTDP9pp6On1VYePvN7y7AtIVA/PUNrh3ew+uACw0vq3CgNG7
yoHp7xUD8zwXjt97IZ768WFzFR/DS5DEQ6jz6kl1g7ujGFCiJZwIsR936Wy6iMIAVL8AJPOUchRWzukA
AAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="tsmiFileVersion.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileVersion.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -738,19 +735,22 @@
<value>779, 17</value> <value>779, 17</value>
</metadata> </metadata>
<metadata name="XtraSaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="XtraSaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>943, 17</value>
</metadata>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 54</value> <value>17, 54</value>
</metadata> </metadata>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 54</value>
</metadata>
<metadata name="CMSAdmin_Treeview.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="CMSAdmin_Treeview.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>158, 54</value> <value>315, 54</value>
</metadata> </metadata>
<metadata name="PopupMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PopupMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>323, 54</value> <value>480, 54</value>
</metadata> </metadata>
<metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>449, 54</value> <value>606, 54</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>182</value>
</metadata> </metadata>
<data name="frmNodeNavigation.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="frmNodeNavigation.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -1074,15 +1074,15 @@
</value> </value>
</data> </data>
<metadata name="PopupMenu2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PopupMenu2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>573, 54</value> <value>730, 54</value>
</metadata> </metadata>
<metadata name="PopupMenu3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PopupMenu3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>699, 54</value> <value>856, 54</value>
</metadata> </metadata>
<metadata name="PopupMenu4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PopupMenu4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>825, 54</value> <value>17, 91</value>
</metadata> </metadata>
<metadata name="PopupMenu5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PopupMenu5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>951, 54</value> <value>143, 91</value>
</metadata> </metadata>
</root> </root>

121
app/DD-Record-Organizer/frmNodeNavigation.vb
View File

@ -1,22 +1,23 @@
Imports DevExpress.XtraTreeList Imports System.IO
Imports DevExpress.XtraTreeList.Columns Imports System.Text
Imports DevExpress.XtraTreeList.Nodes.Operations Imports System.Threading
Imports DevExpress.XtraTreeList.Nodes
Imports DevExpress.XtraSplashScreen
Imports DevExpress.XtraScheduler
Imports DevExpress.Data Imports DevExpress.Data
Imports DevExpress.Data.Filtering
Imports DevExpress.Utils
Imports DevExpress.XtraEditors Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraPrinting Imports DevExpress.XtraPrinting
Imports System.Threading
Imports System.Text
Imports System.IO
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Database
Imports DevExpress.XtraRichEdit.API.Native Imports DevExpress.XtraRichEdit.API.Native
Imports DevExpress.Data.Filtering Imports DevExpress.XtraScheduler
Imports DevExpress.XtraGrid Imports DevExpress.XtraSplashScreen
Imports DevExpress.XtraTreeList
Imports DevExpress.XtraTreeList.Columns
Imports DevExpress.XtraTreeList.Nodes
Imports DevExpress.XtraTreeList.Nodes.Operations
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Public Class frmNodeNavigation Public Class frmNodeNavigation
#Region "Laufzeitvariablen & Konstanten" #Region "Laufzeitvariablen & Konstanten"
@ -40,6 +41,7 @@ Public Class frmNodeNavigation
Private Property DT_RESULTLIST_OPTIONS As DataTable Private Property DT_RESULTLIST_OPTIONS As DataTable
Private Property DT_RESULTLIST_VARIABLE_VALUE As DataTable Private Property DT_RESULTLIST_VARIABLE_VALUE As DataTable
Private Property DT_ENTITY_DATA As DataTable Private Property DT_ENTITY_DATA As DataTable
Private Property ENTITY_TYPE As String = ""
Private Property DT_TBPMO_FORM_VIEW As DataTable Private Property DT_TBPMO_FORM_VIEW As DataTable
Private Property DT_CONSTRUCT_VIEW As DataTable Private Property DT_CONSTRUCT_VIEW As DataTable
Private Property COUNT_RO_CONTROLS As Integer = 0 Private Property COUNT_RO_CONTROLS As Integer = 0
@ -77,6 +79,8 @@ Public Class frmNodeNavigation
Private Property ClassNodeCommands As ClassNodeCommands Private Property ClassNodeCommands As ClassNodeCommands
Private Property ViewerInit As Boolean = False Private Property ViewerInit As Boolean = False
Private PA_NODE_GUID_STAMM As Integer = 0
Private Debug As Boolean = False Private Debug As Boolean = False
Public Enum EditState Public Enum EditState
@ -368,7 +372,8 @@ Public Class frmNodeNavigation
CurrentNodeConfigId = oNodeConfigId CurrentNodeConfigId = oNodeConfigId
AvailableConfigNodes.Clear() AvailableConfigNodes.Clear()
If btnCreateNewNode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always Then If btnCreateNewNode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always And
Not IsNothing(NODE_CONFIGURABLE_NODES_DT) Then
Dim oNodeConfigList = NODE_CONFIGURABLE_NODES_DT.Select($"PARENT_NODE = {oNodeConfigId}"). Dim oNodeConfigList = NODE_CONFIGURABLE_NODES_DT.Select($"PARENT_NODE = {oNodeConfigId}").
Cast(Of DataRow). Cast(Of DataRow).
Select(Function(row) New frmNewNode.NodeConfig() With { Select(Function(row) New frmNewNode.NodeConfig() With {
@ -403,7 +408,7 @@ Public Class frmNodeNavigation
ClassControlValues.LoadControlValuesListWithPlaceholders(_EntityId, CURRENT_RECORD_ID, 0, CtrlBuilder.AllControls, _EntityId) ClassControlValues.LoadControlValuesListWithPlaceholders(_EntityId, CURRENT_RECORD_ID, 0, CtrlBuilder.AllControls, _EntityId)
CtrlBuilder.WatchRecordChanges = True CtrlBuilder.WatchRecordChanges = True
Await Show_Selected_Record_Data(CURRENT_RECORD_ID) Await Show_Selected_Record_Data(CURRENT_RECORD_ID)
Show_SelectedDoc() Show_SelectedDoc(True)
ClassRightManagement.Check_Set_Rights(CURRENT_RECORD_ID, _EntityId) ClassRightManagement.Check_Set_Rights(CURRENT_RECORD_ID, _EntityId)
CONTROL_HANDLING() CONTROL_HANDLING()
@ -570,6 +575,24 @@ Public Class frmNodeNavigation
bsiInfo.ItemAppearance.Normal.BackColor = Color.LightGray bsiInfo.ItemAppearance.Normal.BackColor = Color.LightGray
End Select End Select
End Sub End Sub
Public Sub Update_Notification_Label(visible As Boolean, pMessage As String, pColor As String)
bsiNotification.Caption = pMessage
If visible = True Then
bsiNotification.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else
bsiNotification.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
Select Case pColor
Case "Yellow"
bsiNotification.ItemAppearance.Normal.BackColor = Color.Yellow
Case "Blue"
bsiNotification.ItemAppearance.Normal.BackColor = Color.LightBlue
Case Else
bsiNotification.ItemAppearance.Normal.BackColor = Color.Transparent
End Select
End Sub
Public Sub Update_DocID_Label(visible As Boolean, Optional text As String = "", Optional state As EditState = EditState.None) Public Sub Update_DocID_Label(visible As Boolean, Optional text As String = "", Optional state As EditState = EditState.None)
bsiDocID.Caption = text bsiDocID.Caption = text
If visible = True Then If visible = True Then
@ -730,13 +753,17 @@ Public Class frmNodeNavigation
CONTROL_DOCTYPE_MATCH = oRow.Item("CONTROL_DOCTYPE_MATCH") CONTROL_DOCTYPE_MATCH = oRow.Item("CONTROL_DOCTYPE_MATCH")
SQL_RECORD_AND_FILE_READ_ONLY = oRow.Item("SQL_RIGHT_READ_AND_VIEW_ONLY") SQL_RECORD_AND_FILE_READ_ONLY = oRow.Item("SQL_RIGHT_READ_AND_VIEW_ONLY")
SQL_DOC_READ_ONLY = oRow.Item("SQL_RIGHT_WINDREAM_VIEW") SQL_DOC_READ_ONLY = oRow.Item("SQL_RIGHT_WINDREAM_VIEW")
ENTITY_TYPE = oRow.Item("FORM_TYPE")
Try Try
ADD_RECORDS_CONSTR = oRow.Item("ADD_RECORDS") ADD_RECORDS_CONSTR = oRow.Item("ADD_RECORDS")
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
ADD_RECORDS_CONSTR = True ADD_RECORDS_CONSTR = True
End Try End Try
If ENTITY_TYPE = "Personal file" Then
Dim oSQL = "SELECT CAT_STRING FROM TBDD_CATALOG WHERE CAT_TITLE = 'PA_NODE_GUID_STAMM'"
PA_NODE_GUID_STAMM = MYDB_ECM.GetScalarValue(oSQL)
End If
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}'", _EntityId, USER_LANGUAGE) expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}'", _EntityId, USER_LANGUAGE)
@ -1150,10 +1177,15 @@ Public Class frmNodeNavigation
End Sub End Sub
Private Sub TreeListDevexpress_ParseFindPanelText(sender As Object, e As ParseFindPanelTextEventArgs) Handles TreeListDevexpress.ParseFindPanelText Private Sub TreeListDevexpress_ParseFindPanelText(sender As Object, e As ParseFindPanelTextEventArgs) Handles TreeListDevexpress.ParseFindPanelText
' Exit if the search text is empty ' Exit if the search text is empty
If String.IsNullOrWhiteSpace(e.FindPanelText) Then Return If String.IsNullOrWhiteSpace(e.FindPanelText) Then
Return
End If
Dim oInput As String = e.FindPanelText
' Split the search text into individual criteria ' Split the search text into individual criteria
Dim criteriaStrings As String() = e.FindPanelText.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries) Dim criteriaStrings As String() = New String() {oInput} '.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)
' Construct the filter string by searching in the desired fields ' Construct the filter string by searching in the desired fields
Dim filterConditions As IEnumerable(Of String) = criteriaStrings.Select(Function(str) _ Dim filterConditions As IEnumerable(Of String) = criteriaStrings.Select(Function(str) _
@ -1167,7 +1199,7 @@ Public Class frmNodeNavigation
' Set the find criteria for the TreeList ' Set the find criteria for the TreeList
e.SetFindCriteria(findCriteria) e.SetFindCriteria(findCriteria)
' TreeListDevexpress.ActiveFilterCriteria = findCriteria
' Mark the event as handled ' Mark the event as handled
e.Handled = True e.Handled = True
End Sub End Sub
@ -1721,7 +1753,7 @@ Public Class frmNodeNavigation
If USER_LANGUAGE <> "de-De" Then If USER_LANGUAGE <> "de-De" Then
oText = $"The entity-wide search will be started in background. The result will be displayed when ready." oText = $"The entity-wide search will be started in background. The result will be displayed when ready."
End If End If
Update_Status_Label(True, oText, EditState.Insert) Update_Notification_Label(True, oText, "Yellow")
CURRENT_DOCSEARCH_SQL = CURRENT_DOCSEARCH_SQL.Replace("@ENTITY_ID", _EntityId) CURRENT_DOCSEARCH_SQL = CURRENT_DOCSEARCH_SQL.Replace("@ENTITY_ID", _EntityId)
CURRENT_DOCSEARCH_SQL = CURRENT_DOCSEARCH_SQL.Replace("@USER_LANGUAGE", USER_LANGUAGE) CURRENT_DOCSEARCH_SQL = CURRENT_DOCSEARCH_SQL.Replace("@USER_LANGUAGE", USER_LANGUAGE)
@ -1742,6 +1774,8 @@ Public Class frmNodeNavigation
End Sub) End Sub)
myformThread.SetApartmentState(ApartmentState.STA) myformThread.SetApartmentState(ApartmentState.STA)
myformThread.Start() myformThread.Start()
myformThread.Join()
Update_Notification_Label(False, "", "")
Else Else
MsgBox("Please config the entity-search properly! " & vbNewLine & oSQL, vbOKOnly, "Information") MsgBox("Please config the entity-search properly! " & vbNewLine & oSQL, vbOKOnly, "Information")
End If End If
@ -1942,12 +1976,17 @@ Public Class frmNodeNavigation
End Sub End Sub
Sub Refresh_DocID() Sub Refresh_DocID()
Dim oDocuments = Current_DocList.SelectedDocuments Dim oDocuments = Current_DocList.SelectedDocuments
If Not IsNothing(oDocuments) Then
If oDocuments.Count <> 0 Then If oDocuments.Count <> 0 Then
Dim omsg = "Doc-ID: " & oDocuments.First.DocId Dim omsg = "Doc-ID: " & oDocuments.First.DocId
Update_DocID_Label(True, omsg, EditState.Update) Update_DocID_Label(True, omsg, EditState.Update)
Else Else
Update_DocID_Label(True, "DocRow not selected", EditState.None) Update_DocID_Label(True, "DocRow not selected", EditState.None)
End If End If
Else
Update_DocID_Label(False)
End If
End Sub End Sub
Sub Save_DocGrid_Layout() Sub Save_DocGrid_Layout()
Try Try
@ -1956,9 +1995,9 @@ Public Class frmNodeNavigation
GridViewDoc_Search.SaveLayoutToXml(XMLPath) GridViewDoc_Search.SaveLayoutToXml(XMLPath)
Update_Status_Label(True, "Grid Layout Saved") Update_Notification_Label(True, "Grid Layout Saved", "")
Else Else
Update_Status_Label(True, "Could not store layout") Update_Notification_Label(True, "Could not store layout", "Yellow")
End If End If
Catch ex As Exception Catch ex As Exception
@ -2030,10 +2069,10 @@ Public Class frmNodeNavigation
If WM_READ_ONLY = False Then If WM_READ_ONLY = False Then
ClassDragDrop.Drag_enter(e) ClassDragDrop.Drag_enter(e)
Else Else
Update_Status_Label(True, "READ ONLY ACCESS", EditState.Insert) Update_Notification_Label(True, "READ ONLY ACCESS", "")
End If End If
Else Else
Update_Status_Label(True, "No entity selected", EditState.Insert) Update_Notification_Label(True, "No entity selected", "Yellow")
End If End If
End Sub End Sub
Private Async Function Drag_Drop(e As DragEventArgs) As Task Private Async Function Drag_Drop(e As DragEventArgs) As Task
@ -2259,7 +2298,7 @@ Public Class frmNodeNavigation
EDIT_STATE = EditState.Update EDIT_STATE = EditState.Update
NEW_RECORD_ID = 0 NEW_RECORD_ID = 0
If RECORD_CHANGED = False Then If RECORD_CHANGED = False Then
Update_Status_Label(True, "NO CHANGES in Record.") Update_Notification_Label(True, "NO CHANGES in Record.", "")
DisableEditMode() DisableEditMode()
EDIT_STATE = EditState.None EDIT_STATE = EditState.None
@ -2311,7 +2350,7 @@ Public Class frmNodeNavigation
INSERT_IN_ACTION = False INSERT_IN_ACTION = False
'Jetzt den Record nochmal laden 'Jetzt den Record nochmal laden
' Show_Selected_Record_Data(SELECTED_RECORD_ID) ' Show_Selected_Record_Data(SELECTED_RECORD_ID)
Update_Status_Label(True, "Record saved - " & Now, EditState.Update) Update_Notification_Label(True, "Record saved - " & Now, "")
Update_Record_Label(CURRENT_RECORD_ID) Update_Record_Label(CURRENT_RECORD_ID)
Catch ex As Exception Catch ex As Exception
@ -2764,7 +2803,7 @@ Public Class frmNodeNavigation
End If End If
Refresh_Selected_Table() Refresh_Selected_Table()
Dim oForm As New frmDocRecordLink With {.Documents = oDocuments} Dim oForm As New frmDocRecordLink With {.myDocuments = oDocuments}
oForm.Show() oForm.Show()
Catch ex As Exception Catch ex As Exception
@ -3089,7 +3128,7 @@ Public Class frmNodeNavigation
Await ReloadTreeView() Await ReloadTreeView()
MyTreeListViewState.LoadState() MyTreeListViewState.LoadState()
TreeListDevexpress.FocusedNode = MyFocusedNode TreeListDevexpress.FocusedNode = MyFocusedNode
Update_Status_Label(True, "Nodes reordered") Update_Notification_Label(True, "Nodes reordered", "")
End If End If
Cursor = Cursors.Default Cursor = Cursors.Default
@ -3122,12 +3161,13 @@ Public Class frmNodeNavigation
End Sub End Sub
Private Sub GridViewDoc_Search_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles GridViewDoc_Search.SelectionChanged Private Sub GridViewDoc_Search_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles GridViewDoc_Search.SelectionChanged
Show_SelectedDoc() Show_SelectedDoc(False)
End Sub End Sub
Private Sub Show_SelectedDoc() Private Sub Show_SelectedDoc(AfterNodeChange As Boolean)
Dim oSelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search) Dim oSelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search, AfterNodeChange)
If Not IsNothing(oSelectedDocs) Then
If ViewerInit Then If ViewerInit Then
If oSelectedDocs.Count = 1 Then If oSelectedDocs.Count >= 1 Then
Refresh_DocID() Refresh_DocID()
Close_Document_Viewer() Close_Document_Viewer()
@ -3137,9 +3177,16 @@ Public Class frmNodeNavigation
DocumentViewer.LoadFile(oPath) DocumentViewer.LoadFile(oPath)
Else Else
LOGGER.Debug("Show_SelectedDoc - oSelectedDocs.Count not >= 1 ")
Close_Document_Viewer() Close_Document_Viewer()
End If End If
Else
LOGGER.Info("DocumentViewer not inited. No Show_SelectedDoc")
End If End If
Else
LOGGER.Debug("Show_SelectedDoc - oSelectedDocs is nothing")
End If
End Sub End Sub
Private Sub Close_Document_Viewer() Private Sub Close_Document_Viewer()
@ -3290,16 +3337,16 @@ Public Class frmNodeNavigation
If oDElWMFile = True Then If oDElWMFile = True Then
If WMMOD.RemoveFile(oDoc.DocPath) Then If WMMOD.RemoveFile(oDoc.DocPath) Then
Update_Status_Label(True, Now.ToLongTimeString & " - File successfully deleted", EditState.Insert) Update_Notification_Label(True, Now.ToLongTimeString & " - File successfully deleted", "Yellow")
ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "FILE DELETED BY USER") ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "FILE DELETED BY USER")
End If End If
Else Else
ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "FILE LINK DELETED BY USER") ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "FILE LINK DELETED BY USER")
Update_Status_Label(True, Now.ToLongTimeString & " - File-links successfully deleted", EditState.Insert) Update_Notification_Label(True, Now.ToLongTimeString & " - File-links successfully deleted", "Yellow")
End If End If
Else Else
Update_Status_Label(True, Now.ToLongTimeString & " - Error deleting file - Check log", EditState.Delete) Update_Notification_Label(True, Now.ToLongTimeString & " - Error deleting file - Check log", "Yellow")
End If End If
End If End If
@ -3397,4 +3444,6 @@ Public Class frmNodeNavigation
Private Sub frmNodeNavigation_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop Private Sub frmNodeNavigation_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop
End Sub End Sub
End Class End Class

11
app/Setup_NoUpdaterVS19/Product.wxs
View File

@ -135,14 +135,21 @@
<Component Id="DDLibs" Guid="BA2979E3-3778-48B8-B0D8-4B77825B9293"> <Component Id="DDLibs" Guid="BA2979E3-3778-48B8-B0D8-4B77825B9293">
<File Id="DLLLicenseManager" Name="DLLLicenseManager.dll" KeyPath="no" /> <File Id="DLLLicenseManager" Name="DLLLicenseManager.dll" KeyPath="no" />
<File Id="DD_Rights" Name="DD_Rights.dll" KeyPath="no" /> <File Id="DD_Rights" Name="DD_Rights.dll" KeyPath="no" />
<File Id="DigitalData.GUIs.Common" Name="DigitalData.GUIs.Common.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDLogging" Name="DigitalData.Modules.Logging.dll" KeyPath="no" Checksum="yes"/> <File Id="DDLogging" Name="DigitalData.Modules.Logging.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDDatabase" Name="DigitalData.Modules.Database.dll" KeyPath="no" Checksum="yes"/> <File Id="DDDatabase" Name="DigitalData.Modules.Database.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDWindream" Name="DigitalData.Modules.Windream.dll" KeyPath="no" Checksum="yes"/> <File Id="DDWindream" Name="DigitalData.Modules.Windream.dll" KeyPath="no" Checksum="yes"/>
<File Id="DigitalData.Modules.Patterns" Name="DigitalData.Modules.Patterns.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDConfig" Name="DigitalData.Modules.Config.dll" KeyPath="no" Checksum="yes"/> <File Id="DDConfig" Name="DigitalData.Modules.Config.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDBase" Name="DigitalData.Modules.Base.dll" KeyPath="no" Checksum="yes"/> <File Id="DDBase" Name="DigitalData.Modules.Base.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDEncryption" Name="DigitalData.Modules.Encryption.dll" KeyPath="no" Checksum="yes"/> <File Id="DigitalData.Modules.Encryption" Name="DigitalData.Modules.Encryption.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDDocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" KeyPath="no" Checksum="yes"/> <File Id="DDDocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" KeyPath="no" Checksum="yes"/>
<File Id="Messaging" Name="DigitalData.Modules.Messaging.dll" KeyPath="no" Checksum="yes"/> <File Id="DigitalData.Modules.Messaging" Name="DigitalData.Modules.Messaging.dll" KeyPath="no" Checksum="yes"/>
<File Id="DigitalData.Modules.ZooFlow" Name="DigitalData.Modules.ZooFlow.dll" KeyPath="no" Checksum="yes"/>
<File Id="DigitalData.Modules.Windows" Name="DigitalData.Modules.Windows.dll" KeyPath="no" Checksum="yes"/>
<File Id="DigitalData.Modules.Filesystem" Name="DigitalData.Modules.Filesystem.dll" KeyPath="no" Checksum="yes"/>
<File Id="DigitalData.Modules.EDMI.API" Name="DigitalData.Modules.EDMI.API.dll" KeyPath="no" Checksum="yes"/>
<File Id="DigitalData.Controls.LookupGrid.API" Name="DigitalData.Controls.LookupGrid.dll" KeyPath="no" Checksum="yes"/>
</Component> </Component>
<!-- DD Bibliotheken --> <!-- DD Bibliotheken -->