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

Bugfixing und Verbesserungen NodeBNavigation

Browse Source
This commit is contained in:
Developer01
2025-09-10 15:28:57 +02:00
parent e62741c0ac
commit 0d64b5e887
10 changed files with 592 additions and 491 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD-Record-Organizer/.vs/OrgFlow.vbproj.dtbcache.json
View File

File diff suppressed because one or more lines are too long

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

@@ -14,4 +14,6 @@ Public Class ClassConfig
Public Property TreeListSplitterWidth As Integer = 0 Public Property TreeListSplitterWidth As Integer = 0
Public Property DocumentSearchSplitterWidth As Integer = 0 Public Property DocumentSearchSplitterWidth As Integer = 0
Public Property DocumentViewerShown As Boolean = True Public Property DocumentViewerShown As Boolean = True
End Class End Class

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

@@ -92,7 +92,34 @@ Public Class ClassDocGrid
Dim oSelectedRows As List(Of Integer) = pGridView.GetSelectedRows().ToList() Dim oSelectedRows As List(Of Integer) = pGridView.GetSelectedRows().ToList()
Return oSelectedRows.Count = 0 Return oSelectedRows.Count = 0
End Function End Function
Public Shared Function GetSingleSelectedDocument(pGridView As GridView) As List(Of clsWMDoc)
If pGridView.RowCount = 0 Then
Return Nothing
End If
Dim oDocuments As New List(Of clsWMDoc)
Dim oDocId = pGridView.GetRowCellValue(pGridView.FocusedRowHandle, "DocID")
Dim oSQL = $"Select dwParentID FROM TBPMO_DOCRESULT_LIST where DocID = {oDocId}"
Dim odwParentID = MYDB_ECM.GetScalarValue(oSQL)
Dim oDisplayName = pGridView.GetRowCellValue(pGridView.FocusedRowHandle, "Displayname")
Dim oDocPath = pGridView.GetRowCellValue(pGridView.FocusedRowHandle, "FULLPATH")
Dim oObjecttype = pGridView.GetRowCellValue(pGridView.FocusedRowHandle, "OBJECTTYPE")
Dim oFilename = pGridView.GetRowCellValue(pGridView.FocusedRowHandle, "Dateiname")
Dim oInWork = pGridView.GetRowCellValue(pGridView.FocusedRowHandle, "in work?")
Dim oInWorkUser = pGridView.GetRowCellValue(pGridView.FocusedRowHandle, "in work User")
oDocuments.Add(New clsWMDoc With {
.DocId = oDocId,
.ParentID = odwParentID,
.DocPath = oDocPath,
.DocType = oObjecttype,
.DisplayName = oDisplayName,
.Filename = oFilename,
.InWork = oInWork,
.InWorkUser = oInWorkUser
})
Return oDocuments
End Function
Public Shared Function GetSelectedDocuments(pGridView As GridView, Optional pGetFirst As Boolean = False) As List(Of clsWMDoc) Public Shared Function GetSelectedDocuments(pGridView As GridView, Optional pGetFirst As Boolean = False) As List(Of clsWMDoc)
Dim oSelectedRows As List(Of Integer) Dim oSelectedRows As List(Of Integer)
If pGridView.RowCount = 0 Then If pGridView.RowCount = 0 Then
@@ -134,7 +161,6 @@ Public Class ClassDocGrid
Public Shared Sub GetDocItems(gridView As GridView) Public Shared Sub GetDocItems(gridView As GridView)
_Helper = New ClassHelper _Helper = New ClassHelper
SELECTED_DOC_ID = 0
If Init_Table() = True Then If Init_Table() = True Then
Console.WriteLine("gridView.SelectedRowsCount: " & gridView.SelectedRowsCount.ToString) Console.WriteLine("gridView.SelectedRowsCount: " & gridView.SelectedRowsCount.ToString)
gridView.EndSelection() gridView.EndSelection()
@@ -143,31 +169,12 @@ Public Class ClassDocGrid
DT_RESULTFILES.Clear() DT_RESULTFILES.Clear()
For Each row In gridView.GetSelectedRows For Each row In gridView.GetSelectedRows
Dim newRow As DataRow = DT_RESULTFILES.NewRow() Dim newRow As DataRow = DT_RESULTFILES.NewRow()
Try Dim oDocID = gridView.GetRowCellValue(row, "DocID")
Dim DOC_ID = gridView.GetRowCellValue(row, "DocID") Dim CHeckDT As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_DT_TBPMO_DOC_RECORD_LINK, "DOC_ID = " + oDocID.ToString, "")
Dim CHeckDT As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_DT_TBPMO_DOC_RECORD_LINK, "DOC_ID = " + DOC_ID.ToString, "")
If CHeckDT.Rows.Count = 1 Then
SELECTED_DOC_ID = DOC_ID
newRow("DOC_ID") = gridView.GetRowCellValue(row, "DocID")
Else
If Not IsNothing(DOC_ID) Then
SELECTED_DOC_ID = DOC_ID
Else
Continue For
End If
End If
Catch ex As Exception
newRow("DOC_ID") = 0
SELECTED_DOC_ID = 0
End Try
Try Try
newRow("INWORK") = False newRow("INWORK") = False
SELECTED_INWORK = False SELECTED_INWORK = False
Dim oSQL = "Select IN_WORK,IN_WORK_USER FROM TBPMO_DOCRESULT_LIST where DocID = " + SELECTED_DOC_ID Dim oSQL = "Select IN_WORK,IN_WORK_USER FROM TBPMO_DOCRESULT_LIST where DocID = " + oDocID
Dim oDT As DataTable = MYDB_ECM.GetDatatable(oSQL) Dim oDT As DataTable = MYDB_ECM.GetDatatable(oSQL)
If Not IsNothing(oDT) Then If Not IsNothing(oDT) Then
If oDT.Rows.Count = 1 Then If oDT.Rows.Count = 1 Then
@@ -258,7 +265,7 @@ Public Class ClassDocGrid
End If End If
End Sub End Sub
Public Shared Sub FillColumns(gridView As GridView, Public Shared Sub FillColumns(pDocGridView As GridView,
DT_RESULT As DataTable, DT_WINDREAM_RESULTLIST As DataTable, DT_DOCRESULT_DROPDOWN_ITEMS As DataTable, DT_RESULT As DataTable, DT_WINDREAM_RESULTLIST As DataTable, DT_DOCRESULT_DROPDOWN_ITEMS As DataTable,
DropdownValueChangedHandler As EventHandler, DatepickerValueChangedHandler As EventHandler, TextValueChangedHandler As EventHandler, CheckValueChangedHandler As EventHandler, DropdownValueChangedHandler As EventHandler, DatepickerValueChangedHandler As EventHandler, TextValueChangedHandler As EventHandler, CheckValueChangedHandler As EventHandler,
SearchType As String, RECORD_ID As Integer) SearchType As String, RECORD_ID As Integer)
@@ -315,39 +322,46 @@ Public Class ClassDocGrid
End Select End Select
'"FROM TBPMO_DOC_VALUES T INNER JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND T1.LANGUAGE = '{1}' AND T.RECORD_ID = {2} ORDER BY T.DocID, T1.SEQUENCE", CURRENT_ENTITY_ID, USER_LANGUAGE, RECORD_ID) '"FROM TBPMO_DOC_VALUES T INNER JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND T1.LANGUAGE = '{1}' AND T.RECORD_ID = {2} ORDER BY T.DocID, T1.SEQUENCE", CURRENT_ENTITY_ID, USER_LANGUAGE, RECORD_ID)
Dim DT_DETAILS As DataTable = MYDB_ECM.GetDatatable(DT_DETAILS_SQL) Dim DT_DETAIL_VALUES As DataTable = MYDB_ECM.GetDatatable(DT_DETAILS_SQL)
Dim docId As Integer Dim oDocID As Integer
Dim configId As Integer Dim oConfigID As Integer
Dim recordId As Integer Dim recordId As Integer
Try Try
' Werte für Konfigurierte Spalten aus TBPMO_DOC_VALUES auslesen und Zellenweise einfügen ' Werte für Konfigurierte Spalten aus TBPMO_DOC_VALUES auslesen und Zellenweise einfügen
For Each row As DataRow In DT_RESULT.Rows For Each oRow As DataRow In DT_RESULT.Rows
For Each col As DataColumn In DT_RESULT.Columns For Each col As DataColumn In DT_RESULT.Columns
Dim colName As String = col.ColumnName Dim colName As String = col.ColumnName
docId = row.Item("DocID") oDocID = oRow.Item("DocID")
configId = RESULT_CONFIG_IDS.Item(col.ColumnName) oConfigID = RESULT_CONFIG_IDS.Item(col.ColumnName)
If configId <> 0 Then If oConfigID <> 0 Then
Dim value As String = "" Dim value As String = ""
Try Try
value = MYDB_ECM.GetScalarValue(String.Format("SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = {0} AND DocID = {1} AND RECORD_ID = {2}", configId, docId, RECORD_ID)) Dim oFilter = $"DocID = {oDocID} AND CONFIG_ID = {oConfigID}"
Dim oFlteredRows() As DataRow = DT_DETAIL_VALUES.Select(oFilter)
If oFlteredRows.Length > 0 Then
value = oFlteredRows(0)("VALUE").ToString()
End If
'value = MYDB_ECM.GetScalarValue(String.Format("SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = {0} AND DocID = {1} AND RECORD_ID = {2}", oConfigID, oDocID, RECORD_ID))
Catch ex As Exception Catch ex As Exception
LOGGER.Warn(String.Format("Attention: Could not get Value from TBPMO_DOC_VALUES for ConfigId[{0}], DocId[{1}]: ", configId, docId) & ex.Message) LOGGER.Warn(String.Format("Attention: Could not get Value from TBPMO_DOC_VALUES for ConfigId[{0}], DocId[{1}]: ", oConfigID, oDocID) & ex.Message)
End Try End Try
row.Item(colName) = value oRow.Item(colName) = value
End If End If
Next Next
Next Next
Catch ex As Exception Catch ex As Exception
LOGGER.Warn($"Attention: Could not load values from TBPMO_DOC_VALUES: " & ex.Message & vbNewLine & $"SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = {configId} AND DocID = {docId} AND RECORD_ID = {RECORD_ID}") LOGGER.Warn($"Attention: Could not load values from TBPMO_DOC_VALUES: " & ex.Message & vbNewLine & $"SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = {oConfigID} AND DocID = {oDocID} AND RECORD_ID = {RECORD_ID}")
End Try End Try
LOGGER.Debug("Values loaded...") LOGGER.Debug("Values loaded...")
Try Try
' Tabellen zum DataSet hinzufügen ' Tabellen zum DataSet hinzufügen
ds.Tables.Add(DT_RESULT) ds.Tables.Add(DT_RESULT)
ds.Tables.Add(DT_DETAILS) ds.Tables.Add(DT_DETAIL_VALUES)
LOGGER.Debug("tables added to ds.Tables...") LOGGER.Debug("tables added to ds.Tables...")
Catch ex As Exception Catch ex As Exception
LOGGER.Warn("Attention: Could not Add tables to ds.Tables: " & ex.Message) LOGGER.Warn("Attention: Could not Add tables to ds.Tables: " & ex.Message)
@@ -375,7 +389,7 @@ Public Class ClassDocGrid
LOGGER.Warn("Could not set master-detail Relation DocSearch: " & ex.Message) LOGGER.Warn("Could not set master-detail Relation DocSearch: " & ex.Message)
End Try End Try
Dim gridControl As GridControl = gridView.GridControl Dim gridControl As GridControl = pDocGridView.GridControl
' Datasource auf Master-Tabelle setzen ' Datasource auf Master-Tabelle setzen
@@ -384,28 +398,29 @@ Public Class ClassDocGrid
gridControl.ForceInitialize() gridControl.ForceInitialize()
' Detail View anlegen und der Relation `docIdDetails` zuweisen ' Detail View anlegen und der Relation `docIdDetails` zuweisen
Dim grvwDetail As New GridView(gridControl) Dim GVDoc_Values As New GridView(gridControl)
'grvwDetail.OptionsBehavior.Editable = False 'grvwDetail.OptionsBehavior.Editable = False
grvwDetail.OptionsView.ShowGroupPanel = False GVDoc_Values.OptionsView.ShowGroupPanel = False
grvwDetail.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D GVDoc_Values.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D
grvwDetail.OptionsView.EnableAppearanceEvenRow = True GVDoc_Values.OptionsView.EnableAppearanceEvenRow = True
grvwDetail.Appearance.EvenRow.BackColor = Color.Orange GVDoc_Values.Appearance.EvenRow.BackColor = Color.Orange
grvwDetail.Appearance.HeaderPanel.BackColor = Color.Orange GVDoc_Values.Appearance.HeaderPanel.BackColor = Color.Orange
grvwDetail.Appearance.HeaderPanel.Options.UseBackColor = True GVDoc_Values.Appearance.HeaderPanel.Options.UseBackColor = True
gridControl.LevelTree.Nodes.Add("docIdDetails", grvwDetail) gridControl.LevelTree.Nodes.Add("docIdDetails", GVDoc_Values)
Catch ex As Exception Catch ex As Exception
MsgBox("Error in FillColumns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in FillColumns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
LOGGER.Warn("Attention: Could not load converted datatable DocSearch: " & ex.Message) LOGGER.Warn("Attention: Could not load converted datatable DocSearch: " & ex.Message)
End Try End Try
AddHandler gridView.MasterRowExpanded, AddressOf gridView_MasterRowExpanded AddHandler pDocGridView.MasterRowExpanded, AddressOf gridView_MasterRowExpanded
AddHandler gridView.CustomColumnDisplayText, AddressOf gridView_CustomColumnDisplayText AddHandler pDocGridView.CustomColumnDisplayText, AddressOf gridView_CustomColumnDisplayText
AddHandler pDocGridView.FocusedRowChanged, AddressOf GVDoc_Values_FocusedRowChanged
For Each row As DataRow In DT_WINDREAM_RESULTLIST.Rows For Each row As DataRow In DT_WINDREAM_RESULTLIST.Rows
Dim col As GridColumn = gridView.Columns(row.Item("HEADER_CAPTION")) Dim col As GridColumn = pDocGridView.Columns(row.Item("HEADER_CAPTION"))
Dim colCaption = row.Item("HEADER_CAPTION") Dim colCaption = row.Item("HEADER_CAPTION")
Dim type As Integer = row.Item("TYPE_ID") Dim type As Integer = row.Item("TYPE_ID")
Dim isConfig As Boolean = row.Item("CONFIG_COLUMNS") Dim isConfig As Boolean = row.Item("CONFIG_COLUMNS")
@@ -417,12 +432,12 @@ Public Class ClassDocGrid
End If End If
Next Next
gridView.Columns.Item("ICON").MaxWidth = 24 pDocGridView.Columns.Item("ICON").MaxWidth = 24
gridView.Columns.Item("ICON").MinWidth = 24 pDocGridView.Columns.Item("ICON").MinWidth = 24
gridView.Columns.Item("FULLPATH").Visible = False pDocGridView.Columns.Item("FULLPATH").Visible = False
gridView.Columns.Item("OBJECTTYPE").Visible = False pDocGridView.Columns.Item("OBJECTTYPE").Visible = False
If Not System.IO.File.Exists(LAYOUT_DOC_GRIDVIEW) Then If Not System.IO.File.Exists(LAYOUT_DOC_GRIDVIEW) Then
gridView.Columns.Item("DocID").Visible = False pDocGridView.Columns.Item("DocID").Visible = False
End If End If
Dim oCreatedFieldName, oChangedFieldName As String Dim oCreatedFieldName, oChangedFieldName As String
@@ -434,25 +449,25 @@ Public Class ClassDocGrid
oCreatedFieldName = "Erstellt" oCreatedFieldName = "Erstellt"
End If End If
Dim oCreatedColumn = gridView.Columns(oCreatedFieldName) Dim oCreatedColumn = pDocGridView.Columns(oCreatedFieldName)
If Not IsNothing(oCreatedColumn) Then If Not IsNothing(oCreatedColumn) Then
oCreatedColumn.DisplayFormat.FormatType = FormatType.DateTime oCreatedColumn.DisplayFormat.FormatType = FormatType.DateTime
oCreatedColumn.DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss" oCreatedColumn.DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
End If End If
Dim oChangedColumn = gridView.Columns(oChangedFieldName) Dim oChangedColumn = pDocGridView.Columns(oChangedFieldName)
If Not IsNothing(oChangedColumn) Then If Not IsNothing(oChangedColumn) Then
oChangedColumn.DisplayFormat.FormatType = FormatType.DateTime oChangedColumn.DisplayFormat.FormatType = FormatType.DateTime
oChangedColumn.DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss" oChangedColumn.DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
End If End If
If GridDocResult_BestFitColumns Then If GridDocResult_BestFitColumns Then
gridView.OptionsView.BestFitMaxRowCount = -1 pDocGridView.OptionsView.BestFitMaxRowCount = -1
gridView.BestFitColumns(True) pDocGridView.BestFitColumns(True)
End If End If
' Alle Spalten aus ReadOnly setzen, danach werden alle passenden auf nicht ReadOnly gesetzt ' Alle Spalten aus ReadOnly setzen, danach werden alle passenden auf nicht ReadOnly gesetzt
For Each column As GridColumn In gridView.Columns For Each column As GridColumn In pDocGridView.Columns
column.OptionsColumn.AllowEdit = False column.OptionsColumn.AllowEdit = False
Next Next
End Sub End Sub
@@ -583,7 +598,16 @@ Public Class ClassDocGrid
End Try End Try
End Sub End Sub
Public Shared Sub GVDoc_Values_FocusedRowChanged(sender As GridView, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs)
Try
ClassDocGrid.GetDocItems(sender)
Catch ex As Exception
LOGGER.Warn("Unexpected error in GVDoc_Values_FocusedRowChanged: " & ex.Message)
MsgBox("Unexpected error in GVDoc_Values_FocusedRowChanged: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Shared Sub gridView_MasterRowExpanded(sender As GridView, e As DevExpress.XtraGrid.Views.Grid.CustomMasterRowEventArgs) Public Shared Sub gridView_MasterRowExpanded(sender As GridView, e As DevExpress.XtraGrid.Views.Grid.CustomMasterRowEventArgs)
Try Try
ClassDocGrid.GetDocItems(sender) ClassDocGrid.GetDocItems(sender)

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

@@ -1333,6 +1333,7 @@
<None Include="DD_ECMAdmin.xss"> <None Include="DD_ECMAdmin.xss">
<DependentUpon>DD_ECMAdmin.xsd</DependentUpon> <DependentUpon>DD_ECMAdmin.xsd</DependentUpon>
</None> </None>
<None Include="frmScanFiles.resx.bak" />
<None Include="My Project\app.manifest" /> <None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp"> <None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator> <Generator>MyApplicationCodeGenerator</Generator>

27
app/DD-Record-Organizer/frmDocRecordLink.Designer.vb generated
View File

@@ -42,6 +42,7 @@ Partial Class frmDocRecordLink
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.txtcurrSichtData = New System.Windows.Forms.TextBox() Me.txtcurrSichtData = New System.Windows.Forms.TextBox()
Me.bsitmSource = New DevExpress.XtraBars.BarStaticItem()
CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -110,9 +111,9 @@ Partial Class frmDocRecordLink
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.bbtnitmLinkRecords, Me.bbtnitmsaveLayout, Me.bbtnitmresetlayout}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.bbtnitmLinkRecords, Me.bbtnitmsaveLayout, Me.bbtnitmresetlayout, Me.bsitmSource})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 5 Me.RibbonControl1.MaxItemId = 6
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@@ -132,8 +133,8 @@ Partial Class frmDocRecordLink
Me.bbtnitmLinkRecords.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left Me.bbtnitmLinkRecords.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
resources.ApplyResources(Me.bbtnitmLinkRecords, "bbtnitmLinkRecords") resources.ApplyResources(Me.bbtnitmLinkRecords, "bbtnitmLinkRecords")
Me.bbtnitmLinkRecords.Id = 2 Me.bbtnitmLinkRecords.Id = 2
Me.bbtnitmLinkRecords.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.bbtnitmLinkRecords.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmLinkRecords.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitmLinkRecords.ItemAppearance.Normal.Font = CType(resources.GetObject("BarButtonItem1.ItemAppearance.Normal.Font"), System.Drawing.Font) Me.bbtnitmLinkRecords.ItemAppearance.Normal.Font = CType(resources.GetObject("bbtnitmLinkRecords.ItemAppearance.Normal.Font"), System.Drawing.Font)
Me.bbtnitmLinkRecords.ItemAppearance.Normal.Options.UseFont = True Me.bbtnitmLinkRecords.ItemAppearance.Normal.Options.UseFont = True
Me.bbtnitmLinkRecords.Name = "bbtnitmLinkRecords" Me.bbtnitmLinkRecords.Name = "bbtnitmLinkRecords"
' '
@@ -141,8 +142,8 @@ Partial Class frmDocRecordLink
' '
resources.ApplyResources(Me.bbtnitmsaveLayout, "bbtnitmsaveLayout") resources.ApplyResources(Me.bbtnitmsaveLayout, "bbtnitmsaveLayout")
Me.bbtnitmsaveLayout.Id = 3 Me.bbtnitmsaveLayout.Id = 3
Me.bbtnitmsaveLayout.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.bbtnitmsaveLayout.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmsaveLayout.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitmsaveLayout.ItemAppearance.Normal.Font = CType(resources.GetObject("BarButtonItem2.ItemAppearance.Normal.Font"), System.Drawing.Font) Me.bbtnitmsaveLayout.ItemAppearance.Normal.Font = CType(resources.GetObject("bbtnitmsaveLayout.ItemAppearance.Normal.Font"), System.Drawing.Font)
Me.bbtnitmsaveLayout.ItemAppearance.Normal.Options.UseFont = True Me.bbtnitmsaveLayout.ItemAppearance.Normal.Options.UseFont = True
Me.bbtnitmsaveLayout.Name = "bbtnitmsaveLayout" Me.bbtnitmsaveLayout.Name = "bbtnitmsaveLayout"
' '
@@ -150,20 +151,19 @@ Partial Class frmDocRecordLink
' '
resources.ApplyResources(Me.bbtnitmresetlayout, "bbtnitmresetlayout") resources.ApplyResources(Me.bbtnitmresetlayout, "bbtnitmresetlayout")
Me.bbtnitmresetlayout.Id = 4 Me.bbtnitmresetlayout.Id = 4
Me.bbtnitmresetlayout.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.bbtnitmresetlayout.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmresetlayout.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitmresetlayout.ItemAppearance.Normal.Font = CType(resources.GetObject("BarButtonItem3.ItemAppearance.Normal.Font"), System.Drawing.Font) Me.bbtnitmresetlayout.ItemAppearance.Normal.Font = CType(resources.GetObject("bbtnitmresetlayout.ItemAppearance.Normal.Font"), System.Drawing.Font)
Me.bbtnitmresetlayout.ItemAppearance.Normal.Options.UseFont = True Me.bbtnitmresetlayout.ItemAppearance.Normal.Options.UseFont = True
Me.bbtnitmresetlayout.Name = "bbtnitmresetlayout" Me.bbtnitmresetlayout.Name = "bbtnitmresetlayout"
' '
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
' '
'RibbonPageGroup1 'RibbonPageGroup1
' '
Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmsaveLayout) Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmsaveLayout)
Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmresetlayout) Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmresetlayout)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
@@ -178,6 +178,7 @@ Partial Class frmDocRecordLink
'RibbonStatusBar1 'RibbonStatusBar1
' '
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmSource)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1") resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
@@ -198,6 +199,11 @@ Partial Class frmDocRecordLink
Me.txtcurrSichtData.Name = "txtcurrSichtData" Me.txtcurrSichtData.Name = "txtcurrSichtData"
Me.txtcurrSichtData.ReadOnly = True Me.txtcurrSichtData.ReadOnly = True
' '
'bsitmSource
'
Me.bsitmSource.Id = 5
Me.bsitmSource.Name = "bsitmSource"
'
'frmDocRecordLink 'frmDocRecordLink
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@@ -242,4 +248,5 @@ Partial Class frmDocRecordLink
Friend WithEvents bbtnitmresetlayout As DevExpress.XtraBars.BarButtonItem Friend WithEvents bbtnitmresetlayout As DevExpress.XtraBars.BarButtonItem
Friend WithEvents Label2 As Label Friend WithEvents Label2 As Label
Friend WithEvents txtcurrSichtData As TextBox Friend WithEvents txtcurrSichtData As TextBox
Friend WithEvents bsitmSource As DevExpress.XtraBars.BarStaticItem
End Class End Class

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

@@ -292,7 +292,7 @@
<value>Datei(en) verknüpfen</value> <value>Datei(en) verknüpfen</value>
</data> </data>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="bbtnitmLinkRecords.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@@ -313,13 +313,13 @@
Lz4NCjwvc3ZnPgs= Lz4NCjwvc3ZnPgs=
</value> </value>
</data> </data>
<data name="BarButtonItem1.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing"> <data name="bbtnitmLinkRecords.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value> <value>Tahoma, 8.25pt, style=Bold</value>
</data> </data>
<data name="bbtnitmsaveLayout.Caption" xml:space="preserve"> <data name="bbtnitmsaveLayout.Caption" xml:space="preserve">
<value>...speichern</value> <value>...speichern</value>
</data> </data>
<data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="bbtnitmsaveLayout.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@@ -339,13 +339,13 @@
bGxvdyIgLz4NCjwvc3ZnPgs= bGxvdyIgLz4NCjwvc3ZnPgs=
</value> </value>
</data> </data>
<data name="BarButtonItem2.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing"> <data name="bbtnitmsaveLayout.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value> <value>Tahoma, 8.25pt, style=Bold</value>
</data> </data>
<data name="bbtnitmresetlayout.Caption" xml:space="preserve"> <data name="bbtnitmresetlayout.Caption" xml:space="preserve">
<value>...zurücksetzen</value> <value>...zurücksetzen</value>
</data> </data>
<data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="bbtnitmresetlayout.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@@ -368,18 +368,18 @@
LjR6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw== LjR6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw==
</value> </value>
</data> </data>
<data name="BarButtonItem3.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing"> <data name="bbtnitmresetlayout.ItemAppearance.Normal.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value> <value>Tahoma, 8.25pt, style=Bold</value>
</data> </data>
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Layout</value>
</data>
<data name="RibbonPageGroup3.Text" xml:space="preserve"> <data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Funktionen</value> <value>Funktionen</value>
</data> </data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Layout</value>
</data>
<data name="RibbonPage1.Text" xml:space="preserve"> <data name="RibbonPage1.Text" xml:space="preserve">
<value>Start</value> <value>Start</value>
</data> </data>
@@ -1773,6 +1773,12 @@
<data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve"> <data name="&gt;&gt;RibbonPage2.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;bsitmSource.Name" xml:space="preserve">
<value>bsitmSource</value>
</data>
<data name="&gt;&gt;bsitmSource.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmDocRecordLink</value> <value>frmDocRecordLink</value>
</data> </data>

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

@@ -1,15 +1,12 @@
Imports System.IO Imports System.IO
'Imports System.Text
'Imports DD_LIB_Standards
Imports DevExpress.XtraGrid.Columns Imports DevExpress.XtraGrid.Columns
Public Class frmDocRecordLink Public Class frmDocRecordLink
Public Property myDocuments As New List(Of ClassDocGrid.clsWMDoc) Public Property myDocuments As New List(Of ClassDocGrid.clsWMDoc)
Private CURRENT_LINK_ENTITY_ID As Integer = 0 Private CURRENT_LINK_ENTITY_ID As Integer = 0
Private ENTITY_LOAD_ACTIVE As Boolean = False Private ENTITY_LOAD_ACTIVE As Boolean = False
Private DT_ENTITYDATA As DataTable
Private Class ClassEntity Private Class ClassEntity
Public title As String Public title As String
Public id As Integer Public id As Integer
@@ -32,12 +29,12 @@ Public Class frmDocRecordLink
If CURRENT_LINK_ENTITY_ID = 0 Then If CURRENT_LINK_ENTITY_ID = 0 Then
CURRENT_LINK_ENTITY_ID = CURRENT_ENTITY_ID CURRENT_LINK_ENTITY_ID = CURRENT_ENTITY_ID
End If End If
Try 'Try
' DT_RECORDS.Columns.Add("already linked", Type.GetType("System.Boolean")).SetOrdinal(0) ' DT_RECORDS.Columns.Add("already linked", Type.GetType("System.Boolean")).SetOrdinal(0)
' DT_RECORDS.Columns("already linked").DefaultValue = False ' DT_RECORDS.Columns("already linked").DefaultValue = False
Catch ex As Exception 'Catch ex As Exception
End Try 'End Try
'Try 'Try
' For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows ' For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
@@ -232,7 +229,7 @@ Public Class frmDocRecordLink
Try Try
Dim XMLPath = Get_DocGrid_Layout_Filename() Dim XMLPath = Get_DocGrid_Layout_Filename()
grvwGrid.SaveLayoutToXml(XMLPath) grvwGrid.SaveLayoutToXml(XMLPath)
bsiInfo.Caption = "Grid-Layout saved - " + Now.ToShortTimeString bsiInfo.Caption = "Grid-Layout saved - " + Now.ToLongTimeString
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Save_DocGrid_Layout", ex.Message, ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Save_DocGrid_Layout", ex.Message, ex.StackTrace)
@@ -244,7 +241,7 @@ Public Class frmDocRecordLink
If File.Exists(XMLPath) Then If File.Exists(XMLPath) Then
grvwGrid.RestoreLayoutFromXml(XMLPath) grvwGrid.RestoreLayoutFromXml(XMLPath)
grvwGrid.GuessAutoFilterRowValuesFromFilter() grvwGrid.GuessAutoFilterRowValuesFromFilter()
bsiInfo.Caption = "Grid-Layout loaded - " + Now.ToShortTimeString bsiInfo.Caption = "Grid-Layout loaded - " + Now.ToLongTimeString
End If End If
Catch ex As Exception Catch ex As Exception
@@ -264,11 +261,14 @@ Public Class frmDocRecordLink
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
If cmbConstructorForms.SelectedIndex <> -1 Then If cmbConstructorForms.SelectedIndex <> -1 Then
ENTITY_LOAD_ACTIVE = True ENTITY_LOAD_ACTIVE = True
Save_DocGrid_Layout() dgEntityRecords.DataSource = Nothing
grvwGrid.Columns.Clear()
Dim DT_RESULT = ReturnDataforEntity(entity.id) Dim DT_RESULT = ReturnDataforEntity(entity.id)
If Not IsNothing(DT_RESULT) Then If Not IsNothing(DT_RESULT) Then
CURRENT_LINK_ENTITY_ID = entity.id CURRENT_LINK_ENTITY_ID = entity.id
txtcurrSichtData.Text = entity.title txtcurrSichtData.Text = entity.title
DT_ENTITYDATA = DT_RESULT
Refresh_Grid_Data(False, DT_RESULT) Refresh_Grid_Data(False, DT_RESULT)
End If End If
Load_DocGrid_Layout() Load_DocGrid_Layout()
@@ -282,9 +282,10 @@ Public Class frmDocRecordLink
Dim ResultSQL, ResultViewName As String Dim ResultSQL, ResultViewName As String
LOGGER.Debug("GridType = Grid") LOGGER.Debug("GridType = Grid")
ResultViewName = $"VWPMO_ENTITY_TABLE{oEntityID}" ResultViewName = $"VWPMO_ENTITY_TABLE{oEntityID}"
bsitmSource.Caption = $"Source: " + ResultViewName
ResultSQL = $"SELECT T.* FROM {ResultViewName} T" ResultSQL = $"SELECT T.* FROM {ResultViewName} T"
LOGGER.Debug("ResultSQL: " & ResultSQL) LOGGER.Debug("ResultSQL: " & ResultSQL)
Return MYDB_ECM.GetDatatable(ResultSQL) Return MYDB_ECM.GetDatatable(ResultSQL)
End Function End Function
@@ -340,7 +341,8 @@ Public Class frmDocRecordLink
omsg = $"[{oLinkCount}] records successfully linked - {Now.ToShortTimeString}" omsg = $"[{oLinkCount}] records successfully linked - {Now.ToShortTimeString}"
End If End If
MsgBox(omsg, MsgBoxStyle.Information, "orgFLOW") MsgBox(omsg, MsgBoxStyle.Information, "orgFLOW")
Refresh_Grid_Data(True, Nothing)
Refresh_Grid_Data(False, DT_ENTITYDATA)
Load_DocGrid_Layout() Load_DocGrid_Layout()
grvwGrid.ClearSelection() grvwGrid.ClearSelection()
End Sub End Sub
@@ -370,7 +372,7 @@ Public Class frmDocRecordLink
End Sub End Sub
Private Sub grvwGrid_StyleChanged(sender As Object, e As EventArgs) Handles grvwGrid.ColumnPositionChanged, grvwGrid.ColumnWidthChanged Private Sub grvwGrid_StyleChanged(sender As Object, e As EventArgs) Handles grvwGrid.ColumnPositionChanged, grvwGrid.ColumnWidthChanged
If ENTITY_LOAD_ACTIVE = False Then If ENTITY_LOAD_ACTIVE = True Then
Save_DocGrid_Layout() Save_DocGrid_Layout()
End If End If
End Sub End Sub

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

@@ -46,10 +46,10 @@ Partial Class frmNodeNavigation
Me.tsitmDMSReadOnly = New DevExpress.XtraBars.BarStaticItem() Me.tsitmDMSReadOnly = New DevExpress.XtraBars.BarStaticItem()
Me.bsiNotification = New DevExpress.XtraBars.BarStaticItem() Me.bsiNotification = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroupRecord = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupDocResult = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RPGNodes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RPGNodes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupRecord = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupDocResult = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.SplitContainerTreeList = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerTreeList = New DevExpress.XtraEditors.SplitContainerControl()
@@ -173,7 +173,7 @@ Partial Class frmNodeNavigation
Me.ribbonNodeNavigation.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[True] Me.ribbonNodeNavigation.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[True]
Me.ribbonNodeNavigation.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False] Me.ribbonNodeNavigation.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
Me.ribbonNodeNavigation.ShowToolbarCustomizeItem = False Me.ribbonNodeNavigation.ShowToolbarCustomizeItem = False
Me.ribbonNodeNavigation.Size = New System.Drawing.Size(966, 158) Me.ribbonNodeNavigation.Size = New System.Drawing.Size(2215, 158)
Me.ribbonNodeNavigation.StatusBar = Me.RibbonStatusBar1 Me.ribbonNodeNavigation.StatusBar = Me.RibbonStatusBar1
Me.ribbonNodeNavigation.Toolbar.ShowCustomizeItem = False Me.ribbonNodeNavigation.Toolbar.ShowCustomizeItem = False
' '
@@ -321,31 +321,10 @@ Partial Class frmNodeNavigation
' '
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupRecord, Me.RibbonPageGroupDocResult, Me.RibbonPageGroup1, Me.RPGNodes}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RPGNodes, Me.RibbonPageGroupRecord, Me.RibbonPageGroupDocResult})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Node Navigation" Me.RibbonPage1.Text = "Node Navigation"
' '
'RibbonPageGroupRecord
'
Me.RibbonPageGroupRecord.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroupRecord.Enabled = False
Me.RibbonPageGroupRecord.ItemLinks.Add(Me.bbtnitmRecEdit)
Me.RibbonPageGroupRecord.ItemLinks.Add(Me.bbtnitmRecSave)
Me.RibbonPageGroupRecord.Name = "RibbonPageGroupRecord"
Me.RibbonPageGroupRecord.Text = "Formulardaten"
'
'RibbonPageGroupDocResult
'
Me.RibbonPageGroupDocResult.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.checkShowPreview)
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultExport)
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultLayoutSave)
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultLayoutReset)
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultRefresh)
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroupDocResult.Name = "RibbonPageGroupDocResult"
Me.RibbonPageGroupDocResult.Text = "Dateien"
'
'RibbonPageGroup1 'RibbonPageGroup1
' '
Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmReloadView) Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnitmReloadView)
@@ -360,6 +339,26 @@ Partial Class frmNodeNavigation
Me.RPGNodes.Name = "RPGNodes" Me.RPGNodes.Name = "RPGNodes"
Me.RPGNodes.Text = "Knoten" Me.RPGNodes.Text = "Knoten"
' '
'RibbonPageGroupRecord
'
Me.RibbonPageGroupRecord.AllowTextClipping = False
Me.RibbonPageGroupRecord.Enabled = False
Me.RibbonPageGroupRecord.ItemLinks.Add(Me.bbtnitmRecEdit)
Me.RibbonPageGroupRecord.ItemLinks.Add(Me.bbtnitmRecSave)
Me.RibbonPageGroupRecord.Name = "RibbonPageGroupRecord"
Me.RibbonPageGroupRecord.Text = "Formulardaten"
'
'RibbonPageGroupDocResult
'
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.checkShowPreview)
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultRefresh)
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultExport)
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultLayoutReset, True)
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.bbtnitmDocResultLayoutSave)
Me.RibbonPageGroupDocResult.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroupDocResult.Name = "RibbonPageGroupDocResult"
Me.RibbonPageGroupDocResult.Text = "Dateien"
'
'RibbonStatusBar1 'RibbonStatusBar1
' '
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo)
@@ -369,10 +368,10 @@ Partial Class frmNodeNavigation
Me.RibbonStatusBar1.ItemLinks.Add(Me.tsitmDMSReadOnly) Me.RibbonStatusBar1.ItemLinks.Add(Me.tsitmDMSReadOnly)
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemLocked) Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemLocked)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmtInfoDoc) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmtInfoDoc)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 788) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 1305)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.ribbonNodeNavigation Me.RibbonStatusBar1.Ribbon = Me.ribbonNodeNavigation
Me.RibbonStatusBar1.Size = New System.Drawing.Size(966, 22) Me.RibbonStatusBar1.Size = New System.Drawing.Size(2215, 22)
' '
'RibbonPage2 'RibbonPage2
' '
@@ -394,7 +393,7 @@ Partial Class frmNodeNavigation
' '
Me.SplitContainerTreeList.Panel2.Controls.Add(Me.SplitContainerDocumentSearch) Me.SplitContainerTreeList.Panel2.Controls.Add(Me.SplitContainerDocumentSearch)
Me.SplitContainerTreeList.Panel2.Text = "Panel2" Me.SplitContainerTreeList.Panel2.Text = "Panel2"
Me.SplitContainerTreeList.Size = New System.Drawing.Size(799, 630) Me.SplitContainerTreeList.Size = New System.Drawing.Size(799, 1147)
Me.SplitContainerTreeList.SplitterPosition = 229 Me.SplitContainerTreeList.SplitterPosition = 229
Me.SplitContainerTreeList.TabIndex = 2 Me.SplitContainerTreeList.TabIndex = 2
' '
@@ -419,7 +418,7 @@ Partial Class frmNodeNavigation
Me.TreeListDevexpress.OptionsFilter.ColumnFilterPopupMode = DevExpress.XtraTreeList.ColumnFilterPopupMode.Excel Me.TreeListDevexpress.OptionsFilter.ColumnFilterPopupMode = DevExpress.XtraTreeList.ColumnFilterPopupMode.Excel
Me.TreeListDevexpress.OptionsFilter.ExpandNodesOnFiltering = True Me.TreeListDevexpress.OptionsFilter.ExpandNodesOnFiltering = True
Me.TreeListDevexpress.OptionsFind.AlwaysVisible = True Me.TreeListDevexpress.OptionsFind.AlwaysVisible = True
Me.TreeListDevexpress.OptionsFind.FindDelay = 300 Me.TreeListDevexpress.OptionsFind.FindDelay = 600
Me.TreeListDevexpress.OptionsFind.FindFilterColumns = "NODE_CAPTION;NAVIGATION_PATH" Me.TreeListDevexpress.OptionsFind.FindFilterColumns = "NODE_CAPTION;NAVIGATION_PATH"
Me.TreeListDevexpress.OptionsFind.ShowCloseButton = False Me.TreeListDevexpress.OptionsFind.ShowCloseButton = False
Me.TreeListDevexpress.OptionsFind.ShowFindButton = False Me.TreeListDevexpress.OptionsFind.ShowFindButton = False
@@ -436,7 +435,7 @@ Partial Class frmNodeNavigation
Me.TreeListDevexpress.OptionsView.ShowVertLines = False Me.TreeListDevexpress.OptionsView.ShowVertLines = False
Me.TreeListDevexpress.OptionsView.TreeLineStyle = DevExpress.XtraTreeList.LineStyle.Dark Me.TreeListDevexpress.OptionsView.TreeLineStyle = DevExpress.XtraTreeList.LineStyle.Dark
Me.TreeListDevexpress.ParentFieldName = "PARENT_GUID" Me.TreeListDevexpress.ParentFieldName = "PARENT_GUID"
Me.TreeListDevexpress.Size = New System.Drawing.Size(229, 630) Me.TreeListDevexpress.Size = New System.Drawing.Size(229, 1147)
Me.TreeListDevexpress.StateImageList = Me.ImageCollection1 Me.TreeListDevexpress.StateImageList = Me.ImageCollection1
Me.TreeListDevexpress.TabIndex = 1 Me.TreeListDevexpress.TabIndex = 1
' '
@@ -460,7 +459,7 @@ Partial Class frmNodeNavigation
' '
Me.SplitContainerDocumentSearch.Panel2.Controls.Add(Me.GridControlDocSearch) Me.SplitContainerDocumentSearch.Panel2.Controls.Add(Me.GridControlDocSearch)
Me.SplitContainerDocumentSearch.Panel2.Text = "Panel2" Me.SplitContainerDocumentSearch.Panel2.Text = "Panel2"
Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(560, 630) Me.SplitContainerDocumentSearch.Size = New System.Drawing.Size(560, 1147)
Me.SplitContainerDocumentSearch.SplitterPosition = 246 Me.SplitContainerDocumentSearch.SplitterPosition = 246
Me.SplitContainerDocumentSearch.TabIndex = 1 Me.SplitContainerDocumentSearch.TabIndex = 1
' '
@@ -485,7 +484,7 @@ Partial Class frmNodeNavigation
Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 0) Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
Me.GridControlDocSearch.Name = "GridControlDocSearch" Me.GridControlDocSearch.Name = "GridControlDocSearch"
Me.GridControlDocSearch.Size = New System.Drawing.Size(560, 374) Me.GridControlDocSearch.Size = New System.Drawing.Size(560, 891)
Me.GridControlDocSearch.TabIndex = 8 Me.GridControlDocSearch.TabIndex = 8
Me.GridControlDocSearch.TabStop = False Me.GridControlDocSearch.TabStop = False
Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search}) Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search})
@@ -715,7 +714,7 @@ Partial Class frmNodeNavigation
' '
Me.SplitContainerDocView.Panel2.Controls.Add(Me.DocumentViewer) Me.SplitContainerDocView.Panel2.Controls.Add(Me.DocumentViewer)
Me.SplitContainerDocView.Panel2.Text = "Panel2" Me.SplitContainerDocView.Panel2.Text = "Panel2"
Me.SplitContainerDocView.Size = New System.Drawing.Size(966, 630) Me.SplitContainerDocView.Size = New System.Drawing.Size(2215, 1147)
Me.SplitContainerDocView.SplitterPosition = 799 Me.SplitContainerDocView.SplitterPosition = 799
Me.SplitContainerDocView.TabIndex = 0 Me.SplitContainerDocView.TabIndex = 0
' '
@@ -725,7 +724,7 @@ Partial Class frmNodeNavigation
Me.DocumentViewer.FileLoaded = False Me.DocumentViewer.FileLoaded = False
Me.DocumentViewer.Location = New System.Drawing.Point(0, 0) Me.DocumentViewer.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer.Name = "DocumentViewer" Me.DocumentViewer.Name = "DocumentViewer"
Me.DocumentViewer.Size = New System.Drawing.Size(157, 630) Me.DocumentViewer.Size = New System.Drawing.Size(1406, 1147)
Me.DocumentViewer.TabIndex = 0 Me.DocumentViewer.TabIndex = 0
' '
'XtraSaveFileDialog1 'XtraSaveFileDialog1
@@ -779,15 +778,15 @@ Partial Class frmNodeNavigation
Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top
Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) Me.barDockControlTop.Location = New System.Drawing.Point(0, 0)
Me.barDockControlTop.Manager = Me.BarManager1 Me.barDockControlTop.Manager = Me.BarManager1
Me.barDockControlTop.Size = New System.Drawing.Size(966, 0) Me.barDockControlTop.Size = New System.Drawing.Size(2215, 0)
' '
'barDockControlBottom 'barDockControlBottom
' '
Me.barDockControlBottom.CausesValidation = False Me.barDockControlBottom.CausesValidation = False
Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.barDockControlBottom.Location = New System.Drawing.Point(0, 810) Me.barDockControlBottom.Location = New System.Drawing.Point(0, 1327)
Me.barDockControlBottom.Manager = Me.BarManager1 Me.barDockControlBottom.Manager = Me.BarManager1
Me.barDockControlBottom.Size = New System.Drawing.Size(966, 0) Me.barDockControlBottom.Size = New System.Drawing.Size(2215, 0)
' '
'barDockControlLeft 'barDockControlLeft
' '
@@ -795,15 +794,15 @@ Partial Class frmNodeNavigation
Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left
Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0)
Me.barDockControlLeft.Manager = Me.BarManager1 Me.barDockControlLeft.Manager = Me.BarManager1
Me.barDockControlLeft.Size = New System.Drawing.Size(0, 810) Me.barDockControlLeft.Size = New System.Drawing.Size(0, 1327)
' '
'barDockControlRight 'barDockControlRight
' '
Me.barDockControlRight.CausesValidation = False Me.barDockControlRight.CausesValidation = False
Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right
Me.barDockControlRight.Location = New System.Drawing.Point(966, 0) Me.barDockControlRight.Location = New System.Drawing.Point(2215, 0)
Me.barDockControlRight.Manager = Me.BarManager1 Me.barDockControlRight.Manager = Me.BarManager1
Me.barDockControlRight.Size = New System.Drawing.Size(0, 810) Me.barDockControlRight.Size = New System.Drawing.Size(0, 1327)
' '
'BarButtonItem2 'BarButtonItem2
' '
@@ -1036,7 +1035,7 @@ Partial Class frmNodeNavigation
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(966, 810) Me.ClientSize = New System.Drawing.Size(2215, 1327)
Me.Controls.Add(Me.SplitContainerDocView) Me.Controls.Add(Me.SplitContainerDocView)
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.ribbonNodeNavigation) Me.Controls.Add(Me.ribbonNodeNavigation)

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

@@ -285,61 +285,62 @@
<data name="BarStaticItemLocked.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarStaticItemLocked.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACN0RVh0VGl0 iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACN0RVh0VGl0
bGUARWRpdFJhbmdlUGVybWlzc2lvbjtTZWN1cml0eTt7Gu0YAAAJT0lEQVRYR6WXCVBUVxaGMc4kLlED bGUARWRpdFJhbmdlUGVybWlzc2lvbjtTZWN1cml0eTt7Gu0YAAAJYklEQVRYR6WXCVTU1R7H/9V7vTYr
ZpZooo4kVDRu0Uyh4FZGpkYHF0oTcUFWZVFEAYNGQUT2FhSEiHtEAUWRKKKyC6iIsokCKovI2kBDQ6Mg sLdkmy/Kk6Vm2TskaHos3nn6MOVAhRoCggskoYihqagIDIugECSatqiooEiKpuwCJqBsLoDKIrIOMDAw
DfQ/57wGBEWTqTlVX73ud3n8/zn33XNvq/htnN8fA31N5/p4GWmXuK/XqnZdOyt235qZC+iq4m6gpeJt bDLAfN65fwbEhJbz7jnf8//P3Jnz+/x+997vvVcKWTZTGkYPBTu8F+RvZ1ruu9ikznvR1IRtC9+d5b1o
OFvl/wkAPbwpbENk+5jNy4sJ2obClFPIiHRHVKANRBY6nTv1puvT8wOID97BwHfAY/ycEO8zUH8r1An3 quRrYyIF2E6T/p8GDOqXgV1Dls3MD3KcURgfsZqS9O/IifUlLtyVwBVmfest3raWJOkBSZIeHEEPjSDR
I9xRlBSEgsRgnHc1RKCNLnwtdbBVd2rz/G9GfUL/4yNiUBeDiSHEUOLjLoZ1MbzryuN/JgQT7zIwkMC9 J/73mwBN5w95cinGl9LUCIpT9hPlbUu4qznBTmasMn+zbeYbY56WJOkvkiQ9otejkiQ9JknS45IkPaHX
S27wNJ6HX7YtQ+IZEQ7bLIGn0WzsWD4JJvM0cDXtGXYFZ2PHqUw4nMzETycyYH88A3ZH78H2SDq2EjaH KL2e1D9F/58HIEYCeChk2UwuHvfBz34GX6+eR8qBQHa5zsXPbhrr5k9gyYxxnMq8xYb9+az7LhePb3P5
72LLL2nYHHgHmwJuw9w3KZV02SBX450GVHzM5rYctNRR3D+3B5GBO2GjOw3mCydi/ZwvYfn9eKzT1kBb Yl8O7ntzWLPnIm67s1m1OxvXXVl8/nUmK8Mv8FnYzywPTs3QA4pqjAggBTm+17nTyUx36chmYsPX42o+
u4Ke+9/Cwu8WKalw5f70XgMikzn5ImMt+YuyW+ioz0Lj00jkRLkh5cRG2CydBrPFs/CitaMPzUxLB2TM meUfvM7i6a/g9P7LfGo6ju4eHX+0rQg5jyRJonJ/+lWAwCXTiwLtTbTtlefpbcqj5WYsBXE+pO9bhuuH
y3Y0Mi/kkBINzXKUVMlg7pfKBkYSPA3vNuCxXtv9gKmWoqPhEVpKYyB7Eg5JThAqU5xhNvcLuNlbkGj7 k3GcM5X2rt571CbU2YtGqKOHFqF2Lep2Lc1tWsprNSwPyRAAo/XDMDKAYrGp7w4HE11v8zU6K+LR3IhG
2+IkKmtpR5Mg3g4pCTc0t6FeJkcxGdh4MIUNfPq7BqwWT/n6qJWWTFaaCunDX1FP4jVp3iiI3AS7xRoI VRBBTfoWHN97AR/3FbR39dwfvKMHTWcPrXLwHtRtIng3TRotZbUalu1MFwDP/CaA85xJr+1xNtFoKjJQ
OhGGU/El8It6jAOXC+D7WwH2R+ZDdCkPXhcfwePCQ7iH58L1/AMSb4OEKKpqgtkBwcBfiA/fa4BiyFHL X/2epoII6jMDKI79jDVzxhGx7zDfJZUTEnedHSeKCf6xmO2xRQQeL8T/2DUUR6/iG30F76jLNGm6UWm6
GZFZEW6ove+H6lQXVCbtwKU9C+BvvxrVNQ2vMxeyp8wpa2XmVHYhc3mPeF3TKxRVNsHUN5kN/JUQDPSJ Ka1txXGHDPBXSZIe/lUAMVv3OE2JzYvxoeFSCHUZXtSkruP45lmEui+grr75buZy9j1y9v2Za/WZaweD
XuIfTNs2dsLireohR6xmIDPcAcVRlojz+Q+2/+szmLoYwD8yFv6XH8InMk+ZeQRlHkGZU/bu4Q+x71wO N7beobSmFYfgNAHwtwGAe9qQ4A9OXv3S+DmrjCJ3O08hN9qDsjgnEoP+y9p/P4uDlw2hsQmEnrhKUGxh
XMKy4RyShRppK9GCx+VSmOxPYgN/J942MP/gBJUJhqMHa3lp+C0PmtWxP8Eep6N2IcBuPlz1xmGv8Qx4 f+YxhfjHXENx7Bq+0VfZdqQAr8P5bInMo17dRb26k+tVapZsTxUA/xgWYObO8dJ42+ceNfEfFzI/Ymrv
nNyA7ReMsMB7KnaE2qK8qhZS2SvlS9edOWdMgtV1MlTUNOJ5tRSl1fV4UCSGoVccGxhNcP/oG2P//emH 9mR3fojbQNiamXhbjGWr/RQU3y5l7VE7ZgW8ybpDblTVNqDW3OmfdAOZi4zVndQ1aqiub+F2nZqKuiYu
c3y+TvRLccDjpjjkN0bjVtVhROTvwqE7hnBNWA6neF3sS1oLn1Rr2ISvg65oEULi82jOH8CN5vtQVB4u lyqx9U8UAM/p/ePe9tJ/nnl4etBrKSHpHlxvTaSo5TTna3cRU7SBry7Y4p08H88kc7alLiIowwXX6E8x
pBQhLC4X9j7hMHAIhJ6lBwxsRdjucRyrdp9jA+oE9wLuiq9Dy+OrnxyjTfFAcgUJlb6IKNmK8GJrnMw3 D5xNZFIhiqOX8Ym6zFdxhRxNL+Vw4hXcg6Kx8QjHwkmBjVsgaxV7+WTjEQFgpPcC4Yp3m4ni1S82nXbg
xcH7+tibrAv7GzqwujwfRhdmQz9EG0sCtKjsrqiRyFBP81wubsTxyFswdwlGeEw6HhZWoLRKgvTcQhw/ suokyTXBxJSvIrrMhW+LHNh5yZqtaea4nzXD+cRM7I5OwzrSlLlhJiiOeVOv0tDUeocqZQt7Y8+z3Gs/
H4NV1m7Q1jUJGDR0+GckydPAHVHZmrW9NYpmeX0JTQ91/NNtPL5zHYfpLuPw7d4xmOo8BlOcPsdkx9GY 0fHZXC2ppqJWRfaVEvZGxfOJiw+m5kvCHnn8yWf1wyAcsd+aTQPGlU71fwVjhRH/8nmZd7zH8rbXWN7a
tHsUvtk1CpMIvs7Z9x0ibj4WMncKuo7dAZeFkp++lAjzXf5YauYEI3sRXANCcSk2Dabb92Om7oZgkuT2 +iJvbnmRSZ7PM3HTc0zYOIY3Noxhwob+5/Rt7xBz7rqcuWfEGTaGnZBL/sPxFJZvCOVDR0/s3APxDjvE
3NOWObg7sSueH+7ZapdSCtEglUFc20hvvhRV4gZUiCUor65DGc1/WWUdfa+HWNKM5MxCbHA5i5JKCWy9 8YRMHNZu513zpfv19jxoy6IJdxJUYnyEZxseTy+hWa1B2dBCXb2aWmUz1UoVVXWNVNY2UFnTSLWyCaWq
zsLO9SgSb+eg+HkV4lMzscXJH4bbPBAUdg06ax0wUVtvWZeOcip61qMy+OYQ++P36Raoq8mFxvLmOud5 jbTcEpZ6HaS8RoWb/0HWeO8h5ecCym7XkpSRy+eeodiuVhBx+CfMFnnwuqnFPH2c/qEYXI/9TXz5mPve
dwnLQWjCU9j7XUF4bAYJ3MC2fUdQUS1BbX0zJNKXwhSVlouxzdkfOzyOwcrxEKYsNL5CGiMITnxAfwaG S7KFtnRoZWP55ToX4+51uIBDyTdxDzlJdEIOEYfPsnrbbqrrVDQ0taFSd8hDVFGlZPWWUNYpvsF501dM
2h27pzTQ9YbXC13tNbzGaxpaUCaWwnjPaTwuFUPPwh3Jd3OFqrF4fWOLcK2kSsUlp0PXcAdERy9gko55 +sD+pCRJT+kTf2A4gMfXfHOxH0A/w5tkV7srscbrmzupVKqx3/wD1yuUWKzwJS3rilw1EbyppVN+1iib
DWl0N6W3DPBu9bEt7Wwc3Y3Fs1eH47W+NyQbcVnluHqnCD/YH0ZlXRO0VmxH/tNneF5RQ8uUpqqyVvhc SEzLxtx2HYF7jjLBbHn9EFO6D0DsVk+47ekHGDAWvyEOJ9b61sh8EvOqOHWhlI/cd1HT2IqJ5VqKbt7i
WFKOjKxHmLdiMw6HRGPCQks5aXxBKKehPwNbg+4KBpT9nDJuUna1brjJVNQ2oTAjDsc9rXHAXg8H7Jbj dnU9VbWNVNY0yO8l5VXk5F1jhuVKdkWeZvwHTlpJkl4YHIbhAFZFZMkA/X7ejaq139UGJEymuqGVkpxE
WcBMFPtrotBPE099NfHYRxP5Ik088tKEx+bl8Ni0HM4blpSK9L8yIB3l7tiPgWE2QWmCge5yu53Ppcxp 9vq5sMPdgh1r5nMr7F3KQo0pCTHmZrAx14OMKQo05pq/MYqV81F8Np8tS+dWBFq/ajO4Ow4DMMo1IlMG
3kNzqMtlw/FMBqLvFqPk2PdoLbsDdLQA7S+JZkDeBLQ1Aq8aCAnQWgu0iIGXVUQFmvKikeY4Q0I6ys7Y GCi3T9QVth25jNehArZE5rPpQA6ns8oo/+Z9uiovQG8n9HRATxtoW6G7Be40wx0VdDVApxI6aqGjmtbC
j4HhfJjg6O7ntZx142sqJS9QVE4lDpxBoi+gkGRDUZ3y+9SmQ9H4BOk7p7Pg58RH/RkYwScZjjoqfS0J 02RumqIadMZhAJ4UhwnRBvy8QWTdclc1qnZKqxq4HT4FetrRqfLR1aX/thqy0bXcIHv92yLg8/LKGwbg
8hvvHJoNp7NZcDybiV2/3sPl1Cco8lYXslWUXetD/Pn90F+pS1fRW2OKumwkW6uzIL8Hg940wEtjBB+j KXGSEa2xtZuGljvyjN9yKB/Pg3lsOpjLhu8vciLjBqUBRnK2usqf7lFS1HasrcxJigq8r0/XmE+ai5EI
OFicMxY3tKK6F+W1zSh4JkbBHjUopE/Q+SgQiuLzPSxZtADqk7VgZGUHxfPonvv8d22Z3ogxVGXBMUS/ KObBI78EEEvjKXGMEk0EFxkrm7uoG6KqhjaKbykp3myITn2Dvmvh6MqiBjV39iyMJppg57wG3e3Tg9+L
Bj6x8u9rwEmY9yzsDs7Ez8EZcDiRjojkAuQ5koHaTMiv6qAj0QAddx3QmeONEF8LaC8xw/WocCjKY9BJ 33XnBhBvayACvjgSwNPOofcCeMrjnsfG/bl8uT8Hj33ZxKQVU7jJEF1DLtpTZvSm2NCb5UFfQQCRwSsw
99sTaDxKB20ptrhuoMaCY4l+Daha+t/qY+DNCpTVyJBfXI2HP5OBmjR0XF+EzmuL0SGwCGG7taDx7Tzc nevImbhodFXx9GV50JNsQ2+cGd3pbpyxMRQBXxoJwMAp9PyvVqCyXkNRWR1XvzREV59J75nZ9P00h15Z
CPdD521r4V7HdRoj2pK3IHqNUIFxRP8G+AzHIbx00lck2oKq+tYenotlyCuqxAMHVSjEKeiMXdYHqx+m szm80YRxb83gbHQIfT+7yN/1npkjqzvtc04vlCswdkQAcYYTTZ506jvUNXdS29Q1qNtKDYWlNVz2MECn
QX3KbHh67qPst6IzrmuMrm3J1ohaLVTgH0T/U7DxoNLAk/ImOlA0ooDIe/6a3OI63MkpQZY9GahKgCJx TKcvYd49cv5oMkaTpuHnt42+rFX0Jer7EufRneZC3AK5Av8cCeDpZTv7AW5UtXK9qoXiqhYKb9/VlbJG
JTqZhJVQEJMnqmPy7GVYYWwLRa4X3V9B4wSNyZOtcEVfMDCeGPymAaERGXnGJPExymT/TZiIbsJIlAhD LhSUk+dugK42GV2KFX1CyVbokq2Y+LoRE6fNw9LeDd0Vf/qSLelLsZT7tWnOnLSWAV6W7xTDrIIn7Pzi
70Ss90qAgUcC1rjGYOXuCGTYqgEVN6C4uZrQ77oSKUTRGaD0onDlMdD9zoQfIb9pid9+HPlOA7xF8lbJ U8Uxasn2cywJPIddYAq2ASks9k/GRpHMQu94rDbGkONmCNVn0Z1bgO6ctf65AF36AnSlB6DimPwUfZxb
v2b4GM3nuL8RvI+P6oJPNjx/k9KsVV82JLlAnroZ8pgVxEq0xRL8OZa/rxA+93yPX4PKM0txceXIl/Q8 QF/yx2jPOfHjx6NHBBBbpNgqxW1GHKPFOe7vkiSJfXyMXuJkI8ZvQqaLQUdzqhfajJVo4y3RxlvRnWBF
L8O3+gAHm+BKsBHeMLrh7bob7uMjA/SGGSdbqkpSLVWRvFEVSWaqiDdRRSwts5j1qri+Tg1X6YWLopJf t3hPEJ8t5ffBz0kLqTnwIcesRnfol+F9PjAAISohQMSGMSCxXQ9I+PjoMItR9mlOBqoMJwPSlhmQ6mhA
XqVGmauxuGyn1jALel55TO/HwB8JNsmm+HDBO1t3Zbi7cWa8xnmZcaX4ZeNyd8PjLM6/K19vRn+UrmAD 0hIDEmwNiF9swJlPDTm10IA4a0NOfGLIjx8biuCa9SajVgwe04cB+D1NQAoocbgQO9tAZYS7iczEGhfL
vSvVuzpM9w/X3vCPWIbH+Rna+lUG/Bex9uEqV0XDgQAAAABJRU5ErkJggg== TFRKTDZR7gGJfhFc3Cvvbka/V0MAhlZqaHWGXlyHSlxihUS/+I98Y/4fsfbhKkGZvosAAAAASUVORK5C
YII=
</value> </value>
</data> </data>
<data name="bsitmtInfoDoc.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="bsitmtInfoDoc.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAmdEVYdFRpdGxlAEZpbmQ7QmFycztSaWJib247U3Rh dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAmdEVYdFRpdGxlAEZpbmQ7QmFycztSaWJib247U3Rh
bmRhcmQ7U2VhcmNou2WcCAAAAZ5JREFUWEfFlsFtwlAQREkDOXCmgtRgiWJQ2gjimA5ypIUoNeSUE7VQ bmRhcmQ7U2VhcmNou2WcCAAAAYdJREFUWEfFlsttAkEQRHECPnAmAmIoiWCQ0zDi6Ax8JAXLMfjkE7EQ
gDODvKv53+vv7w/Chyet7JnZwdiGTd/3qxIefCY+dF0XsQMHcAYXcB3gzGM8R83Iq0tK+JAFvIB38Av6 wFqFplGrupvdgZX38KTRTFd17ezsZzUMw2pJwsR/cxsAyNgA2AM4ATgDuDQ45hzXWKO60KiiCvAC4A3A
Gaihlh7P0CUlfBDzFnyCaFkJeui9qwA/Rb78DxzBHnAB4cxjPKdaem9XQpeU8IEmwEupgV/gTQ0Kzw0a D4BhBNawlppZAqwBfCSNxqCG2qcC8Cq0+S+AA4Bda0A45hzXNMR1J7RRhQbgVnrDTwBbFTnNttV4DT1C
9TAj1Ef4ABNvJv3OGfyq4ghqBq35mLGLtBE+wMQ72kJ4aSc/eQ61g8f8h0gX4QNMfKws4KiiGugR/znS bYU342Hy95zGrypQWCMh6LHRugpvxBPtt728cqXthL8de62p8CZ8rMzgoIVjtDNh+pOuV3gDPttmsNPC
RPgAE59tC9irqAZ6xH+JNBE+wMQXjAVsVVQDPeK/RpoIH2iSgFUKrP4VrH4Trv4YPvRFBHhuEvNrEHnE MdrBNP1Z1yu8AV8wZrDWwjHa02H6i65XeIPFAyx+CxY/hIs/hrO+iOTjFsgCkDlexV/aLKMK8OzHyHjX
q/gb+KIpLEPDyL0/RsYHSBbmTBUgXJCXaKFYolSALP1D8pMdMyZLzBUwlvwlO4HqEqMCrWTB1SXMn4S1 hkoVgDz6OVbuhrgXgPT+kHwn83dDjAUwen7JjkmAMkQI8ChiPDmE6YNhL2o8NYTpg2EvSYBJIUwfDHtJ
kAeDqhLmT8Ja0FBhtoT5k7AWLDCgWML8SVgLDCswWcL8o8ClIGyOqMTJ/KPApSCsBi3B2f1JWAsMq4SL mk8KYfpg2EvSeFII0wfDXpKmShbiaPpg2EvSMMOH4PimD4a9JM0q2PjafNYAzxIm/ps/IprfeMS/OGEA
b8uJ+ZOwNQgPPo9+8w8imt94911hKQAAAABJRU5ErkJggg== AAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -469,60 +470,60 @@
<data name="tsitmDMSReadOnly.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsitmDMSReadOnly.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAB90RVh0VGl0 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAB90RVh0VGl0
bGUAUHJvdGVjdERvY3VtZW50O1NlY3VyaXR5O5yDpqEAAAKtSURBVDhPjZFbSJNxGMaXlqVmkiVURnZh bGUAUHJvdGVjdERvY3VtZW50O1NlY3VyaXR5O5yDpqEAAAKuSURBVDhPjZJbSJNxGMb/WVlpFllCZWQX
VCBIUSTkTWEkGImSRWQpQtZQtLFybqbuIjtIUZhhSTlnYt1JOF0rT3mcm87DLPSmMs2cm1PTedh0T//3 RgWCFEZC3hRGgqEoWUSaImQNRRsr52bqLrKDFIUZlpQ7JNadhNO18pTHz03nYRZ6U5lmm5vbTHdw0z3x
y31WFPTAD77T8zzv//0ETKvk5cY6+Ys+5JT3IrusF9ef9yCztAcyZTekJQZIig1If9YJ0eOWRva9BwCB /3RTVhe98Fx8f3h+7/s+70cIIetEtdoW0ZsRlNQOo7hmGLdfD6FQNgShdBACiQb8ag3yX/WD+7yrnRDi
C5IbGf9Hoic6cnixy98C3LNYK0lSrP2FdmSUEDpIlTqMTc4jtVBLjvUuM0FanVnaTX5M2RyYtNkxMWOH D4B4RMuPGv+nuC9U1BHgC1hfVLMM4Fcza9SLAgmVCgKpCtMWB3IrGerY6gvYUCgbZAGzVhcsVifM806Y
9bsdlqkFmJnRNDmH0Yk5JBe0ksPHZSa4AGlJF/mRodDySBQr7bJSHUassxDmt5Bjw+HYdEFotJgPWJOu fjthnF2AweKA3mKHzmxHdkU3dQT9BRBIBlhAgZjxii9e7S6UqTBlsoFT3kUd206m5JPoJJ4XsDFf3M8C
6OQCrNN2jE+z1uVmah21znHmrxYbku43ksM3NPqq4MBJER/gIX6q5wKk7Mw8XLMej6o+oFjTB1GuAmGn THNOzMwtwLDSmXbVmeys+afRiqzH7dSxPTrpJolK4HoB/ryXahYgkPSuiu2sxrOGL6hWjoBbKkbMBQGO
pTgYdaWamQP2R6bxAWtpuyTz1Dy3LBNr/jY+ixHGMGtOlhfhnvI1BkzzyC1SYV9kakNIRAof4JnGtkuS J95ojErghh6Lz/MCNtF0aRlmHWxYerMdv2ZsmJqxYdJoRbaoCo+k7zGmd6C0So6j8bltkXE5XsCWvEqG
KfUrsPaHlUaU1fQh7JQY9YaPOBSVBlXbAILDkxaYz5vhTgFeyQVtXACdmc47bJnFkNmG/sExGArPwpgb BQil6lXJ1Hhar0VN0whizvPQqvmKE4l5kPeMISI2a4EQEkgvSAEB2RU9LIDuTPedNNowYbBidHwamspL
gm55MDqy9qJdshut4iCohYHa5RCBtzC/mQv4c4I7L7Uw3ggBJt7DaemAc7QZzuE3WPpUgTrhDpp/IxeQ 0JZGYlAUgb6iI+jlH0I3LxwKThizAiGBnPLOf07w4C0D7Z1IwPwZbmMf3LpOuCc/YOlbHVo4++n8O1hA
9KCRC3A1D5pn8Nk0A0P/F3TlBLPldGCpJgbKM/5YVJ+AoyoCby8GUIAfBay7cFP9LvFuAxLy6hGfV4fz 1pN2FuDpPG6Yx3f9PDSjPzBQEgEY+rDUlAzpxRAsKs7B1RCHj1dDKSCYAjZfuav4lPmwDRllrUgva0Ha
t2sRd6sWsVkV0Mv2sOYmLGpOIvuoD2d2VB6DOmErH+DG8GT4MmgkeriJsZkRpL22C84hDRzVkXCojjNz /Wak3mtGSlEd1MLDcOs6sKhMQPHpINbsqj8DRcYeL8CPBknvuzISfdxJCNlFCAlnbh2Ee0IJV2M8XPKz
OOyvjqDqnP/PI7DJ/wmTt/ryzqb6lEDUXNoOTeI2VMdvgSrOH+Uxfk30/q9GF0z0m2jTrslc0D17LnD/ cNXHwvnuFBouhyyvsPa39BVdT3H9QEdrThiaru2DMnMvGtN3Q54agtrk4A42RF+TD4CeiSbtmcwj+s2e
AcNOfPqnudCoAAAAAElFTkSuQmCC 8Q/DTnz6iAlGhgAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="tsitmDMSReadOnly.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsitmDMSReadOnly.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAB90RVh0VGl0 iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAB90RVh0VGl0
bGUAUHJvdGVjdERvY3VtZW50O1NlY3VyaXR5O5yDpqEAAAghSURBVFhHrVdpUFRXFo7Z1BiXxsyS2WeY bGUAUHJvdGVjdERvY3VtZW50O1NlY3VyaXR5O5yDpqEAAAgESURBVFhHrZdpUFNZFsefvWm37ZI4W88+
SVVSMTUz+UGKpCpVM/GHUybBAqPJyLjhAoJGRMVBMIKCLIIQUEdNJihImhhUkF1AFoMo0GwNNIuA7A00 zcxU9dTYNTP9gS66q7pqpv1gl91igQqODC64gKAtouAgKKAgiyA0KKP2goAYtBFBdtlRQNkhQNiREAKE
3ayhgf7mnLc0PIck/Mip+qq57/Lu9517zj3nvicAWCHZAsKThKckPE14RsKzhIUSFklYTHiOsITwvISl kAQCJJD8p87LS0wwLXzoW/WvJDzePb9zz7nn3MsAYIzixgqGYV5hGOZVTq8xDPM6pzcYhlnJaRWnNxmG
EpZJvzzP7/PaSk7FQLQnT6hrck+otQggHE+oIVTjk/gq+MVXwjeuAkevVMAnVoMjseXw/m85Dn1eikOf eYthmNUMw7zNaQ2ntdwnPaf3aW6TPdamFYBXzgvaSs4LhAgRCBGU1oagtFacS21BYGozAlKacCa5Cf5J
leLgxQc4cPE+9l+4j4/P38O+c8XYe7YYrmfyC2ldFsgOKTkVA1HhU0z+Y9qeT+/y4isIvJtKTsVAEhCg jTid1AC/bxtw6ps6nPq6DievP8WJ609w/NoTfJlYg2NXq3H0SjXcL5dXcoDk0EsBiPBVMv5jjiNfPaLJ
rqEhMDI+9YMYZoxNYYgxOgkjY8SMQYJh2IyHXUNwEwWsJHAYlJyKgSjgad5yNiXZpPVvgVSGRDw0NgmT 13OruTRAiKCNfXF6dmFJTZFmFqAiqeehIE1rMTmthXxKiz6JCh4GgA1cGJYEeI2W/EWAeUuj5sbV81DN
QD6JQSI2DE9gYMiMZhKwO7KIF3+BMC8Bzxy/WkXDGQHnM5pxLqMJZ9MaEZPaiOhUHaJSdIgkRCTX4fSN zEPJGp/H5BQZ12BCpUWvRIXDsVU0+U+WC/B60K0WC4DE/F5cze/BldxuJOR0Iz5HhLhsEWKzRYjJ6sCl
WoRdr0VokhbBX9fg1FfVRD6BfkJTlwm7Igt58Z8QOImVnIqBJIATjk0WIGPGa/Z4ZttFz2nbBc/NVvI+ zHZE3WtHZIYQ4d+34eKdVkyoNJCpNOiRKHEotpIm/ymXxEsDUMK9uALmXpPHz5fd4LmW81xrMj6unEPP
07do6jRh55kCXvynhHkJeNYvrpKGMwJEzxvI8wbJ83pE3KxD+I26Gc+v1SCIPA9MrMIJdSWRiwIaSIBL sBIHL1fQ5D9bLsAbgSnNFgAGz7sQn9PFed6JmPsdiM7seO753TaE3WlFaHoLzguaMa40AHQNK+EWwwL8
hCDgZ7w2k8h8DOVAFLDQ9zEBDEW8Ja9ney54T14PECkT640T6DWOQ9dhwvbwfF785wRBgMJkcgYZF6CF fLkAKwMWAVgkG8Wb89rcc9Z7lQYTyjnW8JhCg1HFLERiJfZHl9PkvzACWIxFAFSAVvonN1kAmGKeJbL0
PnTO2WRya8yTKeazPf9ajHkQeR+YWI2ALyvgn6ChmlGOHsMYugZGUdc2iG1hebz4LwjzErDI57KG+UXP /HtDzMPutiE0vRUht5sQnNaIc6kNkMpnIJlQo2NwEvuiSmnyXy4XYJX/zUYTAHltiLnBc+M2U0wZRJ5T
yWsx5qLn8jEzkscM9pxjzl73GkbR0TeE9p5BtHQZ6AgOQNPQg83B2bz4r3ltJlGYTM4gEwRwhWMbkcgj zMnrUbka4nEVhqST6JfI0SeZQGOXFK7hRTT5b7jKuTQAVTgWgDMem9WJmKxOXOI8j+CynWJ+QdCM2Kw2
kynmhNOS5yFStnPMT1K8I5NrEJ/bgNh0DfaHqbHpUAzWuQbB2TMUXoGXsOHol7z4HwlcppljxmRyBhlP pJZ0ISmvEcejBNh9KgHb3MPg4h0Jn9Ab2HnmNk3+R65Mk42XArzp9109C2BeYJRqLZS0x7kCY9S4YhZD
Lvb+ooz5xZhbM90ME59xqcDI6KM4t3cbcSmpCLv8LyMxswTVjR1o7epHSVUjLqkzscHjJN5cuy160ZJl IwrcyKjCoeCbSC+oRWu3GAMSGWpbunFDUICdXhfw0ZZ98atWr32HCwPlGtsXrAG85fuNEcCw9BTzS/eE
L9L6HAbONcacAp47/LksQNx6jvnp61qEyDGXsv1UYqXguc/ZVByNvonW7gHEJuVil08U3nPxwxavUJyI iDDGnMv2i+nNrOf+V3JwJv4+BkYmkJRRgkP+cfjCLRB7fCJxPv4WMgqrsf9kFD7ccuAm16BMjckawGpq
voqkrGJsPxiGN9buuEzrc4OyNqa5BCzhxsJmPeMMKd7yOddTzLsp5ndKG7HDPw4PO/vhGRyH/QEXkFlQ LDRMe5xkzHQu5mPKOYzI1Sir68aB4BT0DcvgHZ6C4yHXUFBRj47eIeSWPIVnQCxcj4chMS0Xm/7ti/fs
hrrmdqTlPoC7byQ27w/C+YQ0rP7nYbxs7+BAHNwdxVDI5Awy7lbPe116wPxETIlG2/74Oee4+ydUIDa7 7O257mgIxSIA6lZv+9x4ygIo1Fq2tC7e5xT34LQmJBV1wjvmPtIL65CYlo9jQf9D39AoxKMKiEdVGJDI
Hp4RN5GYVUoEGdh3/D942N6Ljl4jYYjCYICWwuHhFwnvoItw8/0Ur72zNZk4lhO4MS2YUwC3VDb5jA8I IewWwyswFn5h1+ER8BXe/3RvFsMw67jGtMIqALVUFoDb4xNsXeeqm2LO4P2EGoMjcuw9m4TOASm2HQ5F
dV2qbkY64+w9HbG2bgO2HotFfWsP1u0ORM7dSrRR7Dv1JhJgQluPEfUtPbieWYS1m70ReuErvLp6Vy9x 8aNmDEpkGB5TQjyqxKBUgc5+Ke4VVGGLqx8ir93BXzcdGjUry1YB1nhfMwAYl5xqu7HC0V4PSm3Eg9oB
yGV5TgFLPamfs8lbzrVdrnB81o/Ha3CrpBVJ+Tqs9zqHzj4T7B0PoqK2GbqHXdC1dFMIOgXvy7TNyCkq ZJSLsN3nKobHlbBzOImm9l6I+iQQ9Y+go3eY9b5e2IviqgZ84uCJq6k5eO9Tdy23JQ1hsAKwlg4TNAwd
x9uO7jgXn4qX33E1EwcfSTEMMjmDjAUs48sEm9jRyHOprOrJe65u3QNjeETeNZRmIfDQFkR4rUPEAQe0 TQMZV1bHFHNsdRuZmMEzqQJddYUIPbUHMT7bEHPCHv3xH6I3zhbdsbboirZF5yVbtEfaoi3cFmGe9gg7
RL+B5ig7NEbaoSHcDvWn7VAbaoeaYDsEuTsgaI8DvF0cp0I3/smZeMT7gUzOkAQs33e+mPmt235SXUWe Yg8/N4eFSKc/uZjOB1YA1h1LrGYBjMt+QdCCkNvNCL7VhHOpjQhIrkNGZRd6r/8Ls88eAwszwLwamJ8C
U9yvVlCV08D3SimSChvQfPHvGH/0DTA1BkyOEoYBswmYMALfGgj9wLgeGOsBRrsIHTBpU1Hs+3o/8Yil tEpAowDm5MCcDJgdA2akgFoCqMVQCnNQHfCBzFSaFwFQYqyjYxQNY0ejmI8q5iCdnMWIfAbPxqYhGhzD
WSZnkHFiLOdrFJvc0TjmveR9zyB5TyX2kX4EujY92mJeJ9IRWPo1sHQX/DD0JbAYdSg58lcm+xVh4VwC YMIHwPw09LJG6EcqltZYLfQKEWpP/4OM/Zo9W1oBWO+Z8JgFoI5Gy04Zf+5WIwJTGhCQUg//755AUNqO
VrjHkFdk3NF42znjP7mqgV9cOd0Jy+DzxX2o82rRFGIreGt5lKbAbXUYNjqtpd/Q/5uz9GmQ72HLZGJp nggb1lv9s1wLPRREwclxCx4KIl94ph9vRLmXzfPSbAWAdyT+EQtgiPkcpHLyfBaSiRmIZTMYlE6ho1+K
lskZkgDVnui7zC/FnDw3sOfj1FzG0NE/Rtk9jDrK7rpjNrAM6jBdEwNLs9qKd9f8Dbar7LHF7QAsbanW jrN86CdF0LUlQN8rMOnzzf+EzUY77PE4Af1gjunv9H+a+ggUuPLI2G9/EMAjzgBAxkcnqeBQZ5vFsIwA
5/x/E2UhyNysYrLffKcAtyhRAJP3DnLB4c42jk4i7+gfRUu3CdqmLmh9SYC+DOZbqzGV64ype4cxXRGC 1OgfUULYI4EwgA/9WD20DzZhocQFCzW+0DVFIDX6MD763A152enQDxVAV+OL+WIXLGRvgqbCG3kufDL2
+PDdePNdF6SnJMLSnolpej6ZQ/MpqzFR4Il0Zxsm++13CVjhGlXE/NC1m1DfbkQdQdvGGIS2dRCVTX34 ux8CWO8eV8UCiIaU6BxSoGNIAeEgaRLCgUk094zjcVM/Wv/Lh360Ggt5m6HL/QwLrDYj7Ywd/vz3T5Cf
pqIF1f8mAb3FmEpfg+m0f2BKwBokHLXHS395GxmJkZi+6yE8m0qnOcJE/l6kfiTswO/mEiAUou2h2Xk7 HgvdIy/2bwt5n7HSlB9Fzi52BX5vDYAtRPsji0oPXq7EgegKuEWXY39UGfZGlmJPRClcw0vgElqEnWcz
zxRiR3gBXOgysT3sDraG5mFLSB611lw4B2Zjw7EbqDysgqWnANNZ7yvgtv7PsH3tLZw6FUDef4zpbGmO 0ezLg15aAV3hVgt5bP8bbN7/GBcvhkBX8yV0Rdyzoq3QlHsh25ldgT9YA2DPhNxtho7RdI6joxR1MTpQ
fifyPZDyobADv59LADcIbhT8NcPXaL7H8VWKuxhfKBi/JLD6VeVeJKArB5ZcJ0wzcpxgIax6xRar3nof kH7F0W9s8OFBLymGvsQROlKxI/TFjtj4Fxts/HgrHPZ6Q98SDl2xA3QlDuxzbbkHspxYgHfZW9UiACME
jls9YakKpueONE+gOXO+G5I3CgL+QFj8uAA2FsE7wUK4XMqQP8kY3NdfLPW0AToyYLnzIWGj9EsoIDRd rYTxKmaU8UpGor7+Tp03HxDnQ1/mDH2ZE/fpDH2FM/Q9ycDAXfaTnqHMGbriHdCWuSNzx4aXAixnUK7w
AVqvCb88B3o+nfMBzHdcceODld8rYD7GuWJzb69q2JDnD3OhO8yZjgQnTGQR+O8sHjsKf1vHtz9C55X3 a47ypuSlwdBWekJb4ABtgSM0hY7Q0PdC+u3Afjf9frgLw8lf4K7jBjW3DS3rwHLEDTZXvt6+ZneFO2+8
cM1p5Si9z8dQWQfmA8mEXPls/dJNBa6qvkJXFfJ3qpDnosLtbSpk0THL/JcK6ZtscIsSLoW2/OYGG/Lc 0p2H8oM8lLrx8HAfD4WuPBT8h4e83Xw82MVDthMf93fykbmDT8ZVp+3WHDZdVBYbWErcMM8VmsiYI5Qf
hsmHjtgv3U3vix8qc5F8HySbnSu8kJwjnB9c4dg7Pud81DhfOOF4yxk8x+/w/VDZjOYDyVjA7FyZnR8M VOHIO9rntNUoXyjhaMlJ9IzeofOhZTNajswAzHPFPD/Mr+7moms8iZ7TO3QgWfF/d9LPh1Zne6oAAAAA
+dN9NvgznsHz/A5dSJ5Y8D930s+Hgv+wEAAAAABJRU5ErkJggg== SUVORK5CYII=
</value> </value>
</data> </data>
<metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -542,133 +543,127 @@
<data name="tsmiFileProperties.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileProperties.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAANdJREFUOE+lk7ERwyAMRT2KR/AM9AxAl1GomMK9t/AKHoSCjlbRJ8DJseU4ie6+ vAAADrwBlbxySQAAAM5JREFUOE+lk80NhCAQhS1lS7AG7xTgbUvxRBXc7cIWLMQDt3edzXMZwiqDbpzk
Dwv+k4BjIKK/9PookXP2rMSiKoyRGzF/CeBF27qu5JwjY0zRPM8N8gBEBfCkh7kZoRCCNJdOrgBJVn43 EQJ53/wQOhHpnui7GAFgAhABSBL3PHvxvgkAsC7LIuM4yjAMu0IICnkTYgKYhWY1Ut770rxX0gLEMvPR
t05UQIxRq54wRo7HbL0JaJBmhlQAT0yYtNbuAFLYHro5AKq5t6kJB8zr9oeomWUnqFzNGzwdwInxzIx/ rJWYgG3brOyRe55xJrcBClFzEwCg56Vz7gRRsb1qC8mcy7TEAZ+GaJnLSpg5mVd6MoBvWjOn4ZXan08r
zkuV6ysVOSTAL8tyZoZhqusPsQPgbr8xIySgbAFdQHfMiA5AVAgeSn8sn6IDfhcNT8nYEsuIPk+EAAAA LgHTPM81Mw197vEQPwC+7T9mxqkFVkHdMTOOQySEHyV/lqvIgCf6AMnYEsuFQTeyAAAAAElFTkSuQmCC
AElFTkSuQmCC
</value> </value>
</data> </data>
<data name="tsmiFileOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAALRJREFUOE+lkcERhCAMRS1lS7CEHbrgTiGeKIsWthAO3rjGfCYiSNjB3T/zRwz5 vAAADrwBlbxySQAAAKZJREFUOE+lkssNwyAQRF1KSnAJEV1wp5CcKIsWUggH3+a61kRxsuxiC5KRRnzE
D6ILEf1ltfjE16JSSmll72yqjPdVWrKGAAjNCHnvyRhDeN4hKoAbNmksp48gHYA3PiEEstbmgOYa0gC4 vNUCi4gs/9htzPo7UQKwAtgAiDLXqz53CqAOSM5ZQgjC0UK6AAAPW/0M4gAAnqUUiTG+Aj1rSANgZYZt
sCGshWp/A+znyc45Aoxr8yPEGMspM2FoClC5CUMNAA2DEd7il+SK7oDuIwIgvaoaAMSB5jdirLwxUAeA wPoKsB2VU0pC2FQLtdZPlZHwMGD4GS9auL990+EewF0iATak1QAo+4xsy4a0HICyH6lJGDWAX+02Zr0D
cBM25n12g1+tFudNywGNDF/TgW96BAAAAABJRU5ErkJggg== jQxf0w+v3zQAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="tsmiFileFolderOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileFolderOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAALNJREFUOE9jIAS+fftmAMTvgfg/NgxVhh0AFYA1t7W1/XdycsLAKAbATETHIM3N vAAADrwBlbxySQAAALJJREFUOE9jYCAAvn37ZvDt27f33759+48No6tHATDNbW1t/52cnDAwigHoJsMw
zS3/P7z/iIKxGoBuAwgja4aJ4TUAppgQpp4BIAKGyTYAxCEWYzPgfH5+PoZCXPjokaMYBjQsX74cQyEu SHNzc8v/D+8/omCsBqDbAMLImmFieA1AtwkXpp4ByP4l2wB0f+PD2Aw4n5+fj6EQFz565CiGAQ3Lly/H
3NfXj2GAwZUrVzAU4sLJScmoBkBj4H1kZCSGYlz41s3bYBrZgPm4kis2vH7dejCNbEDCvn37MBQSwsgG UIgL9/X1YxhgcOXKFQyFuHByUjKqAdAYeB8ZGYmhGBe+dfM2hgHzcSVXbHj9uvUYBiTs27cPQyEhjGyA
CIA45GCG//8pwf8ZANa5gGyReLItAAAAAElFTkSuQmCC AHJ6IAUz/P9PGQYA1rmAbIddbfAAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="tsmiFileInWorkMultiple_Lock.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileInWorkMultiple_Lock.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAhlJREFUWEfFlTFuAjEURDkCR+EIiB6Jli4Fp+AAtIgT5CakpkpDDz1FOlpnZvK9 vAAADrwBlbxySQAAAalJREFUWEfFlTFuhDAQRfcIe5Q9wooeaVu6FJyCA9BGnCA3ITVVGvqlp0g3raOP
Mt8OtlG0GWkKZnf/m1283kkI4V9dDMd0MRzT5fBF3e/3d9p+ViWWhyt8QQYP5qYSYnm4wk4BuErgzSXE bDSMDR7AIl/6jXft/2zG45sx5vaf9gautjdwtb2BafCgiOgLluNrSgpgw421CiIZABG9WLgaIiXAG6FN
8nCFnQLsQujhcAi73a65hFgerrBDgMwIu16vYbFYyK0lxPJwhR0CYE7Q6XQaCrSWEMvDFTYKg6fwJyHH 05i6rtUQSQCI6IGwYRhMlmWTtRCpAJ4I6rpuBtBCnAYgojsR/SCkbdsFgAbiFAAP7/ve5HnuAcQgDgNo
4/GhQEsJsTxcYYMwcICfz+ewXC6zArUSYnm4woowqAkevd1uw+12y0qI5eEKTQbaw1rl3i3w6M1mk5UQ w52rqjLjOHoQUQAb9OmqXFoT7lyWpQexCWCr+1eGHglfg1gF4OEoLkyUC+0Nh9EntADfbqdHgpwxFxvA
y8MV/sC5ur/sgsw98GhfQiwPp3FwgHNx8UI/qBdOc59oLfBhJ70Eiua1vAG+otwn4kz4+V+AE7oWWcm8 FUWfYCe4/Qn2FlnImIO54tOhll6qIjwDIcKxBprVwwWrAKAjEIHw+yKVKQoAcQjZbqX3hEN7AObXToZy
htcaMJpraaX/GCIrgyuEcOLLJRycM7hZzTQ4kVgertCEi7pLFOBTG5dJLA9XmIgDbFC23Xr3wCmxPFxh 43aw770ZDmkB0Iiiu3d2AItFVhQFcC8d7m5RFHMITgJAoZpIBhA6ekAg2IWECjMlwOLoRRcDmHc7WA28
Ig6Bh69dCRzNt4PnmZ/CKbE8XGEiDOJGVL376FjALn8qsTxcoQmD9KXju7terwcInwQLldbEnxXAkOzR ZVhIMYAPLIaXjO/aguF0vCuKruf+I8NC2gSAHATb9ZMvwCGY8YZEbwAUBYAsxLTrxQ9WAgLhXsdbkwpA
swTBEVJamPGYhlQklocrhDDk4dG7XYzFsrcjWQMXDalILA9XCGHIG4fxS5beNcxifDrZK8pdj7/hvYZU IwuBB0wdDq0CXGlv4Gp7A1f7DxzBIDl5ceQKAAAAAElFTkSuQmCC
JJaHKzRhkEqYeddzOyTh91AiMb8h1TeAEsvDFSbCMJbQXVv0IOZwLEF4tuP9JrE8XGGnrAQ/YM1wSiwP
H9vFcEwXw/EcJt8cwSA5CJ+s6wAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="tsmiFileInWorkMultiple_Free.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileInWorkMultiple_Free.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAhlJREFUWEfFlTFuAjEURDkCR+EIiB6Jli4Fp+AAtIgT5CakpkpDDz1FOlpnZvK9 vAAADrwBlbxySQAAAalJREFUWEfFlTFuhDAQRfcIe5Q9wooeaVu6FJyCA9BGnCA3ITVVGvqlp0g3raOP
Mt8OtlG0GWkKZnf/m1283kkI4V9dDMd0MRzT5fBF3e/3d9p+ViWWhyt8QQYP5qYSYnm4wk4BuErgzSXE bDSMDR7AIl/6jXft/2zG45sx5vaf9gautjdwtb2BafCgiOgLluNrSgpgw421CiIZABG9WLgaIiXAG6FN
8nCFnQLsQujhcAi73a65hFgerrBDgMwIu16vYbFYyK0lxPJwhR0CYE7Q6XQaCrSWEMvDFTYKg6fwJyHH 05i6rtUQSQCI6IGwYRhMlmWTtRCpAJ4I6rpuBtBCnAYgojsR/SCkbdsFgAbiFAAP7/ve5HnuAcQgDgNo
4/GhQEsJsTxcYYMwcICfz+ewXC6zArUSYnm4woowqAkevd1uw+12y0qI5eEKTQbaw1rl3i3w6M1mk5UQ w52rqjLjOHoQUQAb9OmqXFoT7lyWpQexCWCr+1eGHglfg1gF4OEoLkyUC+0Nh9EntADfbqdHgpwxFxvA
y8MV/sC5ur/sgsw98GhfQiwPp3FwgHNx8UI/qBdOc59oLfBhJ70Eiua1vAG+otwn4kz4+V+AE7oWWcm8 FUWfYCe4/Qn2FlnImIO54tOhll6qIjwDIcKxBprVwwWrAKAjEIHw+yKVKQoAcQjZbqX3hEN7AObXToZy
htcaMJpraaX/GCIrgyuEcOLLJRycM7hZzTQ4kVgertCEi7pLFOBTG5dJLA9XmIgDbFC23Xr3wCmxPFxh 43aw770ZDmkB0Iiiu3d2AItFVhQFcC8d7m5RFHMITgJAoZpIBhA6ekAg2IWECjMlwOLoRRcDmHc7WA28
Ig6Bh69dCRzNt4PnmZ/CKbE8XGEiDOJGVL376FjALn8qsTxcoQmD9KXju7terwcInwQLldbEnxXAkOzR ZVhIMYAPLIaXjO/aguF0vCuKruf+I8NC2gSAHATb9ZMvwCGY8YZEbwAUBYAsxLTrxQ9WAgLhXsdbkwpA
swTBEVJamPGYhlQklocrhDDk4dG7XYzFsrcjWQMXDalILA9XCGHIG4fxS5beNcxifDrZK8pdj7/hvYZU IwuBB0wdDq0CXGlv4Gp7A1f7DxzBIDl5ceQKAAAAAElFTkSuQmCC
JJaHKzRhkEqYeddzOyTh91AiMb8h1TeAEsvDFSbCMJbQXVv0IOZwLEF4tuP9JrE8XGGnrAQ/YM1wSiwP
H9vFcEwXw/EcJt8cwSA5CJ+s6wAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="tsmiFileInWork.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileInWork.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAhlJREFUWEfFlTFuAjEURDkCR+EIiB6Jli4Fp+AAtIgT5CakpkpDDz1FOlpnZvK9 vAAADrwBlbxySQAAAalJREFUWEfFlTFuhDAQRfcIe5Q9wooeaVu6FJyCA9BGnCA3ITVVGvqlp0g3raOP
Mt8OtlG0GWkKZnf/m1283kkI4V9dDMd0MRzT5fBF3e/3d9p+ViWWhyt8QQYP5qYSYnm4wk4BuErgzSXE bDSMDR7AIl/6jXft/2zG45sx5vaf9gautjdwtb2BafCgiOgLluNrSgpgw421CiIZABG9WLgaIiXAG6FN
8nCFnQLsQujhcAi73a65hFgerrBDgMwIu16vYbFYyK0lxPJwhR0CYE7Q6XQaCrSWEMvDFTYKg6fwJyHH 05i6rtUQSQCI6IGwYRhMlmWTtRCpAJ4I6rpuBtBCnAYgojsR/SCkbdsFgAbiFAAP7/ve5HnuAcQgDgNo
4/GhQEsJsTxcYYMwcICfz+ewXC6zArUSYnm4woowqAkevd1uw+12y0qI5eEKTQbaw1rl3i3w6M1mk5UQ w52rqjLjOHoQUQAb9OmqXFoT7lyWpQexCWCr+1eGHglfg1gF4OEoLkyUC+0Nh9EntADfbqdHgpwxFxvA
y8MV/sC5ur/sgsw98GhfQiwPp3FwgHNx8UI/qBdOc59oLfBhJ70Eiua1vAG+otwn4kz4+V+AE7oWWcm8 FUWfYCe4/Qn2FlnImIO54tOhll6qIjwDIcKxBprVwwWrAKAjEIHw+yKVKQoAcQjZbqX3hEN7AObXToZy
htcaMJpraaX/GCIrgyuEcOLLJRycM7hZzTQ4kVgertCEi7pLFOBTG5dJLA9XmIgDbFC23Xr3wCmxPFxh 43aw770ZDmkB0Iiiu3d2AItFVhQFcC8d7m5RFHMITgJAoZpIBhA6ekAg2IWECjMlwOLoRRcDmHc7WA28
Ig6Bh69dCRzNt4PnmZ/CKbE8XGEiDOJGVL376FjALn8qsTxcoQmD9KXju7terwcInwQLldbEnxXAkOzR ZVhIMYAPLIaXjO/aguF0vCuKruf+I8NC2gSAHATb9ZMvwCGY8YZEbwAUBYAsxLTrxQ9WAgLhXsdbkwpA
swTBEVJamPGYhlQklocrhDDk4dG7XYzFsrcjWQMXDalILA9XCGHIG4fxS5beNcxifDrZK8pdj7/hvYZU IwuBB0wdDq0CXGlv4Gp7A1f7DxzBIDl5ceQKAAAAAElFTkSuQmCC
JJaHKzRhkEqYeddzOyTh91AiMb8h1TeAEsvDFSbCMJbQXVv0IOZwLEF4tuP9JrE8XGGnrAQ/YM1wSiwP
H9vFcEwXw/EcJt8cwSA5CJ+s6wAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="tsmiFileLink_Add.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileLink_Add.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAIGNIUk0AAHolAACAgwAA+f8AAIDpAAB1 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAIGNIUk0AAHolAACAgwAA+f8AAIDpAAB1
MAAA6mAAADqYAAAXb5JfxUYAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAFkSURBVDhPY/j//z9FGKsgKRir MAAA6mAAADqYAAAXb5JfxUYAAAAJcEhZcwAACwwAAAsMAT9AIsgAAAFwSURBVDhPY/j//z8DJRhDgFSM
ICkYqyApGKsgKRhMdMzZ4QvEC4H4cf3UjY9LO5cvTK+d5UtIDmwAUCJ04eZTz68/fPv/L1Dk4/f//7cf IUAqxhAgFWMIkIrBRMecHb4dc3Ys7Jiz43H91I2PSzuXL0yvneVLSA5sQMecHaELN596fv3h2/9/////
ufG/uG3R87zmhX245Dzi60NhBmy69+zT/8LmOYcEtXyv6LimX5m0/PCjRVsv/5+1/syv9QduAenTnyWN //H7///bj9z4X9y26Hle88I+XHIe8fWhMAM23Xv26X9h85xDglq+V3Rc069MWn740aKtl//PWn/m1/oD
Q66B5GonrD60cOPp/xZBRZtgBnwBMv5zq3ne13BM1pq3+dJZEP/7v///n338///K41//j1///J9fy7c3 t/7PWn/6s6RxyDWQXO2E1YcWbjz93yKoaBPMgC//////z63meV/DMVlr3uZLZ0H87//+/3/28f//K49/
LK9Xq2nG9vvHr73/r+mcAtLHwAD016bT1579z2+aewio4Er9tC1X+DR9fnOquP+HYV2XlGcwuSnLjxzq /T9+/fN/fi3f3rC8Xq2mGdvvH7/2/r+mcwpIHwND/dSNm05fe/Y/v2nuobC83iv107Zc4dP0+c2p4v4f
mLPzv4x5BMQFpV3LQ5umrn++csf5/yeuvf6/+/TT//VTN/+3DCp+7pPS3IdLDuhdSBiAiIj8Xl+PhPqF hnVdUp7B5KYsP3KoY87O/zLmERAXlHYtD22auv75yh3n/5+49vr/7tNP/9dP3fzfMqj4uU9Kcx8uOUEt
QH891nROfgw0faGgji84pPHJwQ2gBGMVJAVjFSQFYxUkHv9nAAD1UMkwC2hGngAAAABJRU5ErkJggg== X0gYgIiI/F5fj4T6hRZBRY81nZMfy5hHLBTU8QWHND45uAGUYAwBUjGGAKkYQ4BUDAD1UMkw9LweUAAA
AABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="tsmiFileLinkRemove.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileLinkRemove.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAH1SURBVDhPpY5BiFJhFIWN5wRNq3ZDEDGLhBZCuok2 dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIBSURBVDhPpZFPiBJxHMWNcYO2UzcJIvaQ4EFIL9HF
mjONC/UlunmuguiJpbYwq9EUSsFZCAYq6CoXrUTQVoXGGGhuIrKVhYs3gxQhRRo0jTaZp/+6eJU8COmH yd3Vg38SvYynIFIsZzqYtas5sCm4B8FABT3loZMI2mnDiTXQvERkJwsPs4sUIUUatKVt5ovvHmRj7CD9
Dy7nnnP+qwLwXyiKi6AoLoKiuAjyYDAYjnq93luJRGJQKBQQjUZ7fr//LGOFzRJptCMPef8q0Ov1h202 4MGX9/28xxd+KgCq/5HCWFQKY1EpjEU1G0wm0+lgMHgvmUwOisUiRFHsCYJwSRAEjSiKMnm0I4bYvwqM
WzKdTqPf70OSJDQaDcRisZ1IJNLsdrtj0lqtFshDXsrIBTqd7mIwGPzS6XQGLpfridVqnbjdbmQyGYTD RuNJh8ORymQy6Pf7kGUZjUYD8Xh8LxaLNbvd7pi8VqsFYoilzKzAYDBcDYfDXzudzsDr9T612+0Tv9+P
YdBMGu2KxWKPvJT584JkPB4fZbNZj91uXzYajV/r9Tra7TaazSbK5TJIox15yEsZuUCr1V7zeDzDXC53 bDaLaDQKmsmjXalU6hFLmeMXpBKJxCiXywVcLtcyy7Lf6vU62u02ms0mKpUKyKMdMcRSZlag1+tvBQKB
0+l01kwm04HZbIbD4ZhBM2m0Iw95KSMXnGaP5/m3qVRqWCqVPlcqFeTzeQQCAYRCodlc3fLimXDy5/ba YT6fv+vxeCSz2XxotVrhdruPRDN5tCOGWMrMCnQ6nc7pdL5Lp9PDcrn8pVqtolAoIBQKIRKJHM217SCe
Eh6Zlw8emo7clws0Gg3HTjxjsVh2RVHc8/l8I8Z3QRAuMdZzl83j18FzGD1OYfqmim/FG3jp006erquv c+d/764u4Yl1+fCx+dTDWYFWq2VYlr1os9n2fT7fAc/zI57nf3Icd43juLX8dev4TfgyRjtpTN/W8L10
zwr+Re0CJ+2zMDI8sHkM2FrFp+R5MH1HMTDP9pp6On1VYePvN7y7AtIVA/PUNrh3ew+uACw0vq3CgNG7 B694/eTZmvq24l/nSVpn5B87aSDrBDbPANsr+Jy6Ammd2VPA87S7qp5OX1dx/A23NCBfAc+TZGHeHzy6
yoHp7xUD8zwXjt97IZ768WFzFR/DS5DEQ6jz6kl1g7ujGFCiJZwIsR936Wy6iMIAVL8AJPOUchRWzukA AWxpMN5QYbChQu8mA8nCfFDA8/SCO/vgpe/Cr4+bK/gUXYLsO4G6Uz2pWZj7CvhfanHnIpKF2aez6SIK
AAAASUVORK5CYII= k/8HJPOUclZMYfYAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="tsmiFileLink_ShowAll.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileLink_ShowAll.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAKdSURBVDhPpZLfS1NhGMeD7uqi/0Lozr/AodmITTG9 dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAKeSURBVDhPpZLfS1NhGMeD7uqi/0LYXX+BQ1sSTll6
SK/yxjHQK1srRZEQRd0UczpdCBaSZg6dIY7mcbqzzenc3BbL6dGzXxrhj+VGBVIJ3573vRCqc9eBLzw8 0bzKG0XwXNlaKYqEKOrmOG2mWwgWkmYbOkMczeN0Z5tnzjO3xXLz6Nnm0Qh/LDcqkEr4xvteCNa56+KB
5/t+nh/vew3Af+mfxPb29stgMPjL7/fD4/FAEAQ4nU4sLCzAbre/+dt/FcRisVvhcNguyzKOjj5DTmUh h+/75fM87/d9rwG49j/1j7C1tfUqFov9jkQiCAaD4DgOPp8PCwsL8Hg8b//2XzapVOpWPB73yLKMw8Mv
y2kcMB2kkMudY2pqiqwKgGg0ei8UCn1Kp9M4PT1FcCuK9UAIPv8WRN8mRHEDe5KMiYkJsisA6DBOTk64 kPMKZLmAPVJ7eRSLZ5ienoYqIJlM3hNF8XOhUMDJyQlim0msCyLCkU3w4Q3wfBQ7kozJyUl1gCiKOD4+
stlD+Onw2JgNVusohodHMDRkQWL3ADabjewKgEAggHw+T4ezSCaT8LKq3k2siQGsrq1DcPuwk9gn0BDZ pqUoB4gIIpxOF8bGxjE6+gJ2uwOZ7B5cLpc6QBAElEolKIqCXC6HEJka2sAaL2B1bR1cIIztzC7sdrs6
FQBsWblcDplMhuZOwkMts6qDg4MYGBiAyWTCxx0JZrOZ7AoAtmkGYDuQpH2qGsDKqh/Cig8uQcR7lwfx gIRVLBaxv78PWc4hyEfpVJZlYbPZYLFY8GlbgtVqVQeQpAmAZCBJu1hdE7CyGgG3Eoaf4/HBH0Q6nUV/
+C66urrIrgBYWlrigFQqhb09ibe8LHjhWhbxevMVHry9jw8E6OjoILsCwOFw4OzsjM8ficRgHX2B3t4+ f786YGlpiQLy+Tx2diS68jIXgn+Zx5uN13jw7j4+prPo7e1VB3i9XpyentL7JxIpjI2/xNDQME3d/Owx
vnXjs8coM5dhYyOMtrY2nuvu7j5vbGw0lpSU3OSAmZkZfn2SJNG8Zr6s4+NjDhRFET09fbSP50gkEjzH qq3ViEbj6O7uptrAwMBZe3u7ubKy8iYFzM7O0ueTJAkWi5WGdXR0RIE8z2NwcBgs+xyZTIZq5JMRT11d
HhnzVFRUmDhgcnIShUIBs7OzaG1tRSQexyODkRmg0+lgsVh4nsVarfayrq7OySAGg6HAAePj48HFxUW0 nYUCpqamUC6X4Xa70dXVhUQ6jUcmMzGgtbUVDoeD6qTX6/UXTU1NPgIxmUxlCpiYmIgtLi6ip6eHrEcB
t7ez9jjA8c6F8vK7cLvdNFYEXq8Xc3NzUKlU36qqqm4wQGdn5wUHMNGVaevr67NNTU0cYHzylADlUKvV 3vd+6HR3EQgEkEgkEAqFMDc3B61W+91gMNwggL6+vvPLMFiW1Tc3NysMw1CA+clT6HQ61NTUoKGhgRbp
qK6u5mJxaWnpz5qaGhcD6PX6/BWA6TZ9RD/s7++/nJ6exvz8PL3IMTQ3N6OlpYXHLEejfqH3ka+srNz9 q6qqfjU2NvoJoK2trXQlUY1GozEYDAcjIyMXMzMzmJ+fh9PpREdHBzo7O2lPNLfb/dVms5Xq6+uzVwAV
A1BUVHSdWizWaDTphoaG79TNBelHbW3tQ9Idir+yHPvHPCqVqvg3IL7f2GaRecUAAAAASUVORK5CYII= FRXXtVrt7dra2kJLS8sPhmHOGYb5aTQaHxqNxjsMw3wjGjkjHuL9AyC+39jyjLzPAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="tsmiFileVersion.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileVersion.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAFFJREFUKFOdj0EKACAIBH2b/3+P16JwRTQzWphD0dhKIjI81GU9YuZNlE/YD17A vAAADrwBlbxySQAAAD5JREFUKFNj+Pbt239kzEAIgBQ5OTmBMbpmbBisAaYJmY0N49SAD2NoQHcyBsAw
gEgp3EiCNq0DAeh1nS/BL9VxXBoDIibg8EKqpE3reLsXiCYgi0Ps3hQ2TwAAAABJRU5ErkJggg== gRAgSwPtQ4lY01E00CyUACCLQ+x+SQerAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="tsmiFileRightsShow.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileRightsShow.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAIhJREFUOE+lkUEOABEMRZ3NXuImjsxiZjb2th01JUgzNCQP+dWXQAHAEWwogQ0l vAAADrwBlbxySQAAAIdJREFUOE+lkUsOgCAMBT0bexJuwpFloW7Yv21NkZpqjdpAMkAeZcJnIqJpBBN4
sKGEb/oZKSWb8RkgcG+xthTgwRgjOOdAa13APWZYawIys/TNvSTX/CCYD/UYY+C+nkLNsOdIEEIYBVXS MYEXE3g5upcGIAGYAVCH54nXPgVcWGulnDOFEBo854zXToGyG/RmLeGTXAT3Ik2MkdZla0jGe4YEpZSr
r8jWFejBWmNdM3uPWAUzlK+/8QQ2lMCGEthwH1AvkxW67ZxkSbQAAAAASUVORK5CYII= QCR6/H2F/mBPgn+PKII78hOf3ziCCbyYwIsJvOyTFbrtUYzbVAAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="tsmiFileDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsmiFileDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -718,29 +713,31 @@
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABQxJREFUWEfFlllMo1UU 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABWpJREFUWEfFll9MU1cc
x9siUBhoZQcHKCAlA2TYWnYoUHZoacu+BwhL2VogrLLvTciMcR4mMRGMxolL4jJPk8zLxJd5caLxASf6 x8+9d7RXpHSWYsssII4SxdhaW68t/V/wtlBqWwtSUBpq+FMol0KDWEZtqaCSNLpsD0uWDJctM/uT7I9P
MMZRY6JIIqNONJTr/35JSefr/RxIDJL8Avy/c+8599xzzveJCCH/K0zxImGKF8npH93d3eLd3d3Ivb29 Jr6Yvfgys2UPzmwPLnNblmyOZLrNbBHOcpqUwLktarKxh0/afH/fc+7v/s45v3sAhBD8n/CEzYYnbDar
3eXl5V8WFhYOV1ZW9ldXVydyc3MDnBedl+npaY+tra2g4eHhiKSkpJfc3Nx8HM9OjVpaWi4NDQ29Asf2 f8LhMLG4uFhz+fLlxXQ6/UsymVyanZ29nclk4kajsQIf+CxMTU0Jzp8/XxmNRqtVKtULFEWV5WOrpu7u
tbU1AsdkaWmJbG5ukt7e3g+Tk5PVWq1W4rA/C3AoHR0dTcI+q+Cb5ubmX5VK5R0EoHPYnBrX1dV5pqen 7q0jIyMvJZPJ5bNnz8JMJgNTqRQ8d+4c7O/v/1CtVuscDgeJT74R0WiU5jhOlUqlMqlU6ptgMPirUqm8
D42NjR3v7OwQGgQNYHFxkQvCarU+rq6ubs3IyHhuEHAqHh8fvzo7O2vDXkdzc3MkKyvrc7FY3C8Sibyd RlFUOy+BQCAgPHjw4Mj4+PjjbDYLURIogTNnzuSSiMVi99xudw/DME9MguM4YmJiYl8ikVjIZrMPpqen
bZ9ZKJVKI/M1mk+w8Nhms5Ht7W2yvr5ONjY2OCYnJw8KCwsHPT09T1PIZ2RkJBDBmhH8Q7q+vb39MDg4 oV6v/5wgiEEAQOla77qBNE3XmC2WTxKJxOOFhQV44cIFODc3B+fn53NMTk7et9lsw0KhcLWEOKOjo9JY
+FU4VrDsXQSZTK7QG00r/QPmB4jcTgOhGcA9kvn5eZoJolarb8jl8lD+Wpw8a2Bg4BZOT5B+euovJRJJ LBZJpVJ30PgTJ04sbd++/WUAQC3u5SWAKC8X13p8/tnBocit6enpZZQIqsDU1BScmZlBlYA6ne5VsVgs
C5yL+bYOmCJFb6xPqG9oslms1u9QlNyVTE1NkZmZGS6IvLy8DxQKRSS1nZiYkPb39/c1NjZ+1draSoxG x8dyHKcfGhq6MjExAaPRKHrrL0mS7AYAELi3aAJ5PL6Oxo7OroWxWOy7dDqdW5JTp07B06dP55IwmUwf
I4mKivoIjlX8ffkwRQd6Q527zmCqMJpM74yMjh7jCojZbCZdXV2kra2NFBUVvWcymbT4/1pZWdkfVVVV 1NbW1iBvPB6nBwcHB44dO/ZVT08P9Pl8cOfOnR8BALT4vDg8YV0S3kBJu9fv8vn974xy3OPJyUkYiURg
pLi42B4aGvo6nF9m7cmHKfLJzcsLLNRqNxDIE+q8oaGB1NbWkvr6ejsK87FGozlBACQnJ+eJv7//MtL+ X18fPH78OLTb7e/5/X5HX1/fRZZl/2hra4PNzc3Lcrn8dQDADny+QvCEQhhNJqnN4Zj3+f0P0cM7Ozvh
ImsfFkyRhSojwztWqTSr1ap9nJJUVFQQOCYqlYo6JmjThyjObpxcylovBFMUAvNAkp2dU5KamvotCowW 0aNHYUdHx7Lb7b5nsVhWWJaFTU1NDyUSSZokyefxOYrBE4qhZZjSeqUyotNpbzc3N0OXywUtFgvUarXo
IxdAZmYmCQ8P/xjIWev+DaYoBIaULybmDpw/pQFUVlYSeu80A5gPvyMYi6+vrztrrRBMkYXFYgmD87cK wVCtVt8RCoVhAACNj90InrAR/f39pMHQ1KLRaL7V6/VoM+YSOHToEFQoFB8rFAoxPuZJ8ISNSCaTonA4
Cgr+ys/PJzU1NbQTfkYWHtEgqJadnX2A9jydcmeBKfJBf0d2dnbehsMTvBdo8dEOOPTw8OjDdLuK+7+r nNXr9Y9QAq2trRCtO6oAwzC/a7XaMZFIVIKP2wieUIyxsbGqcDj8ltVq/ctsNsMjR46gk/CzTqe7i5JA
1+tPaE1g1j/AQItg7cOCKTqDHr/c09NzGxOQSzUcEVT8U6R6HQXHpRuBvAzHdwwGwwm9lsTExNfQCc+M msFguC8Wi1e73NPAEwrBcVxNKBS6ajKZVoxGI9p86AQsCQSCAYIg9qnV6usej2cF7QmVSnWLpulqfI5i
XCGYogOcXI6+f7e8vJwg9USn0xH8fRIUFPQGnF9ytsULJjotLe1uU1MTKSkp+Q1XYXB+LgRTpCDlUji/ 8ASceDy+4+TJk1dtNluu1B6PB7Is+0gkEs0BAHLlFggEL6pUqmter3cFLcvevXtfIUlyXcstBk9YC8dx
jlPZkW6u4Oi9R0dHfwrn4aw1CCIBdfAZHVLolHu4niCWnTNMkYJXb3dHR8eftOdLS0u51OOuf4STIpa9 4kgk8q7T6YRWqxW2t7dDp9O5UllZ+QYAYOtaL0VRdQcOHLje1dUFW1pafhOLxV58vkLwhDyhUIiORCKX
Ay8vrwIE+z29DgwlC8vGGaYYEhJyBYNmH5vQ0cqlnk469PmbLHs+gYGBQxjRf6M1v0AtMLPlgCnGxsbO vF7vst1uz204tO51dXWfAgAUuB9BUVSjwWD4DDUpjUZzgyCIStyDwxPyOByOcG9v75/ozB8+fDhXerVa
0kqnp6YTj/7GZj9FRERoWPZ84FQaFxf3Nr4xiJ+f3wDLxoGLgBZSoKfvoQa4txoNANdBEhISbsXExLjx /SNFUXbcu5YtW7ZYW1tbv0fLIZFIxvA4Dk9AyGSy3S6X67bX60WtNVd61OkUCsWbuLcQUql0xO/3/80w
7YXAPnEo2EeohfsISHBCughIXzU+nY76+voIPQFeNiQlJeVAJpOV8W2fB65yDFd3hFooYT2nuAhY1ILi zBckSRasVh6egKivr0+gnY7eGnU89MswzE/V1dUW3FsIkiTphoaGtwOBANy2bdsQHl8LT6BputZsNt8I
sw8ODhIEQtuOpvF9nELwK0gId3f3UAyu+/gOvM56TnERfHx8EHTZIc0AfeXGx8f/AOdVfLuzgB+Jt7d3 hUK5rxpKwOFwwMbGxiu7du2icH8xaJpucDqddzUazU2SJIt2SJ4glUrdwWDwwcDAAERv4Ha74f79+++X
c0BAwE28KWVMGxdBJPLFB8U8+vnrsLAwWsVWaGeaaiwwCzxAOPbwZD13EThRJHoBKMEVcK6323lhig7w l5ezuPdJyGSycZZlH0gkkhY8locnyGSy7t7e3uXh4WEYDAbRsUNlfJ8kyaK3oGKUlJTIjUbjTaVSeQmP
I/gx+V/BFC8SpniRMMWLg4j+AZFhAokn1Yy0AAAAAElFTkSuQmCC 5eEJZWVlLMuyS6gC6JO7Z8+eH0iSbMN9TwMAgCwtLQ1WVFS8JhQKy/F4zsMTABDJ5fIZg8HwdVVVFdrF
Mfwi+SwQBCEgCEIBABDiMQRPyIkAPAcAUAIAdufb7X8FT1gX3OAy+W/BEzYbnrDZ8ITN5h+RYQKJ3ylc
BwAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<metadata name="ContextMenuDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuDetails.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -752,10 +749,10 @@
<data name="DateiÖffnenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="DateiÖffnenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAALRJREFUOE+lkcERhCAMRS1lS7CEHbrgTiGeKIsWthAO3rjGfCYiSNjB3T/zRwz5 vAAADrwBlbxySQAAAKZJREFUOE+lkssNwyAQRF1KSnAJEV1wp5CcKIsWUggH3+a61kRxsuxiC5KRRnzE
D6ILEf1ltfjE16JSSmll72yqjPdVWrKGAAjNCHnvyRhDeN4hKoAbNmksp48gHYA3PiEEstbmgOYa0gC4 vNUCi4gs/9htzPo7UQKwAtgAiDLXqz53CqAOSM5ZQgjC0UK6AAAPW/0M4gAAnqUUiTG+Aj1rSANgZYZt
sCGshWp/A+znyc45Aoxr8yPEGMspM2FoClC5CUMNAA2DEd7il+SK7oDuIwIgvaoaAMSB5jdirLwxUAeA wPoKsB2VU0pC2FQLtdZPlZHwMGD4GS9auL990+EewF0iATak1QAo+4xsy4a0HICyH6lJGDWAX+02Zr0D
cBM25n12g1+tFudNywGNDF/TgW96BAAAAABJRU5ErkJggg== jQxf0w+v3zQAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<metadata name="TimerFileHandle.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerFileHandle.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -808,11 +805,10 @@
<data name="BarButtonItem2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAANdJREFUOE+lk7ERwyAMRT2KR/AM9AxAl1GomMK9t/AKHoSCjlbRJ8DJseU4ie6+ vAAADrwBlbxySQAAAM5JREFUOE+lk80NhCAQhS1lS7AG7xTgbUvxRBXc7cIWLMQDt3edzXMZwiqDbpzk
Dwv+k4BjIKK/9PookXP2rMSiKoyRGzF/CeBF27qu5JwjY0zRPM8N8gBEBfCkh7kZoRCCNJdOrgBJVn43 EQJ53/wQOhHpnui7GAFgAhABSBL3PHvxvgkAsC7LIuM4yjAMu0IICnkTYgKYhWY1Ut770rxX0gLEMvPR
t05UQIxRq54wRo7HbL0JaJBmhlQAT0yYtNbuAFLYHro5AKq5t6kJB8zr9oeomWUnqFzNGzwdwInxzIx/ rJWYgG3brOyRe55xJrcBClFzEwCg56Vz7gRRsb1qC8mcy7TEAZ+GaJnLSpg5mVd6MoBvWjOn4ZXan08r
zkuV6ysVOSTAL8tyZoZhqusPsQPgbr8xIySgbAFdQHfMiA5AVAgeSn8sn6IDfhcNT8nYEsuIPk+EAAAA LgHTPM81Mw197vEQPwC+7T9mxqkFVkHdMTOOQySEHyV/lqvIgCf6AMnYEsuFQTeyAAAAAElFTkSuQmCC
AElFTkSuQmCC
</value> </value>
</data> </data>
<data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -1097,10 +1093,10 @@
<data name="BarButtonItem15.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem15.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAALRJREFUOE+lkcERhCAMRS1lS7CEHbrgTiGeKIsWthAO3rjGfCYiSNjB3T/zRwz5 vAAADrwBlbxySQAAAKZJREFUOE+lkssNwyAQRF1KSnAJEV1wp5CcKIsWUggH3+a61kRxsuxiC5KRRnzE
D6ILEf1ltfjE16JSSmll72yqjPdVWrKGAAjNCHnvyRhDeN4hKoAbNmksp48gHYA3PiEEstbmgOYa0gC4 vNUCi4gs/9htzPo7UQKwAtgAiDLXqz53CqAOSM5ZQgjC0UK6AAAPW/0M4gAAnqUUiTG+Aj1rSANgZYZt
sCGshWp/A+znyc45Aoxr8yPEGMspM2FoClC5CUMNAA2DEd7il+SK7oDuIwIgvaoaAMSB5jdirLwxUAeA wPoKsB2VU0pC2FQLtdZPlZHwMGD4GS9auL990+EewF0iATak1QAo+4xsy4a0HICyH6lJGDWAX+02Zr0D
cBM25n12g1+tFudNywGNDF/TgW96BAAAAABJRU5ErkJggg== jQxf0w+v3zQAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<metadata name="PopupMenu2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PopupMenu2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

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

@@ -81,7 +81,7 @@ Public Class frmNodeNavigation
Private Property ChildNodeGuid As Integer = 0 Private Property ChildNodeGuid As Integer = 0
Private Property ClassNodeCommands As ClassNodeCommands Private Property ClassNodeCommands As ClassNodeCommands
Private Property ViewerInit As Boolean = False Private Property DocViewInitialized As Boolean = False
Private PA_NODE_GUID_STAMM As Integer = 0 Private PA_NODE_GUID_STAMM As Integer = 0
Private PA_NODE_CONFIG_USER_STAMM As Integer = 0 Private PA_NODE_CONFIG_USER_STAMM As Integer = 0
@@ -121,8 +121,7 @@ Public Class frmNodeNavigation
CONFIG.Config.TreeListSplitterWidth = SplitContainerTreeList.SplitterPosition CONFIG.Config.TreeListSplitterWidth = SplitContainerTreeList.SplitterPosition
CONFIG.Config.DocumentViewerSplitterWidth = SplitContainerDocView.SplitterPosition CONFIG.Config.DocumentViewerSplitterWidth = SplitContainerDocView.SplitterPosition
CONFIG.Config.DocumentSearchSplitterWidth = SplitContainerDocumentSearch.SplitterPosition CONFIG.Config.DocumentSearchSplitterWidth = SplitContainerDocumentSearch.SplitterPosition
CONFIG.Config.DocumentViewerShown = Not SplitContainerDocView.Collapsed CONFIG.Save()
Catch ex As Exception Catch ex As Exception
NNLogger.Error(ex) NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
@@ -142,7 +141,7 @@ Public Class frmNodeNavigation
If CONFIG.Config.DocumentSearchSplitterWidth > 0 Then If CONFIG.Config.DocumentSearchSplitterWidth > 0 Then
SplitContainerDocumentSearch.SplitterPosition = CONFIG.Config.DocumentSearchSplitterWidth SplitContainerDocumentSearch.SplitterPosition = CONFIG.Config.DocumentSearchSplitterWidth
End If End If
If ViewerInit Then If DocViewInitialized Then
SplitContainerDocView.Collapsed = Not CONFIG.Config.DocumentViewerShown SplitContainerDocView.Collapsed = Not CONFIG.Config.DocumentViewerShown
Else Else
SplitContainerDocView.Collapsed = True SplitContainerDocView.Collapsed = True
@@ -178,7 +177,7 @@ Public Class frmNodeNavigation
SplitContainerDocView.Collapsed = True SplitContainerDocView.Collapsed = True
DocumentViewer.Visible = False DocumentViewer.Visible = False
Else Else
ViewerInit = True DocViewInitialized = True
End If End If
Catch ex As Exception Catch ex As Exception
NNLogger.Warn($"Error while init DocumentViewer: {ex.Message}") NNLogger.Warn($"Error while init DocumentViewer: {ex.Message}")
@@ -367,6 +366,9 @@ Public Class frmNodeNavigation
Dim oParentNode = e.Node.ParentNode Dim oParentNode = e.Node.ParentNode
Dim oLoadRecordData As Boolean = True Dim oLoadRecordData As Boolean = True
NodeGroupEnable(True)
Record_Group_Enable(False)
If ENTITY_TYPE = "Personal file" And oNodeConfigId <> PA_NODE_CONFIG_USER_STAMM Then If ENTITY_TYPE = "Personal file" And oNodeConfigId <> PA_NODE_CONFIG_USER_STAMM Then
oLoadRecordData = False oLoadRecordData = False
End If End If
@@ -424,7 +426,7 @@ Public Class frmNodeNavigation
Await Show_Selected_Record_Data(CURRENT_RECORD_ID, oLoadRecordData) Await Show_Selected_Record_Data(CURRENT_RECORD_ID, oLoadRecordData)
Show_SelectedDoc(True) DocView_DisplaySelectedDoc(True)
ClassRightManagement.Check_Set_Rights(CURRENT_RECORD_ID, _EntityId) ClassRightManagement.Check_Set_Rights(CURRENT_RECORD_ID, _EntityId)
CONTROL_HANDLING() CONTROL_HANDLING()
@@ -434,7 +436,6 @@ Public Class frmNodeNavigation
bbtnitmRecSave.Enabled = False bbtnitmRecSave.Enabled = False
Else Else
bbtnitmRecEdit.Enabled = True bbtnitmRecEdit.Enabled = True
In_Visible_Record_Group(True)
End If End If
End If End If
@@ -444,8 +445,9 @@ Public Class frmNodeNavigation
bbtnitmRecSave.Enabled = False bbtnitmRecSave.Enabled = False
btnCreateNewNode.Enabled = False btnCreateNewNode.Enabled = False
Else Else
bbtnitmRecEdit.Enabled = True Record_Group_Enable(True)
In_Visible_Record_Group(True)
' btnCreateNewNode.Enabled = True ' btnCreateNewNode.Enabled = True
End If End If
@@ -591,8 +593,8 @@ Public Class frmNodeNavigation
bsiInfo.ItemAppearance.Normal.BackColor = Color.LightGray bsiInfo.ItemAppearance.Normal.BackColor = Color.LightGray
End Select End Select
End Sub End Sub
Public Sub Update_Notification_Label(visible As Boolean, pMessage As String, pColor As String) Public Async Sub Update_Notification_Label(visible As Boolean, pMessage As String, pColor As String)
bsiNotification.Caption = pMessage bsiNotification.Caption = pMessage + $" - {Now.ToLongTimeString}"
If visible = True Then If visible = True Then
bsiNotification.Visibility = DevExpress.XtraBars.BarItemVisibility.Always bsiNotification.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else Else
@@ -605,6 +607,8 @@ Public Class frmNodeNavigation
bsiNotification.ItemAppearance.Normal.BackColor = Color.Yellow bsiNotification.ItemAppearance.Normal.BackColor = Color.Yellow
Case "Blue" Case "Blue"
bsiNotification.ItemAppearance.Normal.BackColor = Color.LightBlue bsiNotification.ItemAppearance.Normal.BackColor = Color.LightBlue
Case "Lime"
bsiNotification.ItemAppearance.Normal.BackColor = Color.LimeGreen
Case Else Case Else
bsiNotification.ItemAppearance.Normal.BackColor = Color.Transparent bsiNotification.ItemAppearance.Normal.BackColor = Color.Transparent
End Select End Select
@@ -615,6 +619,7 @@ Public Class frmNodeNavigation
bsiDocID.Visibility = DevExpress.XtraBars.BarItemVisibility.Always bsiDocID.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else Else
bsiDocID.Visibility = DevExpress.XtraBars.BarItemVisibility.Never bsiDocID.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Exit Sub
End If End If
@@ -966,14 +971,14 @@ Public Class frmNodeNavigation
Dim oDocumentsFound = Await RUN_DOCSEARCH(True) Dim oDocumentsFound = Await RUN_DOCSEARCH(True)
If ViewerInit Then If DocViewInitialized Then
If oDocumentsFound = 0 Then If oDocumentsFound = 0 Then
Close_Document_Viewer() Close_Document_Viewer()
RibbonPageGroupDocResult.Enabled = False RibbonPageGroupDocResult.Enabled = False
SplitContainerDocView.Collapsed = True SplitContainerDocView.Collapsed = True
Else Else
RibbonPageGroupDocResult.Enabled = True RibbonPageGroupDocResult.Enabled = True
SplitContainerDocView.Collapsed = False SplitContainerDocView.Collapsed = Not CONFIG.Config.DocumentViewerShown
End If End If
End If End If
@@ -1199,7 +1204,6 @@ Public Class frmNodeNavigation
Private Sub TreeListDevexpress_ParseFindPanelText(sender As Object, e As ParseFindPanelTextEventArgs) Handles TreeListDevexpress.ParseFindPanelText Private Sub TreeListDevexpress_ParseFindPanelText(sender As Object, e As ParseFindPanelTextEventArgs) Handles TreeListDevexpress.ParseFindPanelText
' Exit if the search text is empty ' Exit if the search text is empty
If String.IsNullOrWhiteSpace(e.FindPanelText) Then If String.IsNullOrWhiteSpace(e.FindPanelText) Then
Return Return
End If End If
@@ -1331,21 +1335,35 @@ Public Class frmNodeNavigation
End Sub End Sub
Private Sub pnlControls_Enter(sender As Object, e As EventArgs) Handles pnlControls.Enter Private Sub pnlControls_Enter(sender As Object, e As EventArgs) Handles pnlControls.Enter
In_Visible_Record_Group(True) Record_Group_Enable(True)
NodeGroupEnable(False)
End Sub End Sub
Private Sub pnlControls_Leave(sender As Object, e As EventArgs) Handles pnlControls.Leave Private Sub pnlControls_Leave(sender As Object, e As EventArgs) Handles pnlControls.Leave
In_Visible_Record_Group(False) If RECORD_ENABLED = True Then
If TrySave_Automatic() = True Then
DisableEditMode()
End If
Else
Record_Group_Enable(False)
End If
End Sub End Sub
Private Sub GridControlDocSearch_MouseDown(sender As Object, e As MouseEventArgs) Handles GridControlDocSearch.MouseDown Private Sub GridControlDocSearch_MouseDown(sender As Object, e As MouseEventArgs) Handles GridControlDocSearch.MouseDown
In_Visible_Record_Group(False) Record_Group_Enable(False)
NodeGroupEnable(False)
End Sub End Sub
Sub Record_Group_Enable(oBool As Boolean)
Sub In_Visible_Record_Group(oBool As Boolean)
RibbonPageGroupRecord.Visible = oBool
RibbonPageGroupRecord.Enabled = oBool RibbonPageGroupRecord.Enabled = oBool
If oBool = True Then
bbtnitmRecSave.Enabled = False
End If
End Sub
Sub NodeGroupEnable(pBool As Boolean)
RPGNodes.Enabled = pBool
End Sub End Sub
Private Sub bbtnitmEditRec_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmRecEdit.ItemClick Private Sub bbtnitmEditRec_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmRecEdit.ItemClick
@@ -1756,6 +1774,7 @@ Public Class frmNodeNavigation
Finally Finally
sw.Done() sw.Done()
bsitmtInfoDoc.Visibility = DevExpress.XtraBars.BarItemVisibility.Never bsitmtInfoDoc.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Update_Notification_Label(False, "", "")
If pShowSplashscreen Then If pShowSplashscreen Then
SplashScreenManager.CloseOverlayForm(oHandle) SplashScreenManager.CloseOverlayForm(oHandle)
End If End If
@@ -1810,15 +1829,10 @@ Public Class frmNodeNavigation
End Sub End Sub
Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs) Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs)
Try Try
Dim oDocID = Focused_Row_GetDocID()
Dim oDocuments = Current_DocList.SelectedDocuments If oDocID = 0 Then
Dim docId As Integer = oDocuments.First.DocId
If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
Dim ComboBox As ComboBoxEdit = sender Dim ComboBox As ComboBoxEdit = sender
'Dim ItemComboBox As RepositoryItemComboBox 'Dim ItemComboBox As RepositoryItemComboBox
'ItemComboBox = sender 'ItemComboBox = sender
@@ -1829,11 +1843,20 @@ Public Class frmNodeNavigation
End If End If
Dim configId As Integer = item.ConfigID Dim configId As Integer = item.ConfigID
Dim mainView As GridView = GridControlDocSearch.MainView
Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails"))
Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
'Dim configid = detailRow.Item("CONFIG_ID")
Dim oHeader = detailRow.Item("HEADER_CAPTION")
Dim user As String = USER_USERNAME Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, SELECTED_NODE_RECORD_ID, configId, value, user) Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", oDocID, SELECTED_NODE_RECORD_ID, configId, value, user)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical) MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
RefreshDocValueinDatagrid(oDocID, oHeader, value)
End If End If
Catch ex As Exception Catch ex As Exception
@@ -1844,7 +1867,10 @@ Public Class frmNodeNavigation
Private Sub OnDateSelectedValueChanged(sender As Object, e As EventArgs) Private Sub OnDateSelectedValueChanged(sender As Object, e As EventArgs)
Try Try
Dim oDocuments = Current_DocList.SelectedDocuments Dim oDocID = Focused_Row_GetDocID()
If oDocID = 0 Then
Exit Sub
End If
Dim DatePicker As DateEdit = sender Dim DatePicker As DateEdit = sender
Dim value As DateTime = DatePicker.EditValue Dim value As DateTime = DatePicker.EditValue
@@ -1857,7 +1883,6 @@ Public Class frmNodeNavigation
NNLogger.Error(ex) NNLogger.Error(ex)
oldValue = Date.MinValue oldValue = Date.MinValue
End Try End Try
If Not validDate Then If Not validDate Then
oldValue = Date.MinValue oldValue = Date.MinValue
End If End If
@@ -1872,18 +1897,15 @@ Public Class frmNodeNavigation
Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails")) Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails"))
Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle) Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
Dim configid = detailRow.Item("CONFIG_ID") Dim configid = detailRow.Item("CONFIG_ID")
Dim oHeader = detailRow.Item("HEADER_CAPTION")
Dim docId As Integer = oDocuments.First.DocId
If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Dim user As String = USER_USERNAME
Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, SELECTED_NODE_RECORD_ID, configid, dateString, user) Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", oDocID, SELECTED_NODE_RECORD_ID, configid, dateString, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!") ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!")
Else
RefreshDocValueinDatagrid(oDocID, oHeader, value)
End If End If
Catch ex As Exception Catch ex As Exception
NNLogger.Error(ex) NNLogger.Error(ex)
@@ -1893,21 +1915,12 @@ Public Class frmNodeNavigation
Private Sub OnTextSelectedValueChanged(sender As Object, e As EventArgs) Private Sub OnTextSelectedValueChanged(sender As Object, e As EventArgs)
Try Try
Dim oDocuments = Current_DocList.SelectedDocuments Dim oDocID = Focused_Row_GetDocID()
If oDocuments.Count = 0 Then If oDocID = 0 Then
Exit Sub Exit Sub
End If End If
Dim TextBox As TextEdit = sender Dim TextBox As TextEdit = sender
Dim value = TextBox.EditValue Dim value = TextBox.EditValue
Try
Dim oDocID As Integer = oDocuments.First.DocId
Catch ex As Exception
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
Exit Sub
End If
'Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName 'Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
'Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle) 'Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
@@ -1916,24 +1929,14 @@ Public Class frmNodeNavigation
If Not IsNothing(mainView) Then If Not IsNothing(mainView) Then
Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails")) Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails"))
Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle) Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
Dim docId As Integer
Dim configid = detailRow.Item("CONFIG_ID") Dim configid = detailRow.Item("CONFIG_ID")
Try Dim oHeader = detailRow.Item("HEADER_CAPTION")
docId = oDocuments.First.DocId
If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Catch ex As Exception
NNLogger.Debug($"Error while gettin oDocuments.First.DocId - OnTextSelectedValueChanged: {ex.Message}")
Exit Sub
End Try
Dim user As String = USER_USERNAME Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", oDocID, SELECTED_NODE_RECORD_ID, configid, value, USER_USERNAME)
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, SELECTED_NODE_RECORD_ID, configid, value, user)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!") ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!")
Else
RefreshDocValueinDatagrid(oDocID, oHeader, value)
End If End If
End If End If
@@ -1946,7 +1949,10 @@ Public Class frmNodeNavigation
Private Sub OnCheckboxValueChanged(sender As Object, e As EventArgs) Private Sub OnCheckboxValueChanged(sender As Object, e As EventArgs)
'TODO Save Checkboxvalue 'TODO Save Checkboxvalue
Try Try
Dim oDocuments = Current_DocList.SelectedDocuments Dim oDocID = Focused_Row_GetDocID()
If oDocID = 0 Then
Exit Sub
End If
Dim CheckBox As CheckEdit = sender Dim CheckBox As CheckEdit = sender
Dim value As Boolean = CheckBox.EditValue Dim value As Boolean = CheckBox.EditValue
@@ -1955,17 +1961,14 @@ Public Class frmNodeNavigation
Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails")) Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails"))
Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle) Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
Dim configid = detailRow.Item("CONFIG_ID") Dim configid = detailRow.Item("CONFIG_ID")
Dim oHeader = detailRow.Item("HEADER_CAPTION")
Dim docId As Integer = oDocuments.First.DocId
If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, SELECTED_NODE_RECORD_ID, configid, value, user) Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", oDocID, SELECTED_NODE_RECORD_ID, configid, value, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!") ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!")
Else
RefreshDocValueinDatagrid(oDocID, oHeader, value)
End If End If
Catch ex As Exception Catch ex As Exception
NNLogger.Error(ex) NNLogger.Error(ex)
@@ -1976,49 +1979,65 @@ Public Class frmNodeNavigation
Private Sub GridViewDoc_Search_LayoutSave(sender As Object, e As EventArgs) Handles GridViewDoc_Search.ColumnFilterChanged, GridViewDoc_Search.ColumnWidthChanged, GridViewDoc_Search.ColumnPositionChanged Private Sub GridViewDoc_Search_LayoutSave(sender As Object, e As EventArgs) Handles GridViewDoc_Search.ColumnFilterChanged, GridViewDoc_Search.ColumnWidthChanged, GridViewDoc_Search.ColumnPositionChanged
Save_DocGrid_Layout() Save_DocGrid_Layout()
End Sub End Sub
Private Sub RefreshDocValueinDatagrid(pDocID As Integer, pHeader As String, pValue As String)
Try
Dim oDatatable As DataTable = TryCast(GridControlDocSearch.DataSource, DataTable)
For Each ORow As DataRow In oDatatable.Rows
If ORow.Item("DocID") = pDocID Then
ORow.Item(pHeader) = pValue
Update_Notification_Label(True, $"Document value {pHeader} saved", "Lime")
Exit For
End If
Next
Catch ex As Exception
Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged End Try
If FORM_SHOWN = True Then
Refresh_DocID()
End If
End Sub End Sub
Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
Refresh_DocID() Focused_Row_GetDocID()
End Sub End Sub
Private Function Focused_Row_GetDocID() As Int64
Private Sub GridViewDoc_Search_MasterRowExpanding(sender As Object, e As MasterRowCanExpandEventArgs) Handles GridViewDoc_Search.MasterRowExpanding Try
Refresh_DocID() If FORM_SHOWN = False Then
End Sub Return 0
End If
Update_DocID_Label(False)
Update_Notification_Label(False, "", "")
If GridViewDoc_Search.FocusedRowHandle >= 0 Then
Dim oDocID = GridViewDoc_Search.GetRowCellValue(GridViewDoc_Search.FocusedRowHandle, "DocID")
If Not IsNothing(oDocID) Then
Dim omsg = "Doc-ID: " & oDocID
Update_DocID_Label(True, omsg, EditState.Update)
If SELECTED_DOC_ID <> oDocID Then
SELECTED_DOC_ID = oDocID
DocView_DisplaySelectedDoc(False)
End If
Update_DocID_Label(True, omsg, EditState.Update)
Return SELECTED_DOC_ID
Else
Update_DocID_Label(True, "DocRow not selected", EditState.None)
Return 0
End If
Else
Return 0
End If
Catch ex As Exception
Return 0
End Try
End Function
Private Sub GridViewDoc_Search_MasterRowExpanded(sender As Object, e As CustomMasterRowEventArgs) Handles GridViewDoc_Search.MasterRowExpanded Private Sub GridViewDoc_Search_MasterRowExpanded(sender As Object, e As CustomMasterRowEventArgs) Handles GridViewDoc_Search.MasterRowExpanded
Refresh_DocID() Focused_Row_GetDocID()
End Sub End Sub
Sub Refresh_DocID()
Dim oDocuments = Current_DocList.SelectedDocuments
If Not IsNothing(oDocuments) Then
If oDocuments.Count <> 0 Then
Dim omsg = "Doc-ID: " & oDocuments.First.DocId
Update_DocID_Label(True, omsg, EditState.Update)
Else
Update_DocID_Label(True, "DocRow not selected", EditState.None)
End If
Else
Update_DocID_Label(False)
End If
End Sub
Sub Save_DocGrid_Layout() Sub Save_DocGrid_Layout()
Try Try
If FORM_LOADED And Node_AfterSelect = False Then If FORM_LOADED And Node_AfterSelect = False Then
Dim XMLPath = Get_DocGrid_Layout_Filename() Dim XMLPath = Get_DocGrid_Layout_Filename()
GridViewDoc_Search.SaveLayoutToXml(XMLPath) GridViewDoc_Search.SaveLayoutToXml(XMLPath)
Update_Notification_Label(True, "Grid Document - Layout Saved", "")
Update_Notification_Label(True, "Grid Layout Saved", "")
Else
Update_Notification_Label(True, "Could not store layout", "Yellow")
End If End If
Catch ex As Exception Catch ex As Exception
@@ -2090,7 +2109,7 @@ Public Class frmNodeNavigation
If WM_READ_ONLY = False Then If WM_READ_ONLY = False Then
ClassDragDrop.Drag_enter(e) ClassDragDrop.Drag_enter(e)
Else Else
Update_Notification_Label(True, "READ ONLY ACCESS", "") Update_Notification_Label(True, "READ ONLY ACCESS", "Yellow")
End If End If
Else Else
Update_Notification_Label(True, "No entity selected", "Yellow") Update_Notification_Label(True, "No entity selected", "Yellow")
@@ -2371,7 +2390,7 @@ Public Class frmNodeNavigation
INSERT_IN_ACTION = False INSERT_IN_ACTION = False
'Jetzt den Record nochmal laden 'Jetzt den Record nochmal laden
' Show_Selected_Record_Data(SELECTED_RECORD_ID) ' Show_Selected_Record_Data(SELECTED_RECORD_ID)
Update_Notification_Label(True, "Record saved - " & Now, "") Update_Notification_Label(True, "Record saved", "Lime")
Update_Record_Label(CURRENT_RECORD_ID) Update_Record_Label(CURRENT_RECORD_ID)
Catch ex As Exception Catch ex As Exception
@@ -2416,8 +2435,6 @@ Public Class frmNodeNavigation
mySelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search) mySelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
'Refresh_DocID()
If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
e.Cancel = True e.Cancel = True
Exit Sub Exit Sub
@@ -2582,8 +2599,11 @@ Public Class frmNodeNavigation
Dim allow_Open As Boolean = False Dim allow_Open As Boolean = False
Dim oDocuments = Current_DocList.SelectedDocuments Dim oDocuments = Current_DocList.SelectedDocuments
If oDocuments.Count = 0 Then If Not IsNothing(oDocuments) Then
Exit Sub If oDocuments.Count <> 1 Then
MsgBox("Sorry, but no document has been selected! Please select the docúment row again!", MsgBoxStyle.Exclamation)
Exit Sub
End If
End If End If
Dim Result = ClassDOC_SEARCH.Get_File_Rights(oDocuments.First.DocId) Dim Result = ClassDOC_SEARCH.Get_File_Rights(oDocuments.First.DocId)
@@ -3165,7 +3185,7 @@ Public Class frmNodeNavigation
Await ReloadTreeView() Await ReloadTreeView()
MyTreeListViewState.LoadState() MyTreeListViewState.LoadState()
TreeListDevexpress.FocusedNode = MyFocusedNode TreeListDevexpress.FocusedNode = MyFocusedNode
Update_Notification_Label(True, "Nodes reordered", "") Update_Notification_Label(True, "Nodes reordered", "Lime")
End If End If
Cursor = Cursors.Default Cursor = Cursors.Default
@@ -3189,40 +3209,55 @@ Public Class frmNodeNavigation
If FORM_LOADED = False Then If FORM_LOADED = False Then
Exit Sub Exit Sub
End If End If
If ViewerInit Then If DocViewInitialized Then
CONFIG.Config.DocumentViewerShown = checkShowPreview.Checked
CONFIG.Save()
SplitContainerDocView.Collapsed = Not checkShowPreview.Checked SplitContainerDocView.Collapsed = Not checkShowPreview.Checked
If checkShowPreview.Checked Then
DocView_DisplaySelectedDoc(False)
End If
Else Else
SplitContainerDocView.Collapsed = True SplitContainerDocView.Collapsed = True
End If End If
End Sub End Sub
Private Sub GridViewDoc_Search_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles GridViewDoc_Search.SelectionChanged Private Sub GridViewDoc_Search_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles GridViewDoc_Search.SelectionChanged
Show_SelectedDoc(False) DocView_DisplaySelectedDoc(False)
End Sub End Sub
Private Sub Show_SelectedDoc(AfterNodeChange As Boolean) Private Async Sub DocView_DisplaySelectedDoc(AfterNodeChange As Boolean)
Dim oSelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search, AfterNodeChange) Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
If Not IsNothing(oSelectedDocs) Then Try
If ViewerInit Then Dim oSelectedDoc = ClassDocGrid.GetSingleSelectedDocument(GridViewDoc_Search)
If oSelectedDocs.Count >= 1 Then If Not IsNothing(oSelectedDoc) Then
Refresh_DocID() If checkShowPreview.Checked Then
Close_Document_Viewer() If DocViewInitialized Then
If oSelectedDoc.Count = 1 Then
Close_Document_Viewer()
System.Threading.Thread.Sleep(400)
Dim oDocument As ClassDocGrid.clsWMDoc = oSelectedDoc.First()
Dim oPath = ClassHelper.FORMAT_WM_PATH(oDocument.DocPath)
System.Threading.Thread.Sleep(400) DocumentViewer.LoadFile(oPath)
Dim oDocument As ClassDocGrid.clsWMDoc = oSelectedDocs.First() Else
Dim oPath = ClassHelper.FORMAT_WM_PATH(oDocument.DocPath) NNLogger.Debug("Show_SelectedDoc - oSelectedDocs.Count not = 1 ")
Close_Document_Viewer()
DocumentViewer.LoadFile(oPath) End If
Else Else
NNLogger.Debug("Show_SelectedDoc - oSelectedDocs.Count not >= 1 ") NNLogger.Info("DocumentViewer not inited. No Show_SelectedDoc")
Close_Document_Viewer() End If
End If End If
Else Else
NNLogger.Info("DocumentViewer not inited. No Show_SelectedDoc") NNLogger.Debug("Show_SelectedDoc - oSelectedDocs is nothing")
End If End If
Else Catch ex As Exception
NNLogger.Debug("Show_SelectedDoc - oSelectedDocs is nothing") NNLogger.Error(ex)
End If Finally
SplashScreenManager.CloseOverlayForm(oHandle)
End Try
End Sub End Sub
@@ -3374,16 +3409,16 @@ Public Class frmNodeNavigation
If oDElWMFile = True Then If oDElWMFile = True Then
If WMMOD.RemoveFile(oDoc.DocPath) Then If WMMOD.RemoveFile(oDoc.DocPath) Then
Update_Notification_Label(True, Now.ToLongTimeString & " - File successfully deleted", "Yellow") Update_Notification_Label(True, "File successfully deleted", "Yellow")
ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "FILE DELETED BY USER") ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "FILE DELETED BY USER")
End If End If
Else Else
ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "FILE LINK DELETED BY USER") ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "FILE LINK DELETED BY USER")
Update_Notification_Label(True, Now.ToLongTimeString & " - File-links successfully deleted", "Yellow") Update_Notification_Label(True, "File-links successfully deleted", "Yellow")
End If End If
Else Else
Update_Notification_Label(True, Now.ToLongTimeString & " - Error deleting file - Check log", "Yellow") Update_Notification_Label(True, "Error deleting file - Check log", "Red")
End If End If
End If End If
@@ -3435,33 +3470,62 @@ Public Class frmNodeNavigation
_ActiveGrid = sender _ActiveGrid = sender
End Sub End Sub
Private Sub bbtnitmDocResultExport_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmDocResultExport.ItemClick Private Sub bbtnitmDocResultExport_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmDocResultExport.ItemClick
Dim oActiveGrid = GetActiveGridControl() 'Dim oActiveGrid = GetActiveGridControl()
'If oActiveGrid IsNot Nothing Then
' XtraSaveFileDialog1.FileName = DT_CONSTRUCT_VIEW.Rows(0).Item("FORM_TITLE")
' XtraSaveFileDialog1.DefaultExt = ".xlsx"
If oActiveGrid IsNot Nothing Then ' If XtraSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
XtraSaveFileDialog1.FileName = oActiveGrid.Name & ".xlsx" ' Dim oOptions As New XlsxExportOptions() With {
XtraSaveFileDialog1.DefaultExt = ".xlsx" ' .ExportMode = XlsxExportMode.SingleFile
' }
' oActiveGrid.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
' End If
'Else
' MessageBox.Show("Please Select a grid/table that you would Like To export.", Text, MessageBoxButtons.OK)
'End If
Dim saveFileDialogDocSearchResult As New SaveFileDialog With {
.Filter = "Excel File|*.xlsx",
.Title = "Export to Excel:"
}
saveFileDialogDocSearchResult.ShowDialog()
If XtraSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then If saveFileDialogDocSearchResult.FileName <> "" Then
Dim oOptions As New XlsxExportOptions() With { Dim oOptions As New XlsxExportOptionsEx With {
.ExportMode = XlsxExportMode.SingleFile .ShowGridLines = True,
} .AllowSortingAndFiltering = DevExpress.Utils.DefaultBoolean.True,
oActiveGrid.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions) .ExportType = DevExpress.Export.ExportType.DataAware,
.ExportMode = XlsxExportMode.SingleFile,
.AllowFixedColumnHeaderPanel = DevExpress.Utils.DefaultBoolean.True
}
Cursor = Cursors.WaitCursor
GridViewDoc_Search.ExportToXlsx(saveFileDialogDocSearchResult.FileName, oOptions)
Dim result As MsgBoxResult
Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("File was created. Do You want to open excel?")
End If
result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Process.Start(saveFileDialogDocSearchResult.FileName)
End If End If
Else
MessageBox.Show("Please Select a grid/table that you would Like To export.", Text, MessageBoxButtons.OK)
End If End If
End Sub End Sub
Private Async Sub KnotenLöschenadminToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KnotenLöschenadminToolStripMenuItem.Click Private Async Sub KnotenLöschenadminToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KnotenLöschenadminToolStripMenuItem.Click
If CURRENT_NODEID <> 0 Then If CURRENT_NODEID <> 0 And Not IsNothing(MyFocusedNode) Then
Dim result As DialogResult = MessageBox.Show("Wollen Sie fortfahren? Der Knoten wird In Folge mit den Unterknoten als gelöscht markiert!", "Bestätigung erforderlich", MessageBoxButtons.YesNo, MessageBoxIcon.Question) Dim result As DialogResult = MessageBox.Show("Wollen Sie fortfahren? Der Knoten wird In Folge mit den Unterknoten als gelöscht markiert!", "Bestätigung erforderlich", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = System.Windows.Forms.DialogResult.Yes Then If result = System.Windows.Forms.DialogResult.Yes Then
Dim oSQL = $"EXEC [dbo].[PRPMO_DELETE_NODE] {CURRENT_NODEID}, '{USER_USERNAME}', 1, 0" Dim oSQL = $"EXEC [dbo].[PRPMO_DELETE_NODE] {CURRENT_NODEID}, '{USER_USERNAME}', 1, 0"
If MYDB_ECM.ExecuteNonQuery(oSQL) = True Then If MYDB_ECM.ExecuteNonQuery(oSQL) = True Then
result = MessageBox.Show("Wollen Sie die Ansicht aktualisieren?", "Knoten wurde erfolgreich gelöscht!", MessageBoxButtons.YesNo, MessageBoxIcon.Question) TreeListDevexpress.DeleteNode(MyFocusedNode)
If result = System.Windows.Forms.DialogResult.Yes Then MsgBox("Knoten wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung")
Await ReloadTreeView() ' result = MessageBox.Show("Wollen Sie die Ansicht aktualisieren?", "Knoten wurde erfolgreich gelöscht!", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End If ' If result = System.Windows.Forms.DialogResult.Yes Then
'Await ReloadTreeView()
'End If
End If End If
End If End If