MS

app/DD-Record-Organizer/frmNodeNavigation.vb

@@ -63,7 +63,7 @@ Public Class frmNodeNavigation
     Private Property AvailableConfigNodes As New List(Of frmNewNode.NodeConfig)
     Private Property CurrentNodeConfigId As Integer = 0
 
-    Private Property DocList As ClassWindreamDocGrid
+    Private Property Current_DocList As ClassWindreamDocGrid
 
     Public CtrlBuilder As ClassControlBuilder
     Public CtrlCommandUI As ClassControlCommandsUI
@@ -91,7 +91,7 @@ Public Class frmNodeNavigation
         _EntityId = pEntityID
         oConstructID = pConstructID
 
-        DocList = New ClassWindreamDocGrid(GridViewDoc_Search)
+        Current_DocList = New ClassWindreamDocGrid(GridViewDoc_Search)
         WindowsEx = New WindowsEx(LOGCONFIG)
 
         ClassNodeCommands = New ClassNodeCommands(LOGCONFIG, MYDB_ECM)
@@ -222,7 +222,7 @@ Public Class frmNodeNavigation
                     Dim oNodeImage = ByteArrayToBitmap(bimage)
                     ImageCollection1.AddImage(oNodeImage, row.Item("GUID"))
                 Catch ex As Exception
-LOGGER.Error(ex)
+                    LOGGER.Error(ex)
                 End Try
             Next
 
@@ -548,7 +548,7 @@ LOGGER.Error(ex)
             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)
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Load_Adding_users")
         End Try
     End Sub
@@ -557,7 +557,7 @@ LOGGER.Error(ex)
             Dim oSql = String.Format("SELECT * FROM TBPMO_STRUCTURE_NODES_CONFIGURATION where TYPE_NODE = 1000 AND ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", oConstructID)
             NODE_CONFIGURABLE_NODES_DT = MYDB_ECM.GetDatatable(oSql)
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Load_Configurable_Nodes")
         End Try
@@ -804,12 +804,13 @@ LOGGER.Error(ex)
 
             If Not IsNothing(oTable) Then
                 If oTable.Rows.Count = 0 Then
+                    bsitmRecordID.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
                     Exit Sub
                 End If
 
                 Dim oRow As DataRow = oTable.Rows(0)
 
-                bsitmRecordID.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+                bsitmRecordID.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
 
                 Dim oAddedWho = oRow.Item(0)
                 Dim oAddedWhen = oRow.Item(1)
@@ -824,7 +825,8 @@ LOGGER.Error(ex)
 
                 'bsitmRecordID.Caption = String.Format("Record ({0}) - {1}", RecordId, CreateChangeString.ToString)
                 bsitmRecordID.Caption = String.Format("{0}", CreateChangeString.ToString)
-                bsitmRecordID.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+
+
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -1387,7 +1389,7 @@ LOGGER.Error(ex)
                 Return False
             End If
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             MessageBox.Show("Error in TrySave_User: " & vbNewLine & ex.Message)
             Return False
         End Try
@@ -1482,7 +1484,7 @@ LOGGER.Error(ex)
                 Return True
             End If
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             MessageBox.Show("Error in TrySave_Automatic: " & vbNewLine & ex.Message)
             Return False
         End Try
@@ -1501,7 +1503,7 @@ LOGGER.Error(ex)
                 Next
             End If
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Customer_Run_Procedures: ", ex.Message)
         End Try
     End Sub
@@ -1582,7 +1584,7 @@ LOGGER.Error(ex)
             End If
 
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Run WD-Search Database: ", ex.Message)
         Finally
             sw.Done()
@@ -1631,7 +1633,7 @@ LOGGER.Error(ex)
 
 
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error RUN_ENTITY_DOC_SEARCH", ex.Message, ex.StackTrace)
         End Try
         sw.Done()
@@ -1639,7 +1641,7 @@ LOGGER.Error(ex)
     Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs)
         Try
 
-            Dim oDocuments = DocList.SelectedDocuments
+            Dim oDocuments = Current_DocList.SelectedDocuments
 
             Dim docId As Integer = oDocuments.First.DocId
             If docId = 0 Then
@@ -1674,7 +1676,7 @@ LOGGER.Error(ex)
 
     Private Sub OnDateSelectedValueChanged(sender As Object, e As EventArgs)
         Try
-            Dim oDocuments = DocList.SelectedDocuments
+            Dim oDocuments = Current_DocList.SelectedDocuments
             Dim DatePicker As DateEdit = sender
             Dim value As DateTime = DatePicker.EditValue
 
@@ -1725,10 +1727,19 @@ LOGGER.Error(ex)
 
     Private Sub OnTextSelectedValueChanged(sender As Object, e As EventArgs)
         Try
-            Dim oDocuments = DocList.SelectedDocuments
+            Dim oDocuments = Current_DocList.SelectedDocuments
+            If oDocuments.Count = 0 Then
+                Exit Sub
+            End If
             Dim TextBox As TextEdit = sender
             Dim value = TextBox.EditValue
-            If value.ToUpper = "Not displayable in Group-Search".ToUpper Then
+            Try
+                Dim oDocID As Integer = oDocuments.First.DocId
+            Catch ex As Exception
+                LOGGER.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
 
@@ -1736,23 +1747,32 @@ LOGGER.Error(ex)
             'Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
             ' Config id über mainView -> detailView herausfinden
             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")
+            If Not IsNothing(mainView) Then
+                Dim detailView As GridView = mainView.GetDetailView(mainView.FocusedRowHandle, mainView.GetRelationIndex(mainView.FocusedRowHandle, "docIdDetails"))
+                Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
+                Dim docId As Integer
+                Dim configid = detailRow.Item("CONFIG_ID")
+                Try
+                    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
+                    LOGGER.Debug($"Error while gettin oDocuments.First.DocId - OnTextSelectedValueChanged: {ex.Message}")
+                    Exit Sub
+                End Try
 
-            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 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)
-            If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
-                ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!")
-            Else
-                ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
+                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
+                    ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!")
+                Else
+                    ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
+                End If
             End If
+
         Catch ex As Exception
             LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnTextSelectedValueChanged: ", ex.Message)
@@ -1762,7 +1782,7 @@ LOGGER.Error(ex)
     Private Sub OnCheckboxValueChanged(sender As Object, e As EventArgs)
         'TODO Save Checkboxvalue
         Try
-            Dim oDocuments = DocList.SelectedDocuments
+            Dim oDocuments = Current_DocList.SelectedDocuments
             Dim CheckBox As CheckEdit = sender
             Dim value As Boolean = CheckBox.EditValue
 
@@ -1796,11 +1816,9 @@ LOGGER.Error(ex)
     End Sub
 
     Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
-        'ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
         Refresh_DocID()
     End Sub
     Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
-        'ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
         Refresh_DocID()
     End Sub
 
@@ -1813,7 +1831,7 @@ LOGGER.Error(ex)
         Refresh_DocID()
     End Sub
     Sub Refresh_DocID()
-        Dim oDocuments = DocList.SelectedDocuments
+        Dim oDocuments = Current_DocList.SelectedDocuments
         If oDocuments.Count <> 0 Then
             Dim omsg = "Doc-ID: " & oDocuments.First.DocId
             Update_DocID_Label(True, omsg, EditState.Update)
@@ -1832,7 +1850,7 @@ LOGGER.Error(ex)
             End If
 
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
         End Try
     End Sub
@@ -1849,7 +1867,7 @@ LOGGER.Error(ex)
             End If
 
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
         End Try
     End Sub
@@ -1944,7 +1962,7 @@ LOGGER.Error(ex)
                         CURRENT_CONTROL_DOCTYPE_MATCH = ""
                         CURRENT_CONTROL_DOCTYPE_MATCH = ClassControlValues.GetControlValuesREC_CONTROL(CURRENT_RECORD_ID, CONTROL_DOCTYPE_MATCH)
                     Catch ex As Exception
-LOGGER.Error(ex)
+                        LOGGER.Error(ex)
                         CURRENT_CONTROL_DOCTYPE_MATCH = 0
                         CURRENT_CONTROL_DOCTYPE_MATCH = ""
                     End Try
@@ -2007,7 +2025,7 @@ LOGGER.Error(ex)
 
             End If
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             LOGGER.Warn("Unexpected Error in Drag_Drop: " & ex.Message)
             MsgBox("Unexpected Error in DragDrop - Please check the log for further information!", MsgBoxStyle.Exclamation)
         Finally
@@ -2083,7 +2101,7 @@ LOGGER.Error(ex)
             End If
 
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Check_Dropped_Files: ", ex.Message)
         End Try
 
@@ -2183,7 +2201,7 @@ LOGGER.Error(ex)
             Update_Record_Label(CURRENT_RECORD_ID)
 
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Saving Record", ex.Message, ex.StackTrace)
             Return False
         End Try
@@ -2242,6 +2260,8 @@ LOGGER.Error(ex)
                 File_in_Work()
                 If WM_READ_ONLY Then
                     ContextMenu_Read()
+                ElseIf WM_ADD_NO_DELETE Then
+                    ContextMenu_ADD()
                 Else
                     Dim oSelectedDocument = oSelectedDocs.First
                     Dim Result = ClassDOC_SEARCH.Get_File_Rights(oSelectedDocument.DocId)
@@ -2279,7 +2299,6 @@ LOGGER.Error(ex)
                     End If
                 End If
 
-
                 If oSelectedDocs.First.DisplayName <> "" Then
                     tsmiFileRenameDisplayname.Visible = True
                 Else
@@ -2290,7 +2309,7 @@ LOGGER.Error(ex)
             End If
 
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Opening DocContextMenu: ", ex.Message)
             e.Cancel = True
         Finally
@@ -2332,6 +2351,25 @@ LOGGER.Error(ex)
 
         tsmiFileDelete.Enabled = False
 
+    End Sub
+    Sub ContextMenu_ADD()
+        tsmiFileProperties.Enabled = True
+
+        tsmiFileOpen.Enabled = True
+        tsmiFileFolderOpen.Enabled = True
+
+        tsmiFileInWork.Enabled = True
+
+        tsmiFileLink_Add.Enabled = True
+        tsmiFileLink_ShowAll.Enabled = True
+        tsmiFileLinkRemove.Enabled = True
+
+        tsmiFileRename.Enabled = False
+        tsmiFileVersion.Enabled = False
+        tsmiFileRightsShow.Enabled = True
+
+        tsmiFileDelete.Enabled = False
+
     End Sub
     Sub ContextMenu_Write()
         tsmiFileProperties.Enabled = True
@@ -2354,8 +2392,8 @@ LOGGER.Error(ex)
     Sub Open_File()
         Me.Cursor = Cursors.WaitCursor
         Dim allow_Open As Boolean = False
-        'ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
-        Dim oDocuments = DocList.SelectedDocuments
+
+        Dim oDocuments = Current_DocList.SelectedDocuments
         Dim Result = ClassDOC_SEARCH.Get_File_Rights(oDocuments.First.DocId)
 
 
@@ -2409,7 +2447,7 @@ LOGGER.Error(ex)
             ' Use the Select method to find all rows matching the filter.
             'foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
 
-            Dim oDocuments = DocList.SelectedDocuments
+            Dim oDocuments = Current_DocList.SelectedDocuments
             If oDocuments.Count = 1 Then
                 Try
                     Dim oSQLDRList = $"Select COALESCE(IN_WORK_USER,'') IN_WORK_USER, COALESCE(IN_WORK_COMMENT,'') IN_WORK_COMMENT,IN_WORK FROM TBPMO_DOCRESULT_LIST where DocID = {oDocuments.First.DocId}"
@@ -2453,7 +2491,7 @@ LOGGER.Error(ex)
             End If
 
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             LOGGER.Warn("Unexpected Error in File-Work Info: " & ex.Message)
             tsmiFileInWork.Enabled = False
         End Try
@@ -2464,7 +2502,7 @@ LOGGER.Error(ex)
             MsgBox("Could not read File Parameters (3)!", MsgBoxStyle.Exclamation)
             Exit Sub
         End If
-        Dim oDocuments = DocList.SelectedDocuments
+        Dim oDocuments = Current_DocList.SelectedDocuments
         If oDocuments.Count = 1 Then
             ClassFileResult.DocID = oDocuments.First.DocId
             If INWORK_FILE = True Then ' Datei ist in Bearbeitung
@@ -2528,7 +2566,7 @@ LOGGER.Error(ex)
                 End If
             End If
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Unexpected Error in getting the Displayname: ", ex.Message)
         End Try
     End Sub
@@ -2539,7 +2577,7 @@ LOGGER.Error(ex)
             Try
                 RENAME_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
             Catch ex As Exception
-LOGGER.Error(ex)
+                LOGGER.Error(ex)
                 LOGGER.Warn("Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message)
                 RENAME_DOC_PATH = Nothing
             End Try
@@ -2563,7 +2601,7 @@ LOGGER.Error(ex)
                 End If
             End If
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             MsgBox("Unexpected Error in getting the filename: " & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
@@ -2598,24 +2636,19 @@ LOGGER.Error(ex)
 
     Private Sub tsmiFileLink_Add_Click(sender As Object, e As EventArgs) Handles tsmiFileLink_Add.Click
         Try
-            'ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
-            'If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
-            '    MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
-            '    Exit Sub
-            'End If
-            'ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
-            If ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
+            Dim oDocuments = Current_DocList.SelectedDocuments
+
+            If oDocuments.Count = 0 Or ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
                 MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
                 Exit Sub
             End If
             Refresh_Selected_Table()
 
-            Dim oDocuments = DocList.SelectedDocuments
             Dim oForm As New frmDocRecordLink With {.Documents = oDocuments}
             oForm.Show()
 
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             LOGGER.Error(ex)
             MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical)
         End Try
@@ -2657,12 +2690,12 @@ LOGGER.Error(ex)
             End If
             CURRENT_DOC_ID = GridViewDoc_Search.GetRowCellValue(GridViewDoc_Search.FocusedRowHandle, "DocID")
 
-            Dim oDocuments = DocList.SelectedDocuments
+            Dim oDocuments = Current_DocList.SelectedDocuments
             Dim oForm As New frmDoc_Links With {.Documents = oDocuments}
             oForm.Show()
             oForm.BringToFront()
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
             MsgBox("Unexpected Error in Showing DocLinks: " & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
@@ -2695,7 +2728,7 @@ LOGGER.Error(ex)
                 Next
 
             Catch ex As Exception
-LOGGER.Error(ex)
+                LOGGER.Error(ex)
                 ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Removing links from file:", ex.Message)
             End Try
         End If
@@ -2708,7 +2741,7 @@ LOGGER.Error(ex)
     End Sub
 
     Private Sub tsmiFileRightsShow_Click(sender As Object, e As EventArgs) Handles tsmiFileRightsShow.Click
-        Dim oDocuments = DocList.SelectedDocuments
+        Dim oDocuments = Current_DocList.SelectedDocuments
 
         Dim result = ClassDOC_SEARCH.Get_File_Rights(oDocuments.First.DocId)
         If Not IsNothing(result) Then
@@ -2742,7 +2775,7 @@ LOGGER.Error(ex)
                         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)
                     LOGGER.Error(ex)
                 End Try
             End If
@@ -3037,7 +3070,7 @@ LOGGER.Error(ex)
         End If
         Refresh_Selected_Table()
 
-        Dim oDocuments = DocList.SelectedDocuments
+        Dim oDocuments = Current_DocList.SelectedDocuments
         Dim oDocId As Integer = oDocuments.First.DocId
         If oDocId = 0 Then
             MsgBox("Sorry no document has been selected! Please try again!", MsgBoxStyle.Exclamation)