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

Personalakte

Browse Source
This commit is contained in:
Developer01 2025-06-18 09:33:52 +02:00
parent 0159fa79c4
commit cfe631a568
18 changed files with 561 additions and 345 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,6 +16,8 @@ Public Class ClassDocGrid
Public Property Filename As String
Public Property DisplayName As String
Public Property DocType As String
Public Property InWork As Boolean
Public Property InWorkUser As String
End Class
Private ReadOnly GridView As GridView
@ -109,13 +111,16 @@ Public Class ClassDocGrid
Dim oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULLPATH")
Dim oObjecttype = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE")
Dim oFilename = pGridView.GetRowCellValue(oRowHandle, "Dateiname")
Dim oInWork = pGridView.GetRowCellValue(oRowHandle, "in work?")
Dim oInWorkUser = pGridView.GetRowCellValue(oRowHandle, "in work User")
oDocuments.Add(New clsWMDoc With {
.DocId = oDocId,
.DocPath = oDocPath,
.DocType = oObjecttype,
.DisplayName = oDisplayName,
.Filename = oFilename
.Filename = oFilename,
.InWork = oInWork,
.InWorkUser = oInWorkUser
})
Next

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

@ -14,9 +14,6 @@ Public Class ClassFileResult
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 MYDB_ECM.ExecuteNonQuery(upd) = True Then
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' MYDB_ECM.ExecuteNonQuery(upd)
'End If
InWork = True
Return True
Else
@ -32,9 +29,6 @@ Public Class ClassFileResult
Dim upd As String
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}',CHANGED_WHO = '{2}',Change_DateTime = GETDATE() WHERE DocID = {1}", Displayname, DocID, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' MYDB_ECM.ExecuteNonQuery(upd)
'End If
Return True
Else
Return False

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

@ -108,7 +108,7 @@ Public Class ClassImport_Windream
myLogger = LOGCONFIG.GetLogger()
Dim FILE_DELIMITER, VERSION_DELIMITER, _WDOBJECTTYPE, _NewFileString As String
Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES where NAME = 'Global-Indexer'"
Dim sql As String = "select TOP 1 VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES where NAME In ('fileFLOW', 'Global-Indexer')"
Dim DT1 As DataTable = MYDB_ECM.GetDatatable(sql)
FILE_DELIMITER = DT1.Rows(0).Item("FILE_DELIMITER")
VERSION_DELIMITER = DT1.Rows(0).Item("VERSION_DELIMITER")

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

@ -315,6 +315,7 @@ Public Class ClassInit
Try
USERID_FK_INT_ECM = USER_DT.Rows(0).Item("USERID_FK_INT_ECM")
Catch ex As Exception
LOGGER.Warn("ACHTUNG - Spalte USERID_FK_INT_ECM nicht in FNDD_LOGIN_USER_MODULE enthalten ")
USERID_FK_INT_ECM = 0
End Try
LOGGER.Debug($"USERID_FK_INT_ECM: {USERID_FK_INT_ECM}")

6
app/DD-Record-Organizer/Classes/Controls/ClassControlCommandsUI.vb
View File

@ -393,10 +393,10 @@ Public Class ClassControlCommandsUI
End Sub
Private Sub UpsertImage(ControlID As Integer, RecordID As Integer, image As Bitmap)
Dim existsSQL As String = "SELECT GUID FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & ControlID & " AND RECORD_ID = " & RecordID
Dim exists = MYDB_ECM.ExecuteNonQuery(existsSQL)
Dim existsSQL As String = "SELECT COALESCE(MAX(GUID),0) FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & ControlID & " AND RECORD_ID = " & RecordID
Dim exists = MYDB_ECM.GetScalarValue(existsSQL)
If IsNothing(exists) Then
If exists = 0 Then
InsertImage(ControlID, RecordID, image)
Else
UpdateImage(ControlID, RecordID, image)

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

@ -1018,6 +1018,7 @@
</EmbeddedResource>
<EmbeddedResource Include="frmStructureNodeConfig.resx">
<DependentUpon>frmStructureNodeConfig.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmTreeSearchResult.en-US.resx">
<DependentUpon>frmTreeSearchResult.vb</DependentUpon>

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

@ -215,7 +215,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
Dim CONSTR_ID As Integer = CONSTRUCTOR_IDTextBox.Text
Dim sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID IN (1,4) AND PARENT_ID = 0 AND CONSTRUCT_ID = {2} AND SCREEN_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CONSTR_ID, CURRENT_SCREEN_ID)
"from VWPMO_CONSTRUCTOR_FORMS WHERE (FORM_TYPE_ID IN (1,4) OR FORM_TYPE = 'Personal file') AND PARENT_ID = 0 AND CONSTRUCT_ID = {2} AND SCREEN_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CONSTR_ID, CURRENT_SCREEN_ID)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sel_sql)
If DT.Rows.Count >= 1 Then

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

@ -303,12 +303,12 @@ Public Class frmDocRecordLink
Continue For
End If
Try
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
For Each oRow As DataRow In CURRENT_DT_SELECTED_FILES.Rows
CURRENT_DOC_ID = row.Item("DOC_ID")
CURRENT_DOC_ID = oRow.Item("DOC_ID")
LOGGER.Info("DocID {0} will be linked with Record {1} ", CURRENT_DOC_ID.ToString, oSelectedRecordID.ToString)
Dim DOC_PATH = row.Item("FILEPATH")
Dim _objecttype = row.Item("OBJECTTYPE")
Dim DOC_PATH = oRow.Item("FILEPATH")
Dim _objecttype = oRow.Item("OBJECTTYPE")
WMOBJECTTYPE = _objecttype
Dim sql_Exec = String.Format("EXEC PRPMO_CHECK_DOC_RECORD_LINK {0},{1},'{2}','{3}'", oSelectedRecordID, CURRENT_DOC_ID, "MANUAL RECORD-LINK", USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(sql_Exec) = False Then

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

@ -37,7 +37,6 @@ Partial Class frmEntities
Me.TBPMO_FORMBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.DESCRIPTIONTextBox = New System.Windows.Forms.TextBox()
Me.TBPMO_FORM_VIEWBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.FORM_TITLETextBox = New System.Windows.Forms.TextBox()
@ -53,7 +52,7 @@ Partial Class frmEntities
Me.SINGLE_RECORDCheckBox = New System.Windows.Forms.CheckBox()
Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
Me.ENTITY_IDTextBox = New System.Windows.Forms.TextBox()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.cmbEntityType = New System.Windows.Forms.ComboBox()
Me.TBPMO_FORM_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.SHOW_FORM_CONSTRUCTCheckBox = New System.Windows.Forms.CheckBox()
Me.TreeViewEntity = New System.Windows.Forms.TreeView()
@ -65,7 +64,7 @@ Partial Class frmEntities
Me.btncopy = New System.Windows.Forms.Button()
Me.lblStatus = New System.Windows.Forms.Label()
Me.btnGenerate = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.lblCreateConstrForm = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.btncancel = New System.Windows.Forms.Button()
Me.ProgressPanel1 = New DevExpress.XtraWaitForm.ProgressPanel()
@ -143,7 +142,7 @@ Partial Class frmEntities
Me.TBPMO_FORMBindingNavigator.BindingSource = Me.TBPMO_FORMBindingSource
Me.TBPMO_FORMBindingNavigator.CountItem = Nothing
Me.TBPMO_FORMBindingNavigator.DeleteItem = Nothing
Me.TBPMO_FORMBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2})
Me.TBPMO_FORMBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
resources.ApplyResources(Me.TBPMO_FORMBindingNavigator, "TBPMO_FORMBindingNavigator")
Me.TBPMO_FORMBindingNavigator.MoveFirstItem = Nothing
Me.TBPMO_FORMBindingNavigator.MoveLastItem = Nothing
@ -168,12 +167,6 @@ Partial Class frmEntities
resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
Me.ToolStripButton1.Name = "ToolStripButton1"
'
'ToolStripButton2
'
Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2")
Me.ToolStripButton2.Name = "ToolStripButton2"
'
'DESCRIPTIONTextBox
'
Me.DESCRIPTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "DESCRIPTION", True))
@ -279,7 +272,7 @@ Partial Class frmEntities
Me.GroupBox2.Controls.Add(Me.ENTITY_IDTextBox)
Me.GroupBox2.Controls.Add(GUIDLabel)
Me.GroupBox2.Controls.Add(Label1)
Me.GroupBox2.Controls.Add(Me.ComboBox1)
Me.GroupBox2.Controls.Add(Me.cmbEntityType)
Me.GroupBox2.Controls.Add(Me.SHOW_FORM_CONSTRUCTCheckBox)
Me.GroupBox2.Controls.Add(PARENT_IDLabel)
Me.GroupBox2.Controls.Add(Me.ADDED_WHOTextBox)
@ -319,15 +312,15 @@ Partial Class frmEntities
Me.ENTITY_IDTextBox.Name = "ENTITY_IDTextBox"
Me.ENTITY_IDTextBox.ReadOnly = True
'
'ComboBox1
'cmbEntityType
'
Me.ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_FORMBindingSource, "FORM_TYPE_ID", True))
Me.ComboBox1.DataSource = Me.TBPMO_FORM_TYPEBindingSource
Me.ComboBox1.DisplayMember = "FORM_TYPE"
resources.ApplyResources(Me.ComboBox1, "ComboBox1")
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.ValueMember = "GUID"
Me.cmbEntityType.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_FORMBindingSource, "FORM_TYPE_ID", True))
Me.cmbEntityType.DataSource = Me.TBPMO_FORM_TYPEBindingSource
Me.cmbEntityType.DisplayMember = "FORM_TYPE"
resources.ApplyResources(Me.cmbEntityType, "cmbEntityType")
Me.cmbEntityType.FormattingEnabled = True
Me.cmbEntityType.Name = "cmbEntityType"
Me.cmbEntityType.ValueMember = "GUID"
'
'TBPMO_FORM_TYPEBindingSource
'
@ -391,10 +384,10 @@ Partial Class frmEntities
Me.btnGenerate.Name = "btnGenerate"
Me.btnGenerate.UseVisualStyleBackColor = True
'
'Label3
'lblCreateConstrForm
'
resources.ApplyResources(Me.Label3, "Label3")
Me.Label3.Name = "Label3"
resources.ApplyResources(Me.lblCreateConstrForm, "lblCreateConstrForm")
Me.lblCreateConstrForm.Name = "lblCreateConstrForm"
'
'GroupBox1
'
@ -441,7 +434,7 @@ Partial Class frmEntities
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.lblCreateConstrForm)
Me.Controls.Add(Me.btnGenerate)
Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.btncopy)
@ -477,14 +470,13 @@ Partial Class frmEntities
Friend WithEvents PARENT_IDTextBox As System.Windows.Forms.TextBox
Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox
Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents TBPMO_FORM_VIEWBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPMO_FORM_VIEWTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter
Friend WithEvents CHANGED_WHOTextBoxPMOForm As System.Windows.Forms.TextBox
Friend WithEvents DESCRIPTIONTextBox As System.Windows.Forms.TextBox
Friend WithEvents FORM_TITLETextBox As System.Windows.Forms.TextBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents cmbEntityType As System.Windows.Forms.ComboBox
Friend WithEvents SHOW_FORM_CONSTRUCTCheckBox As System.Windows.Forms.CheckBox
Friend WithEvents TBPMO_FORM_TYPEBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPMO_FORM_TYPETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_TYPETableAdapter
@ -497,7 +489,7 @@ Partial Class frmEntities
Friend WithEvents btncopy As System.Windows.Forms.Button
Friend WithEvents lblStatus As System.Windows.Forms.Label
Friend WithEvents btnGenerate As System.Windows.Forms.Button
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents lblCreateConstrForm As System.Windows.Forms.Label
Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents SINGLE_RECORDCheckBox As System.Windows.Forms.CheckBox

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

@ -449,15 +449,6 @@
<data name="ToolStripButton1.Text" xml:space="preserve">
<value>Im Form Designer öffnen</value>
</data>
<data name="ToolStripButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton2.Size" type="System.Drawing.Size, System.Drawing">
<value>97, 22</value>
</data>
<data name="ToolStripButton2.Text" xml:space="preserve">
<value>Vorschau öffnen</value>
</data>
<data name="TBPMO_FORMBindingNavigator.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
@ -482,6 +473,9 @@
<data name="&gt;&gt;TBPMO_FORMBindingNavigator.ZOrder" xml:space="preserve">
<value>11</value>
</data>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TBPMO_FORM_VIEWBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1104, 17</value>
</metadata>
@ -509,6 +503,9 @@
<data name="&gt;&gt;DESCRIPTIONTextBox.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<metadata name="TBPMO_FORM_VIEWBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1104, 17</value>
</metadata>
<data name="FORM_TITLETextBox.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
</data>
@ -644,6 +641,105 @@
<metadata name="TBPMO_FORM_VIEWTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<data name="&gt;&gt;Label4.Name" xml:space="preserve">
<value>Label4</value>
</data>
<data name="&gt;&gt;Label4.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label4.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;Label4.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="&gt;&gt;SINGLE_RECORDCheckBox.Name" xml:space="preserve">
<value>SINGLE_RECORDCheckBox</value>
</data>
<data name="&gt;&gt;SINGLE_RECORDCheckBox.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SINGLE_RECORDCheckBox.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;SINGLE_RECORDCheckBox.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="&gt;&gt;NumericUpDown1.Name" xml:space="preserve">
<value>NumericUpDown1</value>
</data>
<data name="&gt;&gt;NumericUpDown1.Type" xml:space="preserve">
<value>System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;NumericUpDown1.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;NumericUpDown1.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="&gt;&gt;ENTITY_IDTextBox.Name" xml:space="preserve">
<value>ENTITY_IDTextBox</value>
</data>
<data name="&gt;&gt;ENTITY_IDTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ENTITY_IDTextBox.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;ENTITY_IDTextBox.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="&gt;&gt;cmbEntityType.Name" xml:space="preserve">
<value>cmbEntityType</value>
</data>
<data name="&gt;&gt;cmbEntityType.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;cmbEntityType.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;cmbEntityType.ZOrder" xml:space="preserve">
<value>10</value>
</data>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.Name" xml:space="preserve">
<value>SHOW_FORM_CONSTRUCTCheckBox</value>
</data>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.ZOrder" xml:space="preserve">
<value>11</value>
</data>
<data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Bold</value>
</data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>328, 53</value>
</data>
<data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>424, 368</value>
</data>
<data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
<value>23</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>Entity Properties:</value>
</data>
<data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>9</value>
</data>
<data name="Label4.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
@ -753,30 +849,33 @@ diese Entität angelegt werden.</value>
<metadata name="TBPMO_FORM_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>255, 56</value>
</metadata>
<data name="ComboBox1.Font" type="System.Drawing.Font, System.Drawing">
<data name="cmbEntityType.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
</data>
<data name="ComboBox1.Location" type="System.Drawing.Point, System.Drawing">
<data name="cmbEntityType.Location" type="System.Drawing.Point, System.Drawing">
<value>147, 295</value>
</data>
<data name="ComboBox1.Size" type="System.Drawing.Size, System.Drawing">
<data name="cmbEntityType.Size" type="System.Drawing.Size, System.Drawing">
<value>220, 25</value>
</data>
<data name="ComboBox1.TabIndex" type="System.Int32, mscorlib">
<data name="cmbEntityType.TabIndex" type="System.Int32, mscorlib">
<value>17</value>
</data>
<data name="&gt;&gt;ComboBox1.Name" xml:space="preserve">
<value>ComboBox1</value>
<data name="&gt;&gt;cmbEntityType.Name" xml:space="preserve">
<value>cmbEntityType</value>
</data>
<data name="&gt;&gt;ComboBox1.Type" xml:space="preserve">
<data name="&gt;&gt;cmbEntityType.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ComboBox1.Parent" xml:space="preserve">
<data name="&gt;&gt;cmbEntityType.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;ComboBox1.ZOrder" xml:space="preserve">
<data name="&gt;&gt;cmbEntityType.ZOrder" xml:space="preserve">
<value>10</value>
</data>
<metadata name="TBPMO_FORM_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>255, 56</value>
</metadata>
<data name="SHOW_FORM_CONSTRUCTCheckBox.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
</data>
@ -804,33 +903,6 @@ diese Entität angelegt werden.</value>
<data name="&gt;&gt;SHOW_FORM_CONSTRUCTCheckBox.ZOrder" xml:space="preserve">
<value>11</value>
</data>
<data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Bold</value>
</data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>328, 53</value>
</data>
<data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>424, 368</value>
</data>
<data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
<value>23</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>Entity Properties:</value>
</data>
<data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>9</value>
</data>
<data name="TreeViewEntity.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left</value>
</data>
@ -1110,7 +1182,7 @@ diese Entität angelegt werden.</value>
<data name="btnGenerate.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf
vwAADr8BOAVTJAAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf
/yM6KFk5Z0NsRBFgz3DbtUhciBhCKNbaorVuwB409KCXbUexOTnnLkaJ9x4hqQmhRYTQM/TgkFjNBq8m
m9bXWt7ps4NnqfNxDAK23pnBKAQeeBHQCJJRCLxNQG0ccQ75f0CPmSM8/ojPfiPPQpyZwkozSCha7KM8
M43dUUZxyG+X6Vwk3rjOSn0Bs2pSjcG3D98AAAAASUVORK5CYII=
@ -1149,44 +1221,116 @@ diese Entität angelegt werden.</value>
<data name="&gt;&gt;btnGenerate.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="Label3.AutoSize" type="System.Boolean, mscorlib">
<data name="lblCreateConstrForm.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label3.Font" type="System.Drawing.Font, System.Drawing">
<data name="lblCreateConstrForm.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="Label3.Location" type="System.Drawing.Point, System.Drawing">
<data name="lblCreateConstrForm.Location" type="System.Drawing.Point, System.Drawing">
<value>755, 280</value>
</data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<data name="lblCreateConstrForm.Size" type="System.Drawing.Size, System.Drawing">
<value>268, 26</value>
</data>
<data name="Label3.TabIndex" type="System.Int32, mscorlib">
<data name="lblCreateConstrForm.TabIndex" type="System.Int32, mscorlib">
<value>31</value>
</data>
<data name="Label3.Text" xml:space="preserve">
<data name="lblCreateConstrForm.Text" xml:space="preserve">
<value>Mit dieser Funktion wird die Sicht erzeugt,
welche die links dargestellte TreeView-Struktur umsetzt.</value>
</data>
<data name="Label3.Visible" type="System.Boolean, mscorlib">
<data name="lblCreateConstrForm.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;Label3.Name" xml:space="preserve">
<value>Label3</value>
<data name="&gt;&gt;lblCreateConstrForm.Name" xml:space="preserve">
<value>lblCreateConstrForm</value>
</data>
<data name="&gt;&gt;Label3.Type" xml:space="preserve">
<data name="&gt;&gt;lblCreateConstrForm.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label3.Parent" xml:space="preserve">
<data name="&gt;&gt;lblCreateConstrForm.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
<data name="&gt;&gt;lblCreateConstrForm.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;btncancel.Name" xml:space="preserve">
<value>btncancel</value>
</data>
<data name="&gt;&gt;btncancel.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btncancel.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;btncancel.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;ProgressPanel1.Name" xml:space="preserve">
<value>ProgressPanel1</value>
</data>
<data name="&gt;&gt;ProgressPanel1.Type" xml:space="preserve">
<value>DevExpress.XtraWaitForm.ProgressPanel, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;ProgressPanel1.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;ProgressPanel1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;btnRefreshEntityTable.Name" xml:space="preserve">
<value>btnRefreshEntityTable</value>
</data>
<data name="&gt;&gt;btnRefreshEntityTable.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnRefreshEntityTable.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;btnRefreshEntityTable.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="&gt;&gt;btnCreateEntityTable.Name" xml:space="preserve">
<value>btnCreateEntityTable</value>
</data>
<data name="&gt;&gt;btnCreateEntityTable.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnCreateEntityTable.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;btnCreateEntityTable.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>328, 427</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>424, 125</value>
</data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>32</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>Erzeugung Tabellenstruktur:</value>
</data>
<data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="btncancel.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAAQdJREFUOE+lkTEOgkAURD0CR/AIHMHQk9jSWXAAaiorWsMJOAIFPSUtCaEkSEUI
vwAADr8BOAVTJAAAAQdJREFUOE+lkTEOgkAURD0CR/AIHMHQk9jSWXAAaiorWsMJOAIFPSUtCaEkSEUI
FHS03z8bVllcEsFJJq7z/7xFORHRX9aGe/w5sKZpMtlPNrEjES7E2WU51wFi3/fJsixK0xRL1zk/t20b
h2FIQRC84TpAJAG2bVNVVbjtnmXZ6DiOUoZ0AKPrutx1XQHBJ27FeV2GvgDQGrJVhrYA5mEAL3lFUYzL
n4AyzkmSAOKJxVkKADeUZSn+PFnGkyCXEMz5u3gzkAJomkYp930/8rKJRUDwBJgvcwVQ1/WIMpYA46Ub
@ -1259,7 +1403,7 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
<data name="btnRefreshEntityTable.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wQAADsEBuJFr7QAAAGxJREFUOE/NjNEJgDAMBTNbVnA3v1zDQZxE/cmv8oqBECm+VgQDR9PAnWDM7Oih
vgAADr4B6kKxwAAAAGxJREFUOE/NjNEJgDAMBTNbVnA3v1zDQZxE/cmv8oqBECm+VgQDR9PAnWDM7Oih
yBh8VLWJnwa2daegAzJMhXz/PjDOS3ljwG/gMQAJggd8pwNRjhE6kCNRBlQAQMwyoAM1qoEWboEeLv3N
iJxnTngNYdMDJwAAAABJRU5ErkJggg==
</value>
@ -1300,7 +1444,7 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
<data name="btnCreateEntityTable.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAAE1JREFUOE9j+P//P8O3b9/+k4vhBjg5OZGMB6EBH95/hGNi+NQ3gFRMfRegKyDE
vwAADr8BOAVTJAAAAE1JREFUOE9j+P//P8O3b9/+k4vhBjg5OZGMB6EBH95/hGNi+NQ3gFRMfRegKyDE
xzCAVEx9F6ArIMTHMIBUjGIAuRhsACUYqyDx+D8DAGWb3TPY4bxVAAAAAElFTkSuQmCC
</value>
</data>
@ -1334,30 +1478,6 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
<data name="&gt;&gt;btnCreateEntityTable.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>328, 427</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>424, 125</value>
</data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>32</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>Erzeugung Tabellenstruktur:</value>
</data>
<data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="BW_Entity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>733, 56</value>
</metadata>
@ -1846,12 +1966,6 @@ welche die links dargestellte TreeView-Struktur umsetzt.</value>
<data name="&gt;&gt;ToolStripButton1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStripButton2.Name" xml:space="preserve">
<value>ToolStripButton2</value>
</data>
<data name="&gt;&gt;ToolStripButton2.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TBPMO_FORM_VIEWBindingSource.Name" xml:space="preserve">
<value>TBPMO_FORM_VIEWBindingSource</value>
</data>

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

@ -71,7 +71,7 @@ Public Class frmEntities
Dim Node1 As TreeNode
Node1 = Node.Nodes.Add(row1.Item("CAPTION").ToString)
Node1.Tag = row1.Item("GUID")
DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " & _
DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " &
"TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (3,5) AND T.PARENT_ID = {2} AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {3})) ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, row1.Item("GUID"), USER_GUID)
LOGGER.Debug(Now.ToString & "Level 2 >>" & DT_SQL, False)
' Dim sql1 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (3,5) AND T.PARENT_ID = " & row1.Item("GUID") & " ORDER BY LEVEL"
@ -89,7 +89,7 @@ Public Class frmEntities
End If
Next
DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' " & _
DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' " &
"FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2})) ORDER BY CAPTION", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
'Dim sql2 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 ORDER BY T1.FORM_TITLE"
Dim DT3 As DataTable = MYDB_ECM.GetDatatable(DT_SQL)
@ -126,10 +126,12 @@ Public Class frmEntities
Me.btnGenerate.Visible = True
If PARENT_IDTextBox.Text = 0 And (ComboBox1.SelectedValue = 1 Or ComboBox1.SelectedValue = 4) Then
If PARENT_IDTextBox.Text = 0 And (cmbEntityType.SelectedValue = 1 Or cmbEntityType.Text = "Personal file") Then
Me.btnGenerate.Visible = True
lblCreateConstrForm.Visible = True
Else
Me.btnGenerate.Visible = False
lblCreateConstrForm.Visible = False
End If
Catch ex As Exception
MsgBox("Error in Load_Forms:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -248,7 +250,7 @@ Public Class frmEntities
' Save FORM_VIEW Properties
If insert = True Then
Dim sql = "SELECT (MAX(GUID)) FROM TBPMO_FORM"
Dim FORM_ID = MYDB_ECM.GetScalarValue(SQL)
Dim FORM_ID = MYDB_ECM.GetScalarValue(sql)
Dim ADDED_WHO As String = USER_USERNAME
@ -257,7 +259,7 @@ Public Class frmEntities
'ggg()
If FORM_ID Is Nothing = False Then
sql = String.Format("INSERT INTO TBPMO_FORM_VIEW (FORM_ID, SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO,LANGUAGE) VALUES ({0}, {1},'{2}','{3}','{4}','{5}')", FORM_ID, CURRENT_SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO, USER_LANGUAGE)
MYDB_ECM.ExecuteNonQuery(Sql)
MYDB_ECM.ExecuteNonQuery(sql)
End If
Load_TreeView()
Else
@ -294,7 +296,7 @@ Public Class frmEntities
Try
Dim CurrentID = GetCurrentGUID()
Dim sql = "EXEC PRPMO_DELETE_ENTITY " & CurrentID
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
If MYDB_ECM.ExecuteNonQuery(sql) = True Then
MsgBox("Entity was deleted!", MsgBoxStyle.Information)
Load_TreeView()
Load_Forms(999999999)
@ -350,7 +352,7 @@ Public Class frmEntities
Try
Dim CurrentID = GetCurrentGUID()
Dim sql As String = "EXEC PRPMO_COPY_ENTITY " & CurrentID.ToString & ", '" & USER_USERNAME & "'"
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
If MYDB_ECM.ExecuteNonQuery(sql) = True Then
'MsgBox("Die Entität wurde erfolgreich kopiert!", MsgBoxStyle.Information)
Load_TreeView()
Load_Forms(999999999)
@ -392,13 +394,13 @@ Public Class frmEntities
End Try
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedIndex <> -1 Then
If ComboBox1.SelectedValue = 5 Then
ToolStripButton2.Enabled = False
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbEntityType.SelectedIndexChanged
If cmbEntityType.SelectedIndex <> -1 Then
If cmbEntityType.SelectedValue = 5 Then
ToolStripButton1.Enabled = False
Else
ToolStripButton2.Enabled = True
ToolStripButton1.Enabled = True
End If
End If
@ -447,8 +449,8 @@ Public Class frmEntities
Private Sub btnRefreshEntityTable_Click(sender As Object, e As EventArgs) Handles btnRefreshEntityTable.Click
Dim CurrentID = GetCurrentGUID()
EXECUTE_STATEMENT = String.Format("DECLARE @return_value int " & vbNewLine & _
"EXEC @return_value = dbo.PRPMO_ENTITY_TABLE_IMPORT_RECORDS {0}" & vbNewLine & _
EXECUTE_STATEMENT = String.Format("DECLARE @return_value int " & vbNewLine &
"EXEC @return_value = dbo.PRPMO_ENTITY_TABLE_IMPORT_RECORDS {0}" & vbNewLine &
"SELECT 'Return Value' = @return_value", CurrentID)
ProgressPanel1.Description = "Inserting Records...."
ProgressPanel1.Visible = True
@ -463,4 +465,5 @@ Public Class frmEntities
End If
End Sub
End Class

8
app/DD-Record-Organizer/frmFileInWork.vb
View File

@ -1,7 +1,9 @@
Public Class frmFileInWork
Public Property myDocuments As New List(Of ClassDocGrid.clsWMDoc)
Private Sub btnInWork_Click(sender As Object, e As EventArgs) Handles btnInWork.Click
Try
For Each oDoc As ClassDocGrid.clsWMDoc In myDocuments
ClassFileResult.DocID = oDoc.DocId
If ClassFileResult.Set_InWork(1, txtComment.Text) = True Then
Dim expression As String
expression = "DocID = " & ClassFileResult.DocID
@ -14,10 +16,12 @@
End Try
Me.Close()
Else
MsgBox("Unexpected Error 1 in Setting to work - Check logfile", MsgBoxStyle.Exclamation)
End If
Next
Me.Close()
Catch ex As Exception
MsgBox("Unexpected Error 2 in Setting to work - Check logfile", MsgBoxStyle.Exclamation)
End Try

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

@ -121,6 +121,8 @@ Partial Class frmNodeNavigation
Me.PopupMenu3 = New DevExpress.XtraBars.PopupMenu(Me.components)
Me.PopupMenu4 = New DevExpress.XtraBars.PopupMenu(Me.components)
Me.PopupMenu5 = New DevExpress.XtraBars.PopupMenu(Me.components)
Me.tsmiFileInWorkMultiple_Free = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFileInWorkMultiple_Lock = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.ribbonNodeNavigation, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerTreeList, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerTreeList.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -169,7 +171,7 @@ Partial Class frmNodeNavigation
Me.ribbonNodeNavigation.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[True]
Me.ribbonNodeNavigation.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
Me.ribbonNodeNavigation.ShowToolbarCustomizeItem = False
Me.ribbonNodeNavigation.Size = New System.Drawing.Size(966, 147)
Me.ribbonNodeNavigation.Size = New System.Drawing.Size(966, 158)
Me.ribbonNodeNavigation.StatusBar = Me.RibbonStatusBar1
Me.ribbonNodeNavigation.Toolbar.ShowCustomizeItem = False
'
@ -365,10 +367,10 @@ Partial Class frmNodeNavigation
Me.RibbonStatusBar1.ItemLinks.Add(Me.tsitmDMSReadOnly)
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemLocked)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmtInfoDoc)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 787)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 788)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.ribbonNodeNavigation
Me.RibbonStatusBar1.Size = New System.Drawing.Size(966, 23)
Me.RibbonStatusBar1.Size = New System.Drawing.Size(966, 22)
'
'RibbonPage2
'
@ -390,7 +392,7 @@ Partial Class frmNodeNavigation
'
Me.SplitContainerTreeList.Panel2.Controls.Add(Me.SplitContainerDocumentSearch)
Me.SplitContainerTreeList.Panel2.Text = "Panel2"
Me.SplitContainerTreeList.Size = New System.Drawing.Size(799, 640)
Me.SplitContainerTreeList.Size = New System.Drawing.Size(799, 630)
Me.SplitContainerTreeList.SplitterPosition = 229
Me.SplitContainerTreeList.TabIndex = 2
'
@ -432,7 +434,7 @@ Partial Class frmNodeNavigation
Me.TreeListDevexpress.OptionsView.ShowVertLines = False
Me.TreeListDevexpress.OptionsView.TreeLineStyle = DevExpress.XtraTreeList.LineStyle.Dark
Me.TreeListDevexpress.ParentFieldName = "PARENT_GUID"
Me.TreeListDevexpress.Size = New System.Drawing.Size(229, 640)
Me.TreeListDevexpress.Size = New System.Drawing.Size(229, 630)
Me.TreeListDevexpress.StateImageList = Me.ImageCollection1
Me.TreeListDevexpress.TabIndex = 1
'
@ -456,7 +458,7 @@ Partial Class frmNodeNavigation
'
Me.SplitContainerDocumentSearch.Panel2.Controls.Add(Me.GridControlDocSearch)
Me.SplitContainerDocumentSearch.Panel2.Text = "Panel2"
Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(558, 640)
Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(560, 630)
Me.SplitContainerDocumentSearch.SplitterPosition = 246
Me.SplitContainerDocumentSearch.TabIndex = 1
'
@ -467,7 +469,7 @@ Partial Class frmNodeNavigation
Me.pnlControls.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlControls.Location = New System.Drawing.Point(0, 0)
Me.pnlControls.Name = "pnlControls"
Me.pnlControls.Size = New System.Drawing.Size(558, 246)
Me.pnlControls.Size = New System.Drawing.Size(560, 246)
Me.pnlControls.TabIndex = 0
'
'GridControlDocSearch
@ -481,7 +483,7 @@ Partial Class frmNodeNavigation
Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
Me.GridControlDocSearch.Name = "GridControlDocSearch"
Me.GridControlDocSearch.Size = New System.Drawing.Size(558, 382)
Me.GridControlDocSearch.Size = New System.Drawing.Size(560, 374)
Me.GridControlDocSearch.TabIndex = 8
Me.GridControlDocSearch.TabStop = False
Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search})
@ -489,92 +491,92 @@ Partial Class frmNodeNavigation
'cmsResultFileDetail
'
Me.cmsResultFileDetail.ImageScalingSize = New System.Drawing.Size(18, 18)
Me.cmsResultFileDetail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiFileProperties, Me.ToolStripSeparator5, Me.tsmiFileOpen, Me.tsmiFileFolderOpen, Me.ToolStripSeparator1, Me.tsmiFileInWork, Me.ToolStripSeparator3, Me.tsmiFileLink_Add, Me.tsmiFileLinkRemove, Me.tsmiFileLink_ShowAll, Me.LinkPerMailVersendenToolStripMenuItem, Me.ToolStripSeparator2, Me.tsmiFileRename, Me.DokumentartÄndernToolStripMenuItem, Me.tsmiFileVersion, Me.tsmiFileRightsShow, Me.ToolStripSeparator4, Me.tsmiFileDelete})
Me.cmsResultFileDetail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiFileProperties, Me.ToolStripSeparator5, Me.tsmiFileOpen, Me.tsmiFileFolderOpen, Me.ToolStripSeparator1, Me.tsmiFileInWorkMultiple_Lock, Me.tsmiFileInWorkMultiple_Free, Me.tsmiFileInWork, Me.ToolStripSeparator3, Me.tsmiFileLink_Add, Me.tsmiFileLinkRemove, Me.tsmiFileLink_ShowAll, Me.LinkPerMailVersendenToolStripMenuItem, Me.ToolStripSeparator2, Me.tsmiFileRename, Me.DokumentartÄndernToolStripMenuItem, Me.tsmiFileVersion, Me.tsmiFileRightsShow, Me.ToolStripSeparator4, Me.tsmiFileDelete})
Me.cmsResultFileDetail.Name = "ContextMenuStripResultFiles"
Me.cmsResultFileDetail.Size = New System.Drawing.Size(242, 346)
Me.cmsResultFileDetail.Size = New System.Drawing.Size(315, 416)
'
'tsmiFileProperties
'
Me.tsmiFileProperties.Image = CType(resources.GetObject("tsmiFileProperties.Image"), System.Drawing.Image)
Me.tsmiFileProperties.Name = "tsmiFileProperties"
Me.tsmiFileProperties.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileProperties.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileProperties.Text = "Eigenschaften"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(238, 6)
Me.ToolStripSeparator5.Size = New System.Drawing.Size(311, 6)
'
'tsmiFileOpen
'
Me.tsmiFileOpen.Image = CType(resources.GetObject("tsmiFileOpen.Image"), System.Drawing.Image)
Me.tsmiFileOpen.Name = "tsmiFileOpen"
Me.tsmiFileOpen.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileOpen.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileOpen.Text = "Datei öffnen"
'
'tsmiFileFolderOpen
'
Me.tsmiFileFolderOpen.Image = CType(resources.GetObject("tsmiFileFolderOpen.Image"), System.Drawing.Image)
Me.tsmiFileFolderOpen.Name = "tsmiFileFolderOpen"
Me.tsmiFileFolderOpen.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileFolderOpen.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileFolderOpen.Text = "Ordner öffnen"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(238, 6)
Me.ToolStripSeparator1.Size = New System.Drawing.Size(311, 6)
'
'tsmiFileInWork
'
Me.tsmiFileInWork.Image = CType(resources.GetObject("tsmiFileInWork.Image"), System.Drawing.Image)
Me.tsmiFileInWork.Name = "tsmiFileInWork"
Me.tsmiFileInWork.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileInWork.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileInWork.Text = "Datei in Bearbeitung nehmen"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(238, 6)
Me.ToolStripSeparator3.Size = New System.Drawing.Size(311, 6)
'
'tsmiFileLink_Add
'
Me.tsmiFileLink_Add.Image = CType(resources.GetObject("tsmiFileLink_Add.Image"), System.Drawing.Image)
Me.tsmiFileLink_Add.Name = "tsmiFileLink_Add"
Me.tsmiFileLink_Add.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileLink_Add.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileLink_Add.Text = "Datei mit Datensatz verknüpfen"
'
'tsmiFileLinkRemove
'
Me.tsmiFileLinkRemove.Image = CType(resources.GetObject("tsmiFileLinkRemove.Image"), System.Drawing.Image)
Me.tsmiFileLinkRemove.Name = "tsmiFileLinkRemove"
Me.tsmiFileLinkRemove.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileLinkRemove.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileLinkRemove.Text = "Entferne Dateilink"
'
'tsmiFileLink_ShowAll
'
Me.tsmiFileLink_ShowAll.Image = CType(resources.GetObject("tsmiFileLink_ShowAll.Image"), System.Drawing.Image)
Me.tsmiFileLink_ShowAll.Name = "tsmiFileLink_ShowAll"
Me.tsmiFileLink_ShowAll.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileLink_ShowAll.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileLink_ShowAll.Text = "Verknüpfungen anzeigen"
'
'LinkPerMailVersendenToolStripMenuItem
'
Me.LinkPerMailVersendenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.email_go
Me.LinkPerMailVersendenToolStripMenuItem.Name = "LinkPerMailVersendenToolStripMenuItem"
Me.LinkPerMailVersendenToolStripMenuItem.Size = New System.Drawing.Size(241, 24)
Me.LinkPerMailVersendenToolStripMenuItem.Size = New System.Drawing.Size(314, 24)
Me.LinkPerMailVersendenToolStripMenuItem.Text = "Link per Mail versenden"
Me.LinkPerMailVersendenToolStripMenuItem.Visible = False
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(238, 6)
Me.ToolStripSeparator2.Size = New System.Drawing.Size(311, 6)
'
'tsmiFileRename
'
Me.tsmiFileRename.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiFileRenameFilename, Me.tsmiFileRenameDisplayname})
Me.tsmiFileRename.Name = "tsmiFileRename"
Me.tsmiFileRename.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileRename.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileRename.Text = "Umbenennen"
'
'tsmiFileRenameFilename
@ -592,33 +594,33 @@ Partial Class frmNodeNavigation
'DokumentartÄndernToolStripMenuItem
'
Me.DokumentartÄndernToolStripMenuItem.Name = "DokumentartÄndernToolStripMenuItem"
Me.DokumentartÄndernToolStripMenuItem.Size = New System.Drawing.Size(241, 24)
Me.DokumentartÄndernToolStripMenuItem.Size = New System.Drawing.Size(314, 24)
Me.DokumentartÄndernToolStripMenuItem.Text = "Dokumentart ändern"
'
'tsmiFileVersion
'
Me.tsmiFileVersion.Image = CType(resources.GetObject("tsmiFileVersion.Image"), System.Drawing.Image)
Me.tsmiFileVersion.Name = "tsmiFileVersion"
Me.tsmiFileVersion.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileVersion.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileVersion.Text = "Datei versionieren"
'
'tsmiFileRightsShow
'
Me.tsmiFileRightsShow.Image = CType(resources.GetObject("tsmiFileRightsShow.Image"), System.Drawing.Image)
Me.tsmiFileRightsShow.Name = "tsmiFileRightsShow"
Me.tsmiFileRightsShow.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileRightsShow.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileRightsShow.Text = "Dateirechte für User anzeigen"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(238, 6)
Me.ToolStripSeparator4.Size = New System.Drawing.Size(311, 6)
'
'tsmiFileDelete
'
Me.tsmiFileDelete.Image = CType(resources.GetObject("tsmiFileDelete.Image"), System.Drawing.Image)
Me.tsmiFileDelete.Name = "tsmiFileDelete"
Me.tsmiFileDelete.Size = New System.Drawing.Size(241, 24)
Me.tsmiFileDelete.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileDelete.Text = "Datei löschen"
'
'GridViewDoc_Search
@ -685,7 +687,7 @@ Partial Class frmNodeNavigation
'
Me.SplitContainerDocView.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainerDocView.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 147)
Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 158)
Me.SplitContainerDocView.Name = "SplitContainerDocView"
'
'SplitContainerDocView.Panel1
@ -697,7 +699,7 @@ Partial Class frmNodeNavigation
'
Me.SplitContainerDocView.Panel2.Controls.Add(Me.DocumentViewer)
Me.SplitContainerDocView.Panel2.Text = "Panel2"
Me.SplitContainerDocView.Size = New System.Drawing.Size(966, 640)
Me.SplitContainerDocView.Size = New System.Drawing.Size(966, 630)
Me.SplitContainerDocView.SplitterPosition = 799
Me.SplitContainerDocView.TabIndex = 0
'
@ -707,7 +709,7 @@ Partial Class frmNodeNavigation
Me.DocumentViewer.FileLoaded = False
Me.DocumentViewer.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer.Name = "DocumentViewer"
Me.DocumentViewer.Size = New System.Drawing.Size(155, 640)
Me.DocumentViewer.Size = New System.Drawing.Size(157, 630)
Me.DocumentViewer.TabIndex = 0
'
'XtraSaveFileDialog1
@ -1009,6 +1011,20 @@ Partial Class frmNodeNavigation
Me.PopupMenu5.Manager = Me.BarManager1
Me.PopupMenu5.Name = "PopupMenu5"
'
'tsmiFileInWorkMultiple_Free
'
Me.tsmiFileInWorkMultiple_Free.Image = CType(resources.GetObject("tsmiFileInWorkMultiple_Free.Image"), System.Drawing.Image)
Me.tsmiFileInWorkMultiple_Free.Name = "tsmiFileInWorkMultiple_Free"
Me.tsmiFileInWorkMultiple_Free.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileInWorkMultiple_Free.Text = "Ausgewählte Dateien wieder freigeben"
'
'tsmiFileInWorkMultiple_Lock
'
Me.tsmiFileInWorkMultiple_Lock.Image = CType(resources.GetObject("tsmiFileInWorkMultiple_Lock.Image"), System.Drawing.Image)
Me.tsmiFileInWorkMultiple_Lock.Name = "tsmiFileInWorkMultiple_Lock"
Me.tsmiFileInWorkMultiple_Lock.Size = New System.Drawing.Size(314, 24)
Me.tsmiFileInWorkMultiple_Lock.Text = "Ausgewählte Dateien in Bearbeitung nehmen"
'
'frmNodeNavigation
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -1159,4 +1175,6 @@ Partial Class frmNodeNavigation
Friend WithEvents PopupMenu5 As DevExpress.XtraBars.PopupMenu
Friend WithEvents bsiNotification As DevExpress.XtraBars.BarStaticItem
Friend WithEvents LinkPerMailVersendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tsmiFileInWorkMultiple_Free As ToolStripMenuItem
Friend WithEvents tsmiFileInWorkMultiple_Lock As ToolStripMenuItem
End Class

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

@ -565,6 +565,36 @@
zS3/P7z/iIKxGoBuAwgja4aJ4TUAppgQpp4BIAKGyTYAxCEWYzPgfH5+PoZCXPjokaMYBjQsX74cQyEu
3NfXj2GAwZUrVzAU4sLJScmoBkBj4H1kZCSGYlz41s3bYBrZgPm4kis2vH7dejCNbEDCvn37MBQSwsgG
CIA45GCG//8pwf8ZANa5gGyReLItAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsmiFileInWorkMultiple_Lock.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAhlJREFUWEfFlTFuAjEURDkCR+EIiB6Jli4Fp+AAtIgT5CakpkpDDz1FOlpnZvK9
Mt8OtlG0GWkKZnf/m1283kkI4V9dDMd0MRzT5fBF3e/3d9p+ViWWhyt8QQYP5qYSYnm4wk4BuErgzSXE
8nCFnQLsQujhcAi73a65hFgerrBDgMwIu16vYbFYyK0lxPJwhR0CYE7Q6XQaCrSWEMvDFTYKg6fwJyHH
4/GhQEsJsTxcYYMwcICfz+ewXC6zArUSYnm4woowqAkevd1uw+12y0qI5eEKTQbaw1rl3i3w6M1mk5UQ
y8MV/sC5ur/sgsw98GhfQiwPp3FwgHNx8UI/qBdOc59oLfBhJ70Eiua1vAG+otwn4kz4+V+AE7oWWcm8
htcaMJpraaX/GCIrgyuEcOLLJRycM7hZzTQ4kVgertCEi7pLFOBTG5dJLA9XmIgDbFC23Xr3wCmxPFxh
Ig6Bh69dCRzNt4PnmZ/CKbE8XGEiDOJGVL376FjALn8qsTxcoQmD9KXju7terwcInwQLldbEnxXAkOzR
swTBEVJamPGYhlQklocrhDDk4dG7XYzFsrcjWQMXDalILA9XCGHIG4fxS5beNcxifDrZK8pdj7/hvYZU
JJaHKzRhkEqYeddzOyTh91AiMb8h1TeAEsvDFSbCMJbQXVv0IOZwLEF4tuP9JrE8XGGnrAQ/YM1wSiwP
H9vFcEwXw/EcJt8cwSA5CJ+s6wAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsmiFileInWorkMultiple_Free.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAhlJREFUWEfFlTFuAjEURDkCR+EIiB6Jli4Fp+AAtIgT5CakpkpDDz1FOlpnZvK9
Mt8OtlG0GWkKZnf/m1283kkI4V9dDMd0MRzT5fBF3e/3d9p+ViWWhyt8QQYP5qYSYnm4wk4BuErgzSXE
8nCFnQLsQujhcAi73a65hFgerrBDgMwIu16vYbFYyK0lxPJwhR0CYE7Q6XQaCrSWEMvDFTYKg6fwJyHH
4/GhQEsJsTxcYYMwcICfz+ewXC6zArUSYnm4woowqAkevd1uw+12y0qI5eEKTQbaw1rl3i3w6M1mk5UQ
y8MV/sC5ur/sgsw98GhfQiwPp3FwgHNx8UI/qBdOc59oLfBhJ70Eiua1vAG+otwn4kz4+V+AE7oWWcm8
htcaMJpraaX/GCIrgyuEcOLLJRycM7hZzTQ4kVgertCEi7pLFOBTG5dJLA9XmIgDbFC23Xr3wCmxPFxh
Ig6Bh69dCRzNt4PnmZ/CKbE8XGEiDOJGVL376FjALn8qsTxcoQmD9KXju7terwcInwQLldbEnxXAkOzR
swTBEVJamPGYhlQklocrhDDk4dG7XYzFsrcjWQMXDalILA9XCGHIG4fxS5beNcxifDrZK8pdj7/hvYZU
JJaHKzRhkEqYeddzOyTh91AiMb8h1TeAEsvDFSbCMJbQXVv0IOZwLEF4tuP9JrE8XGGnrAQ/YM1wSiwP
H9vFcEwXw/EcJt8cwSA5CJ+s6wAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsmiFileInWork.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

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

@ -1,6 +1,7 @@
Imports System.IO
Imports System.Text
Imports System.Threading
Imports DD_Record_Organizer.ClassDocGrid
Imports DevExpress.Data
Imports DevExpress.Data.Filtering
Imports DevExpress.Utils
@ -21,6 +22,7 @@ Imports DigitalData.Modules.Logging
Public Class frmNodeNavigation
#Region "Laufzeitvariablen & Konstanten"
Private NNLogger As Logger
Private Property DT_STRUCTURE_NODES As DataTable
Private Property DT_ADDING_USERS As DataTable
Private Property DT_VWPMO_CONSTRUCTOR_FORMS As DataTable
@ -60,6 +62,7 @@ Public Class frmNodeNavigation
Private Property IW_USER As String
Private Property IW_COMMENT As String
Private Property INWORK_FILE As Boolean
Private Property INWORK_MULTIPLE_FILES_SET_FREE As Boolean
Private Property CONTROL_DOCTYPE_MATCH As Integer = 0
Private Property MyFocusedNode As TreeListNode
Private Property oCollapseInAction As Boolean = False
@ -68,6 +71,7 @@ Public Class frmNodeNavigation
Private Property AvailableConfigNodes As New List(Of frmNewNode.NodeConfig)
Private Property CurrentNodeConfigId As Integer = 0
Private Property mySelectedDocs As List(Of clsWMDoc)
Private Property Current_DocList As ClassDocGrid
Public CtrlBuilder As ClassControlBuilder
@ -80,7 +84,7 @@ Public Class frmNodeNavigation
Private Property ViewerInit As Boolean = False
Private PA_NODE_GUID_STAMM As Integer = 0
Private PA_NODE_CONFIG_USER_STAMM As Integer = 0
Private Debug As Boolean = False
Public Enum EditState
@ -96,11 +100,14 @@ Public Class frmNodeNavigation
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
LOGGER.Debug("Loading NodeNavigation for Entity [{0}]", pEntityID)
_EntityId = pEntityID
oConstructID = pConstructID
Dim oMyClassName = $"frmNodeNavigation_Entity{_EntityId}"
NNLogger = LOGCONFIG.GetLogger(oMyClassName)
NNLogger.Debug("Loading NodeNavigation for Entity [{0}]", pEntityID)
Current_DocList = New ClassDocGrid(GridViewDoc_Search)
WindowsEx = New WindowsEx(LOGCONFIG)
@ -117,7 +124,7 @@ Public Class frmNodeNavigation
CONFIG.Config.DocumentViewerShown = Not SplitContainerDocView.Collapsed
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
End Try
End Sub
@ -144,12 +151,12 @@ Public Class frmNodeNavigation
checkShowPreview.Checked = CONFIG.Config.DocumentViewerShown
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
End Try
End Sub
Private Async Function frmNodeNavigation_Load(sender As Object, e As EventArgs) As Task Handles Me.Load
LOGGER.Debug("Loading NodeNavigation")
NNLogger.Debug("Loading NodeNavigation")
CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID
@ -174,7 +181,7 @@ Public Class frmNodeNavigation
ViewerInit = True
End If
Catch ex As Exception
LOGGER.Warn($"Error while init DocumentViewer: {ex.Message}")
NNLogger.Warn($"Error while init DocumentViewer: {ex.Message}")
End Try
If USER_IS_ADMIN Then
@ -213,7 +220,7 @@ Public Class frmNodeNavigation
End If
FORM_LOADED = True
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 4")
End Try
@ -221,7 +228,7 @@ Public Class frmNodeNavigation
End Function
Private Async Function Load_nodes() As Task
Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
LOGGER.Debug("Loading nodes for entity [{0}]", CURRENT_ENTITY_ID)
NNLogger.Debug("Loading nodes for entity [{0}]", CURRENT_ENTITY_ID)
Try
Dim oTable = Await ClassNodeCommands.LoadNodes(CURRENT_ENTITY_ID)
@ -239,7 +246,7 @@ Public Class frmNodeNavigation
Dim oNodeImage = ByteArrayToBitmap(bimage)
ImageCollection1.AddImage(oNodeImage, row.Item("GUID"))
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
End Try
Next
@ -258,7 +265,7 @@ Public Class frmNodeNavigation
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
Finally
SplashScreenManager.CloseOverlayForm(oHandle)
End Try
@ -358,6 +365,12 @@ Public Class frmNodeNavigation
Dim oHasRecordId = (oRecordId > 0)
Dim oIsConfigNode = (oNodeConfigId = 1000)
Dim oParentNode = e.Node.ParentNode
Dim oLoadRecordData As Boolean = True
If ENTITY_TYPE = "Personal file" And oNodeConfigId <> PA_NODE_CONFIG_USER_STAMM Then
oLoadRecordData = False
End If
CURRENT_NODE_GUID = oNodeId
CURRENT_RECORD_ID = oRecordId
@ -393,7 +406,7 @@ Public Class frmNodeNavigation
' END NEW NODE
CURRENT_NODEID = oGuid
If oHasRecordId Then
Update_Status_Label(True, $"NodeGUID {oGuid} - RecordID {oRecordId}", EditState.None)
Update_Status_Label(True, $"NodeGUID {oGuid} - RecordID {CURRENT_RECORD_ID}", EditState.None)
Node_AfterSelect = True
@ -407,7 +420,10 @@ Public Class frmNodeNavigation
CtrlBuilder.WatchRecordChanges = False
ClassControlValues.LoadControlValuesListWithPlaceholders(_EntityId, CURRENT_RECORD_ID, 0, CtrlBuilder.AllControls, _EntityId)
CtrlBuilder.WatchRecordChanges = True
Await Show_Selected_Record_Data(CURRENT_RECORD_ID)
Await Show_Selected_Record_Data(CURRENT_RECORD_ID, oLoadRecordData)
Show_SelectedDoc(True)
ClassRightManagement.Check_Set_Rights(CURRENT_RECORD_ID, _EntityId)
CONTROL_HANDLING()
@ -423,7 +439,7 @@ Public Class frmNodeNavigation
End If
If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
If RIGHT_RECORD_AND_FILE_READ_ONLY = True Or oLoadRecordData = False Then
bbtnitmRecEdit.Enabled = False
bbtnitmRecSave.Enabled = False
btnCreateNewNode.Enabled = False
@ -452,7 +468,7 @@ Public Class frmNodeNavigation
ClassControlValues.ClearControlValues(pnlControls.Controls)
Await Show_Selected_Record_Data(0)
Await Show_Selected_Record_Data(0, oLoadRecordData)
End If
If ParentNodeChangeinAction = True And CURRENT_NODEID <> 0 Then
Dim result As DialogResult = Await ShowDialogAsync()
@ -622,7 +638,7 @@ Public Class frmNodeNavigation
Dim oSql = String.Format("SELECT * FROM TBPMO_ENTITY_USERRIGHT_ADDING where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", oConstructID)
DT_ADDING_USERS = MYDB_ECM.GetDatatable(oSql)
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Load_Adding_users")
End Try
End Sub
@ -637,18 +653,18 @@ Public Class frmNodeNavigation
End If
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Error(ex)
NNLogger.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Load_Configurable_Nodes")
End Try
End Sub
Sub Load_Datafor_Entity()
LOGGER.Debug("Loading Data for Entity [{0}]", _EntityId)
NNLogger.Debug("Loading Data for Entity [{0}]", _EntityId)
Try
If _EntityId <> CURRENT_ENTITY_ID Then
LOGGER.Info("Entity-Data needs to be reloaded...")
NNLogger.Info("Entity-Data needs to be reloaded...")
CURRENT_ENTITY_ID = _EntityId
CURRENT_CONSTRUCTOR_ID = oConstructID
@ -697,8 +713,8 @@ Public Class frmNodeNavigation
Try
PWplainText = wrapper.DecryptData(_row.Item("AD_USER_PW").ToString())
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn("- the Password for FileAddingUser '" & FAU_AD_USER & "' could not be decrypted")
NNLogger.Error(ex)
NNLogger.Warn("- the Password for FileAddingUser '" & FAU_AD_USER & "' could not be decrypted")
PWplainText = ""
End Try
FAU_AD_USER_PW = PWplainText
@ -708,14 +724,14 @@ Public Class frmNodeNavigation
Load_Entity_Data_CONTROLS_RECORDS()
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Load_Datafor_Entity: " & ex.StackTrace)
End Try
End Sub
Sub Load_Entity_Data_CONTROLS_RECORDS()
Try
LOGGER.Debug("START Load_Entity_Data")
NNLogger.Debug("START Load_Entity_Data")
Dim sw As New SW("Load_Entity_Data")
' Me.Cursor = Cursors.WaitCursor
RECORD_CHANGED = False
@ -757,12 +773,14 @@ Public Class frmNodeNavigation
Try
ADD_RECORDS_CONSTR = oRow.Item("ADD_RECORDS")
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ADD_RECORDS_CONSTR = True
End Try
If ENTITY_TYPE = "Personal file" Then
Dim oSQL = "SELECT CAT_STRING FROM TBDD_CATALOG WHERE CAT_TITLE = 'PA_NODE_GUID_STAMM'"
PA_NODE_GUID_STAMM = MYDB_ECM.GetScalarValue(oSQL)
oSQL = "SELECT CAT_STRING FROM TBDD_CATALOG WHERE CAT_TITLE = 'PA_NODE_CONFIG_USER_STAMM'"
PA_NODE_CONFIG_USER_STAMM = MYDB_ECM.GetScalarValue(oSQL)
End If
@ -770,7 +788,7 @@ Public Class frmNodeNavigation
DT_COLUMNS_GRID_ENTITY = ClassHelper.FILTER_DATATABLE(DT_DOCSEARCH_RESULTLIST_CONFIG, expression, "SEQUENCE")
expression = String.Format("ENTITY_ID = {0} AND TYPE_ID = 10 AND LANGUAGE = '{1}'", _EntityId, USER_LANGUAGE)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS, expression, "SEQUENCE")
LOGGER.Debug($"Found {DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count} DT_DOCRESULT_DROPDOWN_ITEMS!")
NNLogger.Debug($"Found {DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count} DT_DOCRESULT_DROPDOWN_ITEMS!")
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & _EntityId, "")
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", _EntityId, USER_LANGUAGE)
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(DT_DOCSEARCH_RESULTLIST_CONFIG, expression, "SEQUENCE")
@ -822,7 +840,7 @@ Public Class frmNodeNavigation
End While
CURRENT_DT_ENTITY_RECORDS = async.dt
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Async EntitySQL", ex.Message, ex.StackTrace)
End Try
@ -843,8 +861,8 @@ Public Class frmNodeNavigation
primaryKey(0) = CURRENT_DT_ENTITY_RECORDS.Columns("Record-ID")
CURRENT_DT_ENTITY_RECORDS.PrimaryKey = primaryKey
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn("Could not set the primary Key(Record-ID): " & ex.Message)
NNLogger.Error(ex)
NNLogger.Warn("Could not set the primary Key(Record-ID): " & ex.Message)
End Try
CtrlBuilder.WatchRecordChanges = False
@ -860,7 +878,7 @@ Public Class frmNodeNavigation
sw.Done()
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Load_Entity_Data", ex.Message, ex.StackTrace)
Finally
'Me.Cursor = Cursors.Default
@ -908,22 +926,22 @@ Public Class frmNodeNavigation
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
End Try
End Sub
Private Async Function Show_Selected_Record_Data(pRecordId As Integer) As Task
Private Async Function Show_Selected_Record_Data(pRecordId As Integer, pLoadRecordData As Boolean) As Task
Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
Try
LOGGER.Debug("Show_Selected_Record_Data: " & pRecordId.ToString)
NNLogger.Debug("Show_Selected_Record_Data: " & pRecordId.ToString)
Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
Select form
Where form.Item("GUID") = _EntityId).Single()
'Update_Status_Label(False, "")
LOGGER.Debug("RECORD ID: " & pRecordId.ToString)
NNLogger.Debug("RECORD ID: " & pRecordId.ToString)
'Me.pnlControls.Visible = True
SELECTED_NODE_RECORD_ID = pRecordId
@ -934,8 +952,11 @@ Public Class frmNodeNavigation
ENTITY_RELOAD_AFT_CONTROL_LOAD = False
CtrlBuilder.WatchRecordChanges = False
If pnlControls.Enabled = False Then pnlControls.Enabled = True
If pLoadRecordData = True Then
ClassControlValues.LoadControlValues(SELECTED_NODE_RECORD_ID, 0, _EntityId, CtrlBuilder.AllControls, _EntityId)
CtrlBuilder.WatchRecordChanges = True
End If
Dim sw As New SW("Show Selected RecordData 2")
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
@ -963,7 +984,7 @@ Public Class frmNodeNavigation
sw.Done()
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in SelectedRecord_ShowData: ", ex.Message)
Finally
SplashScreenManager.CloseOverlayForm(oHandle)
@ -1041,7 +1062,7 @@ Public Class frmNodeNavigation
Return state
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
Return state
End Try
End Function
@ -1110,7 +1131,7 @@ Public Class frmNodeNavigation
Dim ctrl As Windows.Forms.Control = sender
ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, _EntityId, SELECTED_NODE_RECORD_ID, pnlControls.Controls)
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
End Try
End Sub
@ -1127,7 +1148,7 @@ Public Class frmNodeNavigation
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
End Try
End Sub
@ -1279,7 +1300,7 @@ Public Class frmNodeNavigation
' Catch ex As Exception
'LOGGER.Error(ex)
'NNLogger.Error(ex)
' ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error:", ex.Message & vbNewLine & ex.StackTrace)
' End Try
'End Sub
@ -1304,7 +1325,7 @@ Public Class frmNodeNavigation
Try
CURRENT_DOCVIEW.CloseView(CURRENT_DOCVIEW_PATH, 0)
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
End Try
End If
End Sub
@ -1535,7 +1556,7 @@ Public Class frmNodeNavigation
Return False
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
MessageBox.Show("Error in TrySave_User: " & vbNewLine & ex.Message)
Return False
End Try
@ -1630,7 +1651,7 @@ Public Class frmNodeNavigation
Return True
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
MessageBox.Show("Error in TrySave_Automatic: " & vbNewLine & ex.Message)
Return False
End Try
@ -1649,7 +1670,7 @@ Public Class frmNodeNavigation
Next
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Customer_Run_Procedures: ", ex.Message)
End Try
End Sub
@ -1702,7 +1723,7 @@ Public Class frmNodeNavigation
End If
If Not IsNothing(DT_DOCRESULT_DROPDOWN_ITEMS) Then
If DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count > 0 Then
LOGGER.Info($"RUN_WDSEARCH_GRID - DT_DOCRESULT_DROPDOWN_ITEMS [{DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count}]!")
NNLogger.Info($"RUN_WDSEARCH_GRID - DT_DOCRESULT_DROPDOWN_ITEMS [{DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count}]!")
End If
End If
@ -1730,7 +1751,7 @@ Public Class frmNodeNavigation
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Run WD-Search Database: ", ex.Message)
Finally
sw.Done()
@ -1782,7 +1803,7 @@ Public Class frmNodeNavigation
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error RUN_ENTITY_DOC_SEARCH", ex.Message, ex.StackTrace)
End Try
sw.Done()
@ -1816,7 +1837,7 @@ Public Class frmNodeNavigation
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnCBSelectedValueChanged: ", ex.Message)
End Try
End Sub
@ -1833,7 +1854,7 @@ Public Class frmNodeNavigation
Try
validDate = Date.TryParse(DatePicker.OldEditValue, oldValue)
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
oldValue = Date.MinValue
End Try
@ -1865,7 +1886,7 @@ Public Class frmNodeNavigation
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!")
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnDateSelectedValueChanged: ", ex.Message)
End Try
End Sub
@ -1881,7 +1902,7 @@ Public Class frmNodeNavigation
Try
Dim oDocID As Integer = oDocuments.First.DocId
Catch ex As Exception
LOGGER.Info($"Error while gettin oDocuments.First.DocId - OnTextSelectedValueChanged: {ex.Message}")
NNLogger.Info($"Error while gettin oDocuments.First.DocId - OnTextSelectedValueChanged: {ex.Message}")
Exit Sub
End Try
If value.ToUpper = "Not displayable in Group-Search".ToUpper Or IsNothing(oDocuments) Then
@ -1904,7 +1925,7 @@ Public Class frmNodeNavigation
Exit Sub
End If
Catch ex As Exception
LOGGER.Debug($"Error while gettin oDocuments.First.DocId - OnTextSelectedValueChanged: {ex.Message}")
NNLogger.Debug($"Error while gettin oDocuments.First.DocId - OnTextSelectedValueChanged: {ex.Message}")
Exit Sub
End Try
@ -1917,7 +1938,7 @@ Public Class frmNodeNavigation
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnTextSelectedValueChanged: ", ex.Message)
End Try
End Sub
@ -1947,7 +1968,7 @@ Public Class frmNodeNavigation
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!")
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnCheckboxValueChanged: ", ex.Message)
End Try
End Sub
@ -2001,7 +2022,7 @@ Public Class frmNodeNavigation
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
End Try
End Sub
@ -2018,7 +2039,7 @@ Public Class frmNodeNavigation
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
End Try
End Sub
@ -2113,7 +2134,7 @@ Public Class frmNodeNavigation
CURRENT_CONTROL_DOCTYPE_MATCH = ""
CURRENT_CONTROL_DOCTYPE_MATCH = ClassControlValues.GetControlValuesREC_CONTROL(CURRENT_RECORD_ID, CONTROL_DOCTYPE_MATCH)
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
CURRENT_CONTROL_DOCTYPE_MATCH = 0
CURRENT_CONTROL_DOCTYPE_MATCH = ""
End Try
@ -2161,23 +2182,23 @@ Public Class frmNodeNavigation
ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
TimerClearResultfiles.Start()
Else
LOGGER.Debug("No new files were added or windream tab is not focused!")
NNLogger.Debug("No new files were added or windream tab is not focused!")
End If
Me.Cursor = Cursors.Default
Else
'If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
' LOGGER.Warn("RIGHT_RECORD_AND_FILE_READ_ONLY is set! No DragDrop allowed")
' NNLogger.Warn("RIGHT_RECORD_AND_FILE_READ_ONLY is set! No DragDrop allowed")
'End If
If RIGHT_READ_ONLY_DOC = True Then
LOGGER.Warn("RIGHT_WD_FORBIDDEN is set! No DragDrop allowed")
NNLogger.Warn("RIGHT_WD_FORBIDDEN is set! No DragDrop allowed")
Else
LOGGER.Warn("No DragDrop allowed - ELSE")
NNLogger.Warn("No DragDrop allowed - ELSE")
End If
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn("Unexpected Error in Drag_Drop: " & ex.Message)
NNLogger.Error(ex)
NNLogger.Warn("Unexpected Error in Drag_Drop: " & ex.Message)
MsgBox("Unexpected Error in DragDrop - Please check the log for further information!", MsgBoxStyle.Exclamation)
Finally
@ -2201,7 +2222,7 @@ Public Class frmNodeNavigation
If Not IsNothing(Str) Then
Dim DropType = Str.Substring(0, Str.LastIndexOf("@") + 1)
If DropType.ToString.Contains("SCAN") = False Then
LOGGER.Info("Check_Dropped_Files:" & Str.ToString)
NNLogger.Info("Check_Dropped_Files:" & Str.ToString)
Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1)
If CURRENT_WORKFILE.ToString.Contains("@") Then
MsgBox("File contains invalid operator @!" & vbNewLine & "Please rename file and try again!", MsgBoxStyle.Exclamation)
@ -2254,7 +2275,7 @@ Public Class frmNodeNavigation
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Check_Dropped_Files: ", ex.Message)
End Try
@ -2354,7 +2375,7 @@ Public Class frmNodeNavigation
Update_Record_Label(CURRENT_RECORD_ID)
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Saving Record", ex.Message, ex.StackTrace)
Return False
End Try
@ -2393,7 +2414,7 @@ Public Class frmNodeNavigation
End If
Me.Cursor = Cursors.WaitCursor
Dim oSelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
mySelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
'Refresh_DocID()
@ -2402,21 +2423,34 @@ Public Class frmNodeNavigation
Exit Sub
End If
If oSelectedDocs.First.DocId = 0 Then
If mySelectedDocs.First.DocId = 0 Then
e.Cancel = True
Exit Sub
End If
If oSelectedDocs.Count > 1 Then
tsmiFileInWorkMultiple_Free.Visible = False
tsmiFileInWorkMultiple_Lock.Visible = False
INWORK_MULTIPLE_FILES_SET_FREE = False
If mySelectedDocs.Count > 1 Then
ContextMenu_Multiplefiles()
ElseIf oSelectedDocs.Count = 1 Then
For Each oDoc As ClassDocGrid.clsWMDoc In mySelectedDocs
If oDoc.InWork = True Then
If oDoc.InWorkUser = USER_USERNAME.ToUpper Or USER_IS_ADMIN Or USER_IS_SUPERVISOR Then
INWORK_MULTIPLE_FILES_SET_FREE = True
End If
End If
Next
End If
If INWORK_MULTIPLE_FILES_SET_FREE = True Then
tsmiFileInWorkMultiple_Free.Visible = True
End If
If mySelectedDocs.Count = 1 Then
File_in_Work()
If WM_READ_ONLY Then
ContextMenu_Read()
ElseIf WM_ADD_NO_DELETE Then
ContextMenu_ADD()
Else
Dim oSelectedDocument = oSelectedDocs.First
Dim oSelectedDocument = mySelectedDocs.First
Dim Result = ClassDOC_SEARCH.Get_File_Rights(oSelectedDocument.DocId)
If Not IsNothing(Result) Then
_RowReadOnly = False
@ -2431,7 +2465,7 @@ Public Class frmNodeNavigation
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
LOGGER.Warn("FileRight is '' but User is Admin!! - Check the configuration!")
NNLogger.Warn("FileRight is '' but User is Admin!! - Check the configuration!")
End If
_RowReadOnly = True
End Select
@ -2446,13 +2480,13 @@ Public Class frmNodeNavigation
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
LOGGER.Warn("RIGHT_READ_ONLY_DOC = True but User is Admin!! - Check the configuration!")
NNLogger.Warn("RIGHT_READ_ONLY_DOC = True but User is Admin!! - Check the configuration!")
End If
End If
End If
End If
If oSelectedDocs.First.DisplayName <> "" Then
If mySelectedDocs.First.DisplayName <> "" Then
tsmiFileRenameDisplayname.Visible = True
Else
tsmiFileRenameDisplayname.Visible = False
@ -2462,7 +2496,7 @@ Public Class frmNodeNavigation
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Opening DocContextMenu: ", ex.Message)
e.Cancel = True
Finally
@ -2484,6 +2518,7 @@ Public Class frmNodeNavigation
tsmiFileRightsShow.Enabled = False
tsmiFileDelete.Enabled = False
tsmiFileInWorkMultiple_Lock.Visible = True
End Sub
Sub ContextMenu_Read()
@ -2616,7 +2651,7 @@ Public Class frmNodeNavigation
End If
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
IW_USER = ""
IW_COMMENT = ""
End Try
@ -2647,8 +2682,8 @@ Public Class frmNodeNavigation
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn("Unexpected Error in File-Work Info: " & ex.Message)
NNLogger.Error(ex)
NNLogger.Warn("Unexpected Error in File-Work Info: " & ex.Message)
tsmiFileInWork.Enabled = False
End Try
End Sub
@ -2659,7 +2694,8 @@ Public Class frmNodeNavigation
Exit Sub
End If
Dim oDocuments = Current_DocList.SelectedDocuments
If oDocuments.Count = 1 Then
If oDocuments.Count >= 1 Then
ClassFileResult.DocID = oDocuments.First.DocId
If INWORK_FILE = True Then ' Datei ist in Bearbeitung
Dim msglbl As String
@ -2677,6 +2713,7 @@ Public Class frmNodeNavigation
ClassHelper.MSGBOX_Handler("INFO", "Information file", msglbl, msg1)
End If
Else
frmFileInWork.myDocuments = mySelectedDocs
frmFileInWork.ShowDialog()
ClassDocGrid.SELECTED_INWORK = ClassFileResult.InWork
Await RUN_WDSEARCH_GRID(True)
@ -2721,7 +2758,7 @@ Public Class frmNodeNavigation
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Unexpected Error in getting the Displayname: ", ex.Message)
End Try
End Sub
@ -2732,8 +2769,8 @@ Public Class frmNodeNavigation
Try
RENAME_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn("Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message)
NNLogger.Error(ex)
NNLogger.Warn("Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message)
RENAME_DOC_PATH = Nothing
End Try
If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
@ -2760,7 +2797,7 @@ Public Class frmNodeNavigation
End If
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
MsgBox("Unexpected Error in getting the filename: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@ -2807,8 +2844,8 @@ Public Class frmNodeNavigation
oForm.Show()
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Error(ex)
NNLogger.Error(ex)
NNLogger.Error(ex)
MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@ -2854,7 +2891,7 @@ Public Class frmNodeNavigation
oForm.Show()
oForm.BringToFront()
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
MsgBox("Unexpected Error in Showing DocLinks: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@ -2887,7 +2924,7 @@ Public Class frmNodeNavigation
Next
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Removing links from file:", ex.Message)
End Try
End If
@ -2944,8 +2981,8 @@ Public Class frmNodeNavigation
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Open file propertys:", ex.Message)
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Error(ex)
NNLogger.Error(ex)
NNLogger.Error(ex)
End Try
End If
Next
@ -3044,7 +3081,7 @@ Public Class frmNodeNavigation
End If
End If
Catch ex As Exception
LOGGER.Warn("Unexpected Error in Checking Value In Work: " & ex.Message)
NNLogger.Warn("Unexpected Error in Checking Value In Work: " & ex.Message)
End Try
Try
@ -3091,8 +3128,8 @@ Public Class frmNodeNavigation
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn("Unexpected Error in RowStyle-Color Dropdown: " & ex.Message)
NNLogger.Error(ex)
NNLogger.Warn("Unexpected Error in RowStyle-Color Dropdown: " & ex.Message)
End Try
End If
@ -3177,14 +3214,14 @@ Public Class frmNodeNavigation
DocumentViewer.LoadFile(oPath)
Else
LOGGER.Debug("Show_SelectedDoc - oSelectedDocs.Count not >= 1 ")
NNLogger.Debug("Show_SelectedDoc - oSelectedDocs.Count not >= 1 ")
Close_Document_Viewer()
End If
Else
LOGGER.Info("DocumentViewer not inited. No Show_SelectedDoc")
NNLogger.Info("DocumentViewer not inited. No Show_SelectedDoc")
End If
Else
LOGGER.Debug("Show_SelectedDoc - oSelectedDocs is nothing")
NNLogger.Debug("Show_SelectedDoc - oSelectedDocs is nothing")
End If
@ -3193,7 +3230,7 @@ Public Class frmNodeNavigation
Try
DocumentViewer.CloseDocument()
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
End Try
End Sub
Private Async Sub btnCreateNewNode_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCreateNewNode.ItemClick
@ -3259,7 +3296,7 @@ Public Class frmNodeNavigation
If oDoc.DocPath <> "" Then
Dim oWMObject As WINDREAMLib.WMObject
Dim oReldocpath = ClassHelper.GetRelPath(oDoc.DocPath)
LOGGER.Info("oReldocpath: " & oReldocpath)
NNLogger.Info("oReldocpath: " & oReldocpath)
oWMObject = WMMOD.GetFileByPath(oReldocpath)
If Not IsNothing(oWMObject) Then
WMMOD.SetFileIndex(oReldocpath, WMINDEX_DOCTYPE, oForm.SelectedDocType.ToString, WMOBJECTTYPE)
@ -3276,7 +3313,7 @@ Public Class frmNodeNavigation
End If
End If
Catch ex As Exception
LOGGER.Error(ex)
NNLogger.Error(ex)
End Try
End Sub
@ -3310,7 +3347,7 @@ Public Class frmNodeNavigation
For Each oDoc As ClassDocGrid.clsWMDoc In ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
If oDoc.DocPath <> "" Then
Try
LOGGER.Info($"DocID {oDoc.DocPath} shall be deleted. User committed Delete-Start...")
NNLogger.Info($"DocID {oDoc.DocPath} shall be deleted. User committed Delete-Start...")
Dim oDElWMFile As Boolean = False
Dim oCountLinks As Integer
If Not IsNothing(oDoc.DocId) Then
@ -3324,11 +3361,11 @@ Public Class frmNodeNavigation
result2 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result2 = MsgBoxResult.Yes Then
LOGGER.Info($">> File has other Record-Links. User committed to delete all!")
NNLogger.Info($">> File has other Record-Links. User committed to delete all!")
oDElWMFile = True
Else
oDElWMFile = False
LOGGER.Info($">> File has other Record-Links. links shall be kept!")
NNLogger.Info($">> File has other Record-Links. links shall be kept!")
End If
Else
oDElWMFile = True
@ -3382,7 +3419,7 @@ Public Class frmNodeNavigation
Catch ex As Exception
LOGGER.Warn($"Unexpected error in TimerFileHandleTick [{ex.Message}]!!")
NNLogger.Warn($"Unexpected error in TimerFileHandleTick [{ex.Message}]!!")
End Try
End Sub
Private Function GetActiveGridControl() As GridControl
@ -3445,5 +3482,22 @@ Public Class frmNodeNavigation
End Sub
Private Async Sub tsmiFileInWorkMultiple_Free_Click(sender As Object, e As EventArgs) Handles tsmiFileInWorkMultiple_Free.Click
For Each oDoc As ClassDocGrid.clsWMDoc In mySelectedDocs
If oDoc.InWork = True Then
If oDoc.InWorkUser = USER_USERNAME.ToUpper Or USER_IS_ADMIN Or USER_IS_SUPERVISOR Then
ClassFileResult.DocID = oDoc.DocId
ClassFileResult.Set_InWork(0, "")
End If
End If
Next
Await RUN_WDSEARCH_GRID(True)
End Sub
Private Async Sub tsmiFileInWorkMultiple_Lock_Click(sender As Object, e As EventArgs) Handles tsmiFileInWorkMultiple_Lock.Click
frmFileInWork.myDocuments = mySelectedDocs
frmFileInWork.ShowDialog()
Await RUN_WDSEARCH_GRID(True)
End Sub
End Class

82
app/DD-Record-Organizer/frmRight_Management.resx
View File

@ -126,7 +126,7 @@
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="IDLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 44</value>
<value>9, 43</value>
</data>
<data name="IDLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>21, 13</value>
@ -156,10 +156,10 @@
<value>True</value>
</data>
<data name="ENTITY_NAMELabel.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 73</value>
<value>9, 72</value>
</data>
<data name="ENTITY_NAMELabel.Size" type="System.Drawing.Size, System.Drawing">
<value>32, 13</value>
<value>33, 13</value>
</data>
<data name="ENTITY_NAMELabel.TabIndex" type="System.Int32, mscorlib">
<value>24</value>
@ -186,7 +186,7 @@
<value>True</value>
</data>
<data name="GROUP_NAMELabel.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 99</value>
<value>9, 98</value>
</data>
<data name="GROUP_NAMELabel.Size" type="System.Drawing.Size, System.Drawing">
<value>46, 13</value>
@ -216,7 +216,7 @@
<value>True</value>
</data>
<data name="ADDED_WHOLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>568, 44</value>
<value>567, 43</value>
</data>
<data name="ADDED_WHOLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>64, 13</value>
@ -246,10 +246,10 @@
<value>True</value>
</data>
<data name="CHANGED_WHOLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>828, 44</value>
<value>827, 43</value>
</data>
<data name="CHANGED_WHOLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>77, 13</value>
<value>78, 13</value>
</data>
<data name="CHANGED_WHOLabel.TabIndex" type="System.Int32, mscorlib">
<value>34</value>
@ -276,7 +276,7 @@
<value>True</value>
</data>
<data name="ADDED_WHENLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>568, 73</value>
<value>567, 72</value>
</data>
<data name="ADDED_WHENLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>74, 13</value>
@ -306,10 +306,10 @@
<value>True</value>
</data>
<data name="CHANGED_WHENLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>828, 73</value>
<value>827, 72</value>
</data>
<data name="CHANGED_WHENLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>87, 13</value>
<value>88, 13</value>
</data>
<data name="CHANGED_WHENLabel.TabIndex" type="System.Int32, mscorlib">
<value>36</value>
@ -490,10 +490,10 @@
<value>ToolStripButton1</value>
</data>
<data name="BindingNavigator1.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 3</value>
<value>2, 2</value>
</data>
<data name="BindingNavigator1.Size" type="System.Drawing.Size, System.Drawing">
<value>1155, 25</value>
<value>1293, 25</value>
</data>
<data name="BindingNavigator1.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
@ -707,10 +707,10 @@
<value>Segoe UI, 8.25pt, style=Bold, Italic</value>
</data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 133</value>
<value>15, 166</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>731, 57</value>
<value>914, 71</value>
</data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>43</value>
@ -731,10 +731,10 @@
<value>0</value>
</data>
<data name="CHANGED_WHENTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>921, 68</value>
<value>1151, 85</value>
</data>
<data name="CHANGED_WHENTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>118, 22</value>
<value>148, 28</value>
</data>
<data name="CHANGED_WHENTextBox.TabIndex" type="System.Int32, mscorlib">
<value>37</value>
@ -752,10 +752,10 @@
<value>2</value>
</data>
<data name="ADDED_WHENTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>673, 70</value>
<value>841, 87</value>
</data>
<data name="ADDED_WHENTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>149, 22</value>
<value>186, 28</value>
</data>
<data name="ADDED_WHENTextBox.TabIndex" type="System.Int32, mscorlib">
<value>36</value>
@ -773,10 +773,10 @@
<value>4</value>
</data>
<data name="CHANGED_WHOTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>921, 39</value>
<value>1151, 48</value>
</data>
<data name="CHANGED_WHOTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>118, 22</value>
<value>148, 28</value>
</data>
<data name="CHANGED_WHOTextBox.TabIndex" type="System.Int32, mscorlib">
<value>35</value>
@ -794,10 +794,10 @@
<value>6</value>
</data>
<data name="ADDED_WHOTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>673, 41</value>
<value>841, 51</value>
</data>
<data name="ADDED_WHOTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>149, 22</value>
<value>186, 28</value>
</data>
<data name="ADDED_WHOTextBox.TabIndex" type="System.Int32, mscorlib">
<value>33</value>
@ -815,10 +815,10 @@
<value>8</value>
</data>
<data name="DELETE_DOCCheckBox.Location" type="System.Drawing.Point, System.Drawing">
<value>458, 94</value>
<value>572, 117</value>
</data>
<data name="DELETE_DOCCheckBox.Size" type="System.Drawing.Size, System.Drawing">
<value>104, 24</value>
<value>130, 30</value>
</data>
<data name="DELETE_DOCCheckBox.TabIndex" type="System.Int32, mscorlib">
<value>32</value>
@ -839,10 +839,10 @@
<value>9</value>
</data>
<data name="VIEW_DOCCheckBox.Location" type="System.Drawing.Point, System.Drawing">
<value>458, 68</value>
<value>572, 85</value>
</data>
<data name="VIEW_DOCCheckBox.Size" type="System.Drawing.Size, System.Drawing">
<value>104, 24</value>
<value>130, 30</value>
</data>
<data name="VIEW_DOCCheckBox.TabIndex" type="System.Int32, mscorlib">
<value>31</value>
@ -863,10 +863,10 @@
<value>10</value>
</data>
<data name="ADD_DOCCheckBox.Location" type="System.Drawing.Point, System.Drawing">
<value>458, 39</value>
<value>572, 48</value>
</data>
<data name="ADD_DOCCheckBox.Size" type="System.Drawing.Size, System.Drawing">
<value>104, 24</value>
<value>130, 30</value>
</data>
<data name="ADD_DOCCheckBox.TabIndex" type="System.Int32, mscorlib">
<value>30</value>
@ -887,10 +887,10 @@
<value>11</value>
</data>
<data name="DELETE_RECCheckBox.Location" type="System.Drawing.Point, System.Drawing">
<value>334, 94</value>
<value>417, 117</value>
</data>
<data name="DELETE_RECCheckBox.Size" type="System.Drawing.Size, System.Drawing">
<value>104, 24</value>
<value>130, 30</value>
</data>
<data name="DELETE_RECCheckBox.TabIndex" type="System.Int32, mscorlib">
<value>29</value>
@ -911,10 +911,10 @@
<value>12</value>
</data>
<data name="ADD_RECCheckBox.Location" type="System.Drawing.Point, System.Drawing">
<value>334, 68</value>
<value>417, 85</value>
</data>
<data name="ADD_RECCheckBox.Size" type="System.Drawing.Size, System.Drawing">
<value>104, 24</value>
<value>130, 30</value>
</data>
<data name="ADD_RECCheckBox.TabIndex" type="System.Int32, mscorlib">
<value>28</value>
@ -935,10 +935,10 @@
<value>13</value>
</data>
<data name="EDIT_RECCheckBox.Location" type="System.Drawing.Point, System.Drawing">
<value>334, 39</value>
<value>417, 48</value>
</data>
<data name="EDIT_RECCheckBox.Size" type="System.Drawing.Size, System.Drawing">
<value>104, 24</value>
<value>130, 30</value>
</data>
<data name="EDIT_RECCheckBox.TabIndex" type="System.Int32, mscorlib">
<value>27</value>
@ -959,10 +959,10 @@
<value>14</value>
</data>
<data name="GROUP_NAMETextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>72, 96</value>
<value>90, 120</value>
</data>
<data name="GROUP_NAMETextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>231, 22</value>
<value>289, 28</value>
</data>
<data name="GROUP_NAMETextBox.TabIndex" type="System.Int32, mscorlib">
<value>26</value>
@ -980,10 +980,10 @@
<value>16</value>
</data>
<data name="ENTITY_NAMETextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>72, 70</value>
<value>90, 87</value>
</data>
<data name="ENTITY_NAMETextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>231, 22</value>
<value>289, 28</value>
</data>
<data name="ENTITY_NAMETextBox.TabIndex" type="System.Int32, mscorlib">
<value>25</value>
@ -1001,10 +1001,10 @@
<value>18</value>
</data>
<data name="IDTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>72, 44</value>
<value>90, 55</value>
</data>
<data name="IDTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>100, 22</value>
<value>125, 28</value>
</data>
<data name="IDTextBox.TabIndex" type="System.Int32, mscorlib">
<value>24</value>
@ -1082,7 +1082,7 @@
<value>12, 196</value>
</data>
<data name="VWPMO_RIGHT_GROUPDataGridView.Size" type="System.Drawing.Size, System.Drawing">
<value>1121, 196</value>
<value>1259, 179</value>
</data>
<data name="VWPMO_RIGHT_GROUPDataGridView.TabIndex" type="System.Int32, mscorlib">
<value>23</value>

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

@ -38,8 +38,8 @@ Public Class frmRight_Management
Try
Me.TBWH_USER_GROUPSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBWH_USER_GROUPSTableAdapter.Fill(Me.DD_ECMAdmin.TBWH_USER_GROUPS)
Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER_GROUPS)
'Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
'Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER_GROUPS)
Me.TBDD_GROUPSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBDD_GROUPSTableAdapter.Fill(Me.DD_ECMAdmin.TBDD_GROUPS)
Me.TBDD_USERTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString

2
app/DD-Record-Organizer/frmStructureNodeConfig.resx
View File

@ -263,7 +263,7 @@
</data>
<data name="Label3.Text" xml:space="preserve">
<value>Ein hier definierter Knoten dient "lediglich" zur Layoutstruktur und stellt noch keinen Knoten in der Sichtnavigation dar.
Knoten entstehen entweder durch eine hinterlegte Businesslogik oder durch manuelle Anlage durch den benutzer, wenn der Knoten ein manueller Knoten (Leel = 1000) ist.</value>
Knoten entstehen entweder durch eine hinterlegte Businesslogik oder durch manuelle Anlage durch den benutzer, wenn der Knoten ein manueller Knoten (Level = 1000) ist.</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>192</value>