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

add logging

Browse Source
This commit is contained in:
Jonathan Jenne
2023-09-28 15:47:11 +02:00
parent 2d614ab73d
commit 94b10c74b1
1 changed files with 55 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -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