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

MS V2.7 .Net Logger etc

Browse Source
This commit is contained in:
SchreiberM
2021-06-15 16:28:55 +02:00
parent e2619eb3ad
commit e796ae91cb
109 changed files with 295499 additions and 8793 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
app/DD-Record-Organizer/ClassNodeNavigation.vb
View File

@@ -32,7 +32,7 @@ Public Class ClassNodeNavigation
End Using
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CreateNodeProcedure: ")
ClassLogger.Add("Error in CreateNodeProcedure: " & ex.Message, True)
LOGGER.Warn("Error in CreateNodeProcedure: " & ex.Message)
Return 0
End Try
End Function
@@ -96,14 +96,14 @@ Public Class ClassNodeNavigation
Dim NODE_ID
Dim NODE_CONFIG_ID
Dim staticListItems = myTreeNode.Tag.Split("#")
If LogErrorsOnly = False Then ClassLogger.Add($"SUB CNCID.myTreeNode.Tag [{myTreeNode.Tag.ToString}]", False)
LOGGER.Debug($"SUB CNCID.myTreeNode.Tag [{myTreeNode.Tag.ToString}]", False)
If staticListItems(0).Contains("NODE-TYPE") Or staticListItems(0).Contains("CONFIG_NODE") Then
' NODE_ID = staticListItems(0).ToString.Replace("NODE-TYPE-", "")
NODE_ID = Return_NODEID_forTag(myTreeNode.Tag)
NODE_CONFIG_ID = Return_NODE_CONFIG_ID_forTag(myTreeNode.Tag)
If LogErrorsOnly = False Then ClassLogger.Add($"SUB CNCID.Checking nodeconfig on NODE_ID [{NODE_ID.ToString}] and NODE_CONFIG_ID [{NODE_CONFIG_ID.ToString}]", False)
LOGGER.Debug($"SUB CNCID.Checking nodeconfig on NODE_ID [{NODE_ID.ToString}] and NODE_CONFIG_ID [{NODE_CONFIG_ID.ToString}]", False)
Else
If LogErrorsOnly = False Then ClassLogger.Add($"Attention no NODE-TYPE in staticListItems(0) [{staticListItems(0).ToString}]", False)
LOGGER.Debug($"Attention no NODE-TYPE in staticListItems(0) [{staticListItems(0).ToString}]", False)
End If
If NODE_CONFIGURABLE_NODES_DT.Rows.Count > 0 And IsNumeric(NODE_ID) Then
'Prüfen ob es für dieses Level einen konfigurierbaren Knoten gibt
@@ -127,25 +127,25 @@ Public Class ClassNodeNavigation
If Not IsNothing(ID) Then
If LogErrorsOnly = False Then ClassLogger.Add($"SUB CNCID.We have a NODE_CONFIGURABLE_ID [{ID.ToString}]!!", False)
LOGGER.Debug($"SUB CNCID.We have a NODE_CONFIGURABLE_ID [{ID.ToString}]!!", False)
ClassNodeNavigation.NODE_CONFIGURABLE_ID = ID
CURRENT_NODE_CONFIGURABLE_ID = ID
Else
If LogErrorsOnly = False Then ClassLogger.Add($"SUB CNCID.NODE_CONFIGURABLE_ID is nothing!!", False)
' If LogErrorsOnly = False Then ClassLogger.Add("CURRENT_NODE_CONFIGURABLE_ID would be nothing...", False)
LOGGER.Debug($"SUB CNCID.NODE_CONFIGURABLE_ID is nothing!!", False)
' LOGGER.Debug("CURRENT_NODE_CONFIGURABLE_ID would be nothing...", False)
CURRENT_NODE_CONFIGURABLE_ID = 0
End If
Else
If IsNumeric(NODE_ID) = False Then
If LogErrorsOnly = False Then ClassLogger.Add("SUB CNCID.NODE_ID is not numeric", False)
LOGGER.Debug("SUB CNCID.NODE_ID is not numeric", False)
Else
If LogErrorsOnly = False Then ClassLogger.Add("SUB CNCID.NO NODE_CONFIGURABLE_NODES_DT", False)
LOGGER.Debug("SUB CNCID.NO NODE_CONFIGURABLE_NODES_DT", False)
End If
CURRENT_NODE_CONFIGURABLE_ID = 0
End If
Catch ex As Exception
If LogErrorsOnly = False Then ClassLogger.Add("SUB CNCID.CURRENT_NODE_CONFIGURABLE_ID would be nothing(1)...", False)
LOGGER.Debug("SUB CNCID.CURRENT_NODE_CONFIGURABLE_ID would be nothing(1)...", False)
ClassNodeNavigation.NODE_CONFIGURABLE_ID = 0
CURRENT_NODE_CONFIGURABLE_ID = 0
End Try
@@ -166,7 +166,7 @@ Public Class ClassNodeNavigation
End If
Return TagString
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in CreateNODE_TAG (NodeNavigation): " & ex.Message, True)
LOGGER.Warn("Unexpected Error in CreateNODE_TAG (NodeNavigation): " & ex.Message)
MsgBox("Error in CreateNODE_TAG (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
TagString = "ERROR NODETAG_CREATION"
Return TagString
@@ -220,7 +220,7 @@ Public Class ClassNodeNavigation
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Formatting NodeColor (CreateTreViewNodes): " & ex.Message, True)
LOGGER.Warn("Unexpected Error in Formatting NodeColor (CreateTreViewNodes): " & ex.Message)
End Try
@@ -232,7 +232,7 @@ Public Class ClassNodeNavigation
sw.Done()
Return mytrv
Catch ex As System.Exception
ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodes (NodeNavigation-CreateTreViewNodes): " & ex.Message, True)
LOGGER.Warn("Unexpected Error in CreateTreeViewNodes (NodeNavigation-CreateTreViewNodes): " & ex.Message)
MsgBox("Error in CreateTreeViewNodes (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
@@ -290,7 +290,7 @@ Public Class ClassNodeNavigation
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Formatting NodeColor (Subnodes): " & ex.Message, True)
LOGGER.Warn("Unexpected Error in Formatting NodeColor (Subnodes): " & ex.Message)
End Try
CheckSubNodes(DT_TREEVIEW_NODES, SUB_NODE_ROW(i)("GUID"), TREEVIEW_IMAGELIST, SUB_NODE, SUB_NODE_ROW(i)("EXPAND_NODE"))
'Add the node
@@ -317,7 +317,7 @@ Public Class ClassNodeNavigation
Next
Return Nothing
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in FindNode (NodeNavigation): " & ex.Message, True)
LOGGER.Warn("Unexpected Error in FindNode (NodeNavigation): " & ex.Message)
MsgBox("Error in FindNode (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
@@ -333,7 +333,7 @@ Public Class ClassNodeNavigation
Dim staticListItems = NodeString.Split("#")
Return staticListItems(1)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Return_ENTITY_FOR_TAG ('" & NodeString & "'): " & ex.Message, True)
LOGGER.Warn("Unexpected Error in Return_ENTITY_FOR_TAG ('" & NodeString & "'): " & ex.Message)
Return 0
End Try
End If
@@ -356,7 +356,7 @@ Public Class ClassNodeNavigation
End If
Catch ex As Exception
sw.Done()
ClassLogger.Add("Unexpected Error in Return_RECORD_forTag ('" & NodeString & "'): " & ex.Message, True)
LOGGER.Warn("Unexpected Error in Return_RECORD_forTag ('" & NodeString & "'): " & ex.Message)
Return 0
End Try
Else