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
InWork = False
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
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
If ClassDatabase.Execute_non_Query(upd) = True 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)
Try
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 LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
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")
End If
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
End Try
End Function

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

@ -48,6 +48,8 @@
ClassNodeNavigation.NODE_CONFIGURABLE_ID = ID
CURRENT_NODE_CONFIGURABLE_ID = ID
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add("NO CURRENT_DT_NODE_CONFIGURABLE_NODES", False)
End If
Catch ex As Exception
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
ClassLogger.Add(">> Attention: Could not Add tables to ds.Tables: " & ex.Message, False)
End Try
gridView.BestFitColumns(GridDocResult_BestFitColumns)
Try
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 WD_GROUP1 As String
Public WD_UNICODE As Boolean = False
Public GridDocResult_BestFitColumns As Boolean = True
Public SQL_FULLTEXT As String
'Public WD_ShowEnitityDocs As Boolean = True
@ -211,6 +212,9 @@ Module ModuleMySettings
If Row.Item("Value") <> String.Empty Then
MyFormsDesign = Row.Item("Value")
End If
Case "GridDocResult_BestFitColumns"
GridDocResult_BestFitColumns = CBool(Row.Item("Value"))
End Select
Next
'update 1.1
@ -270,6 +274,13 @@ Module ModuleMySettings
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"
newRow("Value") = "True"
DT.Rows.Add(newRow)
DT.WriteXml(ConfigPath)
End If
Catch ex As Exception
@ -366,6 +377,10 @@ Module ModuleMySettings
Dim newRow16 As DataRow = table.NewRow()
newRow16("ConfigName") = "MyFormsDesign"
newRow16("Value") = ""
Dim newRow17 As DataRow = table.NewRow()
newRow17("ConfigName") = "GridDocResult_BestFitColumns"
newRow17("Value") = "True"
table.AcceptChanges()
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:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.9.7")>
<Assembly: AssemblyVersion("2.4.9.8")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

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

@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "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)> _
Partial Friend NotInheritable Class MySettings
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">
<Value Profile="(Default)">sDigital Data - windream-Benutzer</Value>
</Setting>
<Setting Name="UserDocIDIndexname" Type="System.String" Scope="User">
<Value Profile="(Default)">Dokument-ID</Value>
</Setting>
</Settings>
</SettingsFile>

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

@ -121,11 +121,14 @@
<data name="cmbClients.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="&gt;&gt;Label2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>Ihr User ist für mehrere Mandanten konfiguriert. Bitte wählen Sie einen Mandanten.</value>
</data>
<data name="Label2.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
<data name="$this.Text" xml:space="preserve">
<value>Mandanten Login</value>
</data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>1</value>
@ -137,8 +140,8 @@
<data name="Label2.Text" xml:space="preserve">
<value>Ihre Userlizenz wird vom Kontingent des ausgewählten Mandanten abgezogen.</value>
</data>
<data name="Label1.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
<data name="&gt;&gt;btnLogin.Name" xml:space="preserve">
<value>btnLogin</value>
</data>
<data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 31</value>
@ -146,9 +149,6 @@
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>440, 14</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>486, 16</value>
</data>
@ -167,8 +167,8 @@
<data name="&gt;&gt;cmbClients.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="btnLogin.Size" type="System.Drawing.Size, System.Drawing">
<value>472, 42</value>
<data name="btnLogin.Text" xml:space="preserve">
<value>Login</value>
</data>
<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>
@ -182,6 +182,9 @@
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>499, 142</value>
</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" />
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterScreen</value>
@ -201,12 +204,12 @@
<data name="&gt;&gt;btnLogin.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="btnLogin.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</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">
<value>cmbClients</value>
</data>
@ -216,11 +219,8 @@
<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>
</data>
<data name="btnLogin.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="btnLogin.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 86</value>
<data name="btnLogin.Size" type="System.Drawing.Size, System.Drawing">
<value>472, 42</value>
</data>
<data name="btnLogin.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
@ -228,14 +228,14 @@
<data name="cmbClients.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 56</value>
</data>
<data name="btnLogin.Text" xml:space="preserve">
<value>Login</value>
<data name="Label2.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="cmbClients.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="&gt;&gt;Label2.Parent" xml:space="preserve">
<value>$this</value>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="&gt;&gt;Label1.Name" xml:space="preserve">
<value>Label1</value>
@ -243,22 +243,19 @@
<data name="cmbClients.Size" type="System.Drawing.Size, System.Drawing">
<value>472, 24</value>
</data>
<data name="&gt;&gt;btnLogin.Parent" xml:space="preserve">
<value>$this</value>
<data name="btnLogin.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="&gt;&gt;btnLogin.Name" xml:space="preserve">
<value>btnLogin</value>
<data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Mandanten Login</value>
<data name="Label1.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>en</value>
</metadata>
</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.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.lblLinkedServer = New System.Windows.Forms.Label()
@ -73,16 +73,17 @@ Partial Class frmConfig_Basic
Me.Label8 = New System.Windows.Forms.Label()
Me.btnstartstop2 = New System.Windows.Forms.Button()
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.txtwdFolder = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.Button6 = New System.Windows.Forms.Button()
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.CheckBoxGridDocResult_BestFitColumns = New System.Windows.Forms.CheckBox()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
@ -231,6 +232,7 @@ Partial Class frmConfig_Basic
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.CheckBoxGridDocResult_BestFitColumns)
Me.TabPage2.Controls.Add(Me.Button4)
Me.TabPage2.Controls.Add(Me.GroupBox5)
Me.TabPage2.Controls.Add(Me.GroupBox1)
@ -399,8 +401,8 @@ Partial Class frmConfig_Basic
'
'DataGridView1
'
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
resources.ApplyResources(Me.DataGridView1, "DataGridView1")
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Name = "DataGridView1"
@ -445,6 +447,56 @@ Partial Class frmConfig_Basic
Me.TabPage4.Name = "TabPage4"
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
'
resources.ApplyResources(Me.btncheckWDFolderexists, "btncheckWDFolderexists")
@ -461,55 +513,11 @@ Partial Class frmConfig_Basic
resources.ApplyResources(Me.Label12, "Label12")
Me.Label12.Name = "Label12"
'
'Button6
'CheckBoxGridDocResult_BestFitColumns
'
resources.ApplyResources(Me.Button6, "Button6")
Me.Button6.Name = "Button6"
Me.Button6.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
resources.ApplyResources(Me.CheckBoxGridDocResult_BestFitColumns, "CheckBoxGridDocResult_BestFitColumns")
Me.CheckBoxGridDocResult_BestFitColumns.Name = "CheckBoxGridDocResult_BestFitColumns"
Me.CheckBoxGridDocResult_BestFitColumns.UseVisualStyleBackColor = True
'
'frmConfig_Basic
'
@ -599,4 +607,5 @@ Partial Class frmConfig_Basic
Friend WithEvents txtObjectExists As TextBox
Friend WithEvents Button6 As Button
Friend WithEvents Button7 As Button
Friend WithEvents CheckBoxGridDocResult_BestFitColumns As CheckBox
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
'txtwdSearch_Count.Text = WDResultListCount.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 DT As DataTable = ClassDatabase.Return_Datatable(sql)
@ -185,6 +186,8 @@ Public Class frmConfig_Basic
LogErrorsOnly = chkLogErrorsOnly.Checked
SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly, "ConfigMain")
clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
My.Settings.Save()
@ -554,4 +557,12 @@ Public Class frmConfig_Basic
End If
End If
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

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 SQL_RIGHT_READ_AND_VIEW_ONLYLabel 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 DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 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.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components)
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.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan
Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle3.BackColor = System.Drawing.Color.Cyan
Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
resources.ApplyResources(Me.dgvResult, "dgvResult")
Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvResult.Name = "dgvResult"
@ -1261,8 +1261,8 @@ Partial Class frmConstructorDesigner
'
Me.dgvPlaceholders.AllowUserToAddRows = False
Me.dgvPlaceholders.AllowUserToDeleteRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan
Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle4.BackColor = System.Drawing.Color.Cyan
Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace})
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">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</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">
<value>Reset Entity-Selection</value>
</data>
<data name="ToolStripSeparator14.Size" type="System.Drawing.Size, System.Drawing">
<value>185, 6</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="FormDesignerToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@ -192,39 +130,9 @@
E+BVyPIGnMT05CNGJ9j+P9gukJ0V/DDOPjLPmqLNo1WwrxQ+GCNWVrb1cMEAAAAASUVORK5CYII=
</value>
</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">
<value>Show Charts</value>
</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">
<value>273, 22</value>
</data>
@ -306,25 +214,23 @@
<data name="tsmiFulltext.Text" xml:space="preserve">
<value>Fulltextsearch</value>
</data>
<data name="ToolStripSeparator12.Size" type="System.Drawing.Size, System.Drawing">
<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">
<data name="tsmiFilesearch.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
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="tsmi_NewNode.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value>
</data>
<data name="tsmi_NewNode.Text" xml:space="preserve">
<value>New node</value>
<data name="tsmiFilesearch.Text" xml:space="preserve">
<value>Search files</value>
</data>
<data name="SdsdToolStripMenuItem.Text" xml:space="preserve">
<value>Nodecaption:</value>
@ -352,6 +258,17 @@
<data name="UnterhalbToolStripMenuItem.Text" xml:space="preserve">
<value>Add below this level</value>
</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">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
@ -368,9 +285,6 @@
CIKE5/Vi8yJsDM8P8P0HLGwR4Wl3ICYAAAAASUVORK5CYII=
</value>
</data>
<data name="tsmiNodeDelete.Size" type="System.Drawing.Size, System.Drawing">
<value>188, 22</value>
</data>
<data name="tsmiNodeDelete.Text" xml:space="preserve">
<value>Delete node</value>
</data>
@ -452,11 +366,11 @@
<data name="DetailAnsichtDatensatzToolStripMenuItem.Text" xml:space="preserve">
<value>Detail-View Record</value>
</data>
<data name="ToolStripDropDownButton3.Size" type="System.Drawing.Size, System.Drawing">
<value>109, 22</value>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>227, 270</value>
</data>
<data name="ToolStripDropDownButton3.Text" xml:space="preserve">
<value>record-functions</value>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1084, 212</value>
</data>
<data name="CopyRecordtsmi.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -514,6 +428,12 @@
<data name="AnwendungscacheResettsmi.Text" xml:space="preserve">
<value>Reset application-cache</value>
</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">
<value>108, 22</value>
</data>
@ -526,17 +446,14 @@
<data name="tsbtnGeodata.Text" xml:space="preserve">
<value>geodata navigation</value>
</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">
<value>665, 293</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>
<value>658, 326</value>
</data>
<data name="tslblDocViewLocked.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -558,8 +475,14 @@
<data name="tslblDocViewLocked.Text" xml:space="preserve">
<value>View is locked - Click Edit Record for unlocking</value>
</data>
<data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<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 name="tsButtonAdd.Size" type="System.Drawing.Size, System.Drawing">
<value>49, 22</value>
@ -629,8 +552,17 @@
<data name="tslblFileslocked.Text" xml:space="preserve">
<value>No file-access</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 347</value>
<data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing">
<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 name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 347</value>
@ -735,17 +667,28 @@
YII=
</value>
</data>
<data name="tslblPoslocked.Size" type="System.Drawing.Size, System.Drawing">
<value>109, 22</value>
</data>
<data name="tslblPoslocked.Text" xml:space="preserve">
<value>Positions locked</value>
</data>
<data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value>
</data>
<data name="cmsResultFilesBasic.Size" type="System.Drawing.Size, System.Drawing">
<value>128, 48</value>
<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="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 347</value>
<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="cmDoc1FileOpen.Size" type="System.Drawing.Size, System.Drawing">
<value>127, 22</value>
@ -767,8 +710,11 @@
<data name="cmDoc1FileProperties.Text" xml:space="preserve">
<value>Properties</value>
</data>
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value>
<data name="cmsResultFilesBasic.Size" type="System.Drawing.Size, System.Drawing">
<value>128, 48</value>
</data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 347</value>
</data>
<data name="tsbtnDoc_Refresh.Size" type="System.Drawing.Size, System.Drawing">
<value>102, 22</value>
@ -800,8 +746,14 @@
<data name="tsbtnStartFulltext.Text" xml:space="preserve">
<value>Fulltextsearch</value>
</data>
<data name="GroupBox4.Text" xml:space="preserve">
<value>Special recipient for record:</value>
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
<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 name="btnRemoveUser_FollowUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -832,6 +784,9 @@
<data name="Label7.Text" xml:space="preserve">
<value>Attention: this list overdrives the general list.</value>
</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">
<value>92, 15</value>
</data>
@ -844,23 +799,32 @@
<data name="Label5.Text" xml:space="preserve">
<value>Saved Follow Ups</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="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 347</value>
</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">
<value>63, 22</value>
</data>
<data name="ToolStripButton1.Text" xml:space="preserve">
<value>Reload</value>
</data>
<data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 645</value>
<data name="tsVariants.Size" type="System.Drawing.Size, System.Drawing">
<value>1373, 25</value>
</data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>210, 370</value>
<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, 685</value>
</data>
<data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 685</value>
</data>
<data name="docCM_Open.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 22</value>
@ -907,12 +871,6 @@
<data name="ToolStripSeparator20.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 6</value>
</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">
<value>187, 22</value>
</data>
@ -925,6 +883,12 @@
<data name="DisplaynameUmbenennenToolStripMenuItem.Text" xml:space="preserve">
<value>Rename displayname</value>
</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">
<value>209, 22</value>
</data>
@ -937,9 +901,6 @@
<data name="docCM_linkRecord.Text" xml:space="preserve">
<value>Link file with record</value>
</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">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@ -948,17 +909,20 @@
</value>
</data>
<data name="DateiVersionierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 22</value>
<value>180, 22</value>
</data>
<data name="DateiVersionierenToolStripMenuItem.Text" xml:space="preserve">
<value>Create new version</value>
</data>
<data name="DokumentartÄndernToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 22</value>
<value>180, 22</value>
</data>
<data name="DokumentartÄndernToolStripMenuItem.Text" xml:space="preserve">
<value>Change the doctpe</value>
</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">
<value>206, 6</value>
</data>
@ -1054,45 +1018,18 @@
<data name="docCM_ResetView.Text" xml:space="preserve">
<value>Reset view</value>
</data>
<data name="NavButtonHome.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<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 name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>210, 392</value>
</data>
<data name="StatusStrip_Main.Size" type="System.Drawing.Size, System.Drawing">
<value>1379, 24</value>
</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">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
OS4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE
ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL
AAEAAAD/////AQAAAAAAAAAMAgAAAFtEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
MTYuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iODhkMTc1NGQ3MDBlNDlhBQEAAAAo
RGV2RXhwcmVzcy5VdGlscy5JbWFnZUNvbGxlY3Rpb25TdHJlYW1lcgAAAAACAAAACw==
</value>
</data>
<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 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_RESULTLIST_OPTIONS 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)
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"
DT_WINDREAM_RESULTLIST = 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 * 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_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}') ORDER BY T.SEQUENCE ", ENTITY_ID, USER_LANGUAGE)
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"
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)
Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
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)
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
Select Case ACT_EBENE
Case 1
@ -3629,7 +3629,7 @@ Public Class frmConstructor_Main
Me.Cursor = Cursors.Default
End If
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
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(
GridViewDoc_Search,
DT_RESULT,
DT_WINDREAM_RESULTLIST,
DT_WINDREAM_COLUMNS_GRID,
DT_DOCRESULT_DROPDOWN_ITEMS,
AddressOf OnCBSelectedValueChanged,
AddressOf OnDateSelectedValueChanged,
@ -5819,6 +5819,7 @@ Public Class frmConstructor_Main
File.Delete(XMLPath)
GridControlDocSearch.DataSource = Nothing
GridViewDoc_Search.Columns.Clear()
RUN_WDSEARCH_GRID()
Else
@ -6463,7 +6464,7 @@ Public Class frmConstructor_Main
' Rename file.
My.Computer.FileSystem.RenameFile(OldName, NewName)
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)
If DD_LIB_Standards.clsDatabase.Execute_non_Query(upd) 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
Next
Else
MsgBox("No consturctors configured for user!", MsgBoxStyle.Information)
Clipboard.SetText(SQL2)
End If
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
Try
Me.Cursor = Cursors.WaitCursor
If ERROR_INIT <> "INVALID USER" Then
If Task_Popup_minutes <> 0 Then
TimerTasks.Start()
Refresh_TaskReminder()
End If
RUN_TIMER()
If Sett_ConstructorStart <> 0 Then
Cursor = Cursors.WaitCursor
OpenFormConstructor(Sett_ConstructorStart)
Cursor = Cursors.Default
End If
'Lizenz abgellaufen, überprüfen ob User Admin ist
If LICENSE_COUNT < USERS_LOGGED_IN Then
If USER_IS_ADMIN = True Then
@ -525,6 +531,7 @@ Public Class frmMain
End If
Try
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 ClassUpdate.DT_UPDATE_ITEMS.Rows.Count > 0 Then
If ClassUpdate.InitUser = False Then
@ -566,9 +573,10 @@ Public Class frmMain
MsgBox("Application will close now!", MsgBoxStyle.Critical)
Me.Close()
End If
' MsgBox("574")
Dim myversion = CInt(My.Application.Info.Version.ToString.Replace(".", ""))
Dim minreqver = CInt(MIN_REQUIRED_VERSION.Replace(".", ""))
' MsgBox("577")
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)
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"
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)
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)
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)

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
Me.DialogResult = System.Windows.Forms.DialogResult.OK
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 LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
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)
If Not IsNothing(VERSION) Then
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)
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
clsDatabase.Execute_non_Query(upd, True)

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

@ -1005,9 +1005,12 @@ Public Class frmWM_IndexFile
Sub Refresh_indices()
Try
If CURRENT_DOKARTID > 0 Then
Dim sql = "SELECT OBJEKTTYP FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKARTID
OBJECT_TYPETextBox.Text = ClassDatabase.Execute_Scalar(sql, True)
Dim sql = "SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKARTID
Dim DTDOKART As DataTable = clsDatabase.Return_Datatable(sql)
If DTDOKART.Rows.Count = 1 Then
OBJECT_TYPETextBox.Text = DTDOKART.Rows(0).Item("OBJEKTTYP")
DOCTYPE_IDTextBox.Text = CURRENT_DOKARTID
PATHTextBox.Text = DTDOKART.Rows(0).Item("ZIEL_PFAD")
Dim dt As DataTable
'sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & CURRENT_DOKARTID
'Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, True)
@ -1062,6 +1065,8 @@ Public Class frmWM_IndexFile
End If
End If
End If
Catch ex As Exception
MsgBox("Error in Refresh Indices for Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try

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.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.folder_Closed_16xSM
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.Size = New System.Drawing.Size(111, 23)
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.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.Size = New System.Drawing.Size(200, 67)
Me.GroupBox1.TabIndex = 6