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

Personalakte

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

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

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