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

Merge Commit

Browse Source
This commit is contained in:
SchreiberM 2023-11-06 16:07:02 +01:00
commit bb739698a4
21 changed files with 923 additions and 446 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD-Record-Organizer/Classes/ClassConfig.vb
View File

@ -5,7 +5,12 @@ Public Class ClassConfig
' Global Settings (from computerconfig, overridable by userconfig)
<ConnectionString>
Public Property ConnectionString As String = ""
' Misc Settings
Public Property DEBUG As Boolean = False
Public Property MyFormsDesign As String = "Office 2016 Colorful"
Public Property FormsDesign As String = "Office 2016 Colorful"
Public Property DocumentViewerSplitterWidth As Integer = 0
Public Property TreeListSplitterWidth As Integer = 0
Public Property DocumentSearchSplitterWidth As Integer = 0
End Class

2
app/DD-Record-Organizer/Classes/ClassFileResult.vb
View File

@ -1,5 +1,5 @@
Public Class ClassFileResult
Public Shared DocID As Integer
Public Shared Property DocID As Integer
Public Shared InWork As Boolean = False
Public Shared Function Set_InWork(state As Integer, comment As String)
Try

4
app/DD-Record-Organizer/Classes/Controls/ClassControlValues.vb
View File

@ -155,6 +155,10 @@ Public Class ClassControlValues
Try
Dim sw As New SW("LoadControlValues1")
If RecordId = 0 Then
Exit Sub
End If
'Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId)
Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", RecordId)
Dim DT_ControlValues As DataTable = MYDB_ECM.GetDatatable(SQL)

29
app/DD-Record-Organizer/Classes/NodeNavigation/ClassDoctypeChange.vb Normal file
View File

@ -0,0 +1,29 @@
Imports DD_LIB_Standards
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging
Public Class ClassDoctypeChange
Inherits BaseClass
Public Sub New(pLogConfig As LogConfig)
MyBase.New(pLogConfig)
End Sub
Public Function ChangeDocType(pFilePaths As List(Of String), pNewDocTypeName As String, pObjectType As String) As Boolean
Try
For Each oPath As String In pFilePaths
Dim oResult As Boolean = clsWD_SET.IndexFile(oPath, "String 37", pNewDocTypeName, pObjectType)
If oResult = True Then
Logger.Debug("Successfully set doctype of file [{0}] to [{1}]", oPath, pNewDocTypeName)
Else
Logger.Warn("Could not set doctype of file [{0}]!", pNewDocTypeName)
End If
Next
Return True
Catch ex As Exception
Logger.Error(ex)
End Try
End Function
End Class

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

@ -10,7 +10,6 @@ Module ModuleMySettings
Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig2.xml")
Public MyConnectionString As String = ""
Public MyFormsDesign As String = ""
Public DEBUG As Boolean = False
Public Sett_TaskOverviewKeepInFront As Boolean = True
@ -221,10 +220,6 @@ Module ModuleMySettings
Else
MY_ADDON_PATH = Row.Item("Value")
End If
Case "MyFormsDesign"
If Row.Item("Value") <> String.Empty Then
MyFormsDesign = Row.Item("Value")
End If
Case "GridDocResult_BestFitColumns"
GridDocResult_BestFitColumns = CBool(Row.Item("Value"))
@ -280,13 +275,6 @@ Module ModuleMySettings
DT.Rows.Add(newRow)
DT.WriteXml(ConfigPath)
End If
If rowresult.Contains("MyFormsDesign") = False Then
Dim newRow As DataRow = DT.NewRow()
newRow("ConfigName") = "MyFormsDesign"
newRow("Value") = ""
DT.Rows.Add(newRow)
DT.WriteXml(ConfigPath)
End If
If rowresult.Contains("GridDocResult_BestFitColumns") = False Then
Dim newRow As DataRow = DT.NewRow()
newRow("ConfigName") = "GridDocResult_BestFitColumns"

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

@ -14,8 +14,8 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("OrgFlow")>
<Assembly: AssemblyCopyright("Copyright 2023 Digital Data")>
<Assembly: AssemblyTrademark("3.1.0.0")>
<Assembly: AssemblyCopyright("Copyright 2023")>
<Assembly: AssemblyTrademark("3.1.0.2")>
<Assembly: ComVisible(False)>
@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.1.0.0")>
<Assembly: AssemblyVersion("3.1.0.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

13
app/DD-Record-Organizer/OrgFlow.ruleset Normal file
View File

@ -0,0 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<RuleSet Name="New Rule Set" Description=" " ToolsVersion="17.0">
<Rules AnalyzerId="Microsoft.Analyzers.ManagedCodeAnalysis" RuleNamespace="Microsoft.Rules.Managed">
<Rule Id="CA1801" Action="Warning" />
<Rule Id="CA1804" Action="Warning" />
<Rule Id="CA1811" Action="Warning" />
<Rule Id="CA1812" Action="Warning" />
<Rule Id="CA1823" Action="Warning" />
</Rules>
<Rules AnalyzerId="Microsoft.Analyzers.NativeCodeAnalysis" RuleNamespace="Microsoft.Rules.Native">
<Rule Id="C6259" Action="Warning" />
</Rules>
</RuleSet>

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

@ -307,6 +307,7 @@
<Compile Include="Classes\ClassWDRights.vb" />
<Compile Include="Classes\ClassWindreamDocGrid.vb" />
<Compile Include="Classes\ClassWorkflow.vb" />
<Compile Include="Classes\NodeNavigation\ClassDoctypeChange.vb" />
<Compile Include="Classes\NodeNavigation\ClassNodeCreator.vb" />
<Compile Include="DD_DMSDataSet.Designer.vb">
<AutoGen>True</AutoGen>
@ -322,6 +323,12 @@
<Compile Include="frmCalendarEntity.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmChangeDocType.Designer.vb">
<DependentUpon>frmChangeDocType.vb</DependentUpon>
</Compile>
<Compile Include="frmChangeDocType.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmChooseParentRecord.Designer.vb">
<DependentUpon>frmChooseParentRecord.vb</DependentUpon>
</Compile>
@ -803,6 +810,9 @@
<EmbeddedResource Include="frmCalendarEntity.resx">
<DependentUpon>frmCalendarEntity.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmChangeDocType.resx">
<DependentUpon>frmChangeDocType.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmChooseParentRecord.en-US.resx">
<DependentUpon>frmChooseParentRecord.vb</DependentUpon>
</EmbeddedResource>
@ -1267,6 +1277,7 @@
<None Include="App.config" />
</ItemGroup>
<ItemGroup>
<None Include="OrgFlow.ruleset" />
<None Include="packages.config" />
<None Include="Resources\database_go.png" />
</ItemGroup>

174
app/DD-Record-Organizer/frmChangeDocType.Designer.vb generated Normal file
View File

@ -0,0 +1,174 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmChangeDocType
Inherits DevExpress.XtraEditors.XtraForm
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmChangeDocType))
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.cmbDocType = New DevExpress.XtraEditors.ComboBoxEdit()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem()
Me.txtDocuments = New DevExpress.XtraEditors.TextEdit()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout()
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cmbDocType.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDocuments.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'LayoutControl1
'
Me.LayoutControl1.Controls.Add(Me.cmbDocType)
Me.LayoutControl1.Controls.Add(Me.SimpleButton1)
Me.LayoutControl1.Controls.Add(Me.txtDocuments)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(431, 131)
Me.LayoutControl1.TabIndex = 0
Me.LayoutControl1.Text = "LayoutControl1"
'
'Root
'
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.LayoutControlItem1, Me.EmptySpaceItem1, Me.EmptySpaceItem2, Me.LayoutControlItem3})
Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(431, 131)
Me.Root.TextVisible = False
'
'cmbDocType
'
Me.cmbDocType.Location = New System.Drawing.Point(114, 36)
Me.cmbDocType.Name = "cmbDocType"
Me.cmbDocType.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.cmbDocType.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.DisableTextEditor
Me.cmbDocType.Size = New System.Drawing.Size(305, 20)
Me.cmbDocType.StyleController = Me.LayoutControl1
Me.cmbDocType.TabIndex = 5
'
'LayoutControlItem2
'
Me.LayoutControlItem2.Control = Me.cmbDocType
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 24)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Size = New System.Drawing.Size(411, 24)
Me.LayoutControlItem2.Text = "Neue Dokumentart"
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(90, 13)
'
'SimpleButton1
'
Me.SimpleButton1.DialogResult = System.Windows.Forms.DialogResult.OK
Me.SimpleButton1.Location = New System.Drawing.Point(299, 97)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(120, 22)
Me.SimpleButton1.StyleController = Me.LayoutControl1
Me.SimpleButton1.TabIndex = 6
Me.SimpleButton1.Text = "OK"
'
'LayoutControlItem1
'
Me.LayoutControlItem1.Control = Me.SimpleButton1
Me.LayoutControlItem1.Location = New System.Drawing.Point(287, 85)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Size = New System.Drawing.Size(124, 26)
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem1.TextVisible = False
'
'EmptySpaceItem1
'
Me.EmptySpaceItem1.AllowHotTrack = False
Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 85)
Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
Me.EmptySpaceItem1.Size = New System.Drawing.Size(287, 26)
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
'
'EmptySpaceItem2
'
Me.EmptySpaceItem2.AllowHotTrack = False
Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 48)
Me.EmptySpaceItem2.Name = "EmptySpaceItem2"
Me.EmptySpaceItem2.Size = New System.Drawing.Size(411, 37)
Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0)
'
'txtDocuments
'
Me.txtDocuments.Location = New System.Drawing.Point(114, 12)
Me.txtDocuments.Name = "txtDocuments"
Me.txtDocuments.Properties.ReadOnly = True
Me.txtDocuments.Size = New System.Drawing.Size(305, 20)
Me.txtDocuments.StyleController = Me.LayoutControl1
Me.txtDocuments.TabIndex = 7
'
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.txtDocuments
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Size = New System.Drawing.Size(411, 24)
Me.LayoutControlItem3.Text = "Dokument"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(90, 13)
'
'frmChangeDocType
'
Me.AcceptButton = Me.SimpleButton1
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(431, 131)
Me.Controls.Add(Me.LayoutControl1)
Me.IconOptions.SvgImage = CType(resources.GetObject("frmChangeDocType.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.Name = "frmChangeDocType"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Dokumentart ändern"
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl1.ResumeLayout(False)
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cmbDocType.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDocuments.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents cmbDocType As DevExpress.XtraEditors.ComboBoxEdit
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents txtDocuments As DevExpress.XtraEditors.TextEdit
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
End Class

139
app/DD-Record-Organizer/frmChangeDocType.resx Normal file
View File

@ -0,0 +1,139 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="frmChangeDocType.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHECAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTXVsdGlwbGVfRG9jdW1lbnRzIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91
bmQ6bmV3IDAgMCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmxhY2t7ZmlsbDoj
NzI3MjcyO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTMxLDhoLTVWNWMwLTAuNS0wLjUtMS0xLTFoLTVW
MWMwLTAuNS0wLjUtMS0xLTFIMUMwLjUsMCwwLDAuNSwwLDF2MjJjMCwwLjUsMC41LDEsMSwxaDV2M2Mw
LDAuNSwwLjUsMSwxLDEgIGg1djNjMCwwLjUsMC41LDEsMSwxaDE4YzAuNSwwLDEtMC41LDEtMVY5QzMy
LDguNSwzMS41LDgsMzEsOHogTTYsNXYxN0gyVjJoMTZ2Mkg3QzYuNSw0LDYsNC41LDYsNXogTTEyLDl2
MTdIOFY2aDE2djJIMTMgIEMxMi41LDgsMTIsOC41LDEyLDl6IE0zMCwzMEgxNFYxMGgxNlYzMHoiIGNs
YXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs=
</value>
</data>
</root>

29
app/DD-Record-Organizer/frmChangeDocType.vb Normal file
View File

@ -0,0 +1,29 @@
Public Class frmChangeDocType
Public Property SelectedDocType As DocType
Public Property DocTypes As List(Of DocType)
Public Property FileNames As List(Of String)
Private Sub frmChangeDocType_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cmbDocType.Properties.Items.AddRange(DocTypes)
If FileNames.Count = 1 Then
txtDocuments.EditValue = FileNames.First()
Else
txtDocuments.EditValue = $"{FileNames.Count} Dokumente"
End If
End Sub
Public Class DocType
Public Property Name As String
Public Property Id As Integer
Public Overrides Function ToString() As String
Return Name
End Function
End Class
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
SelectedDocType = cmbDocType.EditValue
End Sub
End Class

18
app/DD-Record-Organizer/frmConfig_Basic.vb
View File

@ -165,7 +165,7 @@ Public Class frmConfig_Basic
cmbConstructor.Enabled = False
End If
cmbDesign.Text = MyFormsDesign
cmbDesign.Text = CONFIG.Config.FormsDesign
'Catch ex As Exception
' MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -536,23 +536,19 @@ Public Class frmConfig_Basic
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If cmbDesign.SelectedIndex <> -1 Then
UserLookAndFeel.Default.SetSkinStyle(cmbDesign.Text)
SaveMySettingsValue("MyFormsDesign", cmbDesign.Text, "ConfigMain")
CONFIG.Config.FormsDesign = cmbDesign.Text
CONFIG.Save()
End If
End Sub
Private Sub cmbLanguage_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbLanguage.SelectedIndexChanged
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim exists
Dim oExists = False
If rbUser.Checked Then
exists = clsWD_GET.WM_USER_EXISTS(txtObjectExists.Text)
oExists = clsWD_GET.WM_USER_EXISTS(txtObjectExists.Text)
ElseIf rbGruppe.Checked Then
exists = clsWD_GET.WM_GROUP_EXISTS(txtObjectExists.Text)
oExists = clsWD_GET.WM_GROUP_EXISTS(txtObjectExists.Text)
End If
If exists = True Then
If oExists = True Then
MsgBox("Object exists in windream!")
Else
MsgBox("Object is not existing in windream!", MsgBoxStyle.Critical)

6
app/DD-Record-Organizer/frmConstructor_Main.resx
View File

@ -1239,7 +1239,7 @@
<value>0, 0</value>
</data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 254</value>
<value>1201, 264</value>
</data>
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
@ -1257,7 +1257,7 @@
<value>0</value>
</data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 254</value>
<value>1201, 264</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>Dateien</value>
@ -2289,7 +2289,7 @@
<value>Ansicht zurücksetzen</value>
</data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>256, 520</value>
<value>256, 542</value>
</data>
<data name="&gt;&gt;ContextMenuStripResultFiles.Name" xml:space="preserve">
<value>ContextMenuStripResultFiles</value>

11
app/DD-Record-Organizer/frmFileRename.vb
View File

@ -1,8 +1,9 @@
Imports System.IO
Public Class frmFileRename
Dim oRenameType As String
Public Sub New(DocID As Int32, oldName As String, pRenameType As String)
Private ReadOnly oRenameType As String
Public Sub New(DocID As Integer, oldName As String, pRenameType As String)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@ -43,7 +44,7 @@ Public Class frmFileRename
OnlyFilename = NewName
Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(ClassWindreamDocGrid.SELECTED_DOC_PATH)
Dim name1 = Path.Combine(Path.GetDirectoryName(oFullFilename), NewName)
NewName = NewName & Path.GetExtension(oFullFilename)
NewName &= Path.GetExtension(oFullFilename)
OnlyFilename &= Path.GetExtension(oFullFilename)
' Rename file.
LOGGER.Info($"Renaming Old: [{OldName}]")
@ -59,9 +60,5 @@ Public Class frmFileRename
End If
End If
End If
End Sub
End Class

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

@ -72,7 +72,7 @@ Public Class frmMain
ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain")
Dim i = My.Application.UICulture.ToString()
UserLookAndFeel.Default.SetSkinStyle(MyFormsDesign)
UserLookAndFeel.Default.SetSkinStyle(CONFIG.Config.FormsDesign)
' GetIPv4Address()

11
app/DD-Record-Organizer/frmNewNode.Designer.vb generated
View File

@ -19,6 +19,7 @@ Partial Class frmNewNode
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNewNode))
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.cmbNodeConfig = New DevExpress.XtraEditors.ComboBoxEdit()
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
@ -56,19 +57,19 @@ Partial Class frmNewNode
'
'cmbNodeConfig
'
Me.cmbNodeConfig.Location = New System.Drawing.Point(73, 36)
Me.cmbNodeConfig.Location = New System.Drawing.Point(81, 36)
Me.cmbNodeConfig.Name = "cmbNodeConfig"
Me.cmbNodeConfig.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.cmbNodeConfig.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.DisableTextEditor
Me.cmbNodeConfig.Size = New System.Drawing.Size(356, 20)
Me.cmbNodeConfig.Size = New System.Drawing.Size(348, 20)
Me.cmbNodeConfig.StyleController = Me.LayoutControl1
Me.cmbNodeConfig.TabIndex = 4
'
'TextEdit1
'
Me.TextEdit1.Location = New System.Drawing.Point(73, 12)
Me.TextEdit1.Location = New System.Drawing.Point(81, 12)
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Size = New System.Drawing.Size(356, 20)
Me.TextEdit1.Size = New System.Drawing.Size(348, 20)
Me.TextEdit1.StyleController = Me.LayoutControl1
Me.TextEdit1.TabIndex = 5
'
@ -140,9 +141,11 @@ Partial Class frmNewNode
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(441, 125)
Me.Controls.Add(Me.LayoutControl1)
Me.IconOptions.SvgImage = CType(resources.GetObject("frmNewNode.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmNewNode"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Neuen Knoten erstellen"
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl1.ResumeLayout(False)

24
app/DD-Record-Organizer/frmNewNode.resx
View File

@ -117,4 +117,28 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="frmNewNode.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIkDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSW5zZXJ0VHJl
ZVZpZXciPg0KICAgIDxwYXRoIGQ9Ik0xMyw4SDVDNC40LDgsNCw3LjYsNCw3VjNjMC0wLjUsMC40LTEs
MS0xaDhjMC42LDAsMSwwLjUsMSwxdjRDMTQsNy42LDEzLjYsOCwxMyw4eiBNMjYsMTd2LTQgICBjMC0w
LjYtMC41LTEtMS0xaC04Yy0wLjUsMC0xLDAuNC0xLDF2NGMwLDAuNSwwLjUsMSwxLDFoOEMyNS41LDE4
LDI2LDE3LjUsMjYsMTd6IE0yNiwyN3YtNGMwLTAuNS0wLjUtMS0xLTFoLThjLTAuNSwwLTEsMC41LTEs
MSAgIHY0YzAsMC41LDAuNSwxLDEsMWg4QzI1LjUsMjgsMjYsMjcuNSwyNiwyN3oiIGNsYXNzPSJZZWxs
b3ciIC8+DQogICAgPHBvbHlnb24gcG9pbnRzPSIxNCwxNiAxNCwxNCAxMCwxNCAxMCwxMCA4LDEwIDgs
MjYgMTQsMjYgMTQsMjQgMTAsMjQgMTAsMTYgICIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2
Zz4L
</value>
</data>
</root>

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

@ -51,10 +51,9 @@ Partial Class frmNodeNavigation
Me.RPGNodes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainerTreeList = New DevExpress.XtraEditors.SplitContainerControl()
Me.TreeListDevexpress = New DevExpress.XtraTreeList.TreeList()
Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.pnlControls = New System.Windows.Forms.Panel()
Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl()
Me.GridViewDoc_Search = New DevExpress.XtraGrid.Views.Grid.GridView()
@ -78,6 +77,7 @@ Partial Class frmNodeNavigation
Me.tsmiFileRenameFilename = 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.tsmiFileRightsShow = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.tsmiFileDelete = New System.Windows.Forms.ToolStripMenuItem()
@ -85,19 +85,16 @@ Partial Class frmNodeNavigation
Me.TimerClearResultfiles = New System.Windows.Forms.Timer(Me.components)
Me.SplitContainerDocView = New DevExpress.XtraEditors.SplitContainerControl()
Me.DocumentViewer = New DigitalData.Controls.DocumentViewer.DocumentViewer()
Me.SplitContainerDocumentSearch = New DevExpress.XtraEditors.SplitContainerControl()
CType(Me.ribbonNodeNavigation, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerMain.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerMain.Panel1.SuspendLayout()
CType(Me.SplitContainerMain.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerMain.Panel2.SuspendLayout()
Me.SplitContainerMain.SuspendLayout()
CType(Me.SplitContainerTreeList, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerTreeList.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerTreeList.Panel1.SuspendLayout()
CType(Me.SplitContainerTreeList.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerTreeList.Panel2.SuspendLayout()
Me.SplitContainerTreeList.SuspendLayout()
CType(Me.TreeListDevexpress, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cmsResultFilesBasic.SuspendLayout()
@ -108,6 +105,12 @@ Partial Class frmNodeNavigation
CType(Me.SplitContainerDocView.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerDocView.Panel2.SuspendLayout()
Me.SplitContainerDocView.SuspendLayout()
CType(Me.SplitContainerDocumentSearch, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerDocumentSearch.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerDocumentSearch.Panel1.SuspendLayout()
CType(Me.SplitContainerDocumentSearch.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerDocumentSearch.Panel2.SuspendLayout()
Me.SplitContainerDocumentSearch.SuspendLayout()
Me.SuspendLayout()
'
'ribbonNodeNavigation
@ -124,7 +127,7 @@ Partial Class frmNodeNavigation
Me.ribbonNodeNavigation.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[True]
Me.ribbonNodeNavigation.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
Me.ribbonNodeNavigation.ShowToolbarCustomizeItem = False
Me.ribbonNodeNavigation.Size = New System.Drawing.Size(1307, 147)
Me.ribbonNodeNavigation.Size = New System.Drawing.Size(1307, 158)
Me.ribbonNodeNavigation.StatusBar = Me.RibbonStatusBar1
Me.ribbonNodeNavigation.Toolbar.ShowCustomizeItem = False
'
@ -305,34 +308,34 @@ Partial Class frmNodeNavigation
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmRecordID)
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemLocked)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmtInfoDoc)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 667)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 668)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.ribbonNodeNavigation
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1307, 23)
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1307, 22)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'SplitContainerMain
'SplitContainerTreeList
'
Me.SplitContainerMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerMain.Location = New System.Drawing.Point(0, 0)
Me.SplitContainerMain.Name = "SplitContainerMain"
Me.SplitContainerTreeList.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerTreeList.Location = New System.Drawing.Point(0, 0)
Me.SplitContainerTreeList.Name = "SplitContainerTreeList"
'
'SplitContainerMain.Panel1
'SplitContainerTreeList.Panel1
'
Me.SplitContainerMain.Panel1.Controls.Add(Me.TreeListDevexpress)
Me.SplitContainerMain.Panel1.Text = "Panel1"
Me.SplitContainerTreeList.Panel1.Controls.Add(Me.TreeListDevexpress)
Me.SplitContainerTreeList.Panel1.Text = "Panel1"
'
'SplitContainerMain.Panel2
'SplitContainerTreeList.Panel2
'
Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitContainer1)
Me.SplitContainerMain.Panel2.Text = "Panel2"
Me.SplitContainerMain.Size = New System.Drawing.Size(1295, 520)
Me.SplitContainerMain.SplitterPosition = 289
Me.SplitContainerMain.TabIndex = 2
Me.SplitContainerTreeList.Panel2.Controls.Add(Me.SplitContainerDocumentSearch)
Me.SplitContainerTreeList.Panel2.Text = "Panel2"
Me.SplitContainerTreeList.Size = New System.Drawing.Size(1297, 510)
Me.SplitContainerTreeList.SplitterPosition = 289
Me.SplitContainerTreeList.TabIndex = 2
'
'TreeListDevexpress
'
@ -368,7 +371,7 @@ Partial Class frmNodeNavigation
Me.TreeListDevexpress.OptionsView.ShowVertLines = False
Me.TreeListDevexpress.OptionsView.TreeLineStyle = DevExpress.XtraTreeList.LineStyle.Dark
Me.TreeListDevexpress.ParentFieldName = "PARENT_GUID"
Me.TreeListDevexpress.Size = New System.Drawing.Size(289, 520)
Me.TreeListDevexpress.Size = New System.Drawing.Size(289, 510)
Me.TreeListDevexpress.StateImageList = Me.ImageCollection1
Me.TreeListDevexpress.TabIndex = 1
'
@ -376,25 +379,6 @@ Partial Class frmNodeNavigation
'
Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer)
'
'SplitContainer1
'
Me.SplitContainer1.AllowDrop = True
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer1.Name = "SplitContainer1"
Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.pnlControls)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.GridControlDocSearch)
Me.SplitContainer1.Size = New System.Drawing.Size(994, 520)
Me.SplitContainer1.SplitterDistance = 167
Me.SplitContainer1.TabIndex = 0
'
'pnlControls
'
Me.pnlControls.AllowDrop = True
@ -402,7 +386,7 @@ Partial Class frmNodeNavigation
Me.pnlControls.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlControls.Location = New System.Drawing.Point(0, 0)
Me.pnlControls.Name = "pnlControls"
Me.pnlControls.Size = New System.Drawing.Size(994, 167)
Me.pnlControls.Size = New System.Drawing.Size(998, 246)
Me.pnlControls.TabIndex = 0
'
'GridControlDocSearch
@ -415,7 +399,7 @@ Partial Class frmNodeNavigation
Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
Me.GridControlDocSearch.Name = "GridControlDocSearch"
Me.GridControlDocSearch.Size = New System.Drawing.Size(994, 349)
Me.GridControlDocSearch.Size = New System.Drawing.Size(998, 254)
Me.GridControlDocSearch.TabIndex = 8
Me.GridControlDocSearch.TabStop = False
Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search})
@ -472,9 +456,9 @@ Partial Class frmNodeNavigation
'
'cmsResultFileDetail
'
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.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.tsmiFileLink_ShowAll, Me.tsmiFileLinkRemove, Me.ToolStripSeparator2, Me.tsmiFileRename, Me.tsmiFileVersion, Me.DokumentartÄndernToolStripMenuItem, Me.tsmiFileRightsShow, Me.ToolStripSeparator4, Me.tsmiFileDelete})
Me.cmsResultFileDetail.Name = "ContextMenuStripResultFiles"
Me.cmsResultFileDetail.Size = New System.Drawing.Size(240, 276)
Me.cmsResultFileDetail.Size = New System.Drawing.Size(240, 298)
'
'tsmiFileProperties
'
@ -571,6 +555,12 @@ Partial Class frmNodeNavigation
Me.tsmiFileVersion.Size = New System.Drawing.Size(239, 22)
Me.tsmiFileVersion.Text = "Datei versionieren"
'
'DokumentartÄndernToolStripMenuItem
'
Me.DokumentartÄndernToolStripMenuItem.Name = "DokumentartÄndernToolStripMenuItem"
Me.DokumentartÄndernToolStripMenuItem.Size = New System.Drawing.Size(239, 22)
Me.DokumentartÄndernToolStripMenuItem.Text = "Dokumentart ändern"
'
'tsmiFileRightsShow
'
Me.tsmiFileRightsShow.Image = CType(resources.GetObject("tsmiFileRightsShow.Image"), System.Drawing.Image)
@ -603,19 +593,19 @@ Partial Class frmNodeNavigation
Me.SplitContainerDocView.Collapsed = True
Me.SplitContainerDocView.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainerDocView.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 147)
Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 158)
Me.SplitContainerDocView.Name = "SplitContainerDocView"
'
'SplitContainerDocView.Panel1
'
Me.SplitContainerDocView.Panel1.Controls.Add(Me.SplitContainerMain)
Me.SplitContainerDocView.Panel1.Controls.Add(Me.SplitContainerTreeList)
Me.SplitContainerDocView.Panel1.Text = "Panel1"
'
'SplitContainerDocView.Panel2
'
Me.SplitContainerDocView.Panel2.Controls.Add(Me.DocumentViewer)
Me.SplitContainerDocView.Panel2.Text = "Panel2"
Me.SplitContainerDocView.Size = New System.Drawing.Size(1307, 520)
Me.SplitContainerDocView.Size = New System.Drawing.Size(1307, 510)
Me.SplitContainerDocView.SplitterPosition = 969
Me.SplitContainerDocView.TabIndex = 0
'
@ -628,6 +618,26 @@ Partial Class frmNodeNavigation
Me.DocumentViewer.Size = New System.Drawing.Size(0, 0)
Me.DocumentViewer.TabIndex = 0
'
'SplitContainerDocumentSearch
'
Me.SplitContainerDocumentSearch.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerDocumentSearch.Horizontal = False
Me.SplitContainerDocumentSearch.Location = New System.Drawing.Point(0, 0)
Me.SplitContainerDocumentSearch.Name = "SplitContainerDocumentSearch"
'
'SplitContainerDocumentSearch.SplitContainerDocumentSearch_Panel1
'
Me.SplitContainerDocumentSearch.Panel1.Controls.Add(Me.pnlControls)
Me.SplitContainerDocumentSearch.Panel1.Text = "Panel1"
'
'SplitContainerDocumentSearch.SplitContainerDocumentSearch_Panel2
'
Me.SplitContainerDocumentSearch.Panel2.Controls.Add(Me.GridControlDocSearch)
Me.SplitContainerDocumentSearch.Panel2.Text = "Panel2"
Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(998, 510)
Me.SplitContainerDocumentSearch.SplitterPosition = 246
Me.SplitContainerDocumentSearch.TabIndex = 1
'
'frmNodeNavigation
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -642,18 +652,14 @@ Partial Class frmNodeNavigation
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "frmNodeNavigation"
CType(Me.ribbonNodeNavigation, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerMain.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerMain.Panel1.ResumeLayout(False)
CType(Me.SplitContainerMain.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerMain.Panel2.ResumeLayout(False)
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerMain.ResumeLayout(False)
CType(Me.SplitContainerTreeList.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerTreeList.Panel1.ResumeLayout(False)
CType(Me.SplitContainerTreeList.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerTreeList.Panel2.ResumeLayout(False)
CType(Me.SplitContainerTreeList, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerTreeList.ResumeLayout(False)
CType(Me.TreeListDevexpress, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit()
Me.cmsResultFilesBasic.ResumeLayout(False)
@ -664,6 +670,12 @@ Partial Class frmNodeNavigation
Me.SplitContainerDocView.Panel2.ResumeLayout(False)
CType(Me.SplitContainerDocView, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerDocView.ResumeLayout(False)
CType(Me.SplitContainerDocumentSearch.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerDocumentSearch.Panel1.ResumeLayout(False)
CType(Me.SplitContainerDocumentSearch.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerDocumentSearch.Panel2.ResumeLayout(False)
CType(Me.SplitContainerDocumentSearch, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerDocumentSearch.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@ -674,8 +686,7 @@ Partial Class frmNodeNavigation
Friend WithEvents RibbonPageGroupRecord As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents SplitContainerMain As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents SplitContainer1 As SplitContainer
Friend WithEvents SplitContainerTreeList As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents ImageCollection1 As DevExpress.Utils.ImageCollection
Friend WithEvents TreeListDevexpress As DevExpress.XtraTreeList.TreeList
Friend WithEvents bbtnitmRecEdit As DevExpress.XtraBars.BarButtonItem
@ -729,4 +740,6 @@ Partial Class frmNodeNavigation
Friend WithEvents RibbonPageGroupView As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents checkShowPreview As DevExpress.XtraBars.BarCheckItem
Friend WithEvents btnCreateNewNode As DevExpress.XtraBars.BarButtonItem
Friend WithEvents DokumentartÄndernToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SplitContainerDocumentSearch As DevExpress.XtraEditors.SplitContainerControl
End Class

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

File diff suppressed because it is too large Load Diff

0
app/DD-Record-Organizer.sln → app/OrgFlow.sln
View File

1
app/Setup_NoUpdaterVS19/Product.wxs
View File

@ -140,7 +140,6 @@
<File Id="DDWindream" Name="DigitalData.Modules.Windream.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="DDFilesystem" Name="DigitalData.Modules.Filesystem.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDLanguage" Name="DigitalData.Modules.Language.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDEncryption" Name="DigitalData.Modules.Encryption.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDDocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" KeyPath="no" Checksum="yes"/>