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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-01-05 14:59:32 +01:00
parent 27abfd0b74
commit ef06120f13
13 changed files with 470 additions and 784 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
app/DD-Record-Organizer/ClassControlValues.vb
View File

@@ -153,17 +153,13 @@ Public Class ClassControlValues
Public Shared Sub LoadControlValues(RecordId As Integer, ParentRecordId As Integer, FormId As Integer, controls As Control.ControlCollection, Entity_ID As Integer, Optional isGroupbox As Boolean = False) Public Shared Sub LoadControlValues(RecordId As Integer, ParentRecordId As Integer, FormId As Integer, controls As Control.ControlCollection, Entity_ID As Integer, Optional isGroupbox As Boolean = False)
Try Try
Dim sw As New Stopwatch Dim sw As New SW("LoadControlValues1")
sw.Start()
'Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId) 'Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId)
Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", RecordId) Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", RecordId)
Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL, True) Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL, True)
CURRENT_CONTROL_VALUES = DT_ControlValues CURRENT_CONTROL_VALUES = DT_ControlValues
Dim elapsed As Double sw.Done()
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Load VWPMO_VALUES via SQL took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
If controls.Count = 0 Then If controls.Count = 0 Then
ClassLogger.Add("the control-Collection in LoadControlValuesNeu is empty!", True) ClassLogger.Add("the control-Collection in LoadControlValuesNeu is empty!", True)
@@ -175,7 +171,7 @@ Public Class ClassControlValues
' Zuerst alle Controls leeren ' Zuerst alle Controls leeren
ClearControlValues(controls) ClearControlValues(controls)
sw.Start() sw = New SW("LoadControlValues2")
' Load all Hints for controls ' Load all Hints for controls
Dim SQLHint = "SELECT * FROM VWPMO_CONTROL_HINT WHERE FORM_ID = " & FormId Dim SQLHint = "SELECT * FROM VWPMO_CONTROL_HINT WHERE FORM_ID = " & FormId
Dim DT_Hints As DataTable = ClassDatabase.Return_Datatable(SQLHint, True) Dim DT_Hints As DataTable = ClassDatabase.Return_Datatable(SQLHint, True)
@@ -184,10 +180,8 @@ Public Class ClassControlValues
ClassControlValueCache.SaveHint(row.Item(1), row.Item(2)) ClassControlValueCache.SaveHint(row.Item(1), row.Item(2))
Next Next
' LoadControlHints(controls) ' LoadControlHints(controls)
elapsed = sw.Elapsed.TotalSeconds sw.Done()
sw.Stop() sw = New SW("LoadControlValues3")
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> LoadControlHints took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
sw.Start()
For Each control As Control In controls For Each control As Control In controls
PerfomanceHelper.SuspendDraw(control) PerfomanceHelper.SuspendDraw(control)
@@ -206,9 +200,7 @@ Public Class ClassControlValues
PerfomanceHelper.ResumeDraw(control) PerfomanceHelper.ResumeDraw(control)
Next Next
elapsed = sw.Elapsed.TotalSeconds sw.Done()
sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Loop LoadControlValue took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadControlValuesNeu: " & ex.Message, True) ClassLogger.Add("Unexpected Error in LoadControlValuesNeu: " & ex.Message, True)
MsgBox("Error in LoadControlValuesNeu:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in LoadControlValuesNeu:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -323,29 +315,26 @@ Public Class ClassControlValues
Public Shared Sub LoadControlValuesList(FormID As Integer, controls As Control.ControlCollection) Public Shared Sub LoadControlValuesList(FormID As Integer, controls As Control.ControlCollection)
Try Try
Dim sw As New Stopwatch Dim sw As New SW("LoadControlValuesList - Database")
sw.Start()
If controls.Count = 0 Then If controls.Count = 0 Then
'MsgBox("LoadControlValuesList: Control.ControlCollection is unexpected empty!", MsgBoxStyle.Exclamation) 'MsgBox("LoadControlValuesList: Control.ControlCollection is unexpected empty!", MsgBoxStyle.Exclamation)
ClassLogger.Add("LoadControlValuesList: Control.ControlCollection is unexpected empty!") ClassLogger.Add("LoadControlValuesList: Control.ControlCollection is unexpected empty!")
Exit Sub Exit Sub
End If End If
Dim swsql As Stopwatch = Stopwatch.StartNew()
' Zuerst alle SQL Commands für FormID finden ' Zuerst alle SQL Commands für FormID finden
' CONTROL_SQLCOMMAND_1 wird als SQL gealiast ' CONTROL_SQLCOMMAND_1 wird als SQL gealiast
Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1,CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID) Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1,CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL, True) Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim elapsed As Double sw.Done()
elapsed = swsql.Elapsed.TotalSeconds
swsql.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> LoadControlValuesList - Database took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
If dt.Rows.Count = 0 Then If dt.Rows.Count = 0 Then
Exit Sub Exit Sub
End If End If
sw = New SW("LoadControlValuesList")
For Each Ctrl As Control In controls For Each Ctrl As Control In controls
Dim controlTagId = DirectCast(Ctrl.Tag, ClassControlMetadata).Id Dim controlTagId = DirectCast(Ctrl.Tag, ClassControlMetadata).Id
@@ -384,11 +373,7 @@ Public Class ClassControlValues
PerfomanceHelper.ResumeDraw(Ctrl) PerfomanceHelper.ResumeDraw(Ctrl)
Next Next
sw.Stop() sw.Done()
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValuesList took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadControlValuesList: " & ex.Message, True) ClassLogger.Add("Unexpected Error in LoadControlValuesList: " & ex.Message, True)
MsgBox("Unexpected Error in LoadControlValuesList:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in LoadControlValuesList:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -406,7 +391,7 @@ Public Class ClassControlValues
End If End If
Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1, CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 LIKE '%@%'", FormId) Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1, CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 LIKE '%@%'", FormId)
Dim SW As Stopwatch = Stopwatch.StartNew() Dim sw As New SW("LoadControlValuesListWithPlaceholders")
Dim commands As New List(Of String) Dim commands As New List(Of String)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL, True) Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL, True)
@@ -465,10 +450,7 @@ Public Class ClassControlValues
PerfomanceHelper.ResumeDraw(Ctrl) PerfomanceHelper.ResumeDraw(Ctrl)
Next Next
Dim elapsed As Double sw.Done()
elapsed = SW.Elapsed.TotalSeconds
SW.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> LoadControlValuesListWithPlaceholders took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadControlValuesListWithPlaceholders: " & ex.Message, True) ClassLogger.Add("Unexpected Error in LoadControlValuesListWithPlaceholders: " & ex.Message, True)
MsgBox("Unexpected Error in LoadControlValuesListWithPlaceholders:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in LoadControlValuesListWithPlaceholders:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -491,7 +473,7 @@ Public Class ClassControlValues
' Alle Controls finden, die Abhängigkeiten haben ' Alle Controls finden, die Abhängigkeiten haben
Dim SQL As String = String.Format("select GUID,NAME,SQL_COMMAND_2 from TBPMO_CONTROL where FORM_ID = {0} AND SQL_COMMAND_2 IS NOT NULL " _ Dim SQL As String = String.Format("select GUID,NAME,SQL_COMMAND_2 from TBPMO_CONTROL where FORM_ID = {0} AND SQL_COMMAND_2 IS NOT NULL " _
& "AND LEN(SQL_COMMAND_2) > 10 AND SQL_COMMAND_2 LIKE '%@%@%'", FormId) & "AND LEN(SQL_COMMAND_2) > 10 AND SQL_COMMAND_2 LIKE '%@%@%'", FormId)
Dim SW As Stopwatch = Stopwatch.StartNew() Dim sw As New SW("Enable_Depending_Controls")
Dim commands As New List(Of String) Dim commands As New List(Of String)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
@@ -553,10 +535,7 @@ Public Class ClassControlValues
End If End If
Next Next
Dim elapsed As Double SW.done
elapsed = SW.Elapsed.TotalSeconds
SW.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Enable_Depending_Controls took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in Enable_Depending_Controls: " & ex.Message, True) ClassLogger.Add("Unexpected Error in Enable_Depending_Controls: " & ex.Message, True)
MsgBox("Unexpected Error in Enable_Depending_Controls:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Enable_Depending_Controls:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -687,8 +666,7 @@ Public Class ClassControlValues
Public Shared Sub LoadDefaultValues(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection, parentRecordID As Integer, EntityID As Integer) Public Shared Sub LoadDefaultValues(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection, parentRecordID As Integer, EntityID As Integer)
Try Try
Dim sw As New Stopwatch() Dim sw As New SW("LoadDefaultValues")
sw.Start()
' Alle Controls leeren ' Alle Controls leeren
ClearControlValues(controls) ClearControlValues(controls)
@@ -714,8 +692,7 @@ Public Class ClassControlValues
Next Next
sw.Stop() sw.Done()
Console.WriteLine("LoadDefaultValues took {0} milliseconds to load", sw.ElapsedMilliseconds)
'Den Focus auf das erste Steuerelement setzen 'Den Focus auf das erste Steuerelement setzen
For Each c As Control In controls For Each c As Control In controls

28
app/DD-Record-Organizer/ClassDOC_SEARCH.vb
View File

@@ -234,24 +234,20 @@ Public Class ClassDOC_SEARCH
DT_RESULTLIST_SEL_VALUES = vDT_RESULTLIST_SELVALUES DT_RESULTLIST_SEL_VALUES = vDT_RESULTLIST_SELVALUES
RECORD_ID = REC_ID RECORD_ID = REC_ID
Try Try
Dim sw As New Stopwatch Dim sw As New SW("Get_DOC_RESULTTABLE")
sw.Start()
Dim elapsed As Double
Dim DT_FILE_RESULT As DataTable = GET_DOCSEARCH_DATATABLE(BG) Dim DT_FILE_RESULT As DataTable = GET_DOCSEARCH_DATATABLE(BG)
CURRENT_DOC_RESULTS = DT_FILE_RESULT CURRENT_DOC_RESULTS = DT_FILE_RESULT
If IsNothing(DT_FILE_RESULT) Then If IsNothing(DT_FILE_RESULT) Then
ClassLogger.Add(">> ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!", False) ClassLogger.Add(">> ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!", False)
Return Nothing Return Nothing
End If End If
elapsed = sw.Elapsed.TotalSeconds sw.Done()
sw.Stop()
sw.Reset()
Console.WriteLine(">> GET_DOCSEARCH_DATATABLE took " & Format(elapsed, "0.000000000") & " seconds")
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run GET_DOCSEARCH_DATATABLE took " & Format(elapsed, "0.000000000") & " seconds", False)
If Preload = True Then If Preload = True Then
Return Nothing Return Nothing
End If End If
sw.Start() sw = New SW("Get_DOC_RESULTTABLE DTGrid-Definition")
Dim DTGrid As New DataTable Dim DTGrid As New DataTable
Dim ColArrayDEFINITION As New List(Of String) Dim ColArrayDEFINITION As New List(Of String)
Dim listcheck As New List(Of String) Dim listcheck As New List(Of String)
@@ -320,12 +316,9 @@ Public Class ClassDOC_SEARCH
ClassLogger.Add("Unexpected Error in Construct Datatable: " & ex.Message) ClassLogger.Add("Unexpected Error in Construct Datatable: " & ex.Message)
MsgBox("Unexpected Error in Construct Datatable for GridResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Construct Datatable for GridResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
elapsed = sw.Elapsed.TotalSeconds sw.Done()
sw.Stop()
sw.Reset() sw = New SW("Run Get_DOC_RESULTTABLE")
Console.WriteLine(">> DTGrid-Definition took " & Format(elapsed, "0.000000000") & " seconds")
If LogErrorsOnly = False Then ClassLogger.Add(" >> DTGrid-Definition took " & Format(elapsed, "0.000000000") & " seconds", False)
sw.Start()
COL_ARRAY_RESULTLIST = ColArrayDEFINITION COL_ARRAY_RESULTLIST = ColArrayDEFINITION
For Each col1 As String In listcheck For Each col1 As String In listcheck
@@ -413,10 +406,7 @@ Public Class ClassDOC_SEARCH
Return DTGrid Return DTGrid
elapsed = sw.Elapsed.TotalSeconds sw.Done()
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run Get_DOC_RESULTTABLE took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Get_DOC_RESULTTABLE: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Get_DOC_RESULTTABLE: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Get_DOC_RESULTTABLE: " & ex.Message) ClassLogger.Add("Unexpected Error in Get_DOC_RESULTTABLE: " & ex.Message)

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

@@ -76,8 +76,9 @@
Return TagString Return TagString
End Try End Try
End Function End Function
Public Shared Function CreateTreeViewNodesNew1(DT_TREEVIEW_NODES As DataTable, TREEVIEW_IMAGELIST As ImageList) Public Shared Function CreateTreeViewNodes(DT_TREEVIEW_NODES As DataTable, TREEVIEW_IMAGELIST As ImageList)
Try Try
Dim sw As New SW("CreateTreeViewNodes")
Dim mytrv As New TreeView Dim mytrv As New TreeView
Dim ENTITY_ID As Integer Dim ENTITY_ID As Integer
Dim expression As String Dim expression As String
@@ -103,16 +104,25 @@
Next Next
MAIN_NODE.ImageIndex = index MAIN_NODE.ImageIndex = index
MAIN_NODE.SelectedImageIndex = index MAIN_NODE.SelectedImageIndex = index
'New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
Dim fontfamily As String
Dim fontstyle, fontcolor, fontsize As Integer
fontfamily = MAIN_NODES(i)("FONT_FAMILY").ToString
fontsize = CInt(MAIN_NODES(i)("FONT_SIZE"))
fontstyle = MAIN_NODES(i)("FONT_STYLE")
fontcolor = MAIN_NODES(i)("FONT_COLOR")
MAIN_NODE.NodeFont = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
MAIN_NODE.ForeColor = IntToColor(fontcolor)
MAIN_NODE = CheckSubNodes(DT_TREEVIEW_NODES, MAIN_NODES(i)("GUID"), TREEVIEW_IMAGELIST, MAIN_NODE, MAIN_NODES(i)("EXPAND_NODE")) MAIN_NODE = CheckSubNodes(DT_TREEVIEW_NODES, MAIN_NODES(i)("GUID"), TREEVIEW_IMAGELIST, MAIN_NODE, MAIN_NODES(i)("EXPAND_NODE"))
'Add the node 'Add the node
mytrv.Nodes.Add(MAIN_NODE) mytrv.Nodes.Add(MAIN_NODE)
Next Next
sw.Done()
Return mytrv Return mytrv
Catch ex As System.Exception Catch ex As System.Exception
ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodesNew (NodeNavigation): " & ex.Message, True) ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodes (NodeNavigation): " & ex.Message, True)
MsgBox("Error in CreateTreeViewNodesNew (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in CreateTreeViewNodes (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing Return Nothing
End Try End Try
End Function End Function
@@ -141,6 +151,15 @@
Next Next
SUB_NODE.ImageIndex = index SUB_NODE.ImageIndex = index
SUB_NODE.SelectedImageIndex = index SUB_NODE.SelectedImageIndex = index
Dim fontfamily As String
Dim fontstyle, fontcolor, fontsize As Integer
fontfamily = SUB_NODE_ROW(i)("FONT_FAMILY").ToString
fontsize = CInt(SUB_NODE_ROW(i)("FONT_SIZE"))
fontstyle = SUB_NODE_ROW(i)("FONT_STYLE")
fontcolor = SUB_NODE_ROW(i)("FONT_COLOR")
SUB_NODE.NodeFont = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
SUB_NODE.ForeColor = IntToColor(fontcolor)
CheckSubNodes(DT_TREEVIEW_NODES, SUB_NODE_ROW(i)("GUID"), TREEVIEW_IMAGELIST, SUB_NODE, SUB_NODE_ROW(i)("EXPAND_NODE")) CheckSubNodes(DT_TREEVIEW_NODES, SUB_NODE_ROW(i)("GUID"), TREEVIEW_IMAGELIST, SUB_NODE, SUB_NODE_ROW(i)("EXPAND_NODE"))
'Add the node 'Add the node
@@ -152,60 +171,7 @@
Return MY_NODE Return MY_NODE
End Function End Function
Public Shared Function CreateTreeViewNodesNew(DT_TREEVIEW_PER_CONTROLS As DataTable, TREEVIEW_IMAGELIST As ImageList)
Try
Dim mytrv As New TreeView
Dim node As TreeNode
Dim subNode As TreeNode
Dim ENTITY_ID As Integer
For Each row As DataRow In DT_TREEVIEW_PER_CONTROLS.Rows
If ENTITY_ID <> row.Item("ENTITY_ID") Then
ENTITY_ID = row.Item("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(row.Item("ENTITY_ID"))
End If
Dim NODE_Tag = CreateNODE_TAG(row.Item("ENTITY_ID"), row.Item("GUID"), row.Item("RECORD_ID"), row.Item("NODE_CONFIG_ID"))
'search in the treeview if any country is already present
node = FindNode(mytrv.Nodes, row.Item("PARENT_GUID"))
If node IsNot Nothing Then
'ParentNode Foun
subNode = New TreeNode(row.Item("NODE_CAPTION"))
subNode.Tag = NODE_Tag
Dim index As Integer = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = row.Item("NODE_CONFIG_ID") & "#" & row.Item("ENTITY_ID") Then
Exit For
End If
index += 1
Next
subNode.ImageIndex = index
subNode.SelectedImageIndex = index
'Add new Node to parentNode
node.Nodes.Add(subNode)
Else
Dim NEW_NODE = New TreeNode(row.Item("NODE_CAPTION"))
NEW_NODE.Tag = NODE_Tag
Dim index As Integer = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = row.Item("NODE_CONFIG_ID") & "#" & row.Item("ENTITY_ID") Then
Exit For
End If
index += 1
Next
NEW_NODE.ImageIndex = index
NEW_NODE.SelectedImageIndex = index
'Add the node
'node.Nodes.Add(NEW_NODE)
mytrv.Nodes.Add(NEW_NODE)
End If
Next
Return mytrv
Catch ex As System.Exception
ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodesNew (NodeNavigation): " & ex.Message, True)
MsgBox("Error in CreateTreeViewNodesNew (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Private Shared Function FindNode(tncoll As TreeNodeCollection, PARENT_GUID As Integer) As TreeNode Private Shared Function FindNode(tncoll As TreeNodeCollection, PARENT_GUID As Integer) As TreeNode
Try Try
Dim tnFound As TreeNode Dim tnFound As TreeNode
@@ -227,315 +193,6 @@
End Function End Function
Public Shared Function CreateTreeViewNodes(DT_TREEVIEW_PER_CONTROLS As DataTable, TREEVIEW_IMAGELIST As ImageList)
Try
Dim mytrv As New TreeView
' Rootnode erstellen und taggen
If DT_TREEVIEW_PER_CONTROLS.Rows.Count > 1 Then
' Presuming the DataTable has a column named ENTITY_ID and TYPE_NODE.
Dim expression As String
expression = "TYPE_NODE = 0"
Dim foundRowsLevel0() As DataRow
' Use the Select method to find all rows matching the filter.
foundRowsLevel0 = DT_TREEVIEW_PER_CONTROLS.Select(expression, "SEQUENCE,NODE_CAPTION")
Dim i As Integer
Dim NODE_CONFIG_ID
Dim LEVEL0_NODE As TreeNode
' For each row create a Node
For i = 0 To foundRowsLevel0.GetUpperBound(0)
Dim ID = foundRowsLevel0(i)("GUID")
Dim LevelEntity = foundRowsLevel0(i)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity)
Dim controlID = foundRowsLevel0(i)("CONTROL_ID")
Dim nodetext = foundRowsLevel0(i)("NODE_CAPTION")
Dim Type_node = foundRowsLevel0(i)("TYPE_NODE")
Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel0(i)("NODE_CONFIG_ID")
LEVEL0_NODE = New TreeNode(nodetext)
LEVEL0_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
Dim index As Integer = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity Then
Exit For
End If
index += 1
Next
LEVEL0_NODE.ImageIndex = index
LEVEL0_NODE.SelectedImageIndex = index
'### LEVEL 1 laden #######
Dim expressionLevel1 As String
expressionLevel1 = "PARENT_GUID = " & ID 'TYPE_NODE = 1 AND Einschränkung auf Type 2 und Parent_Guid
Dim foundRowsLevel1() As DataRow
foundRowsLevel1 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel1, "SEQUENCE,NODE_CAPTION")
Dim j As Integer
For j = 0 To foundRowsLevel1.GetUpperBound(0)
Dim ID1 = foundRowsLevel1(j)("GUID")
Dim LevelEntity1 = foundRowsLevel1(j)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity1)
Dim controlID1 = foundRowsLevel1(j)("CONTROL_ID")
Dim nodetext1 = foundRowsLevel1(j)("NODE_CAPTION")
Dim Type_node1 = foundRowsLevel1(j)("TYPE_NODE")
RECORD_ID = foundRowsLevel1(j)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel1(j)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL1_NODE As TreeNode
LEVEL1_NODE = New TreeNode(nodetext1)
LEVEL1_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity1 Then
Exit For
End If
index += 1
Next
LEVEL1_NODE.ImageIndex = index
LEVEL1_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL0_NODE.Nodes.Add(LEVEL1_NODE)
'### LEVEL 2 laden #######
Dim expressionLevel2 As String
expressionLevel2 = "PARENT_GUID = " & ID1 'TYPE_NODE = 2 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel2() As DataRow
foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2, "SEQUENCE,NODE_CAPTION")
Dim k As Integer
For k = 0 To foundRowsLevel2.GetUpperBound(0)
Dim ID2 = foundRowsLevel2(k)("GUID")
Dim LevelEntity2 = foundRowsLevel2(k)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity2)
Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID")
Dim nodetext2 = foundRowsLevel2(k)("NODE_CAPTION")
RECORD_ID = foundRowsLevel2(k)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel2(k)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL2_NODE As TreeNode
LEVEL2_NODE = New TreeNode(nodetext2)
LEVEL2_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity2 Then
Exit For
End If
index += 1
Next
LEVEL2_NODE.ImageIndex = index
LEVEL2_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL1_NODE.Nodes.Add(LEVEL2_NODE)
'### LEVEL 3 laden #######
Dim expressionLevel3 As String
expressionLevel3 = "PARENT_GUID = " & ID2 'TYPE_NODE = 3 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel3() As DataRow
foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3, "SEQUENCE,NODE_CAPTION")
Dim l As Integer
For l = 0 To foundRowsLevel3.GetUpperBound(0)
Dim ID3 = foundRowsLevel3(l)("GUID")
Dim LevelEntity3 = foundRowsLevel3(l)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity3)
Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID")
Dim nodetext3 = foundRowsLevel3(l)("NODE_CAPTION")
RECORD_ID = foundRowsLevel3(l)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel3(l)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL3_NODE As TreeNode
LEVEL3_NODE = New TreeNode(nodetext3)
LEVEL3_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity3 Then
Exit For
End If
index += 1
Next
LEVEL3_NODE.ImageIndex = index
LEVEL3_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL2_NODE.Nodes.Add(LEVEL3_NODE)
'### LEVEL 4 laden #######
Dim expressionLevel4 As String
expressionLevel4 = "PARENT_GUID = " & ID3 'TYPE_NODE = 4 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel4() As DataRow
foundRowsLevel4 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel4, "SEQUENCE,NODE_CAPTION")
Dim m As Integer
For m = 0 To foundRowsLevel4.GetUpperBound(0)
Dim ID5 = foundRowsLevel4(m)("GUID")
Dim LevelEntity5 = foundRowsLevel4(m)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity5)
Dim controlID5 = foundRowsLevel4(m)("CONTROL_ID")
Dim nodetext5 = foundRowsLevel4(m)("NODE_CAPTION")
RECORD_ID = foundRowsLevel4(m)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel4(m)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL4_NODE As TreeNode
LEVEL4_NODE = New TreeNode(nodetext5)
LEVEL4_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity5 Then
Exit For
End If
index += 1
Next
LEVEL4_NODE.ImageIndex = index
LEVEL4_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL3_NODE.Nodes.Add(LEVEL4_NODE)
'### LEVEL 5 laden #######
Dim expressionLevel5 As String
Dim sortExp As String = "NODE_CONFIG_ID, SEQUENCE"
expressionLevel5 = "PARENT_GUID = " & ID5 'TYPE_NODE = 5 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel5() As DataRow
foundRowsLevel5 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel5, sortExp)
Dim n As Integer
If ID5 = 1146 Then
Console.WriteLine("Aha")
End If
For n = 0 To foundRowsLevel5.GetUpperBound(0)
Dim ID6 = foundRowsLevel5(n)("GUID")
Dim LevelEntity6 = foundRowsLevel5(n)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity6)
Dim controlID6 = foundRowsLevel5(n)("CONTROL_ID")
Dim nodetext6 = foundRowsLevel5(n)("NODE_CAPTION")
RECORD_ID = foundRowsLevel5(n)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel5(n)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL5_NODE As TreeNode
LEVEL5_NODE = New TreeNode(nodetext6)
LEVEL5_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity6 Then
Exit For
End If
index += 1
Next
LEVEL5_NODE.ImageIndex = index
LEVEL5_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL4_NODE.Nodes.Add(LEVEL5_NODE)
'### LEVEL 5 laden #######
Dim expressionLevel6 As String
expressionLevel6 = "PARENT_GUID = " & ID6 'TYPE_NODE = 6 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel6() As DataRow
foundRowsLevel6 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel6, sortExp)
If ID6 = 1146 Then
Console.WriteLine("Aha")
End If
Dim o As Integer
For o = 0 To foundRowsLevel6.GetUpperBound(0)
Dim ID7 = foundRowsLevel6(o)("GUID")
Dim LevelEntity7 = foundRowsLevel6(o)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity7)
Dim controlID7 = foundRowsLevel6(o)("CONTROL_ID")
Dim nodetext7 = foundRowsLevel6(o)("NODE_CAPTION")
RECORD_ID = foundRowsLevel6(o)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel6(o)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL6_NODE As TreeNode
LEVEL6_NODE = New TreeNode(nodetext7)
LEVEL6_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity7 Then
Exit For
End If
index += 1
Next
LEVEL6_NODE.ImageIndex = index
LEVEL6_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL5_NODE.Nodes.Add(LEVEL6_NODE)
'### LEVEL 7 laden #######
Dim expressionLevel7 As String
expressionLevel7 = "PARENT_GUID = " & ID7 'TYPE_NODE = 7 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel7() As DataRow
foundRowsLevel7 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel7, sortExp)
Dim p As Integer
For p = 0 To foundRowsLevel7.GetUpperBound(0)
Dim ID8 = foundRowsLevel7(p)("GUID")
Dim LevelEntity8 = foundRowsLevel7(p)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity8)
Dim controlID8 = foundRowsLevel7(p)("CONTROL_ID")
Dim nodetext8 = foundRowsLevel7(p)("NODE_CAPTION")
RECORD_ID = foundRowsLevel7(p)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel7(p)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL7_NODE As TreeNode
LEVEL7_NODE = New TreeNode(nodetext8)
LEVEL7_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity8 Then
Exit For
End If
index += 1
Next
LEVEL7_NODE.ImageIndex = index
LEVEL7_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL6_NODE.Nodes.Add(LEVEL7_NODE)
'### LEVEL 7 laden #######
Dim expressionLevel8 As String
expressionLevel8 = "PARENT_GUID = " & ID8 'TYPE_NODE = 7 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel8() As DataRow
foundRowsLevel8 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel8, sortExp)
Dim q As Integer
For q = 0 To foundRowsLevel8.GetUpperBound(0)
Dim ID9 = foundRowsLevel8(q)("GUID")
Dim LevelEntity9 = foundRowsLevel8(q)("ENTITY_ID")
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity9)
Dim controlID9 = foundRowsLevel8(q)("CONTROL_ID")
Dim nodetext9 = foundRowsLevel8(q)("NODE_CAPTION")
RECORD_ID = foundRowsLevel8(q)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel8(q)("NODE_CONFIG_ID")
' Node erstellen..
Dim LEVEL8_NODE As TreeNode
LEVEL8_NODE = New TreeNode(nodetext9)
LEVEL8_NODE.Tag = CreateNODE_TAG(LevelEntity, ID, RECORD_ID, NODE_CONFIG_ID)
index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img = NODE_CONFIG_ID & "#" & LevelEntity9 Then
Exit For
End If
index += 1
Next
LEVEL8_NODE.ImageIndex = index
LEVEL8_NODE.SelectedImageIndex = index
' ..und einfügen
LEVEL7_NODE.Nodes.Add(LEVEL8_NODE)
'### LEVEL 8 laden #######
Next ' Level 7 Ende
Next ' Level 7 Ende
Next ' Level 6 Ende
Next ' Level 5 Ende
Next 'Level 4 Ende
Next 'Level 3 Ende
Next ' Level 2 Ende
Next 'Level 1 Ende
Next
mytrv.Nodes.Add(LEVEL0_NODE)
Else
MsgBox("No Nodes for Navigation. Check the Control Navigation Option or inform Digital Data!", MsgBoxStyle.Critical)
Return Nothing
End If
Return mytrv
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodes (NodeNavigation): " & ex.Message, True)
MsgBox("Error in CreateTreeViewNodes (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Public Shared Function Return_ENTITY_FOR_TAG(NodeString As String) Public Shared Function Return_ENTITY_FOR_TAG(NodeString As String)
If IsNumeric(NodeString) Then If IsNumeric(NodeString) Then
@@ -551,6 +208,7 @@
End If End If
End Function End Function
Public Shared Function Return_RECORD_forTag(NodeString As String) Public Shared Function Return_RECORD_forTag(NodeString As String)
Dim sw As New SW("Return_RECORD_forTag")
If IsNumeric(NodeString) Then If IsNumeric(NodeString) Then
Return NodeString Return NodeString
Else Else
@@ -559,15 +217,19 @@
Try Try
Dim _RECORD = staticListItems(3).ToString.Replace("RECORD-ID", "") Dim _RECORD = staticListItems(3).ToString.Replace("RECORD-ID", "")
If IsNumeric(_RECORD) Then If IsNumeric(_RECORD) Then
sw.Done()
Return _RECORD Return _RECORD
Else Else
sw.Done()
Return 0 Return 0
End If End If
Catch ex As Exception Catch ex As Exception
sw.Done()
ClassLogger.Add("Unexpected Error in Return_RECORD_forTag ('" & NodeString & "'): " & ex.Message, True) ClassLogger.Add("Unexpected Error in Return_RECORD_forTag ('" & NodeString & "'): " & ex.Message, True)
Return 0 Return 0
End Try End Try
Else Else
sw.Done()
Return 0 Return 0
End If End If

1
app/DD-Record-Organizer/ClassRecordCommands.vb
View File

@@ -52,6 +52,7 @@ Public Class ClassRecordCommands
Return ClassDatabase.Execute_non_Query(SQL) Return ClassDatabase.Execute_non_Query(SQL)
End Function End Function
Public Shared Function CHECK_RECORD_FINAL(RecordId As Integer, IsInsert As Boolean) Public Shared Function CHECK_RECORD_FINAL(RecordId As Integer, IsInsert As Boolean)
If RecordId = 0 Then Return True
Dim SQL = String.Format("EXEC PRPMO_RECORD_CHECK_INTEGRITY {0},'{1}',{2}", RecordId, Environment.UserName, IsInsert) Dim SQL = String.Format("EXEC PRPMO_RECORD_CHECK_INTEGRITY {0},'{1}',{2}", RecordId, Environment.UserName, IsInsert)
Return ClassDatabase.Execute_non_Query(SQL) Return ClassDatabase.Execute_non_Query(SQL)
End Function End Function

2
app/DD-Record-Organizer/ClassRightManagement.vb
View File

@@ -1,6 +1,7 @@
Public Class ClassRightManagement Public Class ClassRightManagement
Public Shared Sub Check_Set_Rights(RECORD_ID As Integer, ENTITY_ID As Integer) Public Shared Sub Check_Set_Rights(RECORD_ID As Integer, ENTITY_ID As Integer)
Try Try
Dim sw = New SW("Check_Set_Rights")
RIGHT_EDIT_R = True RIGHT_EDIT_R = True
RIGHT_ADD_R = True RIGHT_ADD_R = True
RIGHT_DELETE_R = True RIGHT_DELETE_R = True
@@ -76,6 +77,7 @@
ClassLogger.Add(" >> RIGHT_DELETE_DOC: " & RIGHT_DELETE_DOC.ToString, False) ClassLogger.Add(" >> RIGHT_DELETE_DOC: " & RIGHT_DELETE_DOC.ToString, False)
ClassLogger.Add(" >> RIGHT_READ_ONLY_DOC: " & RIGHT_READ_ONLY_DOC.ToString, False) ClassLogger.Add(" >> RIGHT_READ_ONLY_DOC: " & RIGHT_READ_ONLY_DOC.ToString, False)
End If End If
sw.Done()
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Check_Set_Rights", ex.Message, ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Check_Set_Rights", ex.Message, ex.StackTrace)
End Try End Try

15
app/DD-Record-Organizer/ModuleHelperMethods.vb
View File

@@ -513,10 +513,23 @@ Module ModuleHelperMethods
End Sub End Sub
Public Function Done() As Long Public Function Done() As Long
If LogErrorsOnly = True Then Return 0
stopwatch.Stop() stopwatch.Stop()
Dim message = String.Format("{0, 5}ms || {1}", stopwatch.ElapsedMilliseconds, label) Dim ts As TimeSpan = stopwatch.Elapsed
Dim timespan_ = String.Format("{0:00}:{1:00}.{2:00}", ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
If ts.Minutes > 0 Then
timespan_ = String.Format("{0:00}:{1:00}.{2:00}", ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
ElseIf ts.Seconds > 0 And (ts.Minutes > 0) = False Then
timespan_ = String.Format("{0:00}.{1:00} seconds", ts.Seconds, ts.Milliseconds / 10)
ElseIf (ts.Seconds > 0) = False And ts.Milliseconds > 0 Then
timespan_ = String.Format("{0:00}.{1:00} seconds", ts.Seconds, ts.Milliseconds / 10)
End If
If timespan_ <> "00:00.00" Then
Dim message = String.Format("{0} || {1}", timespan_, label)
Console.WriteLine(message) Console.WriteLine(message)
If LogErrorsOnly = False Then ClassLogger.Add(message, False) If LogErrorsOnly = False Then ClassLogger.Add(message, False)
End If
Return stopwatch.ElapsedMilliseconds Return stopwatch.ElapsedMilliseconds
End Function End Function

4
app/DD-Record-Organizer/My Project/AssemblyInfo.vb
View File

@@ -14,7 +14,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyDescription("")> <Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")> <Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("ADDI - Akte der Dinge")> <Assembly: AssemblyProduct("ADDI - Akte der Dinge")>
<Assembly: AssemblyCopyright("Copyright © 2017")> <Assembly: AssemblyCopyright("Copyright © 2018")>
<Assembly: AssemblyTrademark("")> <Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)> <Assembly: ComVisible(False)>
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.9.6")> <Assembly: AssemblyVersion("2.4.9.7")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

7
app/DD-Record-Organizer/frmConstructor_Main.Designer.vb generated
View File

@@ -221,6 +221,7 @@ Partial Class frmConstructor_Main
Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components) Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components)
Me.TBPMO_RECORD_VARIANTTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter() Me.TBPMO_RECORD_VARIANTTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter()
Me.TimerClearResultfiles = New System.Windows.Forms.Timer(Me.components) Me.TimerClearResultfiles = New System.Windows.Forms.Timer(Me.components)
Me.BW_LoadTreeView = New System.ComponentModel.BackgroundWorker()
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerMain.SuspendLayout() Me.SplitContainerMain.SuspendLayout()
CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1540,6 +1541,11 @@ Partial Class frmConstructor_Main
' '
Me.TimerClearResultfiles.Interval = 3000 Me.TimerClearResultfiles.Interval = 3000
' '
'BW_LoadTreeView
'
Me.BW_LoadTreeView.WorkerReportsProgress = True
Me.BW_LoadTreeView.WorkerSupportsCancellation = True
'
'frmConstructor_Main 'frmConstructor_Main
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@@ -1806,4 +1812,5 @@ Partial Class frmConstructor_Main
Friend WithEvents tstxtboxSearchNode As ToolStripTextBox Friend WithEvents tstxtboxSearchNode As ToolStripTextBox
Friend WithEvents ContextMenuStripClipboard As ContextMenuStrip Friend WithEvents ContextMenuStripClipboard As ContextMenuStrip
Friend WithEvents tslblDocIDMain As ToolStripStatusLabel Friend WithEvents tslblDocIDMain As ToolStripStatusLabel
Friend WithEvents BW_LoadTreeView As System.ComponentModel.BackgroundWorker
End Class End Class

73
app/DD-Record-Organizer/frmConstructor_Main.resx
View File

@@ -132,7 +132,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<metadata name="cmsTreeView.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="cmsTreeView.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>468, 56</value> <value>615, 56</value>
</metadata> </metadata>
<data name="ResetEbenenAuswahlToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="ResetEbenenAuswahlToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>220, 22</value> <value>220, 22</value>
@@ -534,7 +534,7 @@
<value>0, 25</value> <value>0, 25</value>
</data> </data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>981, 212</value> <value>988, 212</value>
</data> </data>
<data name="GridControlMain.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@@ -552,7 +552,7 @@
<value>0</value> <value>0</value>
</data> </data>
<metadata name="ToolStripRecords.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStripRecords.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>969, 56</value> <value>1116, 56</value>
</metadata> </metadata>
<data name="tslbldisplayRecords.Font" type="System.Drawing.Font, System.Drawing"> <data name="tslbldisplayRecords.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9pt, style=Bold, Italic</value> <value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
@@ -677,7 +677,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>981, 25</value> <value>988, 25</value>
</data> </data>
<data name="ToolStripRecords.TabIndex" type="System.Int32, mscorlib"> <data name="ToolStripRecords.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@@ -761,7 +761,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>699, 376</value> <value>699, 383</value>
</data> </data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib"> <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>4</value> <value>4</value>
@@ -791,7 +791,7 @@
<value>0, 26</value> <value>0, 26</value>
</data> </data>
<data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
<value>555, 326</value> <value>562, 333</value>
</data> </data>
<data name="pnlDocFill.TabIndex" type="System.Int32, mscorlib"> <data name="pnlDocFill.TabIndex" type="System.Int32, mscorlib">
<value>5</value> <value>5</value>
@@ -809,7 +809,7 @@
<value>0</value> <value>0</value>
</data> </data>
<metadata name="statStripDoc.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="statStripDoc.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1113, 56</value> <value>17, 95</value>
</metadata> </metadata>
<data name="tslblDocIDTab1.Size" type="System.Drawing.Size, System.Drawing"> <data name="tslblDocIDTab1.Size" type="System.Drawing.Size, System.Drawing">
<value>46, 19</value> <value>46, 19</value>
@@ -838,10 +838,10 @@
<value>Ansicht eingeschränkt - Klick Bearbeiten für Entsperren</value> <value>Ansicht eingeschränkt - Klick Bearbeiten für Entsperren</value>
</data> </data>
<data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing"> <data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 352</value> <value>0, 359</value>
</data> </data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing"> <data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>555, 24</value> <value>562, 24</value>
</data> </data>
<data name="statStripDoc.TabIndex" type="System.Int32, mscorlib"> <data name="statStripDoc.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@@ -868,7 +868,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>555, 26</value> <value>562, 26</value>
</data> </data>
<data name="pnlDocToolStrip.TabIndex" type="System.Int32, mscorlib"> <data name="pnlDocToolStrip.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@@ -889,7 +889,7 @@
<value>Panel2</value> <value>Panel2</value>
</data> </data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1270, 380</value> <value>1270, 387</value>
</data> </data>
<data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib"> <data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@@ -1065,7 +1065,7 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1270, 405</value> <value>1270, 412</value>
</data> </data>
<data name="TabDetails.Text" xml:space="preserve"> <data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value> <value>Detailansicht</value>
@@ -1083,7 +1083,7 @@
<value>0</value> <value>0</value>
</data> </data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1276, 436</value> <value>1276, 443</value>
</data> </data>
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib"> <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
<value>3</value> <value>3</value>
@@ -1101,7 +1101,7 @@
<value>255, 128, 0</value> <value>255, 128, 0</value>
</data> </data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1270, 380</value> <value>1270, 387</value>
</data> </data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@@ -1119,7 +1119,7 @@
<value>0</value> <value>0</value>
</data> </data>
<metadata name="BindingNavigatorPOS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BindingNavigatorPOS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>799, 56</value> <value>946, 56</value>
</metadata> </metadata>
<data name="BindingNavigatorAddNewItem.Enabled" type="System.Boolean, mscorlib"> <data name="BindingNavigatorAddNewItem.Enabled" type="System.Boolean, mscorlib">
<value>False</value> <value>False</value>
@@ -1355,7 +1355,7 @@
</value> </value>
</data> </data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1270, 405</value> <value>1270, 412</value>
</data> </data>
<data name="TabPos.Text" xml:space="preserve"> <data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value> <value>Positionen</value>
@@ -1373,7 +1373,7 @@
<value>1</value> <value>1</value>
</data> </data>
<metadata name="cmsResultFilesBasic.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="cmsResultFilesBasic.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>706, 95</value> <value>1081, 95</value>
</metadata> </metadata>
<data name="cmDoc1FileOpen.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmDoc1FileOpen.Size" type="System.Drawing.Size, System.Drawing">
<value>148, 22</value> <value>148, 22</value>
@@ -1417,7 +1417,7 @@
<value>Aqua</value> <value>Aqua</value>
</data> </data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1270, 380</value> <value>1270, 387</value>
</data> </data>
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
<value>7</value> <value>7</value>
@@ -1519,7 +1519,7 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1270, 405</value> <value>1270, 412</value>
</data> </data>
<data name="TabWindream.Text" xml:space="preserve"> <data name="TabWindream.Text" xml:space="preserve">
<value>Dateien</value> <value>Dateien</value>
@@ -1950,7 +1950,7 @@
<value>2</value> <value>2</value>
</data> </data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1270, 405</value> <value>1270, 412</value>
</data> </data>
<data name="TabFollowUp.Text" xml:space="preserve"> <data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value> <value>Wiedervorlage</value>
@@ -1977,7 +1977,7 @@
<value>Black</value> <value>Black</value>
</data> </data>
<metadata name="TBPMO_RECORD_VARIANTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPMO_RECORD_VARIANTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value> <value>392, 95</value>
</metadata> </metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1140, 17</value> <value>1140, 17</value>
@@ -2061,7 +2061,7 @@
<value>5</value> <value>5</value>
</data> </data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1270, 380</value> <value>1270, 387</value>
</data> </data>
<data name="GridControl1.TabIndex" type="System.Int32, mscorlib"> <data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
<value>90</value> <value>90</value>
@@ -2079,7 +2079,7 @@
<value>0</value> <value>0</value>
</data> </data>
<metadata name="tsVariants.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="tsVariants.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1231, 56</value> <value>135, 95</value>
</metadata> </metadata>
<data name="tslblVariantsCount.Font" type="System.Drawing.Font, System.Drawing"> <data name="tslblVariantsCount.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9pt, style=Bold, Italic</value> <value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
@@ -2133,7 +2133,7 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value>1270, 405</value> <value>1270, 412</value>
</data> </data>
<data name="TabPageVariant.Text" xml:space="preserve"> <data name="TabPageVariant.Text" xml:space="preserve">
<value>Vorgängervarianten</value> <value>Vorgängervarianten</value>
@@ -2220,7 +2220,7 @@
<value>7</value> <value>7</value>
</data> </data>
<metadata name="ContextMenuStripResultFiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStripResultFiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>591, 56</value> <value>738, 56</value>
</metadata> </metadata>
<data name="docCM_Open.Size" type="System.Drawing.Size, System.Drawing"> <data name="docCM_Open.Size" type="System.Drawing.Size, System.Drawing">
<value>251, 22</value> <value>251, 22</value>
@@ -2442,7 +2442,7 @@
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<metadata name="ContextMenuStripClipboard.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStripClipboard.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1028, 95</value> <value>182, 134</value>
</metadata> </metadata>
<data name="ContextMenuStripClipboard.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuStripClipboard.Size" type="System.Drawing.Size, System.Drawing">
<value>61, 4</value> <value>61, 4</value>
@@ -2543,7 +2543,7 @@
<value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<metadata name="cmsrpContainer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="cmsrpContainer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>568, 95</value> <value>943, 95</value>
</metadata> </metadata>
<data name="ChangeHidepanelToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="ChangeHidepanelToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>172, 22</value> <value>172, 22</value>
@@ -2561,19 +2561,22 @@
<value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<metadata name="VWPMO_WF_USER_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="VWPMO_WF_USER_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value> <value>164, 56</value>
</metadata> </metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>295, 56</value> <value>442, 56</value>
</metadata> </metadata>
<metadata name="ToolTipController.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolTipController.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1283, 17</value> <value>17, 56</value>
</metadata> </metadata>
<metadata name="TBPMO_RECORD_VARIANTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBPMO_RECORD_VARIANTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>295, 95</value> <value>670, 95</value>
</metadata> </metadata>
<metadata name="TimerClearResultfiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerClearResultfiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>863, 95</value> <value>17, 134</value>
</metadata>
<metadata name="BW_LoadTreeView.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>240, 95</value>
</metadata> </metadata>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
@@ -3930,6 +3933,12 @@
<data name="&gt;&gt;TimerClearResultfiles.Type" xml:space="preserve"> <data name="&gt;&gt;TimerClearResultfiles.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;BW_LoadTreeView.Name" xml:space="preserve">
<value>BW_LoadTreeView</value>
</data>
<data name="&gt;&gt;BW_LoadTreeView.Type" xml:space="preserve">
<value>System.ComponentModel.BackgroundWorker, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmConstructor_Main</value> <value>frmConstructor_Main</value>
</data> </data>

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

@@ -14,6 +14,7 @@ Imports System.Runtime.InteropServices
Imports DD_Rights Imports DD_Rights
Imports DD_LIB_Standards Imports DD_LIB_Standards
Imports DevExpress.LookAndFeel Imports DevExpress.LookAndFeel
Imports System.ComponentModel
Public Class frmConstructor_Main Public Class frmConstructor_Main
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)> <DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
@@ -77,6 +78,8 @@ Public Class frmConstructor_Main
Private POS_ENTITY As Integer = 0 Private POS_ENTITY As Integer = 0
Private POS_SQL As String = "" Private POS_SQL As String = ""
Private POS_RECORD_ID Private POS_RECORD_ID
Private MyTreeview As TreeView
Private TreeView_perControl As Boolean = False Private TreeView_perControl As Boolean = False
@@ -158,6 +161,7 @@ Public Class frmConstructor_Main
Private LOAD_DIRECT As Boolean = False Private LOAD_DIRECT As Boolean = False
Private IS_SINGLE_RECORD As Boolean = False Private IS_SINGLE_RECORD As Boolean = False
Private LOAD_ENTITY_SEARCH_AT_STARTUP As Boolean = False Private LOAD_ENTITY_SEARCH_AT_STARTUP As Boolean = False
Private SELECTION_IN_ACTION As Boolean = False
Private RECORD_ID As Integer Private RECORD_ID As Integer
Private PARENT_ENTITYID As Integer Private PARENT_ENTITYID As Integer
Private DOC_SEARCH_TAB1 As Boolean = False Private DOC_SEARCH_TAB1 As Boolean = False
@@ -250,11 +254,12 @@ Public Class frmConstructor_Main
End Sub End Sub
Private Sub frmForm_Constructor_Main_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmForm_Constructor_Main_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim sw As New Stopwatch Dim sw As New SW("Form Load")
Dim DT_PROXY_ENTITY As DataTable Dim DT_PROXY_ENTITY As DataTable
Dim SQL Dim SQL
Try Try
sw.Start() progressLoadEntity.Visible = False
labelLoadEntity.Visible = False
CURRENT_DT_DOC_ENTITY_SEARCH = Nothing CURRENT_DT_DOC_ENTITY_SEARCH = Nothing
tsslblRecord.Text = "" tsslblRecord.Text = ""
tsslblStatus.Text = "" tsslblStatus.Text = ""
@@ -405,14 +410,21 @@ Public Class frmConstructor_Main
"WHERE T.GUID = T1.WF_ID " & "WHERE T.GUID = T1.WF_ID " &
"GROUP BY T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP" "GROUP BY T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP"
DT_WORKFLOWS_MANUAL = ClassDatabase.Return_Datatable(sql_ResultList) DT_WORKFLOWS_MANUAL = ClassDatabase.Return_Datatable(sql_ResultList)
Load_Tree_View(CONSTRUCTORID) ' Load_Tree_View()
' Load_Tree_View()
'Do While BW_LoadTreeView.IsBusy
'Loop
'If Not IsNothing(MyTreeview) Then
' For Each node As TreeNode In MyTreeview.Nodes
' TreeViewMain.Nodes.Add(node.Clone)
' Next
'End If
FORM_LOADED = True FORM_LOADED = True
Dim elapsed As Double sw.Done()
elapsed = sw.Elapsed.TotalSeconds If LogErrorsOnly = False Then ClassLogger.Add("", False)
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Form Load took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As System.Exception Catch ex As System.Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 4") ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 4")
End Try End Try
@@ -921,34 +933,30 @@ Public Class frmConstructor_Main
End If End If
End Sub End Sub
Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged 'Private Sub grvwGrid_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles grvwGrid.FocusedColumnChanged
Cursor = Cursors.WaitCursor ' Dim result = SplitContainerMain.Collapsed
Column_Row_Handler() ' If SplitContainerMain.Collapsed = False Then
Me.Cursor = Cursors.Default ' Cursor = Cursors.WaitCursor
End Sub ' Column_Row_Handler("grvwGrid_FocusedColumnChanged")
' Me.Cursor = Cursors.Default
' End If
'End Sub
Private Sub GridView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged, grvwTiles.FocusedRowChanged, grvwCarousel.FocusedRowChanged Private Sub GridView_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged, grvwTiles.FocusedRowChanged, grvwCarousel.FocusedRowChanged
Dim sw As New Stopwatch If SplitContainerMain.Collapsed = False Then
sw.Start()
Dim elapsed As Double
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Column_Row_Handler() Column_Row_Handler("GridView_FocusedRowChanged")
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
elapsed = sw.Elapsed.TotalSeconds End If
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >>>> GridView_FocusedRowChanged took " & Format(elapsed, "0.000000000") & " seconds", False)
End Sub End Sub
Private Sub gridView1_CustomDrawRowIndicator(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowIndicatorCustomDrawEventArgs) Private Sub gridView1_CustomDrawRowIndicator(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowIndicatorCustomDrawEventArgs)
If IsTopFirstRow Then If IsTopFirstRow Then
e.Info.ImageIndex = -1 e.Info.ImageIndex = -1
End If End If
End Sub End Sub
Sub Column_Row_Handler(Optional RECID As Integer = 0, Optional _navload As Boolean = False, Optional _refresh As Boolean = False) Sub Column_Row_Handler(Calltype As String, Optional RECID As Integer = 0, Optional _navload As Boolean = False, Optional _refresh As Boolean = False)
Try Try
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
If RECID = 0 Then
If _FormClosing = True Then 'Or SaveRoutine_Active = True If _FormClosing = True Then 'Or SaveRoutine_Active = True
Exit Sub Exit Sub
End If End If
@@ -959,6 +967,13 @@ Public Class frmConstructor_Main
If GRIDRightMouse_Clicked Then If GRIDRightMouse_Clicked Then
Exit Sub Exit Sub
End If End If
If SELECTION_IN_ACTION = True Then
Exit Sub
End If
Dim sw As New SW("Column_Row_Handler1")
If RECID = 0 Then
If NODE_NAVIGATION = True Then If NODE_NAVIGATION = True Then
' Exit Sub ' Exit Sub
End If End If
@@ -1007,14 +1022,10 @@ Public Class frmConstructor_Main
'Wird jetzt bei BeforeRowChange überprüft 'Wird jetzt bei BeforeRowChange überprüft
'Check_Record_Changed() 'Check_Record_Changed()
sw.Done()
DisableEditMode() DisableEditMode()
elapsed = sw.Elapsed.TotalSeconds sw = New SW("Column_Row_Handler2")
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Precheck Row took " & Format(elapsed, "0.000000000") & " seconds", False)
sw.Start()
' muss vor show selected record data kommen, ' muss vor show selected record data kommen,
' sodass die datasource für die angehakten werte existiert (checked list box) ' sodass die datasource für die angehakten werte existiert (checked list box)
CtrlBuilder.WatchRecordChanges = False CtrlBuilder.WatchRecordChanges = False
@@ -1025,22 +1036,22 @@ Public Class frmConstructor_Main
Show_Selected_Record_Data(CURRENT_RECORD_ID, False) Show_Selected_Record_Data(CURRENT_RECORD_ID, False)
End If End If
Dim sw1 As New Stopwatch sw.Done()
sw1.Start()
ClassRightManagement.Check_Set_Rights(CURRENT_RECORD_ID, ENTITY_ID) ClassRightManagement.Check_Set_Rights(CURRENT_RECORD_ID, ENTITY_ID)
CONTROL_HANDLING() CONTROL_HANDLING()
elapsed = sw1.Elapsed.TotalSeconds
sw1.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Check Rights took " & Format(elapsed, "0.000000000") & " seconds", False)
If TCDetails.SelectedTabPage Is Nothing Then If TCDetails.SelectedTabPage Is Nothing Then
Exit Sub Exit Sub
End If End If
If TabPos.PageVisible = True And TCDetails.SelectedTabPage.Name = "TabPos" Then If TabPos.PageVisible = True And TCDetails.SelectedTabPage.Name = "TabPos" Then
sw = New SW("POS-Handler in ColumnRowHandler")
Clear_GridPos_View() Clear_GridPos_View()
Dim POS_GRID_RECORD = Get_Focused_Row_Cell_Value_pos("Record-ID") Dim POS_GRID_RECORD = Get_Focused_Row_Cell_Value_pos("Record-ID")
Load_Pos_Data() Load_Pos_Data()
Load_POSGrid_Layout() Load_POSGrid_Layout()
sw.Done()
End If End If
If CURRENT_RECORD_ID > 0 Then If CURRENT_RECORD_ID > 0 Then
@@ -1056,20 +1067,20 @@ Public Class frmConstructor_Main
Get_RecordCounts_Nodes() Get_RecordCounts_Nodes()
Else Else
tsButtonAdd.Enabled = False tsButtonAdd.Enabled = False
'MsgBox(SplitContainerFORM.Collapsed)
'MsgBox(SplitContainerMain.Collapsed)
'MsgBox(SplitContainerTop.Collapsed)
If SplitContainerMain.Collapsed = False Then
SELECTION_IN_ACTION = True
SearchNodeForRecord(TreeViewMain.Nodes, RECORD_ID)
End If
SELECTION_IN_ACTION = False
End If End If
End If End If
'Liste der geänderten Control Values leeren 'Liste der geänderten Control Values leeren
CtrlBuilder.ControlsChanged.Clear() CtrlBuilder.ControlsChanged.Clear()
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
Console.WriteLine("Column_Row_Handler took {0}ms to load", sw.ElapsedMilliseconds)
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >>>> Column/Row Change took " & Format(elapsed, "0.000000000") & " seconds", False)
If NODE_NAVIGATION = True And _navload = False Then
SearchNode(TreeViewMain.Nodes, RECORD_ID)
End If
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error:", ex.Message & vbNewLine & ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error:", ex.Message & vbNewLine & ex.StackTrace)
@@ -1077,6 +1088,7 @@ Public Class frmConstructor_Main
End Sub End Sub
Sub CONTROL_HANDLING() Sub CONTROL_HANDLING()
Dim sw As New SW("CONTROL_HANDLING")
tsButtonSave.Enabled = True tsButtonSave.Enabled = True
If ADD_RECORDS_CONSTR = False Then If ADD_RECORDS_CONSTR = False Then
tsButtonAdd.Enabled = False tsButtonAdd.Enabled = False
@@ -1130,6 +1142,7 @@ Public Class frmConstructor_Main
End If End If
End If End If
End If End If
sw.Done()
End Sub End Sub
#End Region #End Region
@@ -1171,27 +1184,32 @@ Public Class frmConstructor_Main
NodeRecursive(aNode, searchRecord) NodeRecursive(aNode, searchRecord)
Next Next
End Sub End Sub
Public Sub SearchNode(tncoll As TreeNodeCollection, searchRecord As Integer) Public Sub SearchNodeForRecord(tncoll As TreeNodeCollection, searchRecord As Integer)
Try Try
Dim sw As New SW("SearchNodeForRecord: " & searchRecord.ToString)
Dim n As TreeNode Dim n As TreeNode
For Each n In TreeViewMain.Nodes For Each n In TreeViewMain.Nodes
NodeRecursive(n, searchRecord) NodeRecursive(n, searchRecord)
Next Next
sw.Done()
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Error in SearchNode: " & ex.Message, True) ClassLogger.Add("Error in SearchNodeForRecord: " & ex.Message, True)
End Try End Try
End Sub End Sub
Private Sub TreeViewMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewMain.AfterSelect Private Sub TreeViewMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewMain.AfterSelect
Dim sw As New SW("TreeViewMain_AfterSelect1")
Dim swAll As New SW("TreeViewMain_AfterSelect")
DisableEditMode() DisableEditMode()
If NODE_NAVIGATION = False Then If NODE_NAVIGATION = False Then
SetSelectedNodeStyle(TreeViewMain.Nodes) SetSelectedNodeStyle(TreeViewMain.Nodes)
Else Else
Dim sw1 As New SW("TreeViewSetSelectedNode")
ACT_EBENE_STRING = "NODE_NAVIGATION" ACT_EBENE_STRING = "NODE_NAVIGATION"
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode) ' Dim SelectedNode As TreeNode = e.Node 'TryCast(TreeViewMain.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then If e.Node IsNot Nothing Then
SelectedNode.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Bold) e.Node.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Bold)
SelectedNode.Text = SelectedNode.Text
End If End If
sw1.Done()
End If End If
Dim fl = FORM_LOADED Dim fl = FORM_LOADED
Dim firstORFOLLWOWIN Dim firstORFOLLWOWIN
@@ -1200,7 +1218,11 @@ Public Class frmConstructor_Main
Else Else
firstORFOLLWOWIN = False firstORFOLLWOWIN = False
End If End If
sw.Done()
Load_Datafor_Entity() Load_Datafor_Entity()
sw = New SW("TreeViewMain_AfterSelect2")
If DOC_SEARCH_TAB1 = True Then If DOC_SEARCH_TAB1 = True Then
tsbtnPanel1Collapse.Visible = True tsbtnPanel1Collapse.Visible = True
Else Else
@@ -1216,9 +1238,18 @@ Public Class frmConstructor_Main
If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then
Dim Record = ClassNodeNavigation.Return_RECORD_forTag(SelectedNode.Tag) Dim Record = ClassNodeNavigation.Return_RECORD_forTag(SelectedNode.Tag)
If Record <> 0 Then If Record <> 0 Then
ToolStripEdit.Enabled = True ToolStripEdit.Enabled = True
Column_Row_Handler(Record, True) If Record <> CURRENT_RECORD_ID Then
LocateRecordById(RECORD_ID) Column_Row_Handler("TreeviewAfterSelect", Record, True)
SELECTION_IN_ACTION = True
If SplitContainerMain.Collapsed = False Then
LocateRecordinGridById(RECORD_ID)
End If
End If
End If End If
If pnlDetails.Enabled = False Then pnlDetails.Enabled = True If pnlDetails.Enabled = False Then pnlDetails.Enabled = True
Else Else
@@ -1233,15 +1264,20 @@ Public Class frmConstructor_Main
End If End If
End If End If
End If End If
End If
End If
sw.Done()
sw = New SW("TreeViewMain_AfterSelect3")
Load_DocGrid_Layout() Load_DocGrid_Layout()
Load_Grid_Layout() Load_Grid_Layout()
Load_Variants_Grid_Layout() Load_Variants_Grid_Layout()
Load_Splitter_Layout() Load_Splitter_Layout()
SELECTION_IN_ACTION = False
sw.Done()
swAll.Done()
End Sub End Sub
Sub Doc_ReadOnlyHandler(state As Boolean) Sub Doc_ReadOnlyHandler(state As Boolean)
Dim sw As New SW("Doc_ReadOnlyHandler")
If state = False Then If state = False Then
GridControlDocSearch.ContextMenuStrip = cmsResultFilesBasic GridControlDocSearch.ContextMenuStrip = cmsResultFilesBasic
tslblDocViewLocked.Visible = True tslblDocViewLocked.Visible = True
@@ -1249,6 +1285,7 @@ Public Class frmConstructor_Main
GridControlDocSearch.ContextMenuStrip = ContextMenuStripResultFiles GridControlDocSearch.ContextMenuStrip = ContextMenuStripResultFiles
tslblDocViewLocked.Visible = False tslblDocViewLocked.Visible = False
End If End If
sw.Done()
End Sub End Sub
Private Sub TreeViewMain_BeforeSelect(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeSelect Private Sub TreeViewMain_BeforeSelect(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeSelect
If NODE_NAVIGATION = False Then If NODE_NAVIGATION = False Then
@@ -1266,11 +1303,12 @@ Public Class frmConstructor_Main
End If End If
End Sub End Sub
Sub Load_TreeView_Node_Navigation() Sub Load_TreeView_Node_Navigation()
MyTreeview = Nothing
Dim newTreeview As TreeView Dim newTreeview As TreeView
'If DT_TREEVIEW_NODES.Rows.Count > 500 Then 'If DT_TREEVIEW_NODES.Rows.Count > 500 Then
' newTreeview = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_NODES, TREEVIEW_IMAGELIST) ' newTreeview = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_NODES, TREEVIEW_IMAGELIST)
'Else 'Else
newTreeview = ClassNodeNavigation.CreateTreeViewNodesNew1(DT_TREEVIEW_NODES, TREEVIEW_IMAGELIST) newTreeview = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_NODES, TREEVIEW_IMAGELIST)
'End If 'End If
If Not IsNothing(newTreeview) Then If Not IsNothing(newTreeview) Then
@@ -1282,16 +1320,21 @@ Public Class frmConstructor_Main
' TreeViewMain.ExpandAll() ' TreeViewMain.ExpandAll()
'End If 'End If
End Sub End Sub
Sub Load_Tree_View(ConstructorId As Integer) Sub START_BW_LoadTreeView()
Try If BW_LoadTreeView.IsBusy <> True Then
Dim sw As New SW("Load_Tree_View")
TreeViewMain.Nodes.Clear() TreeViewMain.Nodes.Clear()
BW_LoadTreeView.RunWorkerAsync()
End If
End Sub
Sub Load_Tree_View()
Try
TreeViewMain.Nodes.Clear()
Dim sw As New SW("Load_Tree_View")
If NODE_NAVIGATION = True Then If NODE_NAVIGATION = True Then
Try Try
Load_TreeView_Node_Navigation() Load_TreeView_Node_Navigation()
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Load_TreeView_Node_Navigation", ex.Message, ex.StackTrace)
End Try End Try
Else Else
' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS ' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
@@ -1361,18 +1404,29 @@ Public Class frmConstructor_Main
Next Next
Next Next
End If End If
If NODE_NAVIGATION = False Then
TreeViewMain.ExpandAll()
End If
TreeViewMain.Nodes(0).EnsureVisible()
sw.Done() sw.Done()
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
End Try End Try
End Sub
Private Sub BW_LoadTreeView_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BW_LoadTreeView.RunWorkerCompleted
progressLoadEntity.Visible = False
If NODE_NAVIGATION = False Then
TreeViewMain.ExpandAll()
End If
TreeViewMain.Nodes(0).EnsureVisible()
End Sub End Sub
Private Sub BW_Load_EntityData_DoWork(sender As Object, e As DoWorkEventArgs) Handles BW_LoadTreeView.DoWork
Try
Load_Tree_View()
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in BW_Load_EntityData_DoWork", ex.Message, ex.StackTrace)
End Try
End Sub
Sub Create_variable_node() Sub Create_variable_node()
End Sub End Sub
@@ -1381,7 +1435,7 @@ Public Class frmConstructor_Main
' MsgBox("Proxy-Server is actually synchronizing! Please wait until synchronisation is finished!" & vbNewLine & "This might take up to 3 minutes!", MsgBoxStyle.Information) ' MsgBox("Proxy-Server is actually synchronizing! Please wait until synchronisation is finished!" & vbNewLine & "This might take up to 3 minutes!", MsgBoxStyle.Information)
' Exit Sub ' Exit Sub
'End If 'End If
'Try Try
'CURRENT_DATE_FORMAT = USER_DATE_FORMAT 'CURRENT_DATE_FORMAT = USER_DATE_FORMAT
@@ -1394,8 +1448,7 @@ Public Class frmConstructor_Main
End If End If
End If End If
Dim sw As New Stopwatch Dim sw As New SW("Load_Datafor_Entity")
sw.Start()
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode) Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then If SelectedNode IsNot Nothing Then
@@ -1472,10 +1525,6 @@ Public Class frmConstructor_Main
Next Next
End If 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 NODE_NAVIGATION = True Then
If SelectedNode.Tag.ToString.Contains("RECORD_ID") Then If SelectedNode.Tag.ToString.Contains("RECORD_ID") Then
Console.WriteLine("Record beinhaltet") Console.WriteLine("Record beinhaltet")
@@ -1484,24 +1533,24 @@ Public Class frmConstructor_Main
Else Else
Get_RecordCounts_Nodes() Get_RecordCounts_Nodes()
End If End If
Load_Entity_Data(ACT_EBENE) sw.Done()
Load_Entity_Data()
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 End If
'Catch ex As Exception Catch ex As Exception
' ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Load_Datafor_Entity: " & ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Load_Datafor_Entity: " & ex.StackTrace)
'End Try End Try
End Sub End Sub
Sub Get_RecordCounts_Nodes() Sub Get_RecordCounts_Nodes()
'Try Try
If NODE_NAVIGATION = True Then If NODE_NAVIGATION = True Then
Exit Sub Exit Sub
End If End If
Dim sw As New SW("Get_RecordCounts_Nodes")
Dim selnode As TreeNode = TreeViewMain.SelectedNode Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim a As Integer = 0 Dim a As Integer = 0
For Each childNodeLevel1 As TreeNode In selnode.Nodes For Each childNodeLevel1 As TreeNode In selnode.Nodes
@@ -1546,9 +1595,10 @@ Public Class frmConstructor_Main
End If End If
Next Next
'Catch ex As Exception sw.Done()
' ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Load_Datafor_Entity: " & ex.StackTrace) Catch ex As Exception
'End Try ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Load_Datafor_Entity: " & ex.StackTrace)
End Try
End Sub End Sub
Function ReturnAmountofRecords(EntityID As Integer) Function ReturnAmountofRecords(EntityID As Integer)
' Statt eine Table zurückzugeben, können wir die anzahl der Zeilen auch in der Datenbank berechnen, ' Statt eine Table zurückzugeben, können wir die anzahl der Zeilen auch in der Datenbank berechnen,
@@ -1649,9 +1699,7 @@ Public Class frmConstructor_Main
#Region "Controls" #Region "Controls"
Sub Load_Controls(frmview_id As Integer) Sub Load_Controls(frmview_id As Integer)
Dim sw As New Stopwatch Dim sw As New SW("Load_Controls")
sw.Start()
Dim elapsed As Double
FORMVIEW_ID = frmview_id FORMVIEW_ID = frmview_id
ENTITY_ID = DT_TBPMO_FORM_VIEW.Rows(0).Item("FORM_ID") ENTITY_ID = DT_TBPMO_FORM_VIEW.Rows(0).Item("FORM_ID")
CtrlBuilder = New ClassControlBuilder(pnlDetails) CtrlBuilder = New ClassControlBuilder(pnlDetails)
@@ -1664,10 +1712,7 @@ Public Class frmConstructor_Main
AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged
AddHandler CtrlBuilder.OnMouseHover, AddressOf HandleToolTip AddHandler CtrlBuilder.OnMouseHover, AddressOf HandleToolTip
elapsed = sw.Elapsed.TotalSeconds sw.Done()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Controls took " & Format(elapsed, "0.000000000") & " seconds", False)
sw.Stop()
sw.Reset()
End Sub End Sub
Private Sub HandleToolTip(sender As Object, e As EventArgs) Private Sub HandleToolTip(sender As Object, e As EventArgs)
@@ -1807,7 +1852,7 @@ Public Class frmConstructor_Main
Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click
Save_Record() Save_Record()
If ERROR_WHILE_SAVING = True Then If ERROR_WHILE_SAVING = True Then
Column_Row_Handler() Column_Row_Handler("tsButtonSave_Click")
End If End If
End Sub End Sub
@@ -1950,7 +1995,7 @@ Public Class frmConstructor_Main
If IS_SINGLE_RECORD = False Then If IS_SINGLE_RECORD = False Then
If FORM_TYPE <> 5 Then If FORM_TYPE <> 5 Then
Load_Entity_Data_Only() Load_Entity_Data_Only()
LocateRecordById(RECORD_ID) LocateRecordinGridById(RECORD_ID)
If EDIT_STATE = EditState.Insert Then If EDIT_STATE = EditState.Insert Then
'Die Daten neu laden 'Die Daten neu laden
@@ -2043,7 +2088,7 @@ Public Class frmConstructor_Main
RECORD_CHANGED = False RECORD_CHANGED = False
'Den derzeitigen Record Neuladen 'Den derzeitigen Record Neuladen
DisableEditMode() DisableEditMode()
Load_Entity_Data(ACT_EBENE) Load_Entity_Data()
RECORD_CHANGED = False RECORD_CHANGED = False
End If End If
End If End If
@@ -2137,6 +2182,9 @@ Public Class frmConstructor_Main
End Sub End Sub
Sub DisableEditMode() Sub DisableEditMode()
If RECORD_ID = 0 Then Exit Sub
Dim sw As New SW("DisableEditMode")
Dim REC = RECORD_ID Dim REC = RECORD_ID
ClassRecordState.UnlockRecord(SELECTED_RECORD_ID) ClassRecordState.UnlockRecord(SELECTED_RECORD_ID)
Dim isinsert As Boolean Dim isinsert As Boolean
@@ -2190,7 +2238,7 @@ Public Class frmConstructor_Main
End If End If
End If End If
sw.Done()
End Sub End Sub
#End Region #End Region
@@ -2227,11 +2275,12 @@ Public Class frmConstructor_Main
#End Region #End Region
Sub Load_Entity_Data(ClickedLevel As Integer) Sub Load_Entity_Data()
Try Try
If LogErrorsOnly = False Then ClassLogger.Add("START Load_Entity_Data", False)
Dim sw As New SW("Load_Entity_Data") Dim sw As New SW("Load_Entity_Data")
PARENT_SKIPPED = False PARENT_SKIPPED = False
Me.Cursor = Cursors.WaitCursor ' Me.Cursor = Cursors.WaitCursor
RECORD_CHANGED = False RECORD_CHANGED = False
RECORD_ID = 0 RECORD_ID = 0
Dim expression As String Dim expression As String
@@ -2374,7 +2423,7 @@ Public Class frmConstructor_Main
If CBool(LOAD_ENTITY_SEARCH_AT_STARTUP) = True Then If CBool(LOAD_ENTITY_SEARCH_AT_STARTUP) = True Then
ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, True, True) ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, True, True)
End If End If
Select Case ClickedLevel Select Case ACT_EBENE
Case 1 Case 1
EBENE1_ENTITY = "" EBENE1_ENTITY = ""
EBENE1_RECID = 0 EBENE1_RECID = 0
@@ -2596,8 +2645,8 @@ Public Class frmConstructor_Main
'Überprüfen ob es für diese Entität Wiedervorlagen gibt? 'Überprüfen ob es für diese Entität Wiedervorlagen gibt?
Check_FOLLOWUP_IsConfigured(ENTITY_ID) Check_FOLLOWUP_IsConfigured(ENTITY_ID)
SET_ROWCOUNT_STRING() SET_ROWCOUNT_STRING()
End If End If
If POS_ENTITY > 0 Then If POS_ENTITY > 0 Then
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
@@ -2642,8 +2691,6 @@ Public Class frmConstructor_Main
pnlDocToolStrip.Controls.Add(ToolStripDokumente) pnlDocToolStrip.Controls.Add(ToolStripDokumente)
pnlDocFill.Controls.Add(GridControlDocSearch) pnlDocFill.Controls.Add(GridControlDocSearch)
TabWindream.PageVisible = False TabWindream.PageVisible = False
Load_DocGrid_Layout() Load_DocGrid_Layout()
Else Else
SplitContainerDetails.PanelVisibility = SplitPanelVisibility.Panel1 SplitContainerDetails.PanelVisibility = SplitPanelVisibility.Panel1
@@ -2672,7 +2719,7 @@ Public Class frmConstructor_Main
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Load_Entity_Data", ex.Message, ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Load_Entity_Data", ex.Message, ex.StackTrace)
Finally Finally
Me.Cursor = Cursors.Default 'Me.Cursor = Cursors.Default
ENTITY_LOADED = True ENTITY_LOADED = True
End Try End Try
@@ -2685,7 +2732,7 @@ Public Class frmConstructor_Main
If Not IsNothing(Grid_RecordID) Then If Not IsNothing(Grid_RecordID) Then
Select Case ACT_EBENE Select Case ACT_EBENE
Case 1 Case 1
Column_Row_Handler() Column_Row_Handler("Load_Record_Direct")
'PARENT_RECORDID = Grid_RecordID 'PARENT_RECORDID = Grid_RecordID
'CURRENT_RECORD_ID = PARENT_RECORDID 'CURRENT_RECORD_ID = PARENT_RECORDID
'SELECTED_RECORD_ID = Grid_RecordID 'SELECTED_RECORD_ID = Grid_RecordID
@@ -3243,8 +3290,7 @@ Public Class frmConstructor_Main
'ListBoxUser2Profile.Items.Clear() 'ListBoxUser2Profile.Items.Clear()
grpbxFU_Profile.Enabled = False grpbxFU_Profile.Enabled = False
End Select End Select
Dim sw As New Stopwatch Dim sw As New SW("Show Selected RecordData 2")
sw.Start()
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden! ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False RECORD_CHANGED = False
'Refresh_Navpane() 'Refresh_Navpane()
@@ -3252,11 +3298,8 @@ Public Class frmConstructor_Main
Show_act_WFTask() Show_act_WFTask()
RECORD_ID = SELECTED_RECORD_ID RECORD_ID = SELECTED_RECORD_ID
Dim elapsed As Double sw.Done()
elapsed = sw.Elapsed.TotalSeconds - elapsed
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Show Selected RecordData 2 took " & Format(elapsed, "0.000000000") & " seconds", False)
If ENTITY_RELOAD_AFT_CONTROL_LOAD = True Then If ENTITY_RELOAD_AFT_CONTROL_LOAD = True Then
Reload_Entity_while_Control_Load() Reload_Entity_while_Control_Load()
End If End If
@@ -3443,6 +3486,7 @@ Public Class frmConstructor_Main
#Region "WindreamSuche" #Region "WindreamSuche"
Private Sub Check_windream_Show(FORM_VIEW_ID As Integer) Private Sub Check_windream_Show(FORM_VIEW_ID As Integer)
Try Try
'Dim sql = "SELECT * FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND GUID = " & FORM_VIEW_ID 'Dim sql = "SELECT * FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND GUID = " & FORM_VIEW_ID
'Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql) 'Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql)
Dim wdsearch = DT_TBPMO_FORM_VIEW.Rows(0).Item("DOCUMENT_VIEW") Dim wdsearch = DT_TBPMO_FORM_VIEW.Rows(0).Item("DOCUMENT_VIEW")
@@ -3458,9 +3502,8 @@ Public Class frmConstructor_Main
tsmiFilesearch.Enabled = True tsmiFilesearch.Enabled = True
windream_Docshow = True windream_Docshow = True
If windream_inited = False Then If windream_inited = False Then
Dim sw As New Stopwatch Dim sw As New SW("Check_windream_Show")
sw.Start()
Dim elapsed As Double
Try Try
If clsWindream.Create_Session = True Then If clsWindream.Create_Session = True Then
windream_inited = True windream_inited = True
@@ -3469,10 +3512,7 @@ Public Class frmConstructor_Main
windream_inited = False windream_inited = False
End Try End Try
elapsed = sw.Elapsed.TotalSeconds SW.Done()
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Windream init took " & Format(elapsed, "0.000000000") & " seconds", False)
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
@@ -3483,9 +3523,7 @@ Public Class frmConstructor_Main
End Sub End Sub
Private Sub WD_DELETE_DOCS(DT_RESULT As DataTable) Private Sub WD_DELETE_DOCS(DT_RESULT As DataTable)
Dim sw As New Stopwatch Dim sw As New SW("WD_DELETE_DOCS")
sw.Start()
Dim elapsed As Double
' Dim Basesearch As String ' Dim Basesearch As String
Try Try
If Not IsNothing(DT_RESULT) Then If Not IsNothing(DT_RESULT) Then
@@ -3542,18 +3580,14 @@ Public Class frmConstructor_Main
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in WD-Delete Docs: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in WD-Delete Docs: ", ex.Message)
End Try End Try
elapsed = sw.Elapsed.TotalSeconds sw.Done()
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run WD Delete Docs took " & Format(elapsed, "0.000000000") & " seconds", False)
Cursor = Cursors.Default Cursor = Cursors.Default
End Sub End Sub
Private Sub RUN_WDSEARCH_GRID() Private Sub RUN_WDSEARCH_GRID()
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Dim sw As New SW("RUN_WDSEARCH_GRID")
Try Try
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
If CURRENT_SEARCH_TYPE = "NODE_DOWN" Then If CURRENT_SEARCH_TYPE = "NODE_DOWN" Then
Dim node As TreeNode = TreeViewMain.SelectedNode Dim node As TreeNode = TreeViewMain.SelectedNode
Dim NODE_GUID = ClassNodeNavigation.Return_NODEID_forTag(node.Tag) Dim NODE_GUID = ClassNodeNavigation.Return_NODEID_forTag(node.Tag)
@@ -3703,13 +3737,11 @@ Public Class frmConstructor_Main
GridControlDocSearch.DataSource = Nothing GridControlDocSearch.DataSource = Nothing
'Clear_Windream_ResultList() 'Clear_Windream_ResultList()
End If End If
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run RUN_WDSEARCH_GRID took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Run WD-Search Database: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Run WD-Search Database: ", ex.Message)
End Try End Try
sw.Done()
Cursor = Cursors.Default Cursor = Cursors.Default
End Sub End Sub
Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs) Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs)
@@ -3957,8 +3989,7 @@ Public Class frmConstructor_Main
Sub Clear_Windream_ResultList() Sub Clear_Windream_ResultList()
Try Try
Dim sw As New Stopwatch Dim sw As New SW("Clear_Windream_ResultList")
sw.Start()
'AxObjectListControl.RemoveAllColumnHeader() 'AxObjectListControl.RemoveAllColumnHeader()
'Me.AxObjectListControl.ClearResultList() 'Me.AxObjectListControl.ClearResultList()
@@ -3967,11 +3998,7 @@ Public Class frmConstructor_Main
stg = "files" stg = "files"
End If End If
TabWindream.Text = stg TabWindream.Text = stg
Dim elapsed As Double sw.Done()
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Clear Result List took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Clear Result List: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Clear Result List: ", ex.Message)
End Try End Try
@@ -4069,7 +4096,7 @@ Public Class frmConstructor_Main
Dim XMLPath = Get_Grid_Layout_Filename() Dim XMLPath = Get_Grid_Layout_Filename()
If File.Exists(XMLPath) Then If File.Exists(XMLPath) Then
File.Delete(XMLPath) File.Delete(XMLPath)
Load_Entity_Data(ACT_EBENE) Load_Entity_Data()
End If End If
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Reset Layout Grid: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Reset Layout Grid: ", ex.Message)
@@ -4469,6 +4496,7 @@ Public Class frmConstructor_Main
Private Function Check_FOLLOWUP_IsConfigured(ENTITY_ID As Integer) Private Function Check_FOLLOWUP_IsConfigured(ENTITY_ID As Integer)
Try Try
Dim sw As New SW("Check_FOLLOWUP_IsConfigured")
Dim sql = "select * from TBPMO_FOLLOW_UP_EMAIL t where t.ACTIVE = 1 and t.DEPENDENT_DATE_CTRL_ID in (select guid from TBPMO_CONTROL where CONTROL_TYPE_ID = 4 and form_id = " & ENTITY_ID & ")" Dim sql = "select * from TBPMO_FOLLOW_UP_EMAIL t where t.ACTIVE = 1 and t.DEPENDENT_DATE_CTRL_ID in (select guid from TBPMO_CONTROL where CONTROL_TYPE_ID = 4 and form_id = " & ENTITY_ID & ")"
DT_FU_ENTITY = ClassDatabase.Return_Datatable(sql) DT_FU_ENTITY = ClassDatabase.Return_Datatable(sql)
@@ -4495,6 +4523,7 @@ Public Class frmConstructor_Main
FOLLOW_UPisActive = False FOLLOW_UPisActive = False
TabFollowUp.PageVisible = False TabFollowUp.PageVisible = False
End If End If
sw.done
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Check Follow Up: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Check Follow Up: ", ex.Message)
windream_Docshow = False windream_Docshow = False
@@ -4589,7 +4618,7 @@ Public Class frmConstructor_Main
EBENE3_ENTITY = "" EBENE3_ENTITY = ""
EBENE3_RECID = 0 EBENE3_RECID = 0
'NavPane.Categories.Clear() 'NavPane.Categories.Clear()
Load_Tree_View(CONSTRUCTORID) Load_Tree_View()
End Sub End Sub
Private Sub DateiimportEntitätToolStripMenuItem_Click(sender As Object, e As EventArgs) Private Sub DateiimportEntitätToolStripMenuItem_Click(sender As Object, e As EventArgs)
@@ -4641,22 +4670,22 @@ Public Class frmConstructor_Main
If ERROR_FORM_LOAD = True Then If ERROR_FORM_LOAD = True Then
Me.Close() Me.Close()
End If End If
Dim sw As Stopwatch = Stopwatch.StartNew() Dim sw As New SW("Form_Shown")
Dim elapsed As Double
Me.BringToFront() Me.BringToFront()
Load_Tree_View()
' LoadLayouts() ' LoadLayouts()
Load_Level1()
Jump_Record() Jump_Record()
sw.Stop() If NODE_NAVIGATION = False Then
elapsed = sw.Elapsed.TotalSeconds Load_Level1()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Form Shown took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False) End If
sw.Done()
If LogErrorsOnly = False Then ClassLogger.Add("", False)
FORM_SHOWN = True FORM_SHOWN = True
End Sub End Sub
Sub Jump_Record() Sub Jump_Record()
Try Try
Dim sw As Stopwatch = Stopwatch.StartNew() Dim sw As New SW("Jump_Record")
Dim elapsed As Double
If LogErrorsOnly = False Then ClassLogger.Add(" >> " & Now.ToString & " Jump_Record", False)
If JUMP_RECORD_ID > 0 Then If JUMP_RECORD_ID > 0 Then
Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", JUMP_RECORD_ID) Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", JUMP_RECORD_ID)
Dim FormID = ClassDatabase.Execute_Scalar(sql, True) Dim FormID = ClassDatabase.Execute_Scalar(sql, True)
@@ -4673,11 +4702,7 @@ Public Class frmConstructor_Main
If JUMP_RECORD_ID <> 0 Then If JUMP_RECORD_ID <> 0 Then
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Jump Record: ", "Record-ID " & JUMP_RECORD_ID & " konnte nicht gefunden werden") ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Jump Record: ", "Record-ID " & JUMP_RECORD_ID & " konnte nicht gefunden werden")
End If End If
sw.Done()
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Jump_Record took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Jump-Record: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Jump-Record: ", ex.Message)
End Try End Try
@@ -4693,7 +4718,7 @@ Public Class frmConstructor_Main
'Für Grid filtern wir die Aktuelle Ansicht nach der Record-ID, 'Für Grid filtern wir die Aktuelle Ansicht nach der Record-ID,
'für Carousel und Tiles markieren wir den Record 'für Carousel und Tiles markieren wir den Record
LocateRecordById(JUMP_RECORD_ID) LocateRecordinGridById(JUMP_RECORD_ID)
' Jump Record-ID wieder zurücksetzen ' Jump Record-ID wieder zurücksetzen
JUMP_RECORD_ID = 0 JUMP_RECORD_ID = 0
@@ -4709,7 +4734,7 @@ Public Class frmConstructor_Main
'Für Grid filtern wir die Aktuelle Ansicht nach der Record-ID, 'Für Grid filtern wir die Aktuelle Ansicht nach der Record-ID,
'für Carousel und Tiles markieren wir den Record 'für Carousel und Tiles markieren wir den Record
LocateRecordById(JUMP_RECORD_ID) LocateRecordinGridById(JUMP_RECORD_ID)
' Jump Record-ID wieder zurücksetzen ' Jump Record-ID wieder zurücksetzen
JUMP_RECORD_ID = 0 JUMP_RECORD_ID = 0
@@ -4720,7 +4745,8 @@ Public Class frmConstructor_Main
Next Next
End Sub End Sub
Public Sub LocateRecordById(RecordId As Integer) Public Sub LocateRecordinGridById(RecordId As Integer)
Dim sw As New SW("LocateRecordinGridById")
If GRID_TYPE = GridType.Grid Then If GRID_TYPE = GridType.Grid Then
Dim rowHandle = grvwGrid.LocateByValue(0, grvwGrid.Columns("Record-ID"), RecordId) Dim rowHandle = grvwGrid.LocateByValue(0, grvwGrid.Columns("Record-ID"), RecordId)
grvwGrid.FocusedRowHandle = rowHandle grvwGrid.FocusedRowHandle = rowHandle
@@ -4731,6 +4757,8 @@ Public Class frmConstructor_Main
Dim rowHandle = grvwTiles.LocateByValue(0, grvwTiles.Columns("Record-ID"), RecordId) Dim rowHandle = grvwTiles.LocateByValue(0, grvwTiles.Columns("Record-ID"), RecordId)
grvwTiles.FocusedRowHandle = rowHandle grvwTiles.FocusedRowHandle = rowHandle
End If End If
sw.Done()
End Sub End Sub
@@ -4794,25 +4822,20 @@ Public Class frmConstructor_Main
Sub Load_Level1() Sub Load_Level1()
Try Try
Dim sw As New SW("Load_Level1.0")
Dim sw As Stopwatch = Stopwatch.StartNew()
Dim elapsed As Double
' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS ' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
Dim result = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable() Dim result = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form Select form
Order By form.Item("SEQUENCE") Order By form.Item("SEQUENCE")
Where form.Item("PARENT_ID") = 0 Where form.Item("PARENT_ID") = 0
sw.Done()
sw = New SW("Load_Level1.1")
If result.Count >= 1 Then If result.Count >= 1 Then
Dim tn As TreeNode = TreeViewMain.Nodes(0) Dim tn As TreeNode = TreeViewMain.Nodes(0)
TreeViewMain.SelectedNode = tn TreeViewMain.SelectedNode = tn
TreeViewMain.Select() TreeViewMain.Select()
End If End If
sw.Done()
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Load_Level1 took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load_Level1: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Load_Level1: ", ex.Message)
End Try End Try
@@ -4942,6 +4965,7 @@ Public Class frmConstructor_Main
If e.Button = System.Windows.Forms.MouseButtons.Left AndAlso hitInfo.InRow AndAlso hitInfo.HitTest <> GridHitTest.RowIndicator Then If e.Button = System.Windows.Forms.MouseButtons.Left AndAlso hitInfo.InRow AndAlso hitInfo.HitTest <> GridHitTest.RowIndicator Then
GRIDdownHitInfo = hitInfo GRIDdownHitInfo = hitInfo
End If End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in grvwGrid_MouseDown: " & ex.Message, False) ClassLogger.Add(">> Unexpected Error in grvwGrid_MouseDown: " & ex.Message, False)
End Try End Try
@@ -5049,6 +5073,8 @@ Public Class frmConstructor_Main
SET_ROWCOUNT_STRING() SET_ROWCOUNT_STRING()
End Sub End Sub
Sub SET_ROWCOUNT_STRING() Sub SET_ROWCOUNT_STRING()
If NODE_NAVIGATION = True Then Exit Sub
Dim sw As New SW("SET_ROWCOUNT_STRING")
Dim selnode As TreeNode = TreeViewMain.SelectedNode Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim origtext As String = selnode.Text Dim origtext As String = selnode.Text
If origtext.Contains(" (") Then If origtext.Contains(" (") Then
@@ -5062,6 +5088,7 @@ Public Class frmConstructor_Main
msg = "number of records: " msg = "number of records: "
End If End If
tslbldisplayRecords.Text = msg & grvwGrid.RowCount tslbldisplayRecords.Text = msg & grvwGrid.RowCount
sw.Done()
End Sub End Sub
Public Sub New() Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
@@ -5264,7 +5291,7 @@ Public Class frmConstructor_Main
RECORD_CHANGED = False RECORD_CHANGED = False
' Den derzeitigen Record Neuladen ' Den derzeitigen Record Neuladen
Column_Row_Handler() Column_Row_Handler("tsButtonCancel_Click")
End Sub End Sub
Private Sub tsbtnRedo_Click(sender As Object, e As EventArgs) Handles tsbtnRedo.Click Private Sub tsbtnRedo_Click(sender As Object, e As EventArgs) Handles tsbtnRedo.Click
@@ -5272,7 +5299,7 @@ Public Class frmConstructor_Main
Dim proc = String.Format("EXEC PRPMO_REDO_RECORD_CHANGES {0}", RECORD_ID) Dim proc = String.Format("EXEC PRPMO_REDO_RECORD_CHANGES {0}", RECORD_ID)
If ClassDatabase.Execute_non_Query_withConn(proc, 1) = True Then If ClassDatabase.Execute_non_Query_withConn(proc, 1) = True Then
RECORD_ID = 0 RECORD_ID = 0
Column_Row_Handler() Column_Row_Handler("tsbtnRedo_Click")
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End If End If
@@ -6150,7 +6177,7 @@ Public Class frmConstructor_Main
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Dim SQL = String.Format("EXEC PRPMO_COPY_RECORD {0}, '{1}'", RECORD_ID, USER_USERNAME) Dim SQL = String.Format("EXEC PRPMO_COPY_RECORD {0}, '{1}'", RECORD_ID, USER_USERNAME)
If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then If ClassDatabase.Execute_non_Query_withConn(SQL, 1) = True Then
Load_Entity_Data(ACT_EBENE) Load_Entity_Data()
End If End If
End If End If
Else Else
@@ -6180,7 +6207,7 @@ Public Class frmConstructor_Main
CURRENT_ENTITY_ID = ENTITY_ID CURRENT_ENTITY_ID = ENTITY_ID
ClassControlValueCache.ClearCache() ClassControlValueCache.ClearCache()
DisableEditMode() DisableEditMode()
Load_Entity_Data(ACT_EBENE) Load_Entity_Data()
RECORD_CHANGED = False RECORD_CHANGED = False
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Clear Cache: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Clear Cache: ", ex.Message)
@@ -6207,7 +6234,7 @@ Public Class frmConstructor_Main
ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD") ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD")
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
Load_Datafor_Entity() Load_Datafor_Entity()
LocateRecordById(CURRENT_RECORD_ID) LocateRecordinGridById(CURRENT_RECORD_ID)
End If End If
Else Else
msg = "Sie dürfen diesen Datensatz nicht löschen! (Rechtekonzept)!" msg = "Sie dürfen diesen Datensatz nicht löschen! (Rechtekonzept)!"
@@ -6804,7 +6831,7 @@ Public Class frmConstructor_Main
ElseIf e.KeyCode = Keys.Control And e.KeyCode = Keys.S Then ElseIf e.KeyCode = Keys.Control And e.KeyCode = Keys.S Then
Save_Record() Save_Record()
If ERROR_WHILE_SAVING = True Then If ERROR_WHILE_SAVING = True Then
Column_Row_Handler() Column_Row_Handler("StrgS")
End If End If
End If End If
End Sub End Sub
@@ -6850,4 +6877,6 @@ Public Class frmConstructor_Main
tslblPoslocked.Text = msg tslblPoslocked.Text = msg
End If End If
End Sub End Sub
End Class End Class

2
app/DD-Record-Organizer/frmDocLink_to_Record.vb
View File

@@ -86,7 +86,7 @@ Public Class frmDocLink_to_Record
trvwMain.Nodes.Clear() trvwMain.Nodes.Clear()
If NODE_NAVIGATION = True Then If NODE_NAVIGATION = True Then
Dim newTreeview As TreeView Dim newTreeview As TreeView
newTreeview = ClassNodeNavigation.CreateTreeViewNodesNew1(DT_TREEVIEW_PER_CONTROLS, TREEVIEW_IMAGELIST) newTreeview = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_PER_CONTROLS, TREEVIEW_IMAGELIST)
If Not IsNothing(newTreeview) Then If Not IsNothing(newTreeview) Then
For Each node As TreeNode In newTreeview.Nodes For Each node As TreeNode In newTreeview.Nodes

10
app/DD-Record-Organizer/frmRecordView.vb
View File

@@ -151,9 +151,8 @@ Public Class frmRecordView
Private Sub RUN_WDSEARCH_GRID() Private Sub RUN_WDSEARCH_GRID()
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Try Try
Dim sw As New Stopwatch Dim sw As New SW("RUN_WDSEARCH_GRID")
sw.Start()
Dim elapsed As Double
Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID) Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID)
If IsNothing(DT_RESULT) Then If IsNothing(DT_RESULT) Then
Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data" Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data"
@@ -192,10 +191,7 @@ Public Class frmRecordView
GridControlDocSearch.DataSource = Nothing GridControlDocSearch.DataSource = Nothing
'Clear_Windream_ResultList() 'Clear_Windream_ResultList()
End If End If
elapsed = sw.Elapsed.TotalSeconds sw.Done()
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run RUN_WDSEARCH_GRID took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Run WD-Search Database: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Run WD-Search Database: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try