diff --git a/app/DD-Record-Organizer/frmNodeNavigation.vb b/app/DD-Record-Organizer/frmNodeNavigation.vb index 40e9519..6205dd6 100644 --- a/app/DD-Record-Organizer/frmNodeNavigation.vb +++ b/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