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

jj 13.12 devexpress themes

Browse Source
This commit is contained in:
Jonathan Jenne
2017-12-13 12:43:33 +01:00
parent 673895755d
commit d49297816a
10 changed files with 1507 additions and 1051 deletions
Download Patch File Download Diff File Expand all files Collapse all files

566
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@@ -1,9 +1,5 @@
Imports DevExpress.Utils
Imports DevExpress.XtraBars.Navigation
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Tile
Imports DevExpress.XtraGrid.Views.Grid
@@ -17,13 +13,10 @@ Imports WINDREAMLib
Imports System.Runtime.InteropServices
Imports DD_Rights
Imports DD_LIB_Standards
Imports DevExpress.LookAndFeel
Public Class frmConstructor_Main
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)> _
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
End Function
Public Structure SHELLEXECUTEINFO
@@ -326,10 +319,10 @@ Public Class frmConstructor_Main
CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM TBPMO_ENTITY_RIGHT_CONTROLS where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID), False)
Sql = String.Format("SELECT * FROM TBPMO_ENTITY_USERRIGHT_ADDING where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
DT_ADDING_USERS = ClassDatabase.Return_Datatable(Sql, False)
Sql = 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})", CONSTRUCTORID)
CURRENT_DT_NODE_CONFIGURABLE_NODES = ClassDatabase.Return_Datatable(Sql, False)
SQL = String.Format("SELECT * FROM TBPMO_ENTITY_USERRIGHT_ADDING where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
DT_ADDING_USERS = ClassDatabase.Return_Datatable(SQL, False)
SQL = 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})", CONSTRUCTORID)
CURRENT_DT_NODE_CONFIGURABLE_NODES = ClassDatabase.Return_Datatable(SQL, False)
Catch ex As System.Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 2")
End Try
@@ -635,57 +628,23 @@ Public Class frmConstructor_Main
End Function
#End Region
#Region "NavPane"
Sub Refresh_Navpane()
'Die aktuelle Ebene überprüfen und das NAvpane aktualisieren
Select Case ACT_EBENE
Case 1
If Not EBENE1_COLUMNNAME Is Nothing Then
EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
Dim cat As TileNavCategory = LoadLevel1Nav()
NavPane.Categories.Clear()
NavPane.Categories.Add(cat)
End If
Case 2
If Not EBENE2_COLUMNNAME Is Nothing Then
EBENE2_GRID_RESULT = Get_GridResult(EBENE2_COLUMNNAME)
Dim cat As TileNavCategory = LoadLevel1Nav()
NavPane.Categories.Clear()
NavPane.Categories.Add(cat)
Sub Refresh_Entity_Data()
If TrySave_Automatic() = True Then
Save_Grid_Layout()
' Setzt die RECORD_ID auf Null
' damit beim Refresh keine alten Werte
' in die Datenbank geschrieben werden
SELECTED_RECORD_ID = 0
RECORD_ID = 0
CURRENT_RECORD_ID = 0
Dim item As TileNavItem = LoadLevel2Nav()
cat.Items.Add(item)
End If
Case 3
EBENE3_RECID = SELECTED_RECORD_ID
If Not EBENE3_COLUMNNAME Is Nothing Then
EBENE3_GRID_RESULT = Get_GridResult(EBENE3_COLUMNNAME)
Dim cat As TileNavCategory = LoadLevel1Nav()
NavPane.Categories.Clear()
NavPane.Categories.Add(cat)
Dim item As TileNavItem = LoadLevel2Nav()
cat.Items.Add(item)
Dim subitem As TileNavSubItem = LoadLevel3Nav()
item.SubItems.Add(subitem)
End If
End Select
If CtrlCommandUI.IsInsert Then
ActivateAllTabs()
End If
Load_Datafor_Entity()
End If
End Sub
Private Function FindNode(tncoll As TreeNodeCollection, strText As [String]) As TreeNode
Dim tnFound As TreeNode
For Each tnCurr As TreeNode In tncoll
If tnCurr.Text.StartsWith(strText) Then
Return tnCurr
End If
tnFound = FindNode(tnCurr.Nodes, strText)
If tnFound IsNot Nothing Then
Return tnFound
End If
Next
Return Nothing
End Function
Dim NodesThatMatch As New List(Of TreeNode)
Private Function SearchTheTreeView(ByVal TV As TreeView, ByVal TextToFind As String) As List(Of TreeNode)
' Empty previous
@@ -716,110 +675,147 @@ Public Class frmConstructor_Main
RecursiveSearch(TN, TextToFind)
Next
End Sub
Private Sub NavPane_MouseUp(sender As Object, e As MouseEventArgs) Handles NavPane.MouseUp
Dim pane As TileNavPane = TryCast(sender, TileNavPane)
Dim hitInfo As TileNavPaneHitInfo = pane.ViewInfo.CalcHitInfo(e.Location)
If hitInfo.InButton Then
Dim element = hitInfo.ButtonInfo.Element
NavPane.HideDropDownWindow()
Save_Grid_Layout()
'#Region "NavPane"
' Sub Refresh_Navpane()
' 'Die aktuelle Ebene überprüfen und das NAvpane aktualisieren
' Select Case ACT_EBENE
' Case 1
' If Not EBENE1_COLUMNNAME Is Nothing Then
' EBENE1_GRID_RESULT = Get_GridResult(EBENE1_COLUMNNAME)
' Dim cat As TileNavCategory = LoadLevel1Nav()
' NavPane.Categories.Clear()
' NavPane.Categories.Add(cat)
' End If
' Case 2
' If Not EBENE2_COLUMNNAME Is Nothing Then
' EBENE2_GRID_RESULT = Get_GridResult(EBENE2_COLUMNNAME)
' Dim cat As TileNavCategory = LoadLevel1Nav()
' NavPane.Categories.Clear()
' NavPane.Categories.Add(cat)
If TypeOf element Is NavButton Then
Dim btn As NavButton = TryCast(element, NavButton)
' Dim item As TileNavItem = LoadLevel2Nav()
' cat.Items.Add(item)
' End If
' Case 3
' EBENE3_RECID = SELECTED_RECORD_ID
' If Not EBENE3_COLUMNNAME Is Nothing Then
' EBENE3_GRID_RESULT = Get_GridResult(EBENE3_COLUMNNAME)
' Dim cat As TileNavCategory = LoadLevel1Nav()
' NavPane.Categories.Clear()
' NavPane.Categories.Add(cat)
If btn.IsMain Then
ResetNav()
ElseIf btn.Name = "NavButtonRefresh" Then
Refresh_Entity_Data()
End If
' Dim item As TileNavItem = LoadLevel2Nav()
' cat.Items.Add(item)
Else
Dim Entity As String = element.Tag
Dim Node = FindNode(TreeViewMain.Nodes, Entity)
' Dim subitem As TileNavSubItem = LoadLevel3Nav()
' item.SubItems.Add(subitem)
If Node IsNot Nothing Then
TreeViewMain.SelectedNode = Node
Load_Datafor_Entity()
End If
End If
' End If
' End Select
' End Sub
' Private Function FindNode(tncoll As TreeNodeCollection, strText As [String]) As TreeNode
' Dim tnFound As TreeNode
' For Each tnCurr As TreeNode In tncoll
' If tnCurr.Text.StartsWith(strText) Then
' Return tnCurr
' End If
' tnFound = FindNode(tnCurr.Nodes, strText)
' If tnFound IsNot Nothing Then
' Return tnFound
' End If
' Next
' Return Nothing
' End Function
' Private Sub NavPane_MouseUp(sender As Object, e As MouseEventArgs)
' Dim pane As TileNavPane = TryCast(sender, TileNavPane)
' Dim hitInfo As TileNavPaneHitInfo = pane.ViewInfo.CalcHitInfo(e.Location)
' If hitInfo.InButton Then
' Dim element = hitInfo.ButtonInfo.Element
' NavPane.HideDropDownWindow()
End If
End Sub
Sub Refresh_Entity_Data()
If TrySave_Automatic() = True Then
Save_Grid_Layout()
' Setzt die RECORD_ID auf Null
' damit beim Refresh keine alten Werte
' in die Datenbank geschrieben werden
SELECTED_RECORD_ID = 0
RECORD_ID = 0
CURRENT_RECORD_ID = 0
' Save_Grid_Layout()
If CtrlCommandUI.IsInsert Then
ActivateAllTabs()
End If
Load_Datafor_Entity()
End If
End Sub
Private Function LoadLevel1Nav()
Dim cat As New TileNavCategory()
cat.Caption = EBENE1_GRID_RESULT
cat.Name = EBENE1_GRID_RESULT
cat.TileText = EBENE1_GRID_RESULT
cat.Tag = EBENE1_ENTITY
' If TypeOf element Is NavButton Then
' Dim btn As NavButton = TryCast(element, NavButton)
NavPane.SelectedElement = cat
' If btn.IsMain Then
' ResetNav()
' ElseIf btn.Name = "NavButtonRefresh" Then
' Refresh_Entity_Data()
' End If
Return cat
End Function
' Else
' Dim Entity As String = element.Tag
' Dim Node = FindNode(TreeViewMain.Nodes, Entity)
Private Function LoadLevel2Nav()
Dim item As New TileNavItem()
item.Caption = EBENE2_GRID_RESULT
item.Name = EBENE2_GRID_RESULT
item.TileText = EBENE2_GRID_RESULT
item.Tag = EBENE2_ENTITY
' If Node IsNot Nothing Then
' TreeViewMain.SelectedNode = Node
' Load_Datafor_Entity()
' End If
' End If
NavPane.SelectedElement = item
' End If
' End Sub
Return item
End Function
' Private Function LoadLevel1Nav()
' Dim cat As New TileNavCategory()
' cat.Caption = EBENE1_GRID_RESULT
' cat.Name = EBENE1_GRID_RESULT
' cat.TileText = EBENE1_GRID_RESULT
' cat.Tag = EBENE1_ENTITY
Private Function LoadLevel3Nav()
Dim subitem As New TileNavSubItem()
subitem.Caption = EBENE3_GRID_RESULT
subitem.Name = EBENE3_GRID_RESULT
subitem.TileText = EBENE3_GRID_RESULT
subitem.Tag = EBENE3_ENTITY
' NavPane.SelectedElement = cat
NavPane.SelectedElement = subitem
' Return cat
' End Function
Return subitem
End Function
' Private Function LoadLevel2Nav()
' Dim item As New TileNavItem()
' item.Caption = EBENE2_GRID_RESULT
' item.Name = EBENE2_GRID_RESULT
' item.TileText = EBENE2_GRID_RESULT
' item.Tag = EBENE2_ENTITY
Private Sub ResetNav()
'Grid zurücksetzen
Clear_Grid_View()
ACT_EBENE = 0
CURRENT_ACT_LEVEL = 0
ACT_EBENE_STRING = ""
EBENE1_ENTITY = ""
EBENE1_RECID = 0
EBENE2_ENTITY = ""
EBENE2_RECID = 0
EBENE3_ENTITY = ""
EBENE3_RECID = 0
'Navigation zurücksetzen
NavPane.Categories.Clear()
'TreeView zurücksetzen
'Load_Tree_View(CONSTRUCTORID)
TreeViewMain.SelectedNode = Nothing
SetSelectedNodeStyle(TreeViewMain.Nodes)
' NavPane.SelectedElement = item
Load_Tree_View(CONSTRUCTORID)
End Sub
#End Region
' Return item
' End Function
' Private Function LoadLevel3Nav()
' Dim subitem As New TileNavSubItem()
' subitem.Caption = EBENE3_GRID_RESULT
' subitem.Name = EBENE3_GRID_RESULT
' subitem.TileText = EBENE3_GRID_RESULT
' subitem.Tag = EBENE3_ENTITY
' NavPane.SelectedElement = subitem
' Return subitem
' End Function
' Private Sub ResetNav()
' 'Grid zurücksetzen
' Clear_Grid_View()
' ACT_EBENE = 0
' CURRENT_ACT_LEVEL = 0
' ACT_EBENE_STRING = ""
' EBENE1_ENTITY = ""
' EBENE1_RECID = 0
' EBENE2_ENTITY = ""
' EBENE2_RECID = 0
' EBENE3_ENTITY = ""
' EBENE3_RECID = 0
' 'Navigation zurücksetzen
' NavPane.Categories.Clear()
' 'TreeView zurücksetzen
' 'Load_Tree_View(CONSTRUCTORID)
' TreeViewMain.SelectedNode = Nothing
' SetSelectedNodeStyle(TreeViewMain.Nodes)
' Load_Tree_View(CONSTRUCTORID)
' End Sub
'#End Region
#Region "GridControl"
@@ -1379,110 +1375,110 @@ Public Class frmConstructor_Main
'CURRENT_DATE_FORMAT = USER_DATE_FORMAT
If NODE_NAVIGATION = True Then
If NODE_NAVIGATION_LOADED = True Then
Exit Sub
Else
NODE_NAVIGATION_LOADED = True
End If
If NODE_NAVIGATION_LOADED = True Then
Exit Sub
Else
NODE_NAVIGATION_LOADED = True
End If
End If
Dim sw As New Stopwatch
sw.Start()
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
Dim sw As New Stopwatch
sw.Start()
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then
ENTITY_LOADED = False
ENTITY_ID = ClassNodeNavigation.Return_ENTITY_FOR_TAG(SelectedNode.Tag)
CURRENT_ENTITY_ID = ENTITY_ID
Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single()
CONSTRUCTOR_DETAIL_ID = result.Item("GUID")
' CONSTRUCT_EXPAND = result.Item("EXPAND")
Dim FORM_DATE_FORMAT = result.Item("DATE_FORMAT")
If FORM_DATE_FORMAT <> USER_DATE_FORMAT Then
If SelectedNode IsNot Nothing Then
ENTITY_LOADED = False
ENTITY_ID = ClassNodeNavigation.Return_ENTITY_FOR_TAG(SelectedNode.Tag)
CURRENT_ENTITY_ID = ENTITY_ID
Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single()
CONSTRUCTOR_DETAIL_ID = result.Item("GUID")
' CONSTRUCT_EXPAND = result.Item("EXPAND")
Dim FORM_DATE_FORMAT = result.Item("DATE_FORMAT")
If FORM_DATE_FORMAT <> USER_DATE_FORMAT Then
CURRENT_DATE_FORMAT = USER_DATE_FORMAT
Else
CURRENT_DATE_FORMAT = FORM_DATE_FORMAT
End If
LOCK_CONTROLS_BG_LOAD = result.Item("LOCK_CONTROLS_BG_LOAD")
If NODE_NAVIGATION = True Then
If SelectedNode.Tag.ToString.Contains("RECORD_ID") Then
Console.WriteLine("Record beinhaltet")
LOCK_CONTROLS_BG_LOAD = result.Item("LOCK_CONTROLS_BG_LOAD")
If NODE_NAVIGATION = True Then
If SelectedNode.Tag.ToString.Contains("RECORD_ID") Then
Console.WriteLine("Record beinhaltet")
End If
Console.WriteLine("CONTROL Navigacion")
Else
Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode)
ACT_EBENE = 2
CURRENT_ACT_LEVEL = 2
If parentNode IsNot Nothing Then
Dim grandParentNode As TreeNode = TryCast(parentNode.Parent, TreeNode)
If grandParentNode IsNot Nothing Then
ACT_EBENE = 3
CURRENT_ACT_LEVEL = 3
End If
Console.WriteLine("CONTROL Navigacion")
Else
Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode)
ACT_EBENE = 2
CURRENT_ACT_LEVEL = 2
If parentNode IsNot Nothing Then
Dim grandParentNode As TreeNode = TryCast(parentNode.Parent, TreeNode)
If grandParentNode IsNot Nothing Then
ACT_EBENE = 3
CURRENT_ACT_LEVEL = 3
End If
Else
ACT_EBENE = 1
CURRENT_ACT_LEVEL = 1
End If
ACT_EBENE = 1
CURRENT_ACT_LEVEL = 1
End If
' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
Dim query2 = From form In DT_WORKFLOWS_MANUAL.AsEnumerable()
Select form Where form.Item("ENTITY_ID") = ENTITY_ID
Dim Rows = query2.ToList()
_MANUAL_WORKFLOW = False
For Each _row In Rows
_MANUAL_WORKFLOW = _row.Item("MANUALLY")
Next
FAU_AD_DOMAIN = ""
FAU_AD_SERVER = ""
FAU_AD_USER = ""
FAU_AD_USER_PW = ""
If DT_ADDING_USERS.Rows.Count > 0 Then
'Überprüfen ob für diese Entität ein spezifischer windream-User verwendet wird, wenn Dateien abgelegt werden?
Dim query1 = From _user In DT_ADDING_USERS.AsEnumerable()
Select _user Where _user.Item("ENTITY_ID") = ENTITY_ID
Dim Rows1 = query1.ToList()
For Each _row In Rows1
FAU_AD_DOMAIN = _row.Item("AD_DOMAIN").ToString()
FAU_AD_SERVER = _row.Item("AD_SERVER").ToString()
FAU_AD_USER = _row.Item("AD_USER").ToString()
Dim wrapper As New ClassEncryption("!35452didalog=")
Dim PWplainText As String
' DecryptData throws if the wrong password is used.
Try
PWplainText = wrapper.DecryptData(_row.Item("AD_USER_PW").ToString())
Catch ex As Exception
ClassLogger.Add("- the Password for FileAddingUser '" & FAU_AD_USER & "' could not be decrypted", False)
PWplainText = ""
End Try
FAU_AD_USER_PW = PWplainText
Next
End If
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Datafor_Entity1 took " & Format(elapsed, "0.000000000") & " seconds", False)
If NODE_NAVIGATION = True Then
If SelectedNode.Tag.ToString.Contains("RECORD_ID") Then
Console.WriteLine("Record beinhaltet")
End If
Console.WriteLine("CONTROL Navigacion")
Else
Get_RecordCounts_Nodes()
End If
Load_Entity_Data(ACT_EBENE)
sw.Stop()
sw.Reset()
elapsed = elapsed - sw.Elapsed.TotalSeconds
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Datafor_Entity2 took " & Format(elapsed, "0.000000000") & " seconds", False)
End If
' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
Dim query2 = From form In DT_WORKFLOWS_MANUAL.AsEnumerable()
Select form Where form.Item("ENTITY_ID") = ENTITY_ID
Dim Rows = query2.ToList()
_MANUAL_WORKFLOW = False
For Each _row In Rows
_MANUAL_WORKFLOW = _row.Item("MANUALLY")
Next
FAU_AD_DOMAIN = ""
FAU_AD_SERVER = ""
FAU_AD_USER = ""
FAU_AD_USER_PW = ""
If DT_ADDING_USERS.Rows.Count > 0 Then
'Überprüfen ob für diese Entität ein spezifischer windream-User verwendet wird, wenn Dateien abgelegt werden?
Dim query1 = From _user In DT_ADDING_USERS.AsEnumerable()
Select _user Where _user.Item("ENTITY_ID") = ENTITY_ID
Dim Rows1 = query1.ToList()
For Each _row In Rows1
FAU_AD_DOMAIN = _row.Item("AD_DOMAIN").ToString()
FAU_AD_SERVER = _row.Item("AD_SERVER").ToString()
FAU_AD_USER = _row.Item("AD_USER").ToString()
Dim wrapper As New ClassEncryption("!35452didalog=")
Dim PWplainText As String
' DecryptData throws if the wrong password is used.
Try
PWplainText = wrapper.DecryptData(_row.Item("AD_USER_PW").ToString())
Catch ex As Exception
ClassLogger.Add("- the Password for FileAddingUser '" & FAU_AD_USER & "' could not be decrypted", False)
PWplainText = ""
End Try
FAU_AD_USER_PW = PWplainText
Next
End If
Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Datafor_Entity1 took " & Format(elapsed, "0.000000000") & " seconds", False)
If NODE_NAVIGATION = True Then
If SelectedNode.Tag.ToString.Contains("RECORD_ID") Then
Console.WriteLine("Record beinhaltet")
End If
Console.WriteLine("CONTROL Navigacion")
Else
Get_RecordCounts_Nodes()
End If
Load_Entity_Data(ACT_EBENE)
sw.Stop()
sw.Reset()
elapsed = elapsed - sw.Elapsed.TotalSeconds
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Datafor_Entity2 took " & Format(elapsed, "0.000000000") & " seconds", False)
End If
'Catch ex As Exception
' ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Load_Datafor_Entity: " & ex.StackTrace)
'End Try
@@ -1492,52 +1488,52 @@ Public Class frmConstructor_Main
Sub Get_RecordCounts_Nodes()
'Try
If NODE_NAVIGATION = True Then
Exit Sub
Exit Sub
End If
Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim a As Integer = 0
For Each childNodeLevel1 As TreeNode In selnode.Nodes
Dim PARENT_ID1 As Integer
Dim TYPE_ID1 As Integer
If a = 0 Then
Dim sql As String = "SELECT PARENT_ID, FORM_TYPE_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ClassNodeNavigation.Return_ENTITY_FOR_TAG(childNodeLevel1.Tag) & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
PARENT_ID1 = DT.Rows(0).Item(0)
TYPE_ID1 = DT.Rows(0).Item(1)
End If
Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim a As Integer = 0
For Each childNodeLevel1 As TreeNode In selnode.Nodes
Dim PARENT_ID1 As Integer
Dim TYPE_ID1 As Integer
If a = 0 Then
Dim sql As String = "SELECT PARENT_ID, FORM_TYPE_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ClassNodeNavigation.Return_ENTITY_FOR_TAG(childNodeLevel1.Tag) & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
PARENT_ID1 = DT.Rows(0).Item(0)
TYPE_ID1 = DT.Rows(0).Item(1)
If TYPE_ID1 <> 5 Then
If childNodeLevel1.Text = "Allgemein" Then
Console.WriteLine("Allgemein-Reiter")
End If
If TYPE_ID1 <> 5 Then
If childNodeLevel1.Text = "Allgemein" Then
Console.WriteLine("Allgemein-Reiter")
End If
Dim result As Integer = ReturnAmountofRecords(ClassNodeNavigation.Return_ENTITY_FOR_TAG(childNodeLevel1.Tag))
If result <> 99999999 Then
Dim origtext As String = childNodeLevel1.Text
If origtext.Contains(" (") Then
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
childNodeLevel1.Text = existingstring & " (" & result.ToString & ")"
Else
childNodeLevel1.Text = childNodeLevel1.Text & " (" & result.ToString & ")"
End If
Dim result As Integer = ReturnAmountofRecords(ClassNodeNavigation.Return_ENTITY_FOR_TAG(childNodeLevel1.Tag))
If result <> 99999999 Then
Dim origtext As String = childNodeLevel1.Text
If origtext.Contains(" (") Then
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
childNodeLevel1.Text = existingstring & " (" & result.ToString & ")"
Else
childNodeLevel1.Text = childNodeLevel1.Text & " (" & result.ToString & ")"
End If
End If
For Each childNodeLevel2 As TreeNode In childNodeLevel1.Nodes
Dim origtext As String = childNodeLevel2.Text
If origtext.Contains(" (") Then
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
childNodeLevel2.Text = existingstring
For Each childNodeLevel2 As TreeNode In childNodeLevel1.Nodes
Dim origtext As String = childNodeLevel2.Text
If origtext.Contains(" (") Then
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
childNodeLevel2.Text = existingstring
End If
For Each childNodeLevel3 As TreeNode In childNodeLevel2.Nodes
Dim origtext1 As String = childNodeLevel3.Text
If origtext1.Contains(" (") Then
Dim existingstring = origtext1.Substring(0, origtext1.IndexOf("(") - 1)
childNodeLevel1.Text = existingstring
End If
For Each childNodeLevel3 As TreeNode In childNodeLevel2.Nodes
Dim origtext1 As String = childNodeLevel3.Text
If origtext1.Contains(" (") Then
Dim existingstring = origtext1.Substring(0, origtext1.IndexOf("(") - 1)
childNodeLevel1.Text = existingstring
End If
Next
Next
a += 1
End If
Next
a += 1
End If
Next
Next
'Catch ex As Exception
' ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Load_Datafor_Entity: " & ex.StackTrace)
'End Try
@@ -2413,7 +2409,7 @@ Public Class frmConstructor_Main
Else
SELECTED_RECORD_ID = 0
PARENT_RECORDID = 0
NavPane.Categories.Clear()
'NavPane.Categories.Clear()
tsslblRecord.Text = ""
Update_Status_Label(True, "Entity 1 skipped - All Records loaded", EditState.Update)
PARENT_SKIPPED = True
@@ -2458,7 +2454,7 @@ Public Class frmConstructor_Main
SELECTED_RECORD_ID = 0
PARENT_RECORDID = 0
NavPane.Categories.Clear()
'NavPane.Categories.Clear()
Update_Status_Label(True, "Entity 2 skipped - All Records loaded", EditState.Update)
tsslblRecord.Text = ""
PARENT_SKIPPED = True
@@ -2506,7 +2502,7 @@ Public Class frmConstructor_Main
If IS_SINGLE_RECORD Then
Show_Selected_Record_Data(RECORD_ID, True)
Else
Refresh_Navpane()
'Refresh_Navpane()
Update_Record_Label(SELECTED_RECORD_ID)
End If
Get_RecordCounts_Nodes()
@@ -3239,7 +3235,7 @@ Public Class frmConstructor_Main
sw.Start()
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False
Refresh_Navpane()
'Refresh_Navpane()
Update_Record_Label(SELECTED_RECORD_ID)
Show_act_WFTask()
@@ -4580,7 +4576,7 @@ Public Class frmConstructor_Main
EBENE2_RECID = 0
EBENE3_ENTITY = ""
EBENE3_RECID = 0
NavPane.Categories.Clear()
'NavPane.Categories.Clear()
Load_Tree_View(CONSTRUCTORID)
End Sub