add logging

app/DD-Record-Organizer/frmNodeNavigation.vb

@@ -85,6 +85,9 @@ 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
 
@@ -102,6 +105,7 @@ Public Class frmNodeNavigation
             CONFIG.Config.DocumentSearchSplitterWidth = SplitContainerDocumentSearch.SplitterPosition
 
         Catch ex As Exception
+LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
         End Try
     End Sub
@@ -120,10 +124,13 @@ Public Class frmNodeNavigation
                 SplitContainerDocumentSearch.SplitterPosition = CONFIG.Config.DocumentSearchSplitterWidth
             End If
         Catch ex As Exception
+LOGGER.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")
+
         CONSTRUCTORID = CURRENT_CONSTRUCTOR_ID
 
         DT_VWPMO_CONSTRUCTOR_FORMS = ClassFormCommands.LoadConstructorForms(CURRENT_SCREEN_ID, oConstructID, USER_LANGUAGE)
@@ -168,6 +175,7 @@ Public Class frmNodeNavigation
 
             FORM_LOADED = True
         Catch ex As Exception
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 4")
         End Try
 
@@ -175,6 +183,8 @@ 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)
+
         Try
             Dim oTable = Await ClassNodeCommands.LoadNodes(CURRENT_ENTITY_ID)
             DT_STRUCTURE_NODES = oTable
@@ -207,6 +217,7 @@ Public Class frmNodeNavigation
                     Dim oNodeImage = ByteArrayToBitmap(bimage)
                     ImageCollection1.AddImage(oNodeImage, row.Item("GUID"))
                 Catch ex As Exception
+LOGGER.Error(ex)
                 End Try
             Next
 
@@ -532,6 +543,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)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Load_Adding_users")
         End Try
     End Sub
@@ -540,10 +552,13 @@ Public Class frmNodeNavigation
             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)
             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)
 
         Try
 
@@ -602,6 +617,7 @@ 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")
                         PWplainText = ""
                     End Try
@@ -612,6 +628,7 @@ Public Class frmNodeNavigation
             Load_Entity_Data_CONTROLS_RECORDS()
 
         Catch ex As Exception
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Load_Datafor_Entity: " & ex.StackTrace)
         End Try
 
@@ -659,6 +676,7 @@ Public Class frmNodeNavigation
             Try
                 ADD_RECORDS_CONSTR = oRow.Item("ADD_RECORDS")
             Catch ex As Exception
+                LOGGER.Error(ex)
                 ADD_RECORDS_CONSTR = True
             End Try
 
@@ -720,6 +738,7 @@ Public Class frmNodeNavigation
                 End While
                 CURRENT_DT_ENTITY_RECORDS = async.dt
             Catch ex As Exception
+                LOGGER.Error(ex)
                 ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Async EntitySQL", ex.Message, ex.StackTrace)
             End Try
 
@@ -743,6 +762,7 @@ 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)
                 End Try
 
@@ -759,6 +779,7 @@ Public Class frmNodeNavigation
             sw.Done()
 
         Catch ex As Exception
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Load_Entity_Data", ex.Message, ex.StackTrace)
         Finally
             'Me.Cursor = Cursors.Default
@@ -804,6 +825,7 @@ Public Class frmNodeNavigation
                 bsitmRecordID.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
             End If
         Catch ex As Exception
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
         End Try
 
@@ -849,6 +871,7 @@ Public Class frmNodeNavigation
             sw.Done()
 
         Catch ex As Exception
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in SelectedRecord_ShowData: ", ex.Message)
         Finally
             SplashScreenManager.CloseOverlayForm(oHandle)
@@ -923,6 +946,7 @@ Public Class frmNodeNavigation
             End If
             Return state
         Catch ex As Exception
+            LOGGER.Error(ex)
             Return state
         End Try
     End Function
@@ -991,6 +1015,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)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
         End Try
     End Sub
@@ -1007,6 +1032,7 @@ Public Class frmNodeNavigation
             End If
 
         Catch ex As Exception
+            LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
         End Try
     End Sub
@@ -1105,6 +1131,7 @@ Public Class frmNodeNavigation
 
 
     '    Catch ex As Exception
+    'LOGGER.Error(ex)
     '        ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error:", ex.Message & vbNewLine & ex.StackTrace)
     '    End Try
     'End Sub
@@ -1129,6 +1156,7 @@ Public Class frmNodeNavigation
             Try
                 CURRENT_DOCVIEW.CloseView(CURRENT_DOCVIEW_PATH, 0)
             Catch ex As Exception
+LOGGER.Error(ex)
 
             End Try
 
@@ -1356,6 +1384,7 @@ Public Class frmNodeNavigation
                 Return False
             End If
         Catch ex As Exception
+LOGGER.Error(ex)
             MessageBox.Show("Error in TrySave_User: " & vbNewLine & ex.Message)
             Return False
         End Try
@@ -1450,6 +1479,7 @@ Public Class frmNodeNavigation
                 Return True
             End If
         Catch ex As Exception
+LOGGER.Error(ex)
             MessageBox.Show("Error in TrySave_Automatic: " & vbNewLine & ex.Message)
             Return False
         End Try
@@ -1468,6 +1498,7 @@ Public Class frmNodeNavigation
                 Next
             End If
         Catch ex As Exception
+LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Customer_Run_Procedures: ", ex.Message)
         End Try
     End Sub
@@ -1548,6 +1579,7 @@ Public Class frmNodeNavigation
             End If
 
         Catch ex As Exception
+LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Run WD-Search Database: ", ex.Message)
         Finally
             sw.Done()
@@ -1597,6 +1629,7 @@ Public Class frmNodeNavigation
 
 
         Catch ex As Exception
+LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error RUN_ENTITY_DOC_SEARCH", ex.Message, ex.StackTrace)
         End Try
         sw.Done()
@@ -1629,6 +1662,7 @@ Public Class frmNodeNavigation
             End If
 
         Catch ex As Exception
+LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnCBSelectedValueChanged: ", ex.Message)
         End Try
     End Sub
@@ -1644,6 +1678,7 @@ Public Class frmNodeNavigation
             Try
                 validDate = Date.TryParse(DatePicker.OldEditValue, oldValue)
             Catch ex As Exception
+LOGGER.Error(ex)
                 oldValue = Date.MinValue
             End Try
 
@@ -1677,6 +1712,7 @@ Public Class frmNodeNavigation
                 ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
             End If
         Catch ex As Exception
+LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnDateSelectedValueChanged: ", ex.Message)
         End Try
     End Sub
@@ -1711,6 +1747,7 @@ Public Class frmNodeNavigation
                 ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
             End If
         Catch ex As Exception
+LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnTextSelectedValueChanged: ", ex.Message)
         End Try
     End Sub
@@ -1741,6 +1778,7 @@ Public Class frmNodeNavigation
                 ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
             End If
         Catch ex As Exception
+LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnCheckboxValueChanged: ", ex.Message)
         End Try
     End Sub
@@ -1787,6 +1825,7 @@ Public Class frmNodeNavigation
             End If
 
         Catch ex As Exception
+LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
         End Try
     End Sub
@@ -1803,6 +1842,7 @@ Public Class frmNodeNavigation
             End If
 
         Catch ex As Exception
+LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
         End Try
     End Sub
@@ -1893,6 +1933,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)
                         CURRENT_CONTROL_DOCTYPE_MATCH = 0
                         CURRENT_CONTROL_DOCTYPE_MATCH = ""
                     End Try
@@ -1955,6 +1996,7 @@ Public Class frmNodeNavigation
 
             End If
         Catch ex As Exception
+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
@@ -2030,6 +2072,7 @@ Public Class frmNodeNavigation
             End If
 
         Catch ex As Exception
+LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Check_Dropped_Files: ", ex.Message)
         End Try
 
@@ -2129,6 +2172,7 @@ Public Class frmNodeNavigation
             Update_Record_Label(CURRENT_RECORD_ID)
 
         Catch ex As Exception
+LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Saving Record", ex.Message, ex.StackTrace)
             Return False
         End Try
@@ -2230,6 +2274,7 @@ Public Class frmNodeNavigation
             End If
 
         Catch ex As Exception
+LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Opening DocContextMenu: ", ex.Message)
             e.Cancel = True
         Finally
@@ -2362,6 +2407,7 @@ Public Class frmNodeNavigation
                     End If
                 End If
             Catch ex As Exception
+LOGGER.Error(ex)
                 LOGGER.Error(ex)
                 IW_USER = ""
                 IW_COMMENT = ""
@@ -2389,6 +2435,7 @@ Public Class frmNodeNavigation
             End If
             tsmiFileInWork.Text = displ
         Catch ex As Exception
+LOGGER.Error(ex)
             LOGGER.Warn("Unexpected Error in File-Work Info: " & ex.Message)
             tsmiFileInWork.Enabled = False
         End Try
@@ -2459,6 +2506,7 @@ Public Class frmNodeNavigation
                 End If
             End If
         Catch ex As Exception
+LOGGER.Error(ex)
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Unexpected Error in getting the Displayname: ", ex.Message)
         End Try
     End Sub
@@ -2469,6 +2517,7 @@ 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)
                 RENAME_DOC_PATH = Nothing
             End Try
@@ -2492,6 +2541,7 @@ Public Class frmNodeNavigation
                 End If
             End If
         Catch ex As Exception
+LOGGER.Error(ex)
             MsgBox("Unexpected Error in getting the filename: " & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
@@ -2543,6 +2593,7 @@ Public Class frmNodeNavigation
             oForm.Show()
 
         Catch ex As Exception
+LOGGER.Error(ex)
             LOGGER.Error(ex)
             MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical)
         End Try
@@ -2589,6 +2640,7 @@ Public Class frmNodeNavigation
             oForm.Show()
             oForm.BringToFront()
         Catch ex As Exception
+LOGGER.Error(ex)
             MsgBox("Unexpected Error in Showing DocLinks: " & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
@@ -2621,6 +2673,7 @@ Public Class frmNodeNavigation
                 Next
 
             Catch ex As Exception
+LOGGER.Error(ex)
                 ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Removing links from file:", ex.Message)
             End Try
         End If
@@ -2665,6 +2718,7 @@ 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)
                 End Try
             End If
@@ -2809,6 +2863,7 @@ Public Class frmNodeNavigation
 
         '        End If
         '    Catch ex As Exception
+        ' LOGGER.Error(ex)
         '        LOGGER.Warn("Unexpected Error in RowStyle-Color Dropdown: " & ex.Message)
         '    End Try