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

MS ZSG

Browse Source
This commit is contained in:
SchreiberM
2020-01-15 14:48:46 +01:00
parent 9582091c6d
commit 1f6c197b7f
699 changed files with 516723 additions and 7912 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -96,10 +96,14 @@ Public Class ClassNodeNavigation
Dim NODE_ID
Dim NODE_CONFIG_ID
Dim staticListItems = myTreeNode.Tag.Split("#")
If staticListItems(0).Contains("NODE-TYPE") Then
If LogErrorsOnly = False Then ClassLogger.Add($"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)
Else
If LogErrorsOnly = False Then ClassLogger.Add($"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
@@ -109,12 +113,12 @@ Public Class ClassNodeNavigation
Dim count As Integer
Dim ID
' Loop.
For Each row As DataRow In result
count += 1
ID = row.Item("GUID")
CURRENT_NODE_IMAGE = row.Item("NODE_IMAGE")
If count = 2 Then Exit For
Console.WriteLine(row(0))
Next
'Dim result = (From form In NODE_CONFIGURABLE_NODES_DT.AsEnumerable()
@@ -123,18 +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)
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)
CURRENT_NODE_CONFIGURABLE_ID = 0
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add("NO NODE_CONFIGURABLE_NODES_DT", False)
If IsNumeric(NODE_ID) = False Then
If LogErrorsOnly = False Then ClassLogger.Add("SUB CNCID.NODE_ID is not numeric", False)
Else
If LogErrorsOnly = False Then ClassLogger.Add("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("CURRENT_NODE_CONFIGURABLE_ID would be nothing(1)...", False)
If LogErrorsOnly = False Then ClassLogger.Add("SUB CNCID.CURRENT_NODE_CONFIGURABLE_ID would be nothing(1)...", False)
ClassNodeNavigation.NODE_CONFIGURABLE_ID = 0
CURRENT_NODE_CONFIGURABLE_ID = 0
End Try
@@ -396,6 +407,8 @@ Public Class ClassNodeNavigation
Dim staticListItems = NodeString.Split("#")
If staticListItems(0).Contains("NODE-TYPE") Then
Return staticListItems(0).ToString.Replace("NODE-TYPE-", "")
ElseIf staticListItems(0).Contains("CONFIG_NODE") Then
Return staticListItems(0).ToString.Replace("CONFIG_NODE-", "")
Else
Return 0
End If