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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-07-04 10:33:11 +02:00
parent 00c7d956c1
commit 0876b7b4e4
25 changed files with 7682 additions and 5917 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,9 +6,9 @@
Dim upd As String Dim upd As String
InWork = False InWork = False
If comment = "" Then If comment = "" Then
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET IN_WORK = {0} WHERE DocID = {1}", state, DocID) upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Change_DateTime = GETDATE(), IN_WORK = {0} WHERE DocID = {1}", state, DocID)
Else Else
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET IN_WORK = {0}, IN_WORK_USER = '{1}', IN_WORK_COMMENT = '{2}' WHERE DocID = {3}", state, USER_USERNAME, comment, DocID) upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Change_DateTime = GETDATE(), IN_WORK = {0}, IN_WORK_USER = '{1}', IN_WORK_COMMENT = '{2}' WHERE DocID = {3}", state, USER_USERNAME, comment, DocID)
End If End If
If ClassDatabase.Execute_non_Query(upd) = True Then If ClassDatabase.Execute_non_Query(upd) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
@ -27,7 +27,7 @@
Public Shared Function Set_Displayname(Displayname As String) Public Shared Function Set_Displayname(Displayname As String)
Try Try
Dim upd As String Dim upd As String
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}' WHERE DocID = {1}", Displayname, DocID) upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}',Change_DateTime = GETDATE() WHERE DocID = {1}", Displayname, DocID)
If ClassDatabase.Execute_non_Query(upd) = True Then If ClassDatabase.Execute_non_Query(upd) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(upd, True) ClassDatabase.Execute_non_Query(upd, True)

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

@ -57,7 +57,7 @@
Throw New Exception("Funktion für " & ControlId & " wurde nicht gefunden") Throw New Exception("Funktion für " & ControlId & " wurde nicht gefunden")
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler beim Empfangen der KalenderFunktion:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in LoadFunction:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing Return Nothing
End Try End Try
End Function End Function

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

@ -48,6 +48,8 @@
ClassNodeNavigation.NODE_CONFIGURABLE_ID = ID ClassNodeNavigation.NODE_CONFIGURABLE_ID = ID
CURRENT_NODE_CONFIGURABLE_ID = ID CURRENT_NODE_CONFIGURABLE_ID = ID
End If End If
Else
If LogErrorsOnly = False Then ClassLogger.Add("NO CURRENT_DT_NODE_CONFIGURABLE_NODES", False)
End If End If
Catch ex As Exception Catch ex As Exception
ClassNodeNavigation.NODE_CONFIGURABLE_ID = 0 ClassNodeNavigation.NODE_CONFIGURABLE_ID = 0

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

@ -235,7 +235,7 @@ Public Class ClassWindreamDocGrid
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(">> Attention: Could not Add tables to ds.Tables: " & ex.Message, False) ClassLogger.Add(">> Attention: Could not Add tables to ds.Tables: " & ex.Message, False)
End Try End Try
gridView.BestFitColumns(GridDocResult_BestFitColumns)
Try Try
Dim resultTable As DataTable = ds.Tables(0) Dim resultTable As DataTable = ds.Tables(0)

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

@ -18,6 +18,7 @@ Module ModuleMySettings
Public MY_WIKISTRING As String Public MY_WIKISTRING As String
Public WD_GROUP1 As String Public WD_GROUP1 As String
Public WD_UNICODE As Boolean = False Public WD_UNICODE As Boolean = False
Public GridDocResult_BestFitColumns As Boolean = True
Public SQL_FULLTEXT As String Public SQL_FULLTEXT As String
'Public WD_ShowEnitityDocs As Boolean = True 'Public WD_ShowEnitityDocs As Boolean = True
@ -211,6 +212,9 @@ Module ModuleMySettings
If Row.Item("Value") <> String.Empty Then If Row.Item("Value") <> String.Empty Then
MyFormsDesign = Row.Item("Value") MyFormsDesign = Row.Item("Value")
End If End If
Case "GridDocResult_BestFitColumns"
GridDocResult_BestFitColumns = CBool(Row.Item("Value"))
End Select End Select
Next Next
'update 1.1 'update 1.1
@ -270,6 +274,13 @@ Module ModuleMySettings
DT.Rows.Add(newRow) DT.Rows.Add(newRow)
DT.WriteXml(ConfigPath) DT.WriteXml(ConfigPath)
End If End If
If rowresult.Contains("GridDocResult_BestFitColumns") = False Then
Dim newRow As DataRow = DT.NewRow()
newRow("ConfigName") = "GridDocResult_BestFitColumns"
newRow("Value") = "True"
DT.Rows.Add(newRow)
DT.WriteXml(ConfigPath)
End If
Catch ex As Exception Catch ex As Exception
@ -366,6 +377,10 @@ Module ModuleMySettings
Dim newRow16 As DataRow = table.NewRow() Dim newRow16 As DataRow = table.NewRow()
newRow16("ConfigName") = "MyFormsDesign" newRow16("ConfigName") = "MyFormsDesign"
newRow16("Value") = "" newRow16("Value") = ""
Dim newRow17 As DataRow = table.NewRow()
newRow17("ConfigName") = "GridDocResult_BestFitColumns"
newRow17("Value") = "True"
table.AcceptChanges() table.AcceptChanges()
ClassLogger.Add(">> CreateConfigTable su...", False) ClassLogger.Add(">> CreateConfigTable su...", False)

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("2.4.9.7")> <Assembly: AssemblyVersion("2.4.9.8")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

2
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", "15.5.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.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

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

@ -55,5 +55,8 @@
<Setting Name="windreamGruppe" Type="System.String" Scope="Application"> <Setting Name="windreamGruppe" Type="System.String" Scope="Application">
<Value Profile="(Default)">sDigital Data - windream-Benutzer</Value> <Value Profile="(Default)">sDigital Data - windream-Benutzer</Value>
</Setting> </Setting>
<Setting Name="UserDocIDIndexname" Type="System.String" Scope="User">
<Value Profile="(Default)">Dokument-ID</Value>
</Setting>
</Settings> </Settings>
</SettingsFile> </SettingsFile>

57
app/DD-Record-Organizer/frmClientLogin.resx
View File

@ -121,11 +121,14 @@
<data name="cmbClients.TabIndex" type="System.Int32, mscorlib"> <data name="cmbClients.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
</data> </data>
<data name="&gt;&gt;Label2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="Label1.Text" xml:space="preserve"> <data name="Label1.Text" xml:space="preserve">
<value>Ihr User ist für mehrere Mandanten konfiguriert. Bitte wählen Sie einen Mandanten.</value> <value>Ihr User ist für mehrere Mandanten konfiguriert. Bitte wählen Sie einen Mandanten.</value>
</data> </data>
<data name="Label2.TabIndex" type="System.Int32, mscorlib"> <data name="$this.Text" xml:space="preserve">
<value>2</value> <value>Mandanten Login</value>
</data> </data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
@ -137,8 +140,8 @@
<data name="Label2.Text" xml:space="preserve"> <data name="Label2.Text" xml:space="preserve">
<value>Ihre Userlizenz wird vom Kontingent des ausgewählten Mandanten abgezogen.</value> <value>Ihre Userlizenz wird vom Kontingent des ausgewählten Mandanten abgezogen.</value>
</data> </data>
<data name="Label1.Font" type="System.Drawing.Font, System.Drawing"> <data name="&gt;&gt;btnLogin.Name" xml:space="preserve">
<value>Tahoma, 9.75pt</value> <value>btnLogin</value>
</data> </data>
<data name="Label2.Location" type="System.Drawing.Point, System.Drawing"> <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 31</value> <value>12, 31</value>
@ -146,9 +149,6 @@
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>440, 14</value> <value>440, 14</value>
</data> </data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>486, 16</value> <value>486, 16</value>
</data> </data>
@ -167,8 +167,8 @@
<data name="&gt;&gt;cmbClients.ZOrder" xml:space="preserve"> <data name="&gt;&gt;cmbClients.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="btnLogin.Size" type="System.Drawing.Size, System.Drawing"> <data name="btnLogin.Text" xml:space="preserve">
<value>472, 42</value> <value>Login</value>
</data> </data>
<data name="&gt;&gt;Label2.Type" xml:space="preserve"> <data name="&gt;&gt;Label2.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
@ -182,6 +182,9 @@
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>499, 142</value> <value>499, 142</value>
</data> </data>
<data name="&gt;&gt;btnLogin.Parent" xml:space="preserve">
<value>$this</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms"> <data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterScreen</value> <value>CenterScreen</value>
@ -201,12 +204,12 @@
<data name="&gt;&gt;btnLogin.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnLogin.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="btnLogin.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="btnLogin.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value> <value>MiddleLeft</value>
</data> </data>
<data name="btnLogin.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 86</value>
</data>
<data name="&gt;&gt;cmbClients.Name" xml:space="preserve"> <data name="&gt;&gt;cmbClients.Name" xml:space="preserve">
<value>cmbClients</value> <value>cmbClients</value>
</data> </data>
@ -216,11 +219,8 @@
<data name="&gt;&gt;Label1.Type" xml:space="preserve"> <data name="&gt;&gt;Label1.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="btnLogin.Font" type="System.Drawing.Font, System.Drawing"> <data name="btnLogin.Size" type="System.Drawing.Size, System.Drawing">
<value>Tahoma, 9.75pt</value> <value>472, 42</value>
</data>
<data name="btnLogin.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 86</value>
</data> </data>
<data name="btnLogin.TabIndex" type="System.Int32, mscorlib"> <data name="btnLogin.TabIndex" type="System.Int32, mscorlib">
<value>3</value> <value>3</value>
@ -228,14 +228,14 @@
<data name="cmbClients.Location" type="System.Drawing.Point, System.Drawing"> <data name="cmbClients.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 56</value> <value>15, 56</value>
</data> </data>
<data name="btnLogin.Text" xml:space="preserve"> <data name="Label2.TabIndex" type="System.Int32, mscorlib">
<value>Login</value> <value>2</value>
</data> </data>
<data name="cmbClients.Font" type="System.Drawing.Font, System.Drawing"> <data name="cmbClients.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value> <value>Tahoma, 9.75pt</value>
</data> </data>
<data name="&gt;&gt;Label2.Parent" xml:space="preserve"> <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>$this</value> <value>3</value>
</data> </data>
<data name="&gt;&gt;Label1.Name" xml:space="preserve"> <data name="&gt;&gt;Label1.Name" xml:space="preserve">
<value>Label1</value> <value>Label1</value>
@ -243,22 +243,19 @@
<data name="cmbClients.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmbClients.Size" type="System.Drawing.Size, System.Drawing">
<value>472, 24</value> <value>472, 24</value>
</data> </data>
<data name="&gt;&gt;btnLogin.Parent" xml:space="preserve"> <data name="btnLogin.Font" type="System.Drawing.Font, System.Drawing">
<value>$this</value> <value>Tahoma, 9.75pt</value>
</data> </data>
<data name="&gt;&gt;btnLogin.Name" xml:space="preserve"> <data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>btnLogin</value> <value>0</value>
</data> </data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing"> <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt</value> <value>Tahoma, 8.25pt</value>
</data> </data>
<data name="$this.Text" xml:space="preserve"> <data name="Label1.Font" type="System.Drawing.Font, System.Drawing">
<value>Mandanten Login</value> <value>Tahoma, 9.75pt</value>
</data> </data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
<metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>en</value>
</metadata>
</root> </root>

125
app/DD-Record-Organizer/frmConfig_Basic.Designer.vb generated
View File

@ -22,8 +22,8 @@ Partial Class frmConfig_Basic
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.lblLinkedServer = New System.Windows.Forms.Label() Me.lblLinkedServer = New System.Windows.Forms.Label()
@ -73,16 +73,17 @@ Partial Class frmConfig_Basic
Me.Label8 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label()
Me.btnstartstop2 = New System.Windows.Forms.Button() Me.btnstartstop2 = New System.Windows.Forms.Button()
Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.RadioButton3 = New System.Windows.Forms.RadioButton()
Me.rbGruppe = New System.Windows.Forms.RadioButton()
Me.rbUser = New System.Windows.Forms.RadioButton()
Me.txtObjectExists = New System.Windows.Forms.TextBox()
Me.Button6 = New System.Windows.Forms.Button()
Me.btncheckWDFolderexists = New System.Windows.Forms.Button() Me.btncheckWDFolderexists = New System.Windows.Forms.Button()
Me.txtwdFolder = New System.Windows.Forms.TextBox() Me.txtwdFolder = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label()
Me.Button6 = New System.Windows.Forms.Button() Me.CheckBoxGridDocResult_BestFitColumns = New System.Windows.Forms.CheckBox()
Me.txtObjectExists = New System.Windows.Forms.TextBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.rbUser = New System.Windows.Forms.RadioButton()
Me.rbGruppe = New System.Windows.Forms.RadioButton()
Me.RadioButton3 = New System.Windows.Forms.RadioButton()
Me.Button7 = New System.Windows.Forms.Button()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
@ -231,6 +232,7 @@ Partial Class frmConfig_Basic
' '
'TabPage2 'TabPage2
' '
Me.TabPage2.Controls.Add(Me.CheckBoxGridDocResult_BestFitColumns)
Me.TabPage2.Controls.Add(Me.Button4) Me.TabPage2.Controls.Add(Me.Button4)
Me.TabPage2.Controls.Add(Me.GroupBox5) Me.TabPage2.Controls.Add(Me.GroupBox5)
Me.TabPage2.Controls.Add(Me.GroupBox1) Me.TabPage2.Controls.Add(Me.GroupBox1)
@ -399,8 +401,8 @@ Partial Class frmConfig_Basic
' '
'DataGridView1 'DataGridView1
' '
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
resources.ApplyResources(Me.DataGridView1, "DataGridView1") resources.ApplyResources(Me.DataGridView1, "DataGridView1")
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Name = "DataGridView1" Me.DataGridView1.Name = "DataGridView1"
@ -445,6 +447,56 @@ Partial Class frmConfig_Basic
Me.TabPage4.Name = "TabPage4" Me.TabPage4.Name = "TabPage4"
Me.TabPage4.UseVisualStyleBackColor = True Me.TabPage4.UseVisualStyleBackColor = True
' '
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Button7)
Me.GroupBox2.Controls.Add(Me.RadioButton3)
Me.GroupBox2.Controls.Add(Me.rbGruppe)
Me.GroupBox2.Controls.Add(Me.rbUser)
Me.GroupBox2.Controls.Add(Me.txtObjectExists)
Me.GroupBox2.Controls.Add(Me.Button6)
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False
'
'Button7
'
resources.ApplyResources(Me.Button7, "Button7")
Me.Button7.Name = "Button7"
Me.Button7.UseVisualStyleBackColor = True
'
'RadioButton3
'
resources.ApplyResources(Me.RadioButton3, "RadioButton3")
Me.RadioButton3.Name = "RadioButton3"
Me.RadioButton3.TabStop = True
Me.RadioButton3.UseVisualStyleBackColor = True
'
'rbGruppe
'
resources.ApplyResources(Me.rbGruppe, "rbGruppe")
Me.rbGruppe.Name = "rbGruppe"
Me.rbGruppe.TabStop = True
Me.rbGruppe.UseVisualStyleBackColor = True
'
'rbUser
'
resources.ApplyResources(Me.rbUser, "rbUser")
Me.rbUser.Name = "rbUser"
Me.rbUser.TabStop = True
Me.rbUser.UseVisualStyleBackColor = True
'
'txtObjectExists
'
resources.ApplyResources(Me.txtObjectExists, "txtObjectExists")
Me.txtObjectExists.Name = "txtObjectExists"
'
'Button6
'
resources.ApplyResources(Me.Button6, "Button6")
Me.Button6.Name = "Button6"
Me.Button6.UseVisualStyleBackColor = True
'
'btncheckWDFolderexists 'btncheckWDFolderexists
' '
resources.ApplyResources(Me.btncheckWDFolderexists, "btncheckWDFolderexists") resources.ApplyResources(Me.btncheckWDFolderexists, "btncheckWDFolderexists")
@ -461,55 +513,11 @@ Partial Class frmConfig_Basic
resources.ApplyResources(Me.Label12, "Label12") resources.ApplyResources(Me.Label12, "Label12")
Me.Label12.Name = "Label12" Me.Label12.Name = "Label12"
' '
'Button6 'CheckBoxGridDocResult_BestFitColumns
' '
resources.ApplyResources(Me.Button6, "Button6") resources.ApplyResources(Me.CheckBoxGridDocResult_BestFitColumns, "CheckBoxGridDocResult_BestFitColumns")
Me.Button6.Name = "Button6" Me.CheckBoxGridDocResult_BestFitColumns.Name = "CheckBoxGridDocResult_BestFitColumns"
Me.Button6.UseVisualStyleBackColor = True Me.CheckBoxGridDocResult_BestFitColumns.UseVisualStyleBackColor = True
'
'txtObjectExists
'
resources.ApplyResources(Me.txtObjectExists, "txtObjectExists")
Me.txtObjectExists.Name = "txtObjectExists"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Button7)
Me.GroupBox2.Controls.Add(Me.RadioButton3)
Me.GroupBox2.Controls.Add(Me.rbGruppe)
Me.GroupBox2.Controls.Add(Me.rbUser)
Me.GroupBox2.Controls.Add(Me.txtObjectExists)
Me.GroupBox2.Controls.Add(Me.Button6)
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False
'
'rbUser
'
resources.ApplyResources(Me.rbUser, "rbUser")
Me.rbUser.Name = "rbUser"
Me.rbUser.TabStop = True
Me.rbUser.UseVisualStyleBackColor = True
'
'rbGruppe
'
resources.ApplyResources(Me.rbGruppe, "rbGruppe")
Me.rbGruppe.Name = "rbGruppe"
Me.rbGruppe.TabStop = True
Me.rbGruppe.UseVisualStyleBackColor = True
'
'RadioButton3
'
resources.ApplyResources(Me.RadioButton3, "RadioButton3")
Me.RadioButton3.Name = "RadioButton3"
Me.RadioButton3.TabStop = True
Me.RadioButton3.UseVisualStyleBackColor = True
'
'Button7
'
resources.ApplyResources(Me.Button7, "Button7")
Me.Button7.Name = "Button7"
Me.Button7.UseVisualStyleBackColor = True
' '
'frmConfig_Basic 'frmConfig_Basic
' '
@ -599,4 +607,5 @@ Partial Class frmConfig_Basic
Friend WithEvents txtObjectExists As TextBox Friend WithEvents txtObjectExists As TextBox
Friend WithEvents Button6 As Button Friend WithEvents Button6 As Button
Friend WithEvents Button7 As Button Friend WithEvents Button7 As Button
Friend WithEvents CheckBoxGridDocResult_BestFitColumns As CheckBox
End Class End Class

1379
app/DD-Record-Organizer/frmConfig_Basic.resx
View File

File diff suppressed because it is too large Load Diff

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

@ -140,6 +140,7 @@ Public Class frmConfig_Basic
chkLogErrorsOnly.Checked = LogErrorsOnly chkLogErrorsOnly.Checked = LogErrorsOnly
'txtwdSearch_Count.Text = WDResultListCount.ToString 'txtwdSearch_Count.Text = WDResultListCount.ToString
txtTask_Popup.Text = Task_Popup_minutes.ToString txtTask_Popup.Text = Task_Popup_minutes.ToString
CheckBoxGridDocResult_BestFitColumns.Checked = GridDocResult_BestFitColumns
Dim sql As String = "SELECT 0,'' UNION ALL SELECT T.GUID, T.FORM_TITLE FROM TBPMO_FORM_CONSTRUCTOR T" Dim sql As String = "SELECT 0,'' UNION ALL SELECT T.GUID, T.FORM_TITLE FROM TBPMO_FORM_CONSTRUCTOR T"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
@ -185,6 +186,8 @@ Public Class frmConfig_Basic
LogErrorsOnly = chkLogErrorsOnly.Checked LogErrorsOnly = chkLogErrorsOnly.Checked
SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly, "ConfigMain") SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly, "ConfigMain")
clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
End Sub End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
My.Settings.Save() My.Settings.Save()
@ -554,4 +557,12 @@ Public Class frmConfig_Basic
End If End If
End If End If
End Sub End Sub
Private Sub CheckBoxGridDocResult_BestFitColumns_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxGridDocResult_BestFitColumns.CheckedChanged
If formloaded = False Then Exit Sub
GridDocResult_BestFitColumns = chkLogErrorsOnly.Checked
SaveMySettingsValue("GridDocResult_BestFitColumns", GridDocResult_BestFitColumns, "ConfigMain")
End Sub
End Class End Class

12
app/DD-Record-Organizer/frmConstructorDesigner.Designer.vb generated
View File

@ -47,8 +47,8 @@ Partial Class frmConstructorDesigner
Dim Label19 As System.Windows.Forms.Label Dim Label19 As System.Windows.Forms.Label
Dim SQL_RIGHT_READ_AND_VIEW_ONLYLabel As System.Windows.Forms.Label Dim SQL_RIGHT_READ_AND_VIEW_ONLYLabel As System.Windows.Forms.Label
Dim SQL_RIGHT_WINDREAM_VIEWLabel As System.Windows.Forms.Label Dim SQL_RIGHT_WINDREAM_VIEWLabel As System.Windows.Forms.Label
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin()
Me.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter()
@ -1250,8 +1250,8 @@ Partial Class frmConstructorDesigner
' '
Me.dgvResult.AllowUserToAddRows = False Me.dgvResult.AllowUserToAddRows = False
Me.dgvResult.AllowUserToDeleteRows = False Me.dgvResult.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan DataGridViewCellStyle3.BackColor = System.Drawing.Color.Cyan
Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
resources.ApplyResources(Me.dgvResult, "dgvResult") resources.ApplyResources(Me.dgvResult, "dgvResult")
Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvResult.Name = "dgvResult" Me.dgvResult.Name = "dgvResult"
@ -1261,8 +1261,8 @@ Partial Class frmConstructorDesigner
' '
Me.dgvPlaceholders.AllowUserToAddRows = False Me.dgvPlaceholders.AllowUserToAddRows = False
Me.dgvPlaceholders.AllowUserToDeleteRows = False Me.dgvPlaceholders.AllowUserToDeleteRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan DataGridViewCellStyle4.BackColor = System.Drawing.Color.Cyan
Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace}) Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace})
resources.ApplyResources(Me.dgvPlaceholders, "dgvPlaceholders") resources.ApplyResources(Me.dgvPlaceholders, "dgvPlaceholders")

2210
app/DD-Record-Organizer/frmConstructorDesigner.resx
View File

File diff suppressed because it is too large Load Diff

522
app/DD-Record-Organizer/frmConstructor_Main.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

315
app/DD-Record-Organizer/frmConstructor_Main.en-US.resx
View File

@ -117,72 +117,10 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="cmsTreeView.Size" type="System.Drawing.Size, System.Drawing">
<value>189, 160</value>
</data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>227, 270</value>
</data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1091, 212</value>
</data>
<data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>1091, 25</value>
</data>
<data name="SplitContainerTop.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 237</value>
</data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 372</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Details</value>
</data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 403</value>
</data>
<data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAExpc3Q7QnVsbGV0O1FzfzkAAABa
SURBVDhPY/j//z9FGEPAxsaGEYhBNF4MUw/TVADED0A0kkHMQMyCBbOCaHQDQJr/g2gkA0B8nBimDqYY
wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII=
</value>
</data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 372</value>
</data>
<data name="TabPos.Text" xml:space="preserve">
<value>positions</value>
</data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 372</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>windream-files</value>
</data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 372</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Follow Up</value>
</data>
<data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 372</value>
</data>
<data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 645</value>
</data>
<data name="ResetEbenenAuswahlToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value>
</data>
<data name="ResetEbenenAuswahlToolStripMenuItem.Text" xml:space="preserve"> <data name="ResetEbenenAuswahlToolStripMenuItem.Text" xml:space="preserve">
<value>Reset Entity-Selection</value> <value>Reset Entity-Selection</value>
</data> </data>
<data name="ToolStripSeparator14.Size" type="System.Drawing.Size, System.Drawing"> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<value>185, 6</value>
</data>
<data name="FormDesignerToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="FormDesignerToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@ -192,39 +130,9 @@
E+BVyPIGnMT05CNGJ9j+P9gukJ0V/DDOPjLPmqLNo1WwrxQ+GCNWVrb1cMEAAAAASUVORK5CYII= E+BVyPIGnMT05CNGJ9j+P9gukJ0V/DDOPjLPmqLNo1WwrxQ+GCNWVrb1cMEAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="FormDesignerToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value>
</data>
<data name="ToolStripSeparator13.Size" type="System.Drawing.Size, System.Drawing">
<value>185, 6</value>
</data>
<data name="AuswertungAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value>
</data>
<data name="AuswertungAnzeigenToolStripMenuItem.Text" xml:space="preserve"> <data name="AuswertungAnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Show Charts</value> <value>Show Charts</value>
</data> </data>
<data name="tsmiFilesearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIISURBVDhPY/jx4wdFGKsgFDMBsQMQpwFxAhBbAjGG
OgwBKHb5+v3HtkW3X5+vPPv0fv35Z3dW3X1zFijeBMTmSOqwGuB0/dWn/aFbbr03W37lPzJO3Hnn1dMP
X3YB1RjD1KNrZvr67fu2yKVX3llOOfs/etnVd4tPP70w58Tjy0ELL38CiaWtuf4CqK4OpgfdALvlp56c
s+w5+T9y3sV3IMOAYk5A7P3649cd3tPOfgXJnbn/9hBQTAGkB92AlPp1N+5Zthz9P+/gg0tAvhuSXFzr
ppu30eWQNYNwQvOaa3csaw78n7L99lUgPxxJLq1mxZX7ILnFB+9fAPJBLsMwQHf3uafHLUt3//eoP/D9
0cuPu4Fi+UBcfPHumwMOVXv/2JTv+Xv32fu9QDFhkB50A+JOXnt+2LZg2x/L3C3/HYu3/y6ZcfJRwdQT
T2Bik9ZduQZUB0obYD2omq88PeyUs/6XRerq/8FV2z6CaBi2zVj7Z9Kq8yDNWUDMBtMH13z8wsPDtvHz
fhmHz/yf1rjp+dev37fdf/xmz6b9105tP3zzxIvXH3YC1aUAMVwzCIMIpaNnbx82Der4pe3Z9D+hbCFQ
8zdQ9OkDsSAQgxINiM0NxHCNMAwiQhv7VtxQssr4H5ndi6wZQzE2DCJAJmdNmbnw3JcvX0nSDMLIHDsg
BuVAZDEC+AcDADVk7WUUiqKZAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsmiFilesearch.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value>
</data>
<data name="tsmiFilesearch.Text" xml:space="preserve">
<value>Search files</value>
</data>
<data name="tsmiNodedownSearch.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsmiNodedownSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>273, 22</value> <value>273, 22</value>
</data> </data>
@ -306,25 +214,23 @@
<data name="tsmiFulltext.Text" xml:space="preserve"> <data name="tsmiFulltext.Text" xml:space="preserve">
<value>Fulltextsearch</value> <value>Fulltextsearch</value>
</data> </data>
<data name="ToolStripSeparator12.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsmiFilesearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>185, 6</value>
</data>
<data name="ToolStripSeparator24.Size" type="System.Drawing.Size, System.Drawing">
<value>185, 6</value>
</data>
<data name="tsmi_NewNode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIISURBVDhPY/jx4wdFGKsgFDMBsQMQpwFxAhBbAjGG
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF OgwBKHb5+v3HtkW3X5+vPPv0fv35Z3dW3X1zFijeBMTmSOqwGuB0/dWn/aFbbr03W37lPzJO3Hnn1dMP
TkSuQmCC X3YB1RjD1KNrZvr67fu2yKVX3llOOfs/etnVd4tPP70w58Tjy0ELL38CiaWtuf4CqK4OpgfdALvlp56c
s+w5+T9y3sV3IMOAYk5A7P3649cd3tPOfgXJnbn/9hBQTAGkB92AlPp1N+5Zthz9P+/gg0tAvhuSXFzr
ppu30eWQNYNwQvOaa3csaw78n7L99lUgPxxJLq1mxZX7ILnFB+9fAPJBLsMwQHf3uafHLUt3//eoP/D9
0cuPu4Fi+UBcfPHumwMOVXv/2JTv+Xv32fu9QDFhkB50A+JOXnt+2LZg2x/L3C3/HYu3/y6ZcfJRwdQT
T2Bik9ZduQZUB0obYD2omq88PeyUs/6XRerq/8FV2z6CaBi2zVj7Z9Kq8yDNWUDMBtMH13z8wsPDtvHz
fhmHz/yf1rjp+dev37fdf/xmz6b9105tP3zzxIvXH3YC1aUAMVwzCIMIpaNnbx82Der4pe3Z9D+hbCFQ
8zdQ9OkDsSAQgxINiM0NxHCNMAwiQhv7VtxQssr4H5ndi6wZQzE2DCJAJmdNmbnw3JcvX0nSDMLIHDsg
BuVAZDEC+AcDADVk7WUUiqKZAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="tsmi_NewNode.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsmiFilesearch.Text" xml:space="preserve">
<value>188, 22</value> <value>Search files</value>
</data>
<data name="tsmi_NewNode.Text" xml:space="preserve">
<value>New node</value>
</data> </data>
<data name="SdsdToolStripMenuItem.Text" xml:space="preserve"> <data name="SdsdToolStripMenuItem.Text" xml:space="preserve">
<value>Nodecaption:</value> <value>Nodecaption:</value>
@ -352,6 +258,17 @@
<data name="UnterhalbToolStripMenuItem.Text" xml:space="preserve"> <data name="UnterhalbToolStripMenuItem.Text" xml:space="preserve">
<value>Add below this level</value> <value>Add below this level</value>
</data> </data>
<data name="tsmi_NewNode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="tsmi_NewNode.Text" xml:space="preserve">
<value>New node</value>
</data>
<data name="tsmiNodeDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiNodeDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
@ -368,9 +285,6 @@
CIKE5/Vi8yJsDM8P8P0HLGwR4Wl3ICYAAAAASUVORK5CYII= CIKE5/Vi8yJsDM8P8P0HLGwR4Wl3ICYAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="tsmiNodeDelete.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value>
</data>
<data name="tsmiNodeDelete.Text" xml:space="preserve"> <data name="tsmiNodeDelete.Text" xml:space="preserve">
<value>Delete node</value> <value>Delete node</value>
</data> </data>
@ -452,11 +366,11 @@
<data name="DetailAnsichtDatensatzToolStripMenuItem.Text" xml:space="preserve"> <data name="DetailAnsichtDatensatzToolStripMenuItem.Text" xml:space="preserve">
<value>Detail-View Record</value> <value>Detail-View Record</value>
</data> </data>
<data name="ToolStripDropDownButton3.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>109, 22</value> <value>227, 270</value>
</data> </data>
<data name="ToolStripDropDownButton3.Text" xml:space="preserve"> <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>record-functions</value> <value>1084, 212</value>
</data> </data>
<data name="CopyRecordtsmi.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="CopyRecordtsmi.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -514,6 +428,12 @@
<data name="AnwendungscacheResettsmi.Text" xml:space="preserve"> <data name="AnwendungscacheResettsmi.Text" xml:space="preserve">
<value>Reset application-cache</value> <value>Reset application-cache</value>
</data> </data>
<data name="ToolStripDropDownButton3.Size" type="System.Drawing.Size, System.Drawing">
<value>109, 22</value>
</data>
<data name="ToolStripDropDownButton3.Text" xml:space="preserve">
<value>record-functions</value>
</data>
<data name="tsbtnRefresh_Entity.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsbtnRefresh_Entity.Size" type="System.Drawing.Size, System.Drawing">
<value>108, 22</value> <value>108, 22</value>
</data> </data>
@ -526,17 +446,14 @@
<data name="tsbtnGeodata.Text" xml:space="preserve"> <data name="tsbtnGeodata.Text" xml:space="preserve">
<value>geodata navigation</value> <value>geodata navigation</value>
</data> </data>
<data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>1084, 25</value>
</data>
<data name="SplitContainerTop.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 237</value>
</data>
<data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
<value>665, 293</value> <value>658, 326</value>
</data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>665, 24</value>
</data>
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>665, 26</value>
</data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 347</value>
</data> </data>
<data name="tslblDocViewLocked.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tslblDocViewLocked.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -558,8 +475,14 @@
<data name="tslblDocViewLocked.Text" xml:space="preserve"> <data name="tslblDocViewLocked.Text" xml:space="preserve">
<value>View is locked - Click Edit Record for unlocking</value> <value>View is locked - Click Edit Record for unlocking</value>
</data> </data>
<data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value> <value>658, 24</value>
</data>
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>658, 26</value>
</data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 380</value>
</data> </data>
<data name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing">
<value>49, 22</value> <value>49, 22</value>
@ -629,8 +552,17 @@
<data name="tslblFileslocked.Text" xml:space="preserve"> <data name="tslblFileslocked.Text" xml:space="preserve">
<value>No file-access</value> <value>No file-access</value>
</data> </data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 347</value> <value>1373, 25</value>
</data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 405</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Details</value>
</data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 436</value>
</data> </data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 347</value> <value>1373, 347</value>
@ -735,17 +667,28 @@
YII= YII=
</value> </value>
</data> </data>
<data name="tslblPoslocked.Size" type="System.Drawing.Size, System.Drawing">
<value>109, 22</value>
</data>
<data name="tslblPoslocked.Text" xml:space="preserve"> <data name="tslblPoslocked.Text" xml:space="preserve">
<value>Positions locked</value> <value>Positions locked</value>
</data> </data>
<data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing"> <data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value> <value>1373, 25</value>
</data> </data>
<data name="cmsResultFilesBasic.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPos.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>128, 48</value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAExpc3Q7QnVsbGV0O1FzfzkAAABa
SURBVDhPY/j//z9FGEPAxsaGEYhBNF4MUw/TVADED0A0kkHMQMyCBbOCaHQDQJr/g2gkA0B8nBimDqYY
wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII=
</value>
</data> </data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 347</value> <value>1373, 372</value>
</data>
<data name="TabPos.Text" xml:space="preserve">
<value>positions</value>
</data> </data>
<data name="cmDoc1FileOpen.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmDoc1FileOpen.Size" type="System.Drawing.Size, System.Drawing">
<value>127, 22</value> <value>127, 22</value>
@ -767,8 +710,11 @@
<data name="cmDoc1FileProperties.Text" xml:space="preserve"> <data name="cmDoc1FileProperties.Text" xml:space="preserve">
<value>Properties</value> <value>Properties</value>
</data> </data>
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmsResultFilesBasic.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value> <value>128, 48</value>
</data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 347</value>
</data> </data>
<data name="tsbtnDoc_Refresh.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsbtnDoc_Refresh.Size" type="System.Drawing.Size, System.Drawing">
<value>102, 22</value> <value>102, 22</value>
@ -800,8 +746,14 @@
<data name="tsbtnStartFulltext.Text" xml:space="preserve"> <data name="tsbtnStartFulltext.Text" xml:space="preserve">
<value>Fulltextsearch</value> <value>Fulltextsearch</value>
</data> </data>
<data name="GroupBox4.Text" xml:space="preserve"> <data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
<value>Special recipient for record:</value> <value>1373, 25</value>
</data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 372</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>windream-files</value>
</data> </data>
<data name="btnRemoveUser_FollowUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnRemoveUser_FollowUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -832,6 +784,9 @@
<data name="Label7.Text" xml:space="preserve"> <data name="Label7.Text" xml:space="preserve">
<value>Attention: this list overdrives the general list.</value> <value>Attention: this list overdrives the general list.</value>
</data> </data>
<data name="GroupBox4.Text" xml:space="preserve">
<value>Special recipient for record:</value>
</data>
<data name="lblFollowUp_save.Size" type="System.Drawing.Size, System.Drawing"> <data name="lblFollowUp_save.Size" type="System.Drawing.Size, System.Drawing">
<value>92, 15</value> <value>92, 15</value>
</data> </data>
@ -844,23 +799,32 @@
<data name="Label5.Text" xml:space="preserve"> <data name="Label5.Text" xml:space="preserve">
<value>Saved Follow Ups</value> <value>Saved Follow Ups</value>
</data> </data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 372</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Follow Up</value>
</data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 347</value> <value>1373, 347</value>
</data> </data>
<data name="tsVariants.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value>
</data>
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>63, 22</value> <value>63, 22</value>
</data> </data>
<data name="ToolStripButton1.Text" xml:space="preserve"> <data name="ToolStripButton1.Text" xml:space="preserve">
<value>Reload</value> <value>Reload</value>
</data> </data>
<data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsVariants.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 645</value> <value>1373, 25</value>
</data> </data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value>210, 370</value> <value>1373, 372</value>
</data>
<data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 685</value>
</data>
<data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 685</value>
</data> </data>
<data name="docCM_Open.Size" type="System.Drawing.Size, System.Drawing"> <data name="docCM_Open.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>209, 22</value>
@ -907,12 +871,6 @@
<data name="ToolStripSeparator20.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator20.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value> <value>206, 6</value>
</data> </data>
<data name="docCM_RenameMain.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
</data>
<data name="docCM_RenameMain.Text" xml:space="preserve">
<value>Rename</value>
</data>
<data name="NeuToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="NeuToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>187, 22</value> <value>187, 22</value>
</data> </data>
@ -925,6 +883,12 @@
<data name="DisplaynameUmbenennenToolStripMenuItem.Text" xml:space="preserve"> <data name="DisplaynameUmbenennenToolStripMenuItem.Text" xml:space="preserve">
<value>Rename displayname</value> <value>Rename displayname</value>
</data> </data>
<data name="docCM_RenameMain.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
</data>
<data name="docCM_RenameMain.Text" xml:space="preserve">
<value>Rename</value>
</data>
<data name="docCM_InWork.Size" type="System.Drawing.Size, System.Drawing"> <data name="docCM_InWork.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value> <value>209, 22</value>
</data> </data>
@ -937,9 +901,6 @@
<data name="docCM_linkRecord.Text" xml:space="preserve"> <data name="docCM_linkRecord.Text" xml:space="preserve">
<value>Link file with record</value> <value>Link file with record</value>
</data> </data>
<data name="WindreamToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
</data>
<data name="DateiVersionierenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="DateiVersionierenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@ -948,17 +909,20 @@
</value> </value>
</data> </data>
<data name="DateiVersionierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="DateiVersionierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 22</value> <value>180, 22</value>
</data> </data>
<data name="DateiVersionierenToolStripMenuItem.Text" xml:space="preserve"> <data name="DateiVersionierenToolStripMenuItem.Text" xml:space="preserve">
<value>Create new version</value> <value>Create new version</value>
</data> </data>
<data name="DokumentartÄndernToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="DokumentartÄndernToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 22</value> <value>180, 22</value>
</data> </data>
<data name="DokumentartÄndernToolStripMenuItem.Text" xml:space="preserve"> <data name="DokumentartÄndernToolStripMenuItem.Text" xml:space="preserve">
<value>Change the doctpe</value> <value>Change the doctpe</value>
</data> </data>
<data name="WindreamToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
</data>
<data name="ToolStripSeparator7.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator7.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value> <value>206, 6</value>
</data> </data>
@ -1054,45 +1018,18 @@
<data name="docCM_ResetView.Text" xml:space="preserve"> <data name="docCM_ResetView.Text" xml:space="preserve">
<value>Reset view</value> <value>Reset view</value>
</data> </data>
<data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value> <value>210, 392</value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEhvbWU7HnRkOAAAAWlJREFUWEfF
lNFOxDAMBO/D+m1IfHmIT5mTvWzS9DiVhxG1O/WuQOLRWvtX7PJOynAch6MJ+d1XsPjWkjPL4OTOrECE
s4vn/M2SnFkGJ3dyOEE5XN+dkjPL4OSOBrhw2CqRM8vg5E4+vAqH0xI5swxO7lwJh2WJnFkGJw9m4d8D
925aImeWwcmdVTjOpRI5swxGnoYPP97zf2C7RM4sQxb6z51wdqcl9D6UASE+6LhDLhy2fxM5swxDeCcc
tkrkzDIMwX24Ew5bfw7QAu6DK+GwLEFecFbgnXCYliAvWBX4SzjYEuQFswKfCIdfJcgLXIFPhkMpQV6g
BZ7h49kdeoKjOBeS88oIXg+KHsioC84FdcEuA3cE1AXngrpgl4E7AuqCc0FdsMvAHQF1wbmgLthl4I6A
uuBcUBfsMnBHQF1wLqgLdhm4I6AuOBfUBbsM3BFQF5wL6oJdBu4IqAvOBXXBLu/ELu+jPX4ATMNRVtCQ
oP8AAAAASUVORK5CYII=
</value>
</data>
<data name="NavButtonRefresh.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAndEVYdFRpdGxlAFJlZnJlc2g7UmVwZWF0O0JhcnM7
UmliYm9uO1JlbG9hZM1N9ukAAAGxSURBVFhHxZYxTsNAEEVzACSuk8LcJCegJE1ocg5OQZUCbkLHEaiQ
6Mx/1tqaGY9jC5tN8STv+P/5jnez3l3btjclLdYkLdYkLdZkVGia5hp7cRKv4kN8F7imxj00mbcj5o0K
mUk8iBfxJdoZ0KDFk/U62zwXDonhUfALs7Br4MFre52FYpY/wLP4EVnAEvDSYwgHm+fCoYiBp8/C38WT
YK7vC1xT417U0+NiazbPhYMEwPzF1/4pjuIuenq4VzRorddhPa4BSAAsImui4SFqI9L0HIrH9hiwHtcA
JOB1xtV+jLoM6SxvwvYYsB7XACTgv2wNzOvka7dI1zMsuAzrcQ3Wouaz4WA9rsFa1Hw2HKzHNbgFabEm
bpC9rgS3l6/FDZKwCHPsPGtxgxAW6cLBeqaQjl0xbs2nqHODILawqXThYD1TSMeWbHuwue2jzg2CwdJt
xWLRAxRt3IrZ3kdaNwiGCA3/+jHiw9YdUKLHDYwB+IRu9TkeDiY2D9ygGKBfcFseSBY/wLDaC1seyVwe
uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC
</value>
</data>
<data name="NavPane.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 40</value>
</data> </data>
<data name="StatusStrip_Main.Size" type="System.Drawing.Size, System.Drawing"> <data name="StatusStrip_Main.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 24</value> <value>1379, 24</value>
</data> </data>
<assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu AAEAAAD/////AQAAAAAAAAAMAgAAAFtEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
OS4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE MTYuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iODhkMTc1NGQ3MDBlNDlhBQEAAAAo
ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL RGV2RXhwcmVzcy5VdGlscy5JbWFnZUNvbGxlY3Rpb25TdHJlYW1lcgAAAAACAAAACw==
</value> </value>
</data> </data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">

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

File diff suppressed because it is too large Load Diff

19
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@ -142,7 +142,7 @@ Public Class frmConstructor_Main
' Private gridGUID = 2 ' Private gridGUID = 2
Private DT_WINDREAM_RESULTLIST_DEF As DataTable Private DT_WINDREAM_RESULTLIST_DEF As DataTable
Private DT_WINDREAM_RESULTLIST As DataTable Private DT_WINDREAM_COLUMNS_GRID As DataTable
Private DT_DOCRESULT_DROPDOWN_ITEMS As DataTable Private DT_DOCRESULT_DROPDOWN_ITEMS As DataTable
Private DT_RESULTLIST_OPTIONS As DataTable Private DT_RESULTLIST_OPTIONS As DataTable
Private DT_RESULTLIST_VARIABLE_VALUE As DataTable Private DT_RESULTLIST_VARIABLE_VALUE As DataTable
@ -2358,14 +2358,14 @@ Public Class frmConstructor_Main
ClassLogger.Add("ADDING RECORDS IS PROHIBITED FOR ENTITY: " & ENTITY_ID, False) ClassLogger.Add("ADDING RECORDS IS PROHIBITED FOR ENTITY: " & ENTITY_ID, False)
End If End If
sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG" sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql, True) DT_WINDREAM_COLUMNS_GRID = ClassDatabase.Return_Datatable(sql, True)
sql = String.Format("select T.*, T1.HEADER_CAPTION from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID AND T.CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 3 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE) sql = String.Format("select T.*, T1.HEADER_CAPTION from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID AND T.CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 3 AND LANGUAGE = '{1}') ORDER BY T.SEQUENCE ", ENTITY_ID, USER_LANGUAGE)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql, True) DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql, True)
sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG" sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, True) DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, True)
sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE) sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
DT_RESULTLIST_VARIABLE_VALUE = ClassDatabase.Return_Datatable(sql, True) DT_RESULTLIST_VARIABLE_VALUE = ClassDatabase.Return_Datatable(sql, True)
Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable() Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
Select form Select form
@ -2433,7 +2433,7 @@ Public Class frmConstructor_Main
ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & ENTITY_ID, True) ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & ENTITY_ID, True)
If CBool(LOAD_ENTITY_SEARCH_AT_STARTUP) = True Then If CBool(LOAD_ENTITY_SEARCH_AT_STARTUP) = True Then
ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, True, True) ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_COLUMNS_GRID, ENTITY_ID, RECORD_ID, True, True)
End If End If
Select Case ACT_EBENE Select Case ACT_EBENE
Case 1 Case 1
@ -3629,7 +3629,7 @@ Public Class frmConstructor_Main
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End If End If
Dim DT_RESULT As DataTable Dim DT_RESULT As DataTable
DT_RESULT = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, CBool(LOAD_ENTITY_SEARCH_AT_STARTUP)) DT_RESULT = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_COLUMNS_GRID, ENTITY_ID, RECORD_ID, CBool(LOAD_ENTITY_SEARCH_AT_STARTUP))
If IsNothing(DT_RESULT) Then If IsNothing(DT_RESULT) Then
Dim msg = "wrong DocSearch-Configuration oer unexpected Error in Get_DOC_RESULTTABLE - Check logfile and contact Digital Data" Dim msg = "wrong DocSearch-Configuration oer unexpected Error in Get_DOC_RESULTTABLE - Check logfile and contact Digital Data"
@ -3701,7 +3701,7 @@ Public Class frmConstructor_Main
ClassWindreamDocGrid.FillColumns( ClassWindreamDocGrid.FillColumns(
GridViewDoc_Search, GridViewDoc_Search,
DT_RESULT, DT_RESULT,
DT_WINDREAM_RESULTLIST, DT_WINDREAM_COLUMNS_GRID,
DT_DOCRESULT_DROPDOWN_ITEMS, DT_DOCRESULT_DROPDOWN_ITEMS,
AddressOf OnCBSelectedValueChanged, AddressOf OnCBSelectedValueChanged,
AddressOf OnDateSelectedValueChanged, AddressOf OnDateSelectedValueChanged,
@ -5819,6 +5819,7 @@ Public Class frmConstructor_Main
File.Delete(XMLPath) File.Delete(XMLPath)
GridControlDocSearch.DataSource = Nothing GridControlDocSearch.DataSource = Nothing
GridViewDoc_Search.Columns.Clear() GridViewDoc_Search.Columns.Clear()
RUN_WDSEARCH_GRID() RUN_WDSEARCH_GRID()
Else Else
@ -6463,7 +6464,7 @@ Public Class frmConstructor_Main
' Rename file. ' Rename file.
My.Computer.FileSystem.RenameFile(OldName, NewName) My.Computer.FileSystem.RenameFile(OldName, NewName)
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Filename = '{0}', FULL_FILENAME = '{1}', CHANGED_WHO = '{2}', CHANGED_WHEN = GETDATE() WHERE DocID = {3}", Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Change_DateTime = GETDATE(), Filename = '{0}', FULL_FILENAME = '{1}', CHANGED_WHO = '{2}', CHANGED_WHEN = GETDATE() WHERE DocID = {3}",
OnlyFilename, NewName, USER_USERNAME, ClassWindreamDocGrid.SELECTED_DOC_ID) OnlyFilename, NewName, USER_USERNAME, ClassWindreamDocGrid.SELECTED_DOC_ID)
If DD_LIB_Standards.clsDatabase.Execute_non_Query(upd) Then If DD_LIB_Standards.clsDatabase.Execute_non_Query(upd) Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then

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

@ -347,7 +347,9 @@ Public Class frmMain
image2 = Nothing image2 = Nothing
Next Next
Else
MsgBox("No consturctors configured for user!", MsgBoxStyle.Information)
Clipboard.SetText(SQL2)
End If End If
Dim sql = "SELECT COUNT(GUID) FROM TBPMO_USER_GLOBAL_SEARCH WHERE USER_ID = " & USER_GUID Dim sql = "SELECT COUNT(GUID) FROM TBPMO_USER_GLOBAL_SEARCH WHERE USER_ID = " & USER_GUID
@ -491,18 +493,22 @@ Public Class frmMain
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Try Try
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
If ERROR_INIT <> "INVALID USER" Then If ERROR_INIT <> "INVALID USER" Then
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()
If Sett_ConstructorStart <> 0 Then If Sett_ConstructorStart <> 0 Then
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
OpenFormConstructor(Sett_ConstructorStart) OpenFormConstructor(Sett_ConstructorStart)
Cursor = Cursors.Default Cursor = Cursors.Default
End If End If
'Lizenz abgellaufen, überprüfen ob User Admin ist 'Lizenz abgellaufen, überprüfen ob User Admin ist
If LICENSE_COUNT < USERS_LOGGED_IN Then If LICENSE_COUNT < USERS_LOGGED_IN Then
If USER_IS_ADMIN = True Then If USER_IS_ADMIN = True Then
@ -525,6 +531,7 @@ Public Class frmMain
End If End If
Try Try
If ClassUpdate.Init = True And Not IsNothing(ClassUpdate.DT_UPDATE_ITEMS) Then If ClassUpdate.Init = True And Not IsNothing(ClassUpdate.DT_UPDATE_ITEMS) Then
'MsgBox("532")
If Not IsNothing(ClassUpdate.DT_UPDATE) And Not IsNothing(ClassUpdate.DT_UPDATE_ITEMS) Then If Not IsNothing(ClassUpdate.DT_UPDATE) And Not IsNothing(ClassUpdate.DT_UPDATE_ITEMS) Then
If ClassUpdate.DT_UPDATE_ITEMS.Rows.Count > 0 Then If ClassUpdate.DT_UPDATE_ITEMS.Rows.Count > 0 Then
If ClassUpdate.InitUser = False Then If ClassUpdate.InitUser = False Then
@ -566,9 +573,10 @@ Public Class frmMain
MsgBox("Application will close now!", MsgBoxStyle.Critical) MsgBox("Application will close now!", MsgBoxStyle.Critical)
Me.Close() Me.Close()
End If End If
' MsgBox("574")
Dim myversion = CInt(My.Application.Info.Version.ToString.Replace(".", "")) Dim myversion = CInt(My.Application.Info.Version.ToString.Replace(".", ""))
Dim minreqver = CInt(MIN_REQUIRED_VERSION.Replace(".", "")) Dim minreqver = CInt(MIN_REQUIRED_VERSION.Replace(".", ""))
' MsgBox("577")
If myversion < minreqver Then If myversion < minreqver Then
MsgBox(String.Format("Your version '{0}' does not match the minimum required version and needs to be updated! Please contact Your systemadministrator!" & vbNewLine & "Application will close now.", My.Application.Info.Version.ToString), MsgBoxStyle.Exclamation) MsgBox(String.Format("Your version '{0}' does not match the minimum required version and needs to be updated! Please contact Your systemadministrator!" & vbNewLine & "Application will close now.", My.Application.Info.Version.ToString), MsgBoxStyle.Exclamation)
Me.Close() Me.Close()

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

@ -62,9 +62,9 @@ Public Class frmRecordView
sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG" sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, True) DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, True)
sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE) sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
DT_RESULTLIST_VARIABLE_VALUE = ClassDatabase.Return_Datatable(sql, True) DT_RESULTLIST_VARIABLE_VALUE = ClassDatabase.Return_Datatable(sql, True)
Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG" Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND LANGUAGE = '{1}' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql_ResultList, True) DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql_ResultList, True)
sql_ResultList = String.Format("select * from TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 4 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE) sql_ResultList = String.Format("select * from TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 4 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql_ResultList, True) DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql_ResultList, True)

2128
app/DD-Record-Organizer/frmUserKonfig.resx
View File

File diff suppressed because it is too large Load Diff

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

@ -32,7 +32,7 @@ Public Class frmWM_ChangeDoctype
End If End If
Me.DialogResult = System.Windows.Forms.DialogResult.OK Me.DialogResult = System.Windows.Forms.DialogResult.OK
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
sql = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Doctype = '{0}' WHERE DocID = {1}", NewDoctype, row.Item("DOC_ID")) sql = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Doctype = '{0}',Change_DateTime = GETDATE(), WHERE DocID = {1}", NewDoctype, row.Item("DOC_ID"))
If clsDatabase.Execute_non_Query(sql) = True Then If clsDatabase.Execute_non_Query(sql) = True Then
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
clsDatabase.Execute_non_Query(sql, True) clsDatabase.Execute_non_Query(sql, True)

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

@ -14,7 +14,7 @@ Public Class frmWM_CreateVersion
Dim VERSION = clsDatabase.Execute_Scalar(sql, True) Dim VERSION = clsDatabase.Execute_Scalar(sql, True)
If Not IsNothing(VERSION) Then If Not IsNothing(VERSION) Then
VERSION = VERSION + 1 VERSION = VERSION + 1
Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Version = {0} WHERE DocID = {1}", VERSION, row.Item("DOC_ID")) Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Version = {0},Change_DateTime = GETDATE() WHERE DocID = {1}", VERSION, row.Item("DOC_ID"))
clsDatabase.Execute_non_Query(upd) clsDatabase.Execute_non_Query(upd)
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
clsDatabase.Execute_non_Query(upd, True) clsDatabase.Execute_non_Query(upd, True)

111
app/DD-Record-Organizer/frmWM_IndexFile.vb
View File

@ -1005,62 +1005,67 @@ Public Class frmWM_IndexFile
Sub Refresh_indices() Sub Refresh_indices()
Try Try
If CURRENT_DOKARTID > 0 Then If CURRENT_DOKARTID > 0 Then
Dim sql = "SELECT OBJEKTTYP FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKARTID Dim sql = "SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKARTID
OBJECT_TYPETextBox.Text = ClassDatabase.Execute_Scalar(sql, True) Dim DTDOKART As DataTable = clsDatabase.Return_Datatable(sql)
DOCTYPE_IDTextBox.Text = CURRENT_DOKARTID If DTDOKART.Rows.Count = 1 Then
Dim dt As DataTable OBJECT_TYPETextBox.Text = DTDOKART.Rows(0).Item("OBJEKTTYP")
'sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & CURRENT_DOKARTID DOCTYPE_IDTextBox.Text = CURRENT_DOKARTID
'Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, True) PATHTextBox.Text = DTDOKART.Rows(0).Item("ZIEL_PFAD")
'Dim Count As Integer = 0 Dim dt As DataTable
'lvwIndices.Items.Clear() 'sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & CURRENT_DOKARTID
'If dt.Rows.Count > 0 Then 'Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, True)
' For Each row As DataRow In dt.Rows 'Dim Count As Integer = 0
' lvwIndices.Items.Add(row.Item("INDEXNAME").ToString) 'lvwIndices.Items.Clear()
'If dt.Rows.Count > 0 Then
' For Each row As DataRow In dt.Rows
' lvwIndices.Items.Add(row.Item("INDEXNAME").ToString)
' Dim Value As String ' Dim Value As String
' Dim _case = row.Item("VALUE").ToString.ToUpper ' Dim _case = row.Item("VALUE").ToString.ToUpper
' Select Case row.Item("VALUE").ToString.ToUpper ' Select Case row.Item("VALUE").ToString.ToUpper
' Case "@DOKART" ' Case "@DOKART"
' Value = CURRENT_DOKARTSTRING ' Value = CURRENT_DOKARTSTRING
' Case "@RECORD-ID" ' Case "@RECORD-ID"
' Value = CURRENT_RECORD_ID ' Value = CURRENT_RECORD_ID
' End Select ' End Select
' lvwIndices.Items(Count).SubItems.Add(Value) ' lvwIndices.Items(Count).SubItems.Add(Value)
' Count += 1 ' Count += 1
' Next ' Next
'End If 'End If
'den Entity-Key auslesen 'den Entity-Key auslesen
sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & OBJECT_TYPETextBox.Text & "')" sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & OBJECT_TYPETextBox.Text & "')"
dt = ClassDatabase.Return_Datatable(sql, True) dt = ClassDatabase.Return_Datatable(sql, True)
If Not dt Is Nothing Then If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then If dt.Rows.Count = 1 Then
'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_ENTITYID").ToString) 'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_ENTITYID").ToString)
'lvwIndices.Items(Count).SubItems.Add(CURRENT_ENTITY_ID) 'lvwIndices.Items(Count).SubItems.Add(CURRENT_ENTITY_ID)
'Count = Count + 1 'Count = Count + 1
'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_PARENTID").ToString) 'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_PARENTID").ToString)
'If CURRENT_REDUNDANT_FORM_ID <> 0 Then 'If CURRENT_REDUNDANT_FORM_ID <> 0 Then
' sql = "SELECT TOP 1 PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_REDUNDANT_FORM_ID ' sql = "SELECT TOP 1 PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_REDUNDANT_FORM_ID
'Else 'Else
' sql = "SELECT TOP 1 PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_ENTITY_ID ' sql = "SELECT TOP 1 PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_ENTITY_ID
'End If 'End If
'Dim ParentID = ClassDatabase.Execute_Scalar(sql, True) 'Dim ParentID = ClassDatabase.Execute_Scalar(sql, True)
'Try 'Try
' If IsNumeric(ParentID) And ParentID > 0 Then ' If IsNumeric(ParentID) And ParentID > 0 Then
' lvwIndices.Items(Count).SubItems.Add(ParentID) ' lvwIndices.Items(Count).SubItems.Add(ParentID)
' End If ' End If
'Catch ex As Exception 'Catch ex As Exception
' MsgBox("Unexpected Error in Setting Parent-ID" & vbNewLine & ex.Message, MsgBoxStyle.Critical) ' MsgBox("Unexpected Error in Setting Parent-ID" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
'End Try 'End Try
'Count = Count + 1 'Count = Count + 1
''den Record-Key auslesen ''den Record-Key auslesen
'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_RECORDID").ToString) 'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_RECORDID").ToString)
'lvwIndices.Items(Count).SubItems.Add(CURRENT_RECORD_ID) 'lvwIndices.Items(Count).SubItems.Add(CURRENT_RECORD_ID)
'Count = Count + 1 'Count = Count + 1
'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString) 'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString)
'lvwIndices.Items(Count).SubItems.Add(CURRENT_DOKARTSTRING) 'lvwIndices.Items(Count).SubItems.Add(CURRENT_DOKARTSTRING)
End If End If
End If End If
End If
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Refresh Indices for Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Refresh Indices for Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)

4
app/RecordOrganizer_RightManager/frmStart.Designer.vb generated
View File

@ -86,7 +86,7 @@ Partial Class frmStart
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.folder_Closed_16xSM Me.Button2.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.folder_Closed_16xSM
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(711, 14) Me.Button2.Location = New System.Drawing.Point(715, 14)
Me.Button2.Name = "Button2" Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(111, 23) Me.Button2.Size = New System.Drawing.Size(111, 23)
Me.Button2.TabIndex = 1 Me.Button2.TabIndex = 1
@ -140,7 +140,7 @@ Partial Class frmStart
' '
Me.GroupBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox1.Controls.Add(Me.chkLogerrorsonly) Me.GroupBox1.Controls.Add(Me.chkLogerrorsonly)
Me.GroupBox1.Location = New System.Drawing.Point(622, 43) Me.GroupBox1.Location = New System.Drawing.Point(626, 43)
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(200, 67) Me.GroupBox1.Size = New System.Drawing.Size(200, 67)
Me.GroupBox1.TabIndex = 6 Me.GroupBox1.TabIndex = 6